diff options
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 6 |
1 files changed, 6 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 |