type t = private {mutable env : Env.t;equations_scope : int;allow_recursive_equations : bool;
}val make : Env.t -> equations_scope:int -> allow_recursive_equations:bool -> tval copy : ?equations_scope:int -> t -> tval set_env : t -> Env.t -> unit