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 -> t
val copy : ?equations_scope:int -> t -> t
val set_env : t -> Env.t -> unit