sig   type t   type location   val atom : ?loc:Ast_dimacs.Term.location -> int -> Ast_dimacs.Term.t end