diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-25 23:23:39 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-25 23:23:39 +0200 |
| commit | f2a4ad8b7ca2407d3dd2b6f38b70f635bd6ad0ed (patch) | |
| tree | d8bd2870ae2c2f35d97406fbbe2c2b5a5cdcb4b8 /proofs/clenvtac.ml | |
| parent | 1d46f6d6c4049606be5142da110851ff803b0682 (diff) | |
Putting implicit arguments of Clenv.res_pf right.
Diffstat (limited to 'proofs/clenvtac.ml')
| -rw-r--r-- | proofs/clenvtac.ml | 2 |
1 files changed, 1 insertions, 1 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)) |