diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-12 15:36:17 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-13 19:12:34 +0200 |
| commit | e9c25b3368a73737553821d2e954383c57698a86 (patch) | |
| tree | 30374a292fcbb373862cae80d6288be4783aa77a /proofs/clenvtac.ml | |
| parent | 267d7a63e9c24573226d0890bedb783f10dcb235 (diff) | |
Add support for deactivating type class inference from induction/destruct.
Diffstat (limited to 'proofs/clenvtac.ml')
| -rw-r--r-- | proofs/clenvtac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |