MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  prmind2 Structured version   Visualization version   GIF version

Theorem prmind2 16645
Description: A variation on prmind 16646 assuming complete induction for primes. (Contributed by Mario Carneiro, 20-Jun-2015.)
Hypotheses
Ref Expression
prmind.1 (𝑥 = 1 → (𝜑𝜓))
prmind.2 (𝑥 = 𝑦 → (𝜑𝜒))
prmind.3 (𝑥 = 𝑧 → (𝜑𝜃))
prmind.4 (𝑥 = (𝑦 · 𝑧) → (𝜑𝜏))
prmind.5 (𝑥 = 𝐴 → (𝜑𝜂))
prmind.6 𝜓
prmind2.7 ((𝑥 ∈ ℙ ∧ ∀𝑦 ∈ (1...(𝑥 − 1))𝜒) → 𝜑)
prmind2.8 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → ((𝜒𝜃) → 𝜏))
Assertion
Ref Expression
prmind2 (𝐴 ∈ ℕ → 𝜂)
Distinct variable groups:   𝑥,𝑦   𝑥,𝐴   𝑥,𝑧,𝜒   𝜂,𝑥   𝜏,𝑥   𝜃,𝑥   𝑦,𝑧,𝜑
Allowed substitution hints:   𝜑(𝑥)   𝜓(𝑥,𝑦,𝑧)   𝜒(𝑦)   𝜃(𝑦,𝑧)   𝜏(𝑦,𝑧)   𝜂(𝑦,𝑧)   𝐴(𝑦,𝑧)

Proof of Theorem prmind2
Dummy variables 𝑘 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prmind.5 . 2 (𝑥 = 𝐴 → (𝜑𝜂))
2 oveq2 7368 . . . 4 (𝑛 = 1 → (1...𝑛) = (1...1))
32raleqdv 3296 . . 3 (𝑛 = 1 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...1)𝜑))
4 oveq2 7368 . . . 4 (𝑛 = 𝑘 → (1...𝑛) = (1...𝑘))
54raleqdv 3296 . . 3 (𝑛 = 𝑘 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝑘)𝜑))
6 oveq2 7368 . . . 4 (𝑛 = (𝑘 + 1) → (1...𝑛) = (1...(𝑘 + 1)))
76raleqdv 3296 . . 3 (𝑛 = (𝑘 + 1) → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
8 oveq2 7368 . . . 4 (𝑛 = 𝐴 → (1...𝑛) = (1...𝐴))
98raleqdv 3296 . . 3 (𝑛 = 𝐴 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝐴)𝜑))
10 prmind.6 . . . . 5 𝜓
11 elfz1eq 13480 . . . . . 6 (𝑥 ∈ (1...1) → 𝑥 = 1)
12 prmind.1 . . . . . 6 (𝑥 = 1 → (𝜑𝜓))
1311, 12syl 17 . . . . 5 (𝑥 ∈ (1...1) → (𝜑𝜓))
1410, 13mpbiri 258 . . . 4 (𝑥 ∈ (1...1) → 𝜑)
1514rgen 3054 . . 3 𝑥 ∈ (1...1)𝜑
16 peano2nn 12177 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
1716ad2antrr 727 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℕ)
1817nncnd 12181 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℂ)
19 elfzuz 13465 . . . . . . . . . . . . . 14 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ∈ (ℤ‘2))
2019ad2antrl 729 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (ℤ‘2))
21 eluz2nn 12829 . . . . . . . . . . . . 13 (𝑦 ∈ (ℤ‘2) → 𝑦 ∈ ℕ)
2220, 21syl 17 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℕ)
2322nncnd 12181 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℂ)
2422nnne0d 12218 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≠ 0)
2518, 23, 24divcan2d 11924 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 · ((𝑘 + 1) / 𝑦)) = (𝑘 + 1))
26 simprr 773 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∥ (𝑘 + 1))
2722nnzd 12541 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℤ)
2817nnzd 12541 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℤ)
29 dvdsval2 16215 . . . . . . . . . . . . . 14 ((𝑦 ∈ ℤ ∧ 𝑦 ≠ 0 ∧ (𝑘 + 1) ∈ ℤ) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3027, 24, 28, 29syl3anc 1374 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3126, 30mpbid 232 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℤ)
3223mullidd 11154 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) = 𝑦)
33 elfzle2 13473 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ≤ ((𝑘 + 1) − 1))
3433ad2antrl 729 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≤ ((𝑘 + 1) − 1))
35 nncn 12173 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
3635ad2antrr 727 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℂ)
37 ax-1cn 11087 . . . . . . . . . . . . . . . . 17 1 ∈ ℂ
38 pncan 11390 . . . . . . . . . . . . . . . . 17 ((𝑘 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑘 + 1) − 1) = 𝑘)
3936, 37, 38sylancl 587 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) − 1) = 𝑘)
4034, 39breqtrd 5112 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦𝑘)
41 nnz 12536 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
4241ad2antrr 727 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℤ)
43 zleltp1 12569 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4427, 42, 43syl2anc 585 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4540, 44mpbid 232 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 < (𝑘 + 1))
4632, 45eqbrtrd 5108 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) < (𝑘 + 1))
47 1red 11136 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 ∈ ℝ)
4817nnred 12180 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ)
4922nnred 12180 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ)
5022nngt0d 12217 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < 𝑦)
51 ltmuldiv 12020 . . . . . . . . . . . . . 14 ((1 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5247, 48, 49, 50, 51syl112anc 1377 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5346, 52mpbid 232 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < ((𝑘 + 1) / 𝑦))
54 eluz2b1 12860 . . . . . . . . . . . 12 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 1 < ((𝑘 + 1) / 𝑦)))
5531, 53, 54sylanbrc 584 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (ℤ‘2))
56 prmind.2 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝜑𝜒))
57 simplr 769 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑥 ∈ (1...𝑘)𝜑)
58 fznn 13537 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
5942, 58syl 17 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
6022, 40, 59mpbir2and 714 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (1...𝑘))
6156, 57, 60rspcdva 3566 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝜒)
62 vex 3434 . . . . . . . . . . . . . . 15 𝑧 ∈ V
63 prmind.3 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝜑𝜃))
6462, 63sbcie 3771 . . . . . . . . . . . . . 14 ([𝑧 / 𝑥]𝜑𝜃)
65 dfsbcq 3731 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ([𝑧 / 𝑥]𝜑[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6664, 65bitr3id 285 . . . . . . . . . . . . 13 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝜃[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6763cbvralvw 3216 . . . . . . . . . . . . . 14 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑧 ∈ (1...𝑘)𝜃)
6857, 67sylib 218 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑧 ∈ (1...𝑘)𝜃)
6917nnrpd 12975 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ+)
7022nnrpd 12975 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ+)
7169, 70rpdivcld 12994 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℝ+)
7271rpgt0d 12980 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < ((𝑘 + 1) / 𝑦))
73 elnnz 12525 . . . . . . . . . . . . . . 15 (((𝑘 + 1) / 𝑦) ∈ ℕ ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 0 < ((𝑘 + 1) / 𝑦)))
7431, 72, 73sylanbrc 584 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℕ)
7517nnne0d 12218 . . . . . . . . . . . . . . . . . 18 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ≠ 0)
7618, 75dividd 11920 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) = 1)
77 eluz2gt1 12861 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (ℤ‘2) → 1 < 𝑦)
7820, 77syl 17 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < 𝑦)
7976, 78eqbrtrd 5108 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) < 𝑦)
8017nngt0d 12217 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < (𝑘 + 1))
81 ltdiv23 12038 . . . . . . . . . . . . . . . . 17 (((𝑘 + 1) ∈ ℝ ∧ ((𝑘 + 1) ∈ ℝ ∧ 0 < (𝑘 + 1)) ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8248, 48, 80, 49, 50, 81syl122anc 1382 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8379, 82mpbid 232 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) < (𝑘 + 1))
84 zleltp1 12569 . . . . . . . . . . . . . . . 16 ((((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 𝑘 ∈ ℤ) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8531, 42, 84syl2anc 585 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8683, 85mpbird 257 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ≤ 𝑘)
87 fznn 13537 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8842, 87syl 17 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8974, 86, 88mpbir2and 714 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (1...𝑘))
9066, 68, 89rspcdva 3566 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [((𝑘 + 1) / 𝑦) / 𝑥]𝜑)
9161, 90jca 511 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
9266anbi2d 631 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ((𝜒𝜃) ↔ (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑)))
93 ovex 7393 . . . . . . . . . . . . . . . 16 (𝑦 · 𝑧) ∈ V
94 prmind.4 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑦 · 𝑧) → (𝜑𝜏))
9593, 94sbcie 3771 . . . . . . . . . . . . . . 15 ([(𝑦 · 𝑧) / 𝑥]𝜑𝜏)
96 oveq2 7368 . . . . . . . . . . . . . . . 16 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝑦 · 𝑧) = (𝑦 · ((𝑘 + 1) / 𝑦)))
9796sbceq1d 3734 . . . . . . . . . . . . . . 15 (𝑧 = ((𝑘 + 1) / 𝑦) → ([(𝑦 · 𝑧) / 𝑥]𝜑[(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))
9895, 97bitr3id 285 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝜏[(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))
9992, 98imbi12d 344 . . . . . . . . . . . . 13 (𝑧 = ((𝑘 + 1) / 𝑦) → (((𝜒𝜃) → 𝜏) ↔ ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)))
10099imbi2d 340 . . . . . . . . . . . 12 (𝑧 = ((𝑘 + 1) / 𝑦) → ((𝑦 ∈ (ℤ‘2) → ((𝜒𝜃) → 𝜏)) ↔ (𝑦 ∈ (ℤ‘2) → ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))))
101 prmind2.8 . . . . . . . . . . . . 13 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → ((𝜒𝜃) → 𝜏))
102101expcom 413 . . . . . . . . . . . 12 (𝑧 ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒𝜃) → 𝜏)))
103100, 102vtoclga 3521 . . . . . . . . . . 11 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)))
10455, 20, 91, 103syl3c 66 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)
10525, 104sbceq1dd 3735 . . . . . . . . 9 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑘 + 1) / 𝑥]𝜑)
106105rexlimdvaa 3140 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
107 ralnex 3064 . . . . . . . . 9 (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ ¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1))
108 simpl 482 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℕ)
109 elnnuz 12819 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ‘1))
110108, 109sylib 218 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ (ℤ‘1))
111 eluzp1p1 12807 . . . . . . . . . . . . 13 (𝑘 ∈ (ℤ‘1) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
112110, 111syl 17 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
113 df-2 12235 . . . . . . . . . . . . 13 2 = (1 + 1)
114113fveq2i 6837 . . . . . . . . . . . 12 (ℤ‘2) = (ℤ‘(1 + 1))
115112, 114eleqtrrdi 2848 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘2))
116 isprm3 16643 . . . . . . . . . . . 12 ((𝑘 + 1) ∈ ℙ ↔ ((𝑘 + 1) ∈ (ℤ‘2) ∧ ∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1)))
117116baibr 536 . . . . . . . . . . 11 ((𝑘 + 1) ∈ (ℤ‘2) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
118115, 117syl 17 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
119 simpr 484 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑥 ∈ (1...𝑘)𝜑)
12056cbvralvw 3216 . . . . . . . . . . . . 13 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑦 ∈ (1...𝑘)𝜒)
121119, 120sylib 218 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...𝑘)𝜒)
122108nncnd 12181 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℂ)
123122, 37, 38sylancl 587 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) − 1) = 𝑘)
124123oveq2d 7376 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (1...((𝑘 + 1) − 1)) = (1...𝑘))
125121, 124raleqtrrdv 3300 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒)
126 nfcv 2899 . . . . . . . . . . . 12 𝑥(𝑘 + 1)
127 nfv 1916 . . . . . . . . . . . . 13 𝑥𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒
128 nfsbc1v 3749 . . . . . . . . . . . . 13 𝑥[(𝑘 + 1) / 𝑥]𝜑
129127, 128nfim 1898 . . . . . . . . . . . 12 𝑥(∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)
130 oveq1 7367 . . . . . . . . . . . . . . 15 (𝑥 = (𝑘 + 1) → (𝑥 − 1) = ((𝑘 + 1) − 1))
131130oveq2d 7376 . . . . . . . . . . . . . 14 (𝑥 = (𝑘 + 1) → (1...(𝑥 − 1)) = (1...((𝑘 + 1) − 1)))
132131raleqdv 3296 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒 ↔ ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒))
133 sbceq1a 3740 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (𝜑[(𝑘 + 1) / 𝑥]𝜑))
134132, 133imbi12d 344 . . . . . . . . . . . 12 (𝑥 = (𝑘 + 1) → ((∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑) ↔ (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)))
135 prmind2.7 . . . . . . . . . . . . 13 ((𝑥 ∈ ℙ ∧ ∀𝑦 ∈ (1...(𝑥 − 1))𝜒) → 𝜑)
136135ex 412 . . . . . . . . . . . 12 (𝑥 ∈ ℙ → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑))
137126, 129, 134, 136vtoclgaf 3520 . . . . . . . . . . 11 ((𝑘 + 1) ∈ ℙ → (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑))
138125, 137syl5com 31 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) ∈ ℙ → [(𝑘 + 1) / 𝑥]𝜑))
139118, 138sylbid 240 . . . . . . . . 9 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
140107, 139biimtrrid 243 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
141106, 140pm2.61d 179 . . . . . . 7 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → [(𝑘 + 1) / 𝑥]𝜑)
142141ex 412 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑[(𝑘 + 1) / 𝑥]𝜑))
143 ralsnsg 4615 . . . . . . 7 ((𝑘 + 1) ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
14416, 143syl 17 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
145142, 144sylibrd 259 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
146145ancld 550 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
147 fzsuc 13516 . . . . . . 7 (𝑘 ∈ (ℤ‘1) → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
148109, 147sylbi 217 . . . . . 6 (𝑘 ∈ ℕ → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
149148raleqdv 3296 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ ∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑))
150 ralunb 4138 . . . . 5 (∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
151149, 150bitrdi 287 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
152146, 151sylibrd 259 . . 3 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
1533, 5, 7, 9, 15, 152nnind 12183 . 2 (𝐴 ∈ ℕ → ∀𝑥 ∈ (1...𝐴)𝜑)
154 elfz1end 13499 . . 3 (𝐴 ∈ ℕ ↔ 𝐴 ∈ (1...𝐴))
155154biimpi 216 . 2 (𝐴 ∈ ℕ → 𝐴 ∈ (1...𝐴))
1561, 153, 155rspcdva 3566 1 (𝐴 ∈ ℕ → 𝜂)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wne 2933  wral 3052  wrex 3062  [wsbc 3729  cun 3888  {csn 4568   class class class wbr 5086  cfv 6492  (class class class)co 7360  cc 11027  cr 11028  0cc0 11029  1c1 11030   + caddc 11032   · cmul 11034   < clt 11170  cle 11171  cmin 11368   / cdiv 11798  cn 12165  2c2 12227  cz 12515  cuz 12779  ...cfz 13452  cdvds 16212  cprime 16631
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8342  df-1o 8398  df-2o 8399  df-er 8636  df-en 8887  df-dom 8888  df-sdom 8889  df-fin 8890  df-sup 9348  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-n0 12429  df-z 12516  df-uz 12780  df-rp 12934  df-fz 13453  df-seq 13955  df-exp 14015  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-dvds 16213  df-prm 16632
This theorem is referenced by:  prmind  16646  4sqlem19  16925
  Copyright terms: Public domain W3C validator