module type Statement = sig .. end
sig
end
type t
type term
type location
val clause : ?loc:location -> term list -> t
?loc:location -> term list -> t