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