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