diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/unification.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/success/unification.v b/test-suite/success/unification.v index 6a4d928512..e31d67d8cd 100644 --- a/test-suite/success/unification.v +++ b/test-suite/success/unification.v @@ -96,3 +96,16 @@ Goal (forall x, 0 * x = 0 -> True) -> True. intros; eapply H. rewrite <- plus_n_Sm. (* should refine ?x with S ?x' *) Abort. + +(* Check handling of identity equation between evars *) +(* The example failed to pass until revision 10623 *) + +Lemma l6 : + (forall y, (forall x, (forall z, y = 0 -> y + z = 0) -> y + x = 0) -> True) + -> True. +intros. +eapply H. +intros. +apply H0. (* Check that equation ?n[H] = ?n[H] is correctly considered true *) +reflexivity. +Qed. |