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

Theorem prmind2 16781
Description: A variation on prmind 16782 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 7425 . . . 4 (𝑛 = 1 → (1...𝑛) = (1...1))
32raleqdv 3321 . . 3 (𝑛 = 1 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...1)𝜑))
4 oveq2 7425 . . . 4 (𝑛 = 𝑘 → (1...𝑛) = (1...𝑘))
54raleqdv 3321 . . 3 (𝑛 = 𝑘 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝑘)𝜑))
6 oveq2 7425 . . . 4 (𝑛 = (𝑘 + 1) → (1...𝑛) = (1...(𝑘 + 1)))
76raleqdv 3321 . . 3 (𝑛 = (𝑘 + 1) → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
8 oveq2 7425 . . . 4 (𝑛 = 𝐴 → (1...𝑛) = (1...𝐴))
98raleqdv 3321 . . 3 (𝑛 = 𝐴 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝐴)𝜑))
10 prmind.6 . . . . 5 𝜓
11 elfz1eq 13593 . . . . . 6 (𝑥 ∈ (1...1) → 𝑥 = 1)
12 prmind.1 . . . . . 6 (𝑥 = 1 → (𝜑𝜓))
1311, 12syl 18 . . . . 5 (𝑥 ∈ (1...1) → (𝜑𝜓))
1410, 13mpbiri 261 . . . 4 (𝑥 ∈ (1...1) → 𝜑)
1514rgen 3080 . . 3 𝑥 ∈ (1...1)𝜑
16 peano2nn 12273 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
1716ad2antrr 739 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℕ)
1817nncnd 12277 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℂ)
19 elfzuz 13578 . . . . . . . . . . . . . 14 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ∈ (ℤ‘2))
2019ad2antrl 741 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (ℤ‘2))
21 eluz2nn 12941 . . . . . . . . . . . . 13 (𝑦 ∈ (ℤ‘2) → 𝑦 ∈ ℕ)
2220, 21syl 18 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℕ)
2322nncnd 12277 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℂ)
2422nnne0d 12314 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≠ 0)
2518, 23, 24divcan2d 12021 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 · ((𝑘 + 1) / 𝑦)) = (𝑘 + 1))
26 simprr 785 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∥ (𝑘 + 1))
2722nnzd 12645 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℤ)
2817nnzd 12645 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℤ)
29 dvdsval2 16351 . . . . . . . . . . . . . 14 ((𝑦 ∈ ℤ ∧ 𝑦 ≠ 0 ∧ (𝑘 + 1) ∈ ℤ) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3027, 24, 28, 29syl3anc 1398 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3126, 30mpbid 235 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℤ)
3223mullidd 11255 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) = 𝑦)
33 elfzle2 13586 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ≤ ((𝑘 + 1) − 1))
3433ad2antrl 741 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≤ ((𝑘 + 1) − 1))
35 nncn 12269 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
3635ad2antrr 739 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℂ)
37 ax-1cn 11186 . . . . . . . . . . . . . . . . 17 1 ∈ ℂ
38 pncan 11491 . . . . . . . . . . . . . . . . 17 ((𝑘 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑘 + 1) − 1) = 𝑘)
3936, 37, 38sylancl 598 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) − 1) = 𝑘)
4034, 39breqtrd 5135 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦𝑘)
41 nnz 12640 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
4241ad2antrr 739 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℤ)
43 zleltp1 12673 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4427, 42, 43syl2anc 596 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4540, 44mpbid 235 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 < (𝑘 + 1))
4632, 45eqbrtrd 5131 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) < (𝑘 + 1))
47 1red 11237 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 ∈ ℝ)
4817nnred 12276 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ)
4922nnred 12276 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ)
5022nngt0d 12313 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < 𝑦)
51 ltmuldiv 12116 . . . . . . . . . . . . . 14 ((1 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5247, 48, 49, 50, 51syl112anc 1401 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5346, 52mpbid 235 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < ((𝑘 + 1) / 𝑦))
54 eluz2b1 12972 . . . . . . . . . . . 12 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 1 < ((𝑘 + 1) / 𝑦)))
5531, 53, 54sylanbrc 595 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (ℤ‘2))
56 prmind.2 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝜑𝜒))
57 simplr 781 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑥 ∈ (1...𝑘)𝜑)
58 fznn 13651 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
5942, 58syl 18 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
6022, 40, 59mpbir2and 726 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (1...𝑘))
6156, 57, 60rspcdva 3580 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝜒)
62 vex 3457 . . . . . . . . . . . . . . 15 𝑧 ∈ V
63 prmind.3 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝜑𝜃))
6462, 63sbcie 3783 . . . . . . . . . . . . . 14 ([𝑧 / 𝑥]𝜑𝜃)
65 dfsbcq 3744 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ([𝑧 / 𝑥]𝜑[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6664, 65bitr3id 288 . . . . . . . . . . . . 13 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝜃[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6763cbvralvw 3242 . . . . . . . . . . . . . 14 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑧 ∈ (1...𝑘)𝜃)
6857, 67sylib 221 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑧 ∈ (1...𝑘)𝜃)
6917nnrpd 13088 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ+)
7022nnrpd 13088 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ+)
7169, 70rpdivcld 13107 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℝ+)
7271rpgt0d 13093 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < ((𝑘 + 1) / 𝑦))
73 elnnz 12629 . . . . . . . . . . . . . . 15 (((𝑘 + 1) / 𝑦) ∈ ℕ ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 0 < ((𝑘 + 1) / 𝑦)))
7431, 72, 73sylanbrc 595 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℕ)
7517nnne0d 12314 . . . . . . . . . . . . . . . . . 18 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ≠ 0)
7618, 75dividd 12017 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) = 1)
77 eluz2gt1 12973 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (ℤ‘2) → 1 < 𝑦)
7820, 77syl 18 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < 𝑦)
7976, 78eqbrtrd 5131 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) < 𝑦)
8017nngt0d 12313 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < (𝑘 + 1))
81 ltdiv23 12134 . . . . . . . . . . . . . . . . 17 (((𝑘 + 1) ∈ ℝ ∧ ((𝑘 + 1) ∈ ℝ ∧ 0 < (𝑘 + 1)) ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8248, 48, 80, 49, 50, 81syl122anc 1406 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8379, 82mpbid 235 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) < (𝑘 + 1))
84 zleltp1 12673 . . . . . . . . . . . . . . . 16 ((((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 𝑘 ∈ ℤ) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8531, 42, 84syl2anc 596 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8683, 85mpbird 260 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ≤ 𝑘)
87 fznn 13651 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8842, 87syl 18 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8974, 86, 88mpbir2and 726 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (1...𝑘))
9066, 68, 89rspcdva 3580 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [((𝑘 + 1) / 𝑦) / 𝑥]𝜑)
9161, 90jca 521 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
9266anbi2d 642 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ((𝜒𝜃) ↔ (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑)))
93 ovex 7450 . . . . . . . . . . . . . . . 16 (𝑦 · 𝑧) ∈ V
94 prmind.4 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑦 · 𝑧) → (𝜑𝜏))
9593, 94sbcie 3783 . . . . . . . . . . . . . . 15 ([(𝑦 · 𝑧) / 𝑥]𝜑𝜏)
96 oveq2 7425 . . . . . . . . . . . . . . . 16 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝑦 · 𝑧) = (𝑦 · ((𝑘 + 1) / 𝑦)))
9796sbceq1d 3747 . . . . . . . . . . . . . . 15 (𝑧 = ((𝑘 + 1) / 𝑦) → ([(𝑦 · 𝑧) / 𝑥]𝜑[(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))
9895, 97bitr3id 288 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝜏[(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))
9992, 98imbi12d 347 . . . . . . . . . . . . 13 (𝑧 = ((𝑘 + 1) / 𝑦) → (((𝜒𝜃) → 𝜏) ↔ ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)))
10099imbi2d 343 . . . . . . . . . . . 12 (𝑧 = ((𝑘 + 1) / 𝑦) → ((𝑦 ∈ (ℤ‘2) → ((𝜒𝜃) → 𝜏)) ↔ (𝑦 ∈ (ℤ‘2) → ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))))
101 prmind2.8 . . . . . . . . . . . . 13 ((𝑦 ∈ (ℤ‘2) ∧ 𝑧 ∈ (ℤ‘2)) → ((𝜒𝜃) → 𝜏))
102101expcom 419 . . . . . . . . . . . 12 (𝑧 ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒𝜃) → 𝜏)))
103100, 102vtoclga 3539 . . . . . . . . . . 11 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)))
10455, 20, 91, 103syl3c 67 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)
10525, 104sbceq1dd 3748 . . . . . . . . 9 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑘 + 1) / 𝑥]𝜑)
106105rexlimdvaa 3166 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
107 ralnex 3090 . . . . . . . . 9 (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ ¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1))
108 simpl 488 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℕ)
109 elnnuz 12931 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ‘1))
110108, 109sylib 221 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ (ℤ‘1))
111 eluzp1p1 12919 . . . . . . . . . . . . 13 (𝑘 ∈ (ℤ‘1) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
112110, 111syl 18 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
113 df-2 12331 . . . . . . . . . . . . 13 2 = (1 + 1)
114113fveq2i 6885 . . . . . . . . . . . 12 (ℤ‘2) = (ℤ‘(1 + 1))
115112, 114eleqtrrdi 2873 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘2))
116 isprm3 16779 . . . . . . . . . . . 12 ((𝑘 + 1) ∈ ℙ ↔ ((𝑘 + 1) ∈ (ℤ‘2) ∧ ∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1)))
117116baibr 546 . . . . . . . . . . 11 ((𝑘 + 1) ∈ (ℤ‘2) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
118115, 117syl 18 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
11956cbvralvw 3242 . . . . . . . . . . . . 13 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑦 ∈ (1...𝑘)𝜒)
120119bilani 510 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...𝑘)𝜒)
121108nncnd 12277 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℂ)
122121, 37, 38sylancl 598 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) − 1) = 𝑘)
123122oveq2d 7433 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (1...((𝑘 + 1) − 1)) = (1...𝑘))
124120, 123raleqtrrdv 3325 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒)
125 nfcv 2924 . . . . . . . . . . . 12 𝑥(𝑘 + 1)
126 nfv 1947 . . . . . . . . . . . . 13 𝑥𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒
127 nfsbc1v 3762 . . . . . . . . . . . . 13 𝑥[(𝑘 + 1) / 𝑥]𝜑
128126, 127nfim 1929 . . . . . . . . . . . 12 𝑥(∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)
129 oveq1 7424 . . . . . . . . . . . . . . 15 (𝑥 = (𝑘 + 1) → (𝑥 − 1) = ((𝑘 + 1) − 1))
130129oveq2d 7433 . . . . . . . . . . . . . 14 (𝑥 = (𝑘 + 1) → (1...(𝑥 − 1)) = (1...((𝑘 + 1) − 1)))
131130raleqdv 3321 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒 ↔ ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒))
132 sbceq1a 3753 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (𝜑[(𝑘 + 1) / 𝑥]𝜑))
133131, 132imbi12d 347 . . . . . . . . . . . 12 (𝑥 = (𝑘 + 1) → ((∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑) ↔ (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)))
134 prmind2.7 . . . . . . . . . . . . 13 ((𝑥 ∈ ℙ ∧ ∀𝑦 ∈ (1...(𝑥 − 1))𝜒) → 𝜑)
135134ex 418 . . . . . . . . . . . 12 (𝑥 ∈ ℙ → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑))
136125, 128, 133, 135vtoclgaf 3538 . . . . . . . . . . 11 ((𝑘 + 1) ∈ ℙ → (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑))
137124, 136syl5com 32 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) ∈ ℙ → [(𝑘 + 1) / 𝑥]𝜑))
138118, 137sylbid 243 . . . . . . . . 9 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
139107, 138biimtrrid 246 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
140106, 139pm2.61d 181 . . . . . . 7 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → [(𝑘 + 1) / 𝑥]𝜑)
141140ex 418 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑[(𝑘 + 1) / 𝑥]𝜑))
142 ralsnsg 4634 . . . . . . 7 ((𝑘 + 1) ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
14316, 142syl 18 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
144141, 143sylibrd 262 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
145144ancld 560 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
146 fzsuc 13630 . . . . . . 7 (𝑘 ∈ (ℤ‘1) → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
147109, 146sylbi 220 . . . . . 6 (𝑘 ∈ ℕ → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
148147raleqdv 3321 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ ∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑))
149 ralunb 4146 . . . . 5 (∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
150148, 149bitrdi 290 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
151145, 150sylibrd 262 . . 3 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
1523, 5, 7, 9, 15, 151nnind 12279 . 2 (𝐴 ∈ ℕ → ∀𝑥 ∈ (1...𝐴)𝜑)
153 elfz1end 13613 . . 3 (𝐴 ∈ ℕ ↔ 𝐴 ∈ (1...𝐴))
154153biimpi 219 . 2 (𝐴 ∈ ℕ → 𝐴 ∈ (1...𝐴))
1551, 152, 154rspcdva 3580 1 (𝐴 ∈ ℕ → 𝜂)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401   = wceq 1570  wcel 2145  wne 2957  wral 3078  wrex 3088  [wsbc 3742  cun 3900  {csn 4587   class class class wbr 5107  cfv 6537  (class class class)co 7417  cc 11126  cr 11127  0cc0 11128  1c1 11129   + caddc 11131   · cmul 11133   < clt 11271  cle 11272  cmin 11469   / cdiv 11899  cn 12261  2c2 12323  cz 12619  cuz 12891  ...cfz 13565  cdvds 16348  cprime 16767
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740  ax-cnex 11184  ax-resscn 11185  ax-1cn 11186  ax-icn 11187  ax-addcl 11188  ax-addrcl 11189  ax-mulcl 11190  ax-mulrcl 11191  ax-mulcom 11192  ax-addass 11193  ax-mulass 11194  ax-distr 11195  ax-i2m1 11196  ax-1ne0 11197  ax-1rid 11198  ax-rnegex 11199  ax-rrecex 11200  ax-cnre 11201  ax-pre-lttri 11202  ax-pre-lttrn 11203  ax-pre-ltadd 11204  ax-pre-mulgt0 11205  ax-pre-sup 11206
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7374  df-ov 7420  df-oprab 7421  df-mpo 7422  df-om 7867  df-1st 7990  df-2nd 7991  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-er 8700  df-en 8957  df-dom 8958  df-sdom 8959  df-fin 8960  df-sup 9416  df-pnf 11273  df-mnf 11274  df-xr 11275  df-ltxr 11276  df-le 11277  df-sub 11471  df-neg 11472  df-div 11900  df-nn 12262  df-2 12331  df-3 12332  df-n0 12533  df-z 12620  df-uz 12892  df-rp 13047  df-fz 13566  df-seq 14070  df-exp 14130  df-cj 15190  df-re 15191  df-im 15192  df-sqrt 15326  df-abs 15327  df-dvds 16349  df-prm 16768
This theorem is used by:  prmind  16782  4sqlem19  17061
  Copyright terms: Public domain W3C validator