diff options
| -rw-r--r-- | test-suite/success/Inversion.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/Inversion.v b/test-suite/success/Inversion.v index a9e4a8434a..40d45afdee 100644 --- a/test-suite/success/Inversion.v +++ b/test-suite/success/Inversion.v @@ -83,3 +83,13 @@ Proof. NewInduction 1. Intros H ; Inversion H. Admitted. + +(* Used to failed at some time *) + +Parameter bar : (p,q:nat) p=q -> Prop. +Inductive foo : nat -> nat -> Prop := + C : (a,b:nat)(Heq:a = b) (bar a b Heq) -> (foo a b). +Lemma depinv : (a,b:?) (foo a b) -> True. +Intros a b H. +Inversion H. +Abort. |