sig
type ('a, 'b) t = ('b, 'a Bddapron.Expr0.t list) Bddapron.Env.value
constraint 'b =
('a, [> 'a Bddapron.Env.typ ] as 'c, [> 'a Bddapron.Env.typdef ] as 'd,
'e)
Bddapron.Env.O.t
val of_lexpr0 :
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t ->
'a Bddapron.Expr0.t list ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t
val get_env :
('a,
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t)
Bddapron.Expr1.O.List.t -> ('a, 'b, 'c, 'd) Bddapron.Env.O.t
val to_lexpr0 :
('a,
('a, [> 'a Bddapron.Env.typ ], [> 'a Bddapron.Env.typdef ], 'b)
Bddapron.Env.O.t)
Bddapron.Expr1.O.List.t -> 'a Bddapron.Expr0.t list
val of_lexpr :
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.expr list ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t
val to_lexpr :
('a,
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t)
Bddapron.Expr1.O.List.t ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.expr list
val extend_environment :
('a,
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t)
Bddapron.Expr1.O.List.t ->
('a, 'b, 'c, 'd) Bddapron.Env.O.t ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t
val normalize :
?reduce:bool ->
?careset:bool ->
('a,
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t)
Bddapron.Cond.O.t *
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t *
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t
val print :
?first:(unit, Format.formatter, unit) Pervasives.format ->
?sep:(unit, Format.formatter, unit) Pervasives.format ->
?last:(unit, Format.formatter, unit) Pervasives.format ->
('a,
('a, [> 'a Bddapron.Env.typ ] as 'b, [> 'a Bddapron.Env.typdef ] as 'c,
'd)
Bddapron.Env.O.t)
Bddapron.Cond.O.t ->
Format.formatter ->
('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Expr1.O.List.t -> unit
end