diff options
author | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-19 11:36:30 +0000 |
---|---|---|
committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-19 11:36:30 +0000 |
commit | d7d22275c0d82d41d1d9fc94161e34f6d9dc98d9 (patch) | |
tree | 085f9f51578df3da76820b0550dc20c80d5e6a3e /theories/Arith/Max.v | |
parent | baecd07714a5ed44c3b288e73e2b41367b880db1 (diff) |
Ajouts de lemmes dans Min et Max
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9660 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Max.v')
-rw-r--r-- | theories/Arith/Max.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/theories/Arith/Max.v b/theories/Arith/Max.v index 9d534a2d3..a3d658d0c 100644 --- a/theories/Arith/Max.v +++ b/theories/Arith/Max.v @@ -30,6 +30,13 @@ Proof. auto with arith. Qed. +Theorem max_assoc : forall m n p : nat, max m (max n p) = max (max m n) p. +Proof. + induction m; destruct n; destruct p; trivial. + simpl. + auto using IHm. +Qed. + Lemma max_comm : forall n m, max n m = max m n. Proof. induction n; induction m; simpl in |- *; auto with arith. |