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