We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 4ffe82e commit 02a4606Copy full SHA for 02a4606
Project.lean
@@ -1,3 +1 @@
1
--- This module serves as the root of the `Project` library.
2
--- Import modules here that should be built as part of the library.
3
import Project.Example
Project/Example.lean
@@ -12,9 +12,7 @@ namespace Example
12
theorem infinitely_many_primes : ∀ n : ℕ, ∃ p : ℕ, n < p ∧ Nat.Prime p := by
13
intro n
14
let N := Nat.factorial n + 1
15
- have N_gt_one : 1 < N := by
16
- simp [N]
17
- exact Nat.factorial_pos n
+ have N_gt_one : 1 < N := Nat.succ_lt_succ (Nat.factorial_pos n)
18
let p := Nat.minFac N
19
have N_not_one : N ≠ 1 := Nat.ne_of_gt N_gt_one
20
have pp : Nat.Prime p := Nat.minFac_prime N_not_one
0 commit comments