diff options
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 91c80e88..be9ca8d4 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. + |