Update
This commit is contained in:
parent
484e8d49b6
commit
4e3641242d
@ -735,11 +735,10 @@ Proof.
|
||||
|
||||
rewrite Nat.mul_sub_distr_l. rewrite Nat.mul_1_r.
|
||||
rewrite <- Nat.sub_succ_l. rewrite Nat.sub_succ. reflexivity.
|
||||
replace (2) with (2*1) at 1.
|
||||
rewrite <- Nat.mul_1_r at 1.
|
||||
apply Nat.mul_le_mono_pos_l. apply Nat.lt_0_2.
|
||||
apply Nat.le_succ_l. apply Nat.mul_pos_pos.
|
||||
apply Nat.lt_0_succ. assumption. apply Nat.mul_1_r.
|
||||
apply Nat.lt_0_2.
|
||||
apply Nat.lt_0_succ. assumption. apply Nat.lt_0_2.
|
||||
|
||||
apply Nat.mul_comm. apply Nat.mul_comm.
|
||||
Qed.
|
||||
|
Loading…
Reference in New Issue
Block a user