diff options
| author | Arnaud Spiwack | 2015-04-22 18:51:48 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-04-22 18:55:13 +0200 |
| commit | 501d6dd5691474c807a722d9b5b6e3fa9d83c749 (patch) | |
| tree | 959a4c35926f7b0e098cd82109b0bfde3f29ce3b /proofs | |
| parent | 74d7dd7ae08dedfd80c056a345c1b3398eb91b5e (diff) | |
Tactical `progress` compares term up to potentially equalisable universes.
Followup of: f7b29094fe7cc13ea475447bd30d9a8b942f0fef . In particular, re-closes #3593.
As a side effect, fixes an undiscovered bug of the `eq_constr` tactic which didn't consider terms up to evar instantiation.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 6f62634133..6e653806b7 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -722,19 +722,7 @@ let give_up = module Progress = struct - (** equality function up to evar instantiation in heterogeneous - contexts. *) - (* spiwack (2015-02-19): In the previous version of progress an - equality which considers two universes equal when it is consistent - tu unify them ([Evd.eq_constr_univs_test]) was used. Maybe this - behaviour has to be restored as well. This has to be established by - practice. *) - - let rec eq_constr sigma1 sigma2 t1 t2 = - Constr.equal_with - (fun t -> Evarutil.kind_of_term_upto sigma1 t) - (fun t -> Evarutil.kind_of_term_upto sigma2 t) - t1 t2 + let eq_constr = Evarutil.eq_constr_univs_test (** equality function on hypothesis contexts *) let eq_named_context_val sigma1 sigma2 ctx1 ctx2 = |