sig
  type 'a t = Cudd.Man.v Bdd.Int.t
  val of_expr : 'a Expr0.expr -> 'a Expr0.O.Bint.t
  val to_expr : 'a Expr0.O.Bint.t -> 'a Expr0.expr
  val of_int :
    ('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 ->
    [> `Bint of bool * int ] -> int -> 'a Expr0.O.Bint.t
  val var :
    ('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 Expr0.O.Bint.t
  val ite :
    ('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.O.Bool.t ->
    'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val neg :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t
  val succ :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t
  val pred :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t
  val add :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val sub :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val mul :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val shift_left :
    ('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 ->
    int -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val shift_right :
    ('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 ->
    int -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val scale :
    ('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 ->
    int -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val zero :
    ('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.O.Bint.t -> 'a Expr0.O.Bool.t
  val eq :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t
  val eq_int :
    ('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.O.Bint.t -> int -> 'a Expr0.O.Bool.t
  val supeq :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t
  val supeq_int :
    ('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.O.Bint.t -> int -> 'a Expr0.O.Bool.t
  val sup :
    ('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.O.Bint.t -> 'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t
  val sup_int :
    ('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.O.Bint.t -> int -> 'a Expr0.O.Bool.t
  val cofactor : 'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t -> 'a Expr0.O.Bint.t
  val restrict : 'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t -> 'a Expr0.O.Bint.t
  val tdrestrict :
    'a Expr0.O.Bint.t -> 'a Expr0.O.Bool.t -> 'a Expr0.O.Bint.t
  val permute :
    ?memo:Cudd.Memo.t -> 'a Expr0.O.Bint.t -> int array -> 'a Expr0.O.Bint.t
  val varmap : 'a Expr0.O.Bint.t -> 'a Expr0.O.Bint.t
  val substitute_by_var :
    ('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.O.Bint.t -> ('a * 'a) list -> 'a Expr0.O.Bint.t
  val substitute :
    ('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.O.Bint.t -> ('a * 'a Expr0.expr) list -> 'a Expr0.O.Bint.t
  val print :
    ('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 ->
    Format.formatter -> 'a Expr0.O.Bint.t -> unit
end