diff options
| -rw-r--r-- | proofs/clenvtac.ml | 2 | ||||
| -rw-r--r-- | proofs/clenvtac.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index b2fea6fd1..589cb5bda 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -82,7 +82,7 @@ open Unification let dft = default_unify_flags -let res_pf clenv ?(with_evars=false) ?(flags=dft ()) = +let res_pf ?(with_evars=false) ?(flags=dft ()) clenv = Proofview.Goal.raw_enter begin fun gl -> let clenv gl = clenv_unique_resolver ~flags clenv gl in clenv_refine with_evars (Tacmach.New.of_old clenv (Proofview.Goal.assume gl)) diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index 789a21c24..bede509e7 100644 --- a/proofs/clenvtac.mli +++ b/proofs/clenvtac.mli @@ -15,7 +15,7 @@ open Unification (** Tactics *) val unify : ?flags:unify_flags -> constr -> unit Proofview.tactic val clenv_refine : evars_flag -> ?with_classes:bool -> clausenv -> unit Proofview.tactic -val res_pf : clausenv -> ?with_evars:evars_flag -> ?flags:unify_flags -> unit Proofview.tactic +val res_pf : ?with_evars:evars_flag -> ?flags:unify_flags -> clausenv -> unit Proofview.tactic val clenv_pose_dependent_evars : evars_flag -> clausenv -> clausenv val clenv_value_cast_meta : clausenv -> constr |