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