diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-07-13 14:28:31 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-07-13 14:28:31 +0000 |
| commit | de0085539583f59dc7c4bf4e272e18711d565466 (patch) | |
| tree | 347e1d95a2df56f79a01b303e485563588179e91 /test-suite/success/Case18.v | |
| parent | e978da8c41d8a3c19a29036d9c569fbe2a4616b0 (diff) | |
Imported Upstream version 8.0pl3+8.1beta.2upstream/8.0pl3+8.1beta.2
Diffstat (limited to 'test-suite/success/Case18.v')
| -rw-r--r-- | test-suite/success/Case18.v | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/test-suite/success/Case18.v b/test-suite/success/Case18.v index a57fe413..91c80e88 100644 --- a/test-suite/success/Case18.v +++ b/test-suite/success/Case18.v @@ -3,9 +3,12 @@ Definition g x := match x with ((((1 as x),_) | (_,x)), (_,(2 as y))|(y,_)) => (x,y) end. -Eval compute in (g ((1,2),(3,4))). -(* (1,3) *) +Check (refl_equal _ : g ((1,2),(3,4)) = (1,3)). -Eval compute in (g ((1,4),(3,2))). -(* (1,2) *) +Check (refl_equal _ : g ((1,4),(3,2)) = (1,2)). +Fixpoint max (n m:nat) {struct m} : nat := + match n, m with + | S n', S m' => S (max n' m') + | 0, p | p, 0 => p + end. |