diff options
author | 2006-07-03 17:02:34 +0000 | |
---|---|---|
committer | 2006-07-03 17:02:34 +0000 | |
commit | 0ecac5c9e6c5bbdd99fe3fd8b71dbc16fdd47907 (patch) | |
tree | 51f9cd0d0fc7a2591c58b7c90c3f9ae7c53afc81 | |
parent | 1e69c6a499757b05180205e84ed2bf6f1cbf7b2f (diff) |
Test des motifs disjonctifs multiples
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8998 85f007b7-540e-0410-9357-904b9bb8a0f7
-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 a57fe4131..91c80e889 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. |