chg: Broken some steps for easier understanding

This commit is contained in:
Sayantan Santra 2024-02-06 01:35:56 -06:00
parent 5b38350326
commit a7bde3532c
Signed by: SinTan1729
GPG key ID: EB3E68BFBA25C85F

View file

@ -23,13 +23,15 @@ theorem exists_prime_factor {n : Nat} (h : 2 ≤ n) : ∃ p : Nat, p.Prime ∧ p
have : m ≠ 0 := by
intro mz
rw [mz, zero_dvd_iff] at mdvdn
linarith
-- linarith
rw [mz, mdvdn] at mltn
contradiction
have mgt2 : 2 ≤ m := two_le this mne1
by_cases mp : m.Prime
· use m, mp
. rcases ih m mltn mgt2 mp with ⟨p, pp, pdvd⟩
use p, pp
apply pdvd.trans mdvdn
exact Nat.dvd_trans pdvd mdvdn
theorem primes_infinite : ∀ n, ∃ p > n, Nat.Prime p := by
intro n