Module Expr2.O

module O: sig .. end

module Bool: sig .. end

type ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) t = (('a, ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'b) Env.O.t)
        Cond.O.t, ('a, ('a, 'c, 'd, 'b) Env.O.t) Expr1.O.t)
       Bdd.Cond.value 

type ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) expr = ('a, ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'b) Env.O.t)
       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) 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) t

val get_env : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
       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)
       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) t ->
       'a Expr0.t

val to_expr1 : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
       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)
       t ->
       ('a, 'b, 'c, 'd) Env.O.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t

val print : Format.formatter ->
       ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) t -> unit

module List: sig .. end