diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-13 13:20:51 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-13 13:20:51 +0000 |
commit | c7b4398341e1fec6c485f39cde8d42fa3ff6abff (patch) | |
tree | 287f86abf547207168f55c4e4fe37d06f0a58b3d /test-suite/success/Case18.v | |
parent | ba8f9564e492cd8d25a193cfc5883ed06faaea02 (diff) |
Correction bug #1477 sur ordre des variables partagées par les or-patterns.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9764 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Case18.v')
-rw-r--r-- | test-suite/success/Case18.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/Case18.v b/test-suite/success/Case18.v index 91c80e889..be9ca8d41 100644 --- a/test-suite/success/Case18.v +++ b/test-suite/success/Case18.v @@ -12,3 +12,15 @@ Fixpoint max (n m:nat) {struct m} : nat := | S n', S m' => S (max n' m') | 0, p | p, 0 => p end. + +(* Check bug #1477 *) + +Inductive I : Set := + | A : nat -> nat -> I + | B : nat -> nat -> I. + +Definition foo (x:I) : nat := + match x with + | A a b | B b a => S b + end. + |