diff options
| author | herbelin | 2005-03-20 11:24:07 +0000 |
|---|---|---|
| committer | herbelin | 2005-03-20 11:24:07 +0000 |
| commit | 2b31c2a5dfcf091e74e2df41c1504c932e0f044e (patch) | |
| tree | 6c1f4484f0cd0f163c85cbab9000f1d1d98b3eb0 | |
| parent | e0999c8b36a475157b24f7a6cb67166f4c5e6473 (diff) | |
Test d'un bug de 'Inv.dependent_hyps' qui ne met pas à jour le type des hyps dépendantes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6867 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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. |