let
is_unknown_location loc =
(fst loc).
Lexing
.pos_lnum = 0