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