module Bint: sig
.. end
type ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t)
t = (('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'b) Env.O.t,
Cudd.Man.v Bdd.Int.t)
Env.value
val of_expr : (('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t,
[> `Bint of 'a Expr0.Bint.t ])
Env.value -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t
val to_expr : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
t ->
(('a, 'b, 'c, 'd) Env.O.t, [> `Bint of 'a Expr0.Bint.t ]) Env.value
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 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, ('a, 'b, 'c, 'd) Env.O.t) 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, ('a, 'b, 'c, 'd) Env.O.t) t
val neg : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val succ : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val pred : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val add : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val sub : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val mul : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val shift_left : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
int ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val shift_right : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
int ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val scale : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
int ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val ite : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val zero : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val eq : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val supeq : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val sup : ('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) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val eq_int : ('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) t ->
int -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val supeq_int : ('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) t ->
int -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val sup_int : ('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) t ->
int -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
val cofactor : ('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.Bool.t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val restrict : ('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.Bool.t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val tdrestrict : ('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.Bool.t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val substitute_by_var : ('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) t ->
('a * 'a) list -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t
val substitute : ('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) t ->
('a * ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.expr) list ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val guard_of_int : ('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) t ->
int -> ('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t
Return the guard of the integer value.
val guardints : ('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) t ->
(('a, ('a, 'b, 'c, 'd) Env.O.t) Expr1.O.Bool.t * int) list
Return the list g -> n
of guarded values.
val print : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
Format.formatter -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t -> unit