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

Theorem prmind2 16023
Description: A variation on prmind 16024 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 7158 . . . 4 (𝑛 = 1 → (1...𝑛) = (1...1))
32raleqdv 3415 . . 3 (𝑛 = 1 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...1)𝜑))
4 oveq2 7158 . . . 4 (𝑛 = 𝑘 → (1...𝑛) = (1...𝑘))
54raleqdv 3415 . . 3 (𝑛 = 𝑘 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝑘)𝜑))
6 oveq2 7158 . . . 4 (𝑛 = (𝑘 + 1) → (1...𝑛) = (1...(𝑘 + 1)))
76raleqdv 3415 . . 3 (𝑛 = (𝑘 + 1) → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
8 oveq2 7158 . . . 4 (𝑛 = 𝐴 → (1...𝑛) = (1...𝐴))
98raleqdv 3415 . . 3 (𝑛 = 𝐴 → (∀𝑥 ∈ (1...𝑛)𝜑 ↔ ∀𝑥 ∈ (1...𝐴)𝜑))
10 prmind.6 . . . . 5 𝜓
11 elfz1eq 12912 . . . . . 6 (𝑥 ∈ (1...1) → 𝑥 = 1)
12 prmind.1 . . . . . 6 (𝑥 = 1 → (𝜑𝜓))
1311, 12syl 17 . . . . 5 (𝑥 ∈ (1...1) → (𝜑𝜓))
1410, 13mpbiri 260 . . . 4 (𝑥 ∈ (1...1) → 𝜑)
1514rgen 3148 . . 3 𝑥 ∈ (1...1)𝜑
16 peano2nn 11644 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
1716ad2antrr 724 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℕ)
1817nncnd 11648 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℂ)
19 elfzuz 12898 . . . . . . . . . . . . . 14 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ∈ (ℤ‘2))
2019ad2antrl 726 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (ℤ‘2))
21 eluz2nn 12278 . . . . . . . . . . . . 13 (𝑦 ∈ (ℤ‘2) → 𝑦 ∈ ℕ)
2220, 21syl 17 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℕ)
2322nncnd 11648 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℂ)
2422nnne0d 11681 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≠ 0)
2518, 23, 24divcan2d 11412 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 · ((𝑘 + 1) / 𝑦)) = (𝑘 + 1))
26 simprr 771 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∥ (𝑘 + 1))
2722nnzd 12080 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℤ)
2817nnzd 12080 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℤ)
29 dvdsval2 15604 . . . . . . . . . . . . . 14 ((𝑦 ∈ ℤ ∧ 𝑦 ≠ 0 ∧ (𝑘 + 1) ∈ ℤ) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3027, 24, 28, 29syl3anc 1367 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∥ (𝑘 + 1) ↔ ((𝑘 + 1) / 𝑦) ∈ ℤ))
3126, 30mpbid 234 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℤ)
3223mulid2d 10653 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) = 𝑦)
33 elfzle2 12905 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (2...((𝑘 + 1) − 1)) → 𝑦 ≤ ((𝑘 + 1) − 1))
3433ad2antrl 726 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ≤ ((𝑘 + 1) − 1))
35 nncn 11640 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
3635ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℂ)
37 ax-1cn 10589 . . . . . . . . . . . . . . . . 17 1 ∈ ℂ
38 pncan 10886 . . . . . . . . . . . . . . . . 17 ((𝑘 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑘 + 1) − 1) = 𝑘)
3936, 37, 38sylancl 588 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) − 1) = 𝑘)
4034, 39breqtrd 5084 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦𝑘)
41 nnz 11998 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
4241ad2antrr 724 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑘 ∈ ℤ)
43 zleltp1 12027 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4427, 42, 43syl2anc 586 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦𝑘𝑦 < (𝑘 + 1)))
4540, 44mpbid 234 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 < (𝑘 + 1))
4632, 45eqbrtrd 5080 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (1 · 𝑦) < (𝑘 + 1))
47 1red 10636 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 ∈ ℝ)
4817nnred 11647 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ)
4922nnred 11647 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ)
5022nngt0d 11680 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < 𝑦)
51 ltmuldiv 11507 . . . . . . . . . . . . . 14 ((1 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5247, 48, 49, 50, 51syl112anc 1370 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((1 · 𝑦) < (𝑘 + 1) ↔ 1 < ((𝑘 + 1) / 𝑦)))
5346, 52mpbid 234 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < ((𝑘 + 1) / 𝑦))
54 eluz2b1 12313 . . . . . . . . . . . 12 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 1 < ((𝑘 + 1) / 𝑦)))
5531, 53, 54sylanbrc 585 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (ℤ‘2))
56 prmind.2 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝜑𝜒))
57 simplr 767 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑥 ∈ (1...𝑘)𝜑)
58 fznn 12969 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
5942, 58syl 17 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑦 ∈ (1...𝑘) ↔ (𝑦 ∈ ℕ ∧ 𝑦𝑘)))
6022, 40, 59mpbir2and 711 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ (1...𝑘))
6156, 57, 60rspcdva 3624 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝜒)
62 vex 3497 . . . . . . . . . . . . . . 15 𝑧 ∈ V
63 prmind.3 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝜑𝜃))
6462, 63sbcie 3811 . . . . . . . . . . . . . 14 ([𝑧 / 𝑥]𝜑𝜃)
65 dfsbcq 3773 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ([𝑧 / 𝑥]𝜑[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6664, 65syl5bbr 287 . . . . . . . . . . . . 13 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝜃[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
6763cbvralvw 3449 . . . . . . . . . . . . . 14 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑧 ∈ (1...𝑘)𝜃)
6857, 67sylib 220 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ∀𝑧 ∈ (1...𝑘)𝜃)
6917nnrpd 12423 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ∈ ℝ+)
7022nnrpd 12423 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 𝑦 ∈ ℝ+)
7169, 70rpdivcld 12442 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℝ+)
7271rpgt0d 12428 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < ((𝑘 + 1) / 𝑦))
73 elnnz 11985 . . . . . . . . . . . . . . 15 (((𝑘 + 1) / 𝑦) ∈ ℕ ↔ (((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 0 < ((𝑘 + 1) / 𝑦)))
7431, 72, 73sylanbrc 585 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ ℕ)
7517nnne0d 11681 . . . . . . . . . . . . . . . . . 18 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝑘 + 1) ≠ 0)
7618, 75dividd 11408 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) = 1)
77 eluz2gt1 12314 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (ℤ‘2) → 1 < 𝑦)
7820, 77syl 17 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 1 < 𝑦)
7976, 78eqbrtrd 5080 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / (𝑘 + 1)) < 𝑦)
8017nngt0d 11680 . . . . . . . . . . . . . . . . 17 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → 0 < (𝑘 + 1))
81 ltdiv23 11525 . . . . . . . . . . . . . . . . 17 (((𝑘 + 1) ∈ ℝ ∧ ((𝑘 + 1) ∈ ℝ ∧ 0 < (𝑘 + 1)) ∧ (𝑦 ∈ ℝ ∧ 0 < 𝑦)) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8248, 48, 80, 49, 50, 81syl122anc 1375 . . . . . . . . . . . . . . . 16 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / (𝑘 + 1)) < 𝑦 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8379, 82mpbid 234 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) < (𝑘 + 1))
84 zleltp1 12027 . . . . . . . . . . . . . . . 16 ((((𝑘 + 1) / 𝑦) ∈ ℤ ∧ 𝑘 ∈ ℤ) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8531, 42, 84syl2anc 586 . . . . . . . . . . . . . . 15 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ≤ 𝑘 ↔ ((𝑘 + 1) / 𝑦) < (𝑘 + 1)))
8683, 85mpbird 259 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ≤ 𝑘)
87 fznn 12969 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8842, 87syl 17 . . . . . . . . . . . . . 14 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (((𝑘 + 1) / 𝑦) ∈ (1...𝑘) ↔ (((𝑘 + 1) / 𝑦) ∈ ℕ ∧ ((𝑘 + 1) / 𝑦) ≤ 𝑘)))
8974, 86, 88mpbir2and 711 . . . . . . . . . . . . 13 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → ((𝑘 + 1) / 𝑦) ∈ (1...𝑘))
9066, 68, 89rspcdva 3624 . . . . . . . . . . . 12 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [((𝑘 + 1) / 𝑦) / 𝑥]𝜑)
9161, 90jca 514 . . . . . . . . . . 11 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑))
9266anbi2d 630 . . . . . . . . . . . . . 14 (𝑧 = ((𝑘 + 1) / 𝑦) → ((𝜒𝜃) ↔ (𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑)))
93 ovex 7183 . . . . . . . . . . . . . . . 16 (𝑦 · 𝑧) ∈ V
94 prmind.4 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑦 · 𝑧) → (𝜑𝜏))
9593, 94sbcie 3811 . . . . . . . . . . . . . . 15 ([(𝑦 · 𝑧) / 𝑥]𝜑𝜏)
96 oveq2 7158 . . . . . . . . . . . . . . . 16 (𝑧 = ((𝑘 + 1) / 𝑦) → (𝑦 · 𝑧) = (𝑦 · ((𝑘 + 1) / 𝑦)))
9796sbceq1d 3776 . . . . . . . . . . . . . . 15 (𝑧 = ((𝑘 + 1) / 𝑦) → ([(𝑦 · 𝑧) / 𝑥]𝜑[(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑))
9895, 97syl5bbr 287 . . . . . . . . . . . . . 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 416 . . . . . . . . . . . 12 (𝑧 ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒𝜃) → 𝜏)))
103100, 102vtoclga 3573 . . . . . . . . . . 11 (((𝑘 + 1) / 𝑦) ∈ (ℤ‘2) → (𝑦 ∈ (ℤ‘2) → ((𝜒[((𝑘 + 1) / 𝑦) / 𝑥]𝜑) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)))
10455, 20, 91, 103syl3c 66 . . . . . . . . . 10 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑦 · ((𝑘 + 1) / 𝑦)) / 𝑥]𝜑)
10525, 104sbceq1dd 3777 . . . . . . . . 9 (((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) ∧ (𝑦 ∈ (2...((𝑘 + 1) − 1)) ∧ 𝑦 ∥ (𝑘 + 1))) → [(𝑘 + 1) / 𝑥]𝜑)
106105rexlimdvaa 3285 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
107 ralnex 3236 . . . . . . . . 9 (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ ¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1))
108 simpl 485 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℕ)
109 elnnuz 12276 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ‘1))
110108, 109sylib 220 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ (ℤ‘1))
111 eluzp1p1 12264 . . . . . . . . . . . . 13 (𝑘 ∈ (ℤ‘1) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
112110, 111syl 17 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘(1 + 1)))
113 df-2 11694 . . . . . . . . . . . . 13 2 = (1 + 1)
114113fveq2i 6667 . . . . . . . . . . . 12 (ℤ‘2) = (ℤ‘(1 + 1))
115112, 114eleqtrrdi 2924 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (𝑘 + 1) ∈ (ℤ‘2))
116 isprm3 16021 . . . . . . . . . . . 12 ((𝑘 + 1) ∈ ℙ ↔ ((𝑘 + 1) ∈ (ℤ‘2) ∧ ∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1)))
117116baibr 539 . . . . . . . . . . 11 ((𝑘 + 1) ∈ (ℤ‘2) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
118115, 117syl 17 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) ↔ (𝑘 + 1) ∈ ℙ))
119 simpr 487 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑥 ∈ (1...𝑘)𝜑)
12056cbvralvw 3449 . . . . . . . . . . . . 13 (∀𝑥 ∈ (1...𝑘)𝜑 ↔ ∀𝑦 ∈ (1...𝑘)𝜒)
121119, 120sylib 220 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...𝑘)𝜒)
122108nncnd 11648 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → 𝑘 ∈ ℂ)
123122, 37, 38sylancl 588 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) − 1) = 𝑘)
124123oveq2d 7166 . . . . . . . . . . . . 13 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (1...((𝑘 + 1) − 1)) = (1...𝑘))
125124raleqdv 3415 . . . . . . . . . . . 12 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒 ↔ ∀𝑦 ∈ (1...𝑘)𝜒))
126121, 125mpbird 259 . . . . . . . . . . 11 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒)
127 nfcv 2977 . . . . . . . . . . . 12 𝑥(𝑘 + 1)
128 nfv 1911 . . . . . . . . . . . . 13 𝑥𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒
129 nfsbc1v 3791 . . . . . . . . . . . . 13 𝑥[(𝑘 + 1) / 𝑥]𝜑
130128, 129nfim 1893 . . . . . . . . . . . 12 𝑥(∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)
131 oveq1 7157 . . . . . . . . . . . . . . 15 (𝑥 = (𝑘 + 1) → (𝑥 − 1) = ((𝑘 + 1) − 1))
132131oveq2d 7166 . . . . . . . . . . . . . 14 (𝑥 = (𝑘 + 1) → (1...(𝑥 − 1)) = (1...((𝑘 + 1) − 1)))
133132raleqdv 3415 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒 ↔ ∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒))
134 sbceq1a 3782 . . . . . . . . . . . . 13 (𝑥 = (𝑘 + 1) → (𝜑[(𝑘 + 1) / 𝑥]𝜑))
135133, 134imbi12d 347 . . . . . . . . . . . 12 (𝑥 = (𝑘 + 1) → ((∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑) ↔ (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑)))
136 prmind2.7 . . . . . . . . . . . . 13 ((𝑥 ∈ ℙ ∧ ∀𝑦 ∈ (1...(𝑥 − 1))𝜒) → 𝜑)
137136ex 415 . . . . . . . . . . . 12 (𝑥 ∈ ℙ → (∀𝑦 ∈ (1...(𝑥 − 1))𝜒𝜑))
138127, 130, 135, 137vtoclgaf 3572 . . . . . . . . . . 11 ((𝑘 + 1) ∈ ℙ → (∀𝑦 ∈ (1...((𝑘 + 1) − 1))𝜒[(𝑘 + 1) / 𝑥]𝜑))
139126, 138syl5com 31 . . . . . . . . . 10 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → ((𝑘 + 1) ∈ ℙ → [(𝑘 + 1) / 𝑥]𝜑))
140118, 139sylbid 242 . . . . . . . . 9 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (∀𝑦 ∈ (2...((𝑘 + 1) − 1)) ¬ 𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
141107, 140syl5bir 245 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → (¬ ∃𝑦 ∈ (2...((𝑘 + 1) − 1))𝑦 ∥ (𝑘 + 1) → [(𝑘 + 1) / 𝑥]𝜑))
142106, 141pm2.61d 181 . . . . . . 7 ((𝑘 ∈ ℕ ∧ ∀𝑥 ∈ (1...𝑘)𝜑) → [(𝑘 + 1) / 𝑥]𝜑)
143142ex 415 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑[(𝑘 + 1) / 𝑥]𝜑))
144 ralsnsg 4601 . . . . . . 7 ((𝑘 + 1) ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
14516, 144syl 17 . . . . . 6 (𝑘 ∈ ℕ → (∀𝑥 ∈ {(𝑘 + 1)}𝜑[(𝑘 + 1) / 𝑥]𝜑))
146143, 145sylibrd 261 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
147146ancld 553 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
148 fzsuc 12948 . . . . . . 7 (𝑘 ∈ (ℤ‘1) → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
149109, 148sylbi 219 . . . . . 6 (𝑘 ∈ ℕ → (1...(𝑘 + 1)) = ((1...𝑘) ∪ {(𝑘 + 1)}))
150149raleqdv 3415 . . . . 5 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ ∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑))
151 ralunb 4166 . . . . 5 (∀𝑥 ∈ ((1...𝑘) ∪ {(𝑘 + 1)})𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑))
152150, 151syl6bb 289 . . . 4 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...(𝑘 + 1))𝜑 ↔ (∀𝑥 ∈ (1...𝑘)𝜑 ∧ ∀𝑥 ∈ {(𝑘 + 1)}𝜑)))
153147, 152sylibrd 261 . . 3 (𝑘 ∈ ℕ → (∀𝑥 ∈ (1...𝑘)𝜑 → ∀𝑥 ∈ (1...(𝑘 + 1))𝜑))
1543, 5, 7, 9, 15, 153nnind 11650 . 2 (𝐴 ∈ ℕ → ∀𝑥 ∈ (1...𝐴)𝜑)
155 elfz1end 12931 . . 3 (𝐴 ∈ ℕ ↔ 𝐴 ∈ (1...𝐴))
156155biimpi 218 . 2 (𝐴 ∈ ℕ → 𝐴 ∈ (1...𝐴))
1571, 154, 156rspcdva 3624 1 (𝐴 ∈ ℕ → 𝜂)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398   = wceq 1533  wcel 2110  wne 3016  wral 3138  wrex 3139  [wsbc 3771  cun 3933  {csn 4560   class class class wbr 5058  cfv 6349  (class class class)co 7150  cc 10529  cr 10530  0cc0 10531  1c1 10532   + caddc 10534   · cmul 10536   < clt 10669  cle 10670  cmin 10864   / cdiv 11291  cn 11632  2c2 11686  cz 11975  cuz 12237  ...cfz 12886  cdvds 15601  cprime 16009
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7455  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608  ax-pre-sup 10609
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4561  df-pr 4563  df-tp 4565  df-op 4567  df-uni 4832  df-iun 4913  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7575  df-1st 7683  df-2nd 7684  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-2o 8097  df-er 8283  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-sup 8900  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-div 11292  df-nn 11633  df-2 11694  df-3 11695  df-n0 11892  df-z 11976  df-uz 12238  df-rp 12384  df-fz 12887  df-seq 13364  df-exp 13424  df-cj 14452  df-re 14453  df-im 14454  df-sqrt 14588  df-abs 14589  df-dvds 15602  df-prm 16010
This theorem is referenced by:  prmind  16024  4sqlem19  16293
  Copyright terms: Public domain W3C validator