diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-17 16:46:56 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-17 16:46:56 +0000 |
commit | d1f2e143ff56e53d6feee4158bc9f69b8d3e9ee1 (patch) | |
tree | 76231fd20cb4cfced7872e6f7f2f428203a9b4d5 /theories/Arith | |
parent | 35e84a95326c95f9399084c843e244de6ae25753 (diff) |
Reverse order of arguments in min_case_strong for better uniformity (and compatibility...)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12595 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith')
-rw-r--r-- | theories/Arith/MinMax.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Arith/MinMax.v b/theories/Arith/MinMax.v index 784e10455..caf860af8 100644 --- a/theories/Arith/MinMax.v +++ b/theories/Arith/MinMax.v @@ -68,7 +68,7 @@ Lemma max_monotone: forall f, Proof. intros; apply max_monotone; auto. congruence. Qed. Lemma min_case_strong : forall n m (P:nat -> Type), - (m<=n -> P m) -> (n<=m -> P n) -> P (min n m). + (n<=m -> P n) -> (m<=n -> P m) -> P (min n m). Proof. intros; apply min_case_strong; auto. congruence. Defined. Lemma min_case : forall n m (P:nat -> Type), |