sig type t = ModelFound | NoModelFound val unsatisfiable : Satisfiability.t -> bool val ( & ) : Satisfiability.t -> Satisfiability.t -> Satisfiability.t end