diff options
Diffstat (limited to 'theories/Arith/Max.v')
| -rwxr-xr-x | theories/Arith/Max.v | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/theories/Arith/Max.v b/theories/Arith/Max.v index 37cc797e5d..992bc345ac 100755 --- a/theories/Arith/Max.v +++ b/theories/Arith/Max.v @@ -69,17 +69,11 @@ induction n; induction m; simpl in |- *; auto with arith. elim (IHn m); intro H; elim H; auto. Qed. -Lemma max_case : forall n m (P:nat -> Set), P n -> P m -> P (max n m). -Proof. -induction n; simpl in |- *; auto with arith. -induction m; intros; simpl in |- *; auto with arith. -pattern (max n m) in |- *; apply IHn; auto with arith. -Qed. - -Lemma max_case2 : forall n m (P:nat -> Prop), P n -> P m -> P (max n m). +Lemma max_case : forall n m (P:nat -> Type), P n -> P m -> P (max n m). Proof. induction n; simpl in |- *; auto with arith. induction m; intros; simpl in |- *; auto with arith. pattern (max n m) in |- *; apply IHn; auto with arith. Qed. +Notation max_case2 := max_case (only parsing). |