diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/3210.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3210.v b/test-suite/bugs/closed/3210.v index e66bf922d7..bb673f38c2 100644 --- a/test-suite/bugs/closed/3210.v +++ b/test-suite/bugs/closed/3210.v @@ -7,3 +7,16 @@ Definition foo (x : Foo) : bool := match x with I => true end. + +Definition foo' (x : Foo) : x = x. +case x. +match goal with |- I = I => idtac end. (* check form of the goal *) +Undo 2. +elim x. +match goal with |- I = I => idtac end. (* check form of the goal *) +Undo 2. +induction x. +match goal with |- I = I => idtac end. (* check form of the goal *) +Undo 2. +destruct x. +match goal with |- I = I => idtac end. (* check form of the goal *) |