diff options
Diffstat (limited to 'test-suite/failure')
| -rw-r--r-- | test-suite/failure/Case9.v | 8 | ||||
| -rw-r--r-- | test-suite/failure/guard.v | 4 |
2 files changed, 7 insertions, 5 deletions
diff --git a/test-suite/failure/Case9.v b/test-suite/failure/Case9.v index d63c49403..ec4852300 100644 --- a/test-suite/failure/Case9.v +++ b/test-suite/failure/Case9.v @@ -2,7 +2,9 @@ Parameter compare : forall n m : nat, {n < m} + {n = m} + {n > m}. Type match compare 0 0 return nat with - (* k<i *) | left _ _ (left _ _ _) => 0 - (* k=i *) | left _ _ _ => 0 - (* k>i *) | right _ _ _ => 0 + (* k<i *) | left _ (left _ _) => 0 + (* k=i *) | left _ _ => 0 + (* k>i *) | right _ _ => 0 + end. + end. diff --git a/test-suite/failure/guard.v b/test-suite/failure/guard.v index 324dc6030..cd3c81f49 100644 --- a/test-suite/failure/guard.v +++ b/test-suite/failure/guard.v @@ -5,9 +5,9 @@ (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) - +(* Fixpoint F (n:nat) : False := F (match F n with end). - +*) (* de Bruijn mix-up *) (* If accepted, Eval compute in f 0. loops *) Definition f := |