package bddapron

  1. Overview
  2. Docs
type (!'a, !'b) t = ('b, 'a Expr0.t list) Env.value constraint 'b = ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t
val of_lexpr0 : ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t -> 'a Expr0.t list -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t
val get_env : ('a, ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t) t -> ('a, 'b, 'c, 'd) Env.O.t
val to_lexpr0 : ('a, ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'b) Env.O.t) t -> 'a Expr0.t list
val of_lexpr : ('a, [> 'a Env.typ ] as 'b, [> 'a Env.typdef ] as 'c, 'd) Env.O.t -> ('a, ('a, 'b, 'c, 'd) Env.O.t) expr list -> ('a, ('a, 'b, 'c, 'd) Env.O.t) t
val to_lexpr : ('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) expr list
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 normalize : ?reduce:bool -> ?careset:bool -> (('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) Cond.O.t * ('a, ('a, 'b, 'c, 'd) Env.O.t) t
val print : ?first:(unit, Format.formatter, unit) format -> ?sep:(unit, Format.formatter, unit) format -> ?last:(unit, Format.formatter, unit) format -> ('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