module Bool: sig .. end
type ('a, 'b) t = (('a, 'b) Bdd.Env.t, 'b Cudd.Bdd.t) Bdd.Env.value
type 'a dt = ('a, Cudd.Man.d) t
type 'a vt = ('a, Cudd.Man.v) t
val of_expr0 : ('a, 'b) Bdd.Env.t -> 'b Bdd.Expr0.Bool.t -> ('a, 'b) t
Creation from an expression of level 0 (without environment)
val get_env : ('a, 'b) t -> ('a, 'b) Bdd.Env.t
val to_expr0 : ('a, 'b) t -> 'b Bdd.Expr0.Bool.t
Extract resp. the environment and the underlying
expression of level 0
val of_expr : ('a, 'b) Bdd.Expr1.expr -> ('a, 'b) t
val to_expr : ('a, 'b) t -> ('a, 'b) Bdd.Expr1.expr
Conversion from/to general expression
val extend_environment : ('a, 'b) t -> ('a, 'b) Bdd.Env.t -> ('a, 'b) t
Extend the underlying environment to a superenvironment,
and adapt accordingly the underlying representation
val dtrue : ('a, 'b) Bdd.Env.t -> ('a, 'b) t
val dfalse : ('a, 'b) Bdd.Env.t -> ('a, 'b) t
val of_bool : ('a, 'b) Bdd.Env.t -> bool -> ('a, 'b) t
val var : ('a, 'b) Bdd.Env.t -> 'a -> ('a, 'b) t
Logical connectors
val dnot : ('a, 'b) t -> ('a, 'b) t
val dand : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val dor : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
not, and and or (use of 'd' prefix because of conflict with OCaml
keywords)
val xor : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val nand : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val nor : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val nxor : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
Exclusive or, not and, nor or and not xor
val eq : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
Same as nxor
val leq : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
Implication
val ite : ('a, 'b) t ->
('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
If-then-else
val is_true : ('a, 'b) t -> bool
val is_false : ('a, 'b) t -> bool
val is_cst : ('a, 'b) t -> bool
val is_eq : ('a, 'b) t -> ('a, 'b) t -> bool
val is_leq : ('a, 'b) t -> ('a, 'b) t -> bool
val is_inter_false : ('a, 'b) t -> ('a, 'b) t -> bool
val exist : 'a list -> ('a, 'b) t -> ('a, 'b) t
val forall : 'a list -> ('a, 'b) t -> ('a, 'b) t
val cofactor : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val restrict : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val tdrestrict : ('a, 'b) t ->
('a, 'b) t -> ('a, 'b) t
val substitute_by_var : ?memo:Cudd.Memo.t ->
('a, 'b) t -> ('a * 'a) list -> ('a, 'b) t
val substitute : ?memo:Cudd.Memo.t ->
('a, 'b) t ->
('a * ('a, 'b) Bdd.Expr1.expr) list -> ('a, 'b) t
val print : Format.formatter -> ('a, 'b) t -> unit