From cef5ba5017288534c4fb319998981bfac3dfc6ba Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 12 Feb 2006 18:56:24 +0000
Subject: Unification min_case et min_case2

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8029 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Arith/Min.v | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/theories/Arith/Min.v b/theories/Arith/Min.v
index 8f7755d4b7..3e64980cb7 100755
--- a/theories/Arith/Min.v
+++ b/theories/Arith/Min.v
@@ -68,16 +68,12 @@ induction n; induction m; simpl in |- *; auto with arith.
 elim (IHn m); intro H; elim H; auto.
 Qed.
 
-Lemma min_case : forall n m (P:nat -> Set), P n -> P m -> P (min n m).
+Lemma min_case : forall n m (P:nat -> Type), P n -> P m -> P (min n m).
 Proof.
 induction n; simpl in |- *; auto with arith.
 induction m; intros; simpl in |- *; auto with arith.
 pattern (min n m) in |- *; apply IHn; auto with arith.
 Qed.
 
-Lemma min_case2 : forall n m (P:nat -> Prop), P n -> P m -> P (min n m).
-Proof.
-induction n; simpl in |- *; auto with arith.
-induction m; intros; simpl in |- *; auto with arith.
-pattern (min n m) in |- *; apply IHn; auto with arith.
-Qed.
\ No newline at end of file
+Notation min_case2 := min_case (only parsing).
+
-- 
cgit v1.2.3