module Bool: 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,
'a Expr0.Bool.t)
Env.value
val of_expr : (('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t,
[> `Bool of 'a Expr0.Bool.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, [> `Bool of 'a Expr0.Bool.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 dtrue : ('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, 'b, 'c, 'd) Env.O.t) t
val dfalse : ('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, 'b, 'c, 'd) Env.O.t) t
val of_bool : ('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 ->
bool -> ('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
Logical connectors
val dnot : ('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 dand : ('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 dor : ('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
not, and and or (use of 'd' prefix because of conflict with OCaml
keywords)
val xor : ('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 nand : ('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 nor : ('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 nxor : ('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
Exclusive or, not and, nor or and not xor
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) t
Same as nxor
val leq : ('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
Implication
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) 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
If-then-else
val is_true : ('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 -> bool
val is_false : ('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 -> bool
val is_cst : ('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 -> bool
val is_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 -> bool
val is_leq : ('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 -> bool
val is_inter_false : ('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 -> bool
val exist : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
'a list ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t
val forall : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t)
Cond.O.t ->
'a list ->
('a, ('a, 'b, 'c, 'd) Env.O.t) t ->
('a, ('a, 'b, 'c, 'd) Env.O.t) 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) 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) 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) 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 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