diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-23 17:48:13 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-24 13:52:34 +0200 |
| commit | 89dc208ff140ba6ecd7b2c931401f9c58fb2985e (patch) | |
| tree | dbc00054387bce1ab4c7452ea13d0900afe7201a /proofs/clenvtac.ml | |
| parent | efa3add0c03b70ecda3890cc6c69e66850605e7d (diff) | |
Clenvtac.res_pf is in the new tactic monad.
Diffstat (limited to 'proofs/clenvtac.ml')
| -rw-r--r-- | proofs/clenvtac.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 941d789dd..e8af6ffbd 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -78,8 +78,10 @@ open Unification let dft = default_unify_flags -let res_pf clenv ?(with_evars=false) ?(flags=dft ()) gls = - clenv_refine with_evars (clenv_unique_resolver ~flags clenv gls) gls +let res_pf clenv ?(with_evars=false) ?(flags=dft ()) = + Proofview.V82.tactic begin fun gl -> + clenv_refine with_evars (clenv_unique_resolver ~flags clenv gl) gl + end (* [unifyTerms] et [unify] ne semble pas gérer les Meta, en particulier ne semblent pas vérifier que des instances différentes |