diff options
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 |