diff options
| author |  Stephane Glondu <steph@glondu.net> | 2009-02-01 00:54:43 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2009-02-01 00:54:43 +0100 |
| commit | 9c775561f67ac558c2c408cfa873544e2fea7b0a (patch) | |
| tree | 375ac16822f815477b36d50e49bb3cd9633aaa84 /test-suite/output/Cases.v | |
| parent | 3e6a1167fd397f2c72b48315e5d82f6c7e24703f (diff) | |
| parent | cfbfe13f5b515ae2e3c6cdd97e2ccee03bc26e56 (diff) | |
Merge commit 'upstream/8.2.rc2+dfsg'
Diffstat (limited to 'test-suite/output/Cases.v')
| -rw-r--r-- | test-suite/output/Cases.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/output/Cases.v b/test-suite/output/Cases.v index 61f89d40..37ee71e9 100644 --- a/test-suite/output/Cases.v +++ b/test-suite/output/Cases.v @@ -33,3 +33,16 @@ Fixpoint foo (A:Type) (l:list A) : option A := end. Print foo. + +(* Do not duplicate the matched term *) + +Axiom A : nat -> bool. + +Definition foo' := + match A 0 with + | true => true + | x => x + end. + +Print foo'. + |