Module PulseSatUnsat.Import

include module type of Types
type nonrec unsat_info = unsat_info = {
  1. reason : unit -> string;
  2. source : string * int * int * int;
}
type 'a sat_unsat_t = 'a t =
  1. | Unsat of unsat_info
  2. | Sat of 'a
val equal_sat_unsat_t : ('a -> 'a -> bool) -> 'a sat_unsat_t -> 'a sat_unsat_t -> bool
val (>>|) : 'a t -> ('a -> 'b) -> 'b t
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (let+) : 'a t -> ('a -> 'b) -> 'b t
val (let*) : 'a t -> ('a -> 'b t) -> 'b t