diff options
| author | gregoire | 2005-12-05 10:16:24 +0000 |
|---|---|---|
| committer | gregoire | 2005-12-05 10:16:24 +0000 |
| commit | a3508843fa932cbc9a3c0b0d3dc5004752d2a8e4 (patch) | |
| tree | 65d41498a65f229c9c77ad1a9b48a4059422b8cd /pretyping | |
| parent | bf578ad5e2f63b7a36aeaef5e0597101db1bd24a (diff) | |
changement d'egalite pour le named_context_val
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7640 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evd.ml | 6 | ||||
| -rw-r--r-- | pretyping/evd.mli | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index c58d921ebc..26df8f7938 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -34,6 +34,12 @@ type evar_info = { let evar_context evi = named_context_of_val evi.evar_hyps +let eq_evar_info ei1 ei2 = + ei1 == ei2 || + eq_constr ei1.evar_concl ei2.evar_concl && + eq_named_context_val (ei1.evar_hyps) (ei2.evar_hyps) && + ei1.evar_body = ei2.evar_body + module Evarmap = Intmap type evar_map1 = evar_info Evarmap.t diff --git a/pretyping/evd.mli b/pretyping/evd.mli index 506ce44877..2f51ebf2d3 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -34,6 +34,7 @@ type evar_info = { evar_hyps : Environ.named_context_val; evar_body : evar_body} +val eq_evar_info : evar_info -> evar_info -> bool val evar_context : evar_info -> named_context type evar_map |