sig
  module Bool :
    sig
      type ('a, 'b) t =
          (('a, 'b) Cond.O.t, ('a, 'b) Expr1.O.Bool.t) Bdd.Cond.value
        constraint 'b =
          ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t
      val of_expr0 :
        ?normalize:bool ->
        ?reduce:bool ->
        ?careset:bool ->
        ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t ->
        'a Expr0.Bool.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.Bool.t
      val of_expr1 :
        ?normalize:bool ->
        ?reduce:bool ->
        ?careset:bool ->
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Cond.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.Bool.t
      val get_env :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.Bool.t -> ('a, 'b, 'c, 'd) Env.O.t
      val get_cond :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.Bool.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t
      val to_expr0 :
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.Bool.t -> 'a Expr0.Bool.t
      val to_expr1 :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.Bool.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
      val of_expr :
        (('a,
          ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
         Cond.O.t,
         (('a, 'b, 'c, 'd) Env.O.t, [> `Bool of 'a Expr0.Bool.t ]) Env.value)
        Bdd.Cond.value -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.Bool.t
      val to_expr :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.Bool.t ->
        (('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t,
         (('a, 'b, 'c, 'd) Env.O.t, [> `Bool of 'a Expr0.Bool.t ]) Env.value)
        Bdd.Cond.value
      val extend_environment :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.Bool.t ->
        ('a, 'b, 'c, 'd) Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.Bool.t
      val is_false :
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.Bool.t -> bool
      val is_true :
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.Bool.t -> bool
      val print :
        Format.formatter ->
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.Bool.t -> unit
    end
  type ('a, 'b) t = (('a, 'b) Cond.O.t, ('a, 'b) Expr1.O.t) Bdd.Cond.value
    constraint 'b =
      ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t
  type ('a, 'b) expr = ('a, 'b) Expr2.O.t
    constraint 'b =
      ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t
  val of_expr0 :
    ?normalize:bool ->
    ?reduce:bool ->
    ?careset:bool ->
    ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t ->
    ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t ->
    'a Expr0.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.t
  val of_expr1 :
    ?normalize:bool ->
    ?reduce:bool ->
    ?careset:bool ->
    ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
    Cond.O.t ->
    ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.t ->
    ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.t
  val get_env :
    ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
    Expr2.O.t -> ('a, 'b, 'c, 'd) Env.O.t
  val get_cond :
    ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
    Expr2.O.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t
  val to_expr0 :
    ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) Expr2.O.t ->
    'a Expr0.t
  val to_expr1 :
    ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
    Expr2.O.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.t
  val extend_environment :
    ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
    Expr2.O.t ->
    ('a, 'b, 'c, 'd) Env.O.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.t
  val print :
    Format.formatter ->
    ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) Expr2.O.t ->
    unit
  module List :
    sig
      type ('a, 'b) t =
          (('a, 'b) Cond.O.t, ('a, 'b) Expr1.O.List.t) Bdd.Cond.value
        constraint 'b =
          ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t
      val of_lexpr0 :
        ?normalize:bool ->
        ?reduce:bool ->
        ?careset:bool ->
        ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t ->
        'a Expr0.t list -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.List.t
      val of_lexpr1 :
        ?normalize:bool ->
        ?reduce:bool ->
        ?careset:bool ->
        ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.t list ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.List.t
      val of_listexpr1 :
        ?normalize:bool ->
        ?reduce:bool ->
        ?careset:bool ->
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Cond.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.List.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.List.t
      val get_env :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.List.t -> ('a, 'b, 'c, 'd) Env.O.t
      val get_cond :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.List.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Cond.O.t
      val to_lexpr0 :
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.List.t -> 'a Expr0.t list
      val to_lexpr1 :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.List.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.t list
      val to_listexpr1 :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.List.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.List.t
      val extend_environment :
        ('a,
         ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
        Expr2.O.List.t ->
        ('a, 'b, 'c, 'd) Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr2.O.List.t
      val print :
        Format.formatter ->
        ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
        Expr2.O.List.t -> unit
    end
end