sig
  type 'a t =
    'Blang.t =
      And of 'a t list
    | Or of 'a t list
    | Not of 'a t
    | If of 'a t * 'a t * 'a t
    | Base of 'a
  type 'a sexpable = 'a t
  val sexp_of_t : ('-> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
  val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
  type 'a binable = 'a t
  val bin_size_t : ('a, 'a binable) Bin_prot.Size.sizer1
  val bin_write_t : ('a, 'a binable) Bin_prot.Map_to_safe.writer1
  val bin_write_t_ : ('a, 'a binable) Bin_prot.Unsafe_write_c.writer1
  val bin_read_t : ('a, 'a binable) Bin_prot.Map_to_safe.reader1
  val bin_read_t_ : ('a, 'a binable) Bin_prot.Unsafe_read_c.reader1
  val bin_read_t__ : ('a, int -> 'a binable) Bin_prot.Unsafe_read_c.reader1
  val bin_writer_t : ('a, 'a binable) Bin_prot.Type_class.S1.writer
  val bin_reader_t : ('a, 'a binable) Bin_prot.Type_class.S1.reader
  val bin_t : ('a, 'a binable) Bin_prot.Type_class.S1.t
  val values : 'a t -> 'a list
  val true_ : 'a t
  val false_ : 'a t
  type 'a monad = 'a t
  val ( >>= ) : 'a monad -> ('-> 'b monad) -> 'b monad
  val ( >>| ) : 'a monad -> ('-> 'b) -> 'b monad
  module Monad_infix :
    sig
      type 'a monad = 'a monad
      val ( >>= ) : 'a monad -> ('-> 'b monad) -> 'b monad
      val ( >>| ) : 'a monad -> ('-> 'b) -> 'b monad
    end
  val bind : 'a monad -> ('-> 'b monad) -> 'b monad
  val return : '-> 'a monad
  val map : 'a monad -> f:('-> 'b) -> 'b monad
  val join : 'a monad monad -> 'a monad
  val ignore : 'a monad -> unit monad
  val eval : ('-> bool) -> 'a t -> bool
end