diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2017-07-28 14:10:02 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2018-07-05 19:39:39 +0200 |
commit | 6afce6741c5436307116559820de96c672b4c501 (patch) | |
tree | 9a2966d73187e1bbb3522440ec70a0edcb31c5fe | |
parent | caacdb00c830854de72ba2fe19b5f74951d445bf (diff) |
refine: obey the use_unification_heuristics flag
-rw-r--r-- | plugins/ltac/extratactics.ml4 | 2 | ||||
-rw-r--r-- | proofs/pfedit.mli | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/plugins/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4 index 660e29ca8..f24ab2bdd 100644 --- a/plugins/ltac/extratactics.ml4 +++ b/plugins/ltac/extratactics.ml4 @@ -293,7 +293,7 @@ open Vars let constr_flags () = { Pretyping.use_typeclasses = true; - Pretyping.solve_unification_constraints = true; + Pretyping.solve_unification_constraints = Pfedit.use_unification_heuristics (); Pretyping.use_hook = Pfedit.solve_by_implicit_tactic (); Pretyping.fail_evar = false; Pretyping.expand_evars = true } diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 7b7973224..e02b5ab95 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -85,6 +85,9 @@ val solve : ?with_end_tac:unit Proofview.tactic -> val by : unit Proofview.tactic -> bool +(** Option telling if unification heuristics should be used. *) +val use_unification_heuristics : unit -> bool + (** [instantiate_nth_evar_com n c] instantiate the [n]th undefined existential variable of the current focused proof by [c] or raises a UserError if no proof is focused or if there is no such [n]th |