From 89dc208ff140ba6ecd7b2c931401f9c58fb2985e Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 23 Jun 2014 17:48:13 +0200 Subject: Clenvtac.res_pf is in the new tactic monad. --- proofs/clenvtac.ml | 6 ++++-- proofs/clenvtac.mli | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) (limited to 'proofs') 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 diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index 3cfe1f315..eea32019e 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 -> tactic -val res_pf : clausenv -> ?with_evars:evars_flag -> ?flags:unify_flags -> tactic +val res_pf : clausenv -> ?with_evars:evars_flag -> ?flags:unify_flags -> unit Proofview.tactic val clenv_pose_dependent_evars : evars_flag -> clausenv -> clausenv val clenv_value_cast_meta : clausenv -> constr -- cgit v1.2.3