diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-05-05 00:20:54 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-05-05 00:20:54 +0200 |
commit | 34e6a7149a69791cc736bdd9b2b909be9f21ec8f (patch) | |
tree | f33a4ed37d7fff96df7a720fe6146ecce56aba81 /proofs/proofview.ml | |
parent | 72644c7f7b3f0fcc56779acfcfa4bfc9f041ebde (diff) | |
parent | df54c829a4c06a93de47df4e8ccc441721360da8 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'proofs/proofview.ml')
-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 6f6263413..6e653806b 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 = |