From e9c25b3368a73737553821d2e954383c57698a86 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Sun, 12 Oct 2014 15:36:17 +0200 Subject: Add support for deactivating type class inference from induction/destruct. --- proofs/clenvtac.ml | 4 ++-- proofs/clenvtac.mli | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'proofs') diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 99ea2300c..76fc37d37 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -82,10 +82,10 @@ open Unification let dft = default_unify_flags -let res_pf ?(with_evars=false) ?(flags=dft ()) clenv = +let res_pf ?(with_evars=false) ?(with_classes=true) ?(flags=dft ()) clenv = Proofview.Goal.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)) + clenv_refine with_evars ~with_classes (Tacmach.New.of_old clenv (Proofview.Goal.assume gl)) end (* [unifyTerms] et [unify] ne semble pas gérer les Meta, en diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index bede509e7..6a7e12a35 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 : ?with_evars:evars_flag -> ?flags:unify_flags -> clausenv -> unit Proofview.tactic +val res_pf : ?with_evars:evars_flag -> ?with_classes:bool -> ?flags:unify_flags -> clausenv -> unit Proofview.tactic val clenv_pose_dependent_evars : evars_flag -> clausenv -> clausenv val clenv_value_cast_meta : clausenv -> constr -- cgit v1.2.3