diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-18 21:21:47 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-18 21:21:47 +0000 |
| commit | 8838528fb6fe72499ea37beeaf26d409ead90102 (patch) | |
| tree | 5da998ac8526f075d352d908fa8558c57f87d630 /test-suite/success/destruct.v | |
| parent | aecc008e57ca056552c8bbb156d2b45b70575c1d (diff) | |
Propagation des révisions 11144 et 11136 de la 8.2 vers le trunk
(résolution entre autres des bugs 1882, 1883, 1884).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11145 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/destruct.v')
| -rw-r--r-- | test-suite/success/destruct.v | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test-suite/success/destruct.v b/test-suite/success/destruct.v index 02f88b727..5aa78816b 100644 --- a/test-suite/success/destruct.v +++ b/test-suite/success/destruct.v @@ -36,3 +36,22 @@ Theorem Refl : forall P, P <-> P. tauto. Qed. Goal True. case Refl || ecase Refl. Abort. + + +(* Submitted by B. Baydemir (bug #1882) *) + +Require Import List. + +Definition alist R := list (nat * R)%type. + +Section Properties. + Variables A : Type. + Variables a : A. + Variables E : alist A. + + Lemma silly : E = E. + Proof. + clear. induction E. (* this fails. *) + Abort. + +End Properties. |