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

Theorem perfectlem2 26578
Description: Lemma for perfect 26579. (Contributed by Mario Carneiro, 17-May-2016.) Replace OLD theorem. (Revised by Wolf Lammen, 17-Sep-2020.)
Hypotheses
Ref Expression
perfectlem.1 (𝜑𝐴 ∈ ℕ)
perfectlem.2 (𝜑𝐵 ∈ ℕ)
perfectlem.3 (𝜑 → ¬ 2 ∥ 𝐵)
perfectlem.4 (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))
Assertion
Ref Expression
perfectlem2 (𝜑 → (𝐵 ∈ ℙ ∧ 𝐵 = ((2↑(𝐴 + 1)) − 1)))

Proof of Theorem perfectlem2
Dummy variables 𝑘 𝑛 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 perfectlem.2 . . . 4 (𝜑𝐵 ∈ ℕ)
2 1red 11156 . . . . 5 (𝜑 → 1 ∈ ℝ)
3 perfectlem.1 . . . . . . . 8 (𝜑𝐴 ∈ ℕ)
4 perfectlem.3 . . . . . . . 8 (𝜑 → ¬ 2 ∥ 𝐵)
5 perfectlem.4 . . . . . . . 8 (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))
63, 1, 4, 5perfectlem1 26577 . . . . . . 7 (𝜑 → ((2↑(𝐴 + 1)) ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
76simp3d 1144 . . . . . 6 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ)
87nnred 12168 . . . . 5 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℝ)
91nnred 12168 . . . . 5 (𝜑𝐵 ∈ ℝ)
107nnge1d 12201 . . . . 5 (𝜑 → 1 ≤ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
11 2cn 12228 . . . . . . . . . . 11 2 ∈ ℂ
12 exp1 13973 . . . . . . . . . . 11 (2 ∈ ℂ → (2↑1) = 2)
1311, 12ax-mp 5 . . . . . . . . . 10 (2↑1) = 2
14 df-2 12216 . . . . . . . . . 10 2 = (1 + 1)
1513, 14eqtri 2764 . . . . . . . . 9 (2↑1) = (1 + 1)
16 2re 12227 . . . . . . . . . . 11 2 ∈ ℝ
1716a1i 11 . . . . . . . . . 10 (𝜑 → 2 ∈ ℝ)
18 1zzd 12534 . . . . . . . . . 10 (𝜑 → 1 ∈ ℤ)
193peano2nnd 12170 . . . . . . . . . . 11 (𝜑 → (𝐴 + 1) ∈ ℕ)
2019nnzd 12526 . . . . . . . . . 10 (𝜑 → (𝐴 + 1) ∈ ℤ)
21 1lt2 12324 . . . . . . . . . . 11 1 < 2
2221a1i 11 . . . . . . . . . 10 (𝜑 → 1 < 2)
23 1re 11155 . . . . . . . . . . . 12 1 ∈ ℝ
243nnrpd 12955 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℝ+)
25 ltaddrp 12952 . . . . . . . . . . . 12 ((1 ∈ ℝ ∧ 𝐴 ∈ ℝ+) → 1 < (1 + 𝐴))
2623, 24, 25sylancr 587 . . . . . . . . . . 11 (𝜑 → 1 < (1 + 𝐴))
27 ax-1cn 11109 . . . . . . . . . . . 12 1 ∈ ℂ
283nncnd 12169 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℂ)
29 addcom 11341 . . . . . . . . . . . 12 ((1 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (1 + 𝐴) = (𝐴 + 1))
3027, 28, 29sylancr 587 . . . . . . . . . . 11 (𝜑 → (1 + 𝐴) = (𝐴 + 1))
3126, 30breqtrd 5131 . . . . . . . . . 10 (𝜑 → 1 < (𝐴 + 1))
32 ltexp2a 14071 . . . . . . . . . 10 (((2 ∈ ℝ ∧ 1 ∈ ℤ ∧ (𝐴 + 1) ∈ ℤ) ∧ (1 < 2 ∧ 1 < (𝐴 + 1))) → (2↑1) < (2↑(𝐴 + 1)))
3317, 18, 20, 22, 31, 32syl32anc 1378 . . . . . . . . 9 (𝜑 → (2↑1) < (2↑(𝐴 + 1)))
3415, 33eqbrtrrid 5141 . . . . . . . 8 (𝜑 → (1 + 1) < (2↑(𝐴 + 1)))
356simp1d 1142 . . . . . . . . . 10 (𝜑 → (2↑(𝐴 + 1)) ∈ ℕ)
3635nnred 12168 . . . . . . . . 9 (𝜑 → (2↑(𝐴 + 1)) ∈ ℝ)
372, 2, 36ltaddsubd 11755 . . . . . . . 8 (𝜑 → ((1 + 1) < (2↑(𝐴 + 1)) ↔ 1 < ((2↑(𝐴 + 1)) − 1)))
3834, 37mpbid 231 . . . . . . 7 (𝜑 → 1 < ((2↑(𝐴 + 1)) − 1))
39 0lt1 11677 . . . . . . . . 9 0 < 1
4039a1i 11 . . . . . . . 8 (𝜑 → 0 < 1)
41 peano2rem 11468 . . . . . . . . 9 ((2↑(𝐴 + 1)) ∈ ℝ → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
4236, 41syl 17 . . . . . . . 8 (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
43 expgt1 14006 . . . . . . . . . 10 ((2 ∈ ℝ ∧ (𝐴 + 1) ∈ ℕ ∧ 1 < 2) → 1 < (2↑(𝐴 + 1)))
4416, 19, 22, 43mp3an2i 1466 . . . . . . . . 9 (𝜑 → 1 < (2↑(𝐴 + 1)))
45 posdif 11648 . . . . . . . . . 10 ((1 ∈ ℝ ∧ (2↑(𝐴 + 1)) ∈ ℝ) → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
4623, 36, 45sylancr 587 . . . . . . . . 9 (𝜑 → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
4744, 46mpbid 231 . . . . . . . 8 (𝜑 → 0 < ((2↑(𝐴 + 1)) − 1))
481nngt0d 12202 . . . . . . . 8 (𝜑 → 0 < 𝐵)
49 ltdiv2 12041 . . . . . . . 8 (((1 ∈ ℝ ∧ 0 < 1) ∧ (((2↑(𝐴 + 1)) − 1) ∈ ℝ ∧ 0 < ((2↑(𝐴 + 1)) − 1)) ∧ (𝐵 ∈ ℝ ∧ 0 < 𝐵)) → (1 < ((2↑(𝐴 + 1)) − 1) ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1)))
502, 40, 42, 47, 9, 48, 49syl222anc 1386 . . . . . . 7 (𝜑 → (1 < ((2↑(𝐴 + 1)) − 1) ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1)))
5138, 50mpbid 231 . . . . . 6 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1))
521nncnd 12169 . . . . . . 7 (𝜑𝐵 ∈ ℂ)
5352div1d 11923 . . . . . 6 (𝜑 → (𝐵 / 1) = 𝐵)
5451, 53breqtrd 5131 . . . . 5 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < 𝐵)
552, 8, 9, 10, 54lelttrd 11313 . . . 4 (𝜑 → 1 < 𝐵)
56 eluz2b2 12846 . . . 4 (𝐵 ∈ (ℤ‘2) ↔ (𝐵 ∈ ℕ ∧ 1 < 𝐵))
571, 55, 56sylanbrc 583 . . 3 (𝜑𝐵 ∈ (ℤ‘2))
58 fzfid 13878 . . . . . . . . . . . 12 (𝜑 → (1...𝐵) ∈ Fin)
59 dvdsssfz1 16200 . . . . . . . . . . . . 13 (𝐵 ∈ ℕ → {𝑥 ∈ ℕ ∣ 𝑥𝐵} ⊆ (1...𝐵))
601, 59syl 17 . . . . . . . . . . . 12 (𝜑 → {𝑥 ∈ ℕ ∣ 𝑥𝐵} ⊆ (1...𝐵))
6158, 60ssfid 9211 . . . . . . . . . . 11 (𝜑 → {𝑥 ∈ ℕ ∣ 𝑥𝐵} ∈ Fin)
6261ad2antrr 724 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥𝐵} ∈ Fin)
63 ssrab2 4037 . . . . . . . . . . . . 13 {𝑥 ∈ ℕ ∣ 𝑥𝐵} ⊆ ℕ
6463a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥𝐵} ⊆ ℕ)
6564sselda 3944 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℕ)
6665nnred 12168 . . . . . . . . . 10 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℝ)
6765nnnn0d 12473 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℕ0)
6867nn0ge0d 12476 . . . . . . . . . 10 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 0 ≤ 𝑘)
69 df-tp 4591 . . . . . . . . . . . 12 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛})
707, 1prssd 4782 . . . . . . . . . . . . . 14 (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
7170ad2antrr 724 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
72 simplrl 775 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℕ)
7372snssd 4769 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑛} ⊆ ℕ)
7471, 73unssd 4146 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}) ⊆ ℕ)
7569, 74eqsstrid 3992 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ ℕ)
766simp2d 1143 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℕ)
7776nnzd 12526 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
787nnzd 12526 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ)
79 dvdsmul2 16161 . . . . . . . . . . . . . . . . 17 ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
8077, 78, 79syl2anc 584 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
8176nncnd 12169 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℂ)
8276nnne0d 12203 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2↑(𝐴 + 1)) − 1) ≠ 0)
8352, 81, 82divcan2d 11933 . . . . . . . . . . . . . . . 16 (𝜑 → (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = 𝐵)
8480, 83breqtrd 5131 . . . . . . . . . . . . . . 15 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵)
85 breq1 5108 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → (𝑥𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵))
8684, 85syl5ibrcom 246 . . . . . . . . . . . . . 14 (𝜑 → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥𝐵))
8786ad2antrr 724 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥𝐵))
881nnzd 12526 . . . . . . . . . . . . . . . 16 (𝜑𝐵 ∈ ℤ)
89 iddvds 16152 . . . . . . . . . . . . . . . 16 (𝐵 ∈ ℤ → 𝐵𝐵)
9088, 89syl 17 . . . . . . . . . . . . . . 15 (𝜑𝐵𝐵)
91 breq1 5108 . . . . . . . . . . . . . . 15 (𝑥 = 𝐵 → (𝑥𝐵𝐵𝐵))
9290, 91syl5ibrcom 246 . . . . . . . . . . . . . 14 (𝜑 → (𝑥 = 𝐵𝑥𝐵))
9392ad2antrr 724 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝐵𝑥𝐵))
94 simplrr 776 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛𝐵)
95 breq1 5108 . . . . . . . . . . . . . 14 (𝑥 = 𝑛 → (𝑥𝐵𝑛𝐵))
9694, 95syl5ibrcom 246 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝑛𝑥𝐵))
9787, 93, 963jaod 1428 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵𝑥 = 𝑛) → 𝑥𝐵))
98 eltpi 4648 . . . . . . . . . . . 12 (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵𝑥 = 𝑛))
9997, 98impel 506 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑥𝐵)
10075, 99ssrabdv 4031 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ {𝑥 ∈ ℕ ∣ 𝑥𝐵})
10162, 66, 68, 100fsumless 15681 . . . . . . . . 9 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘)
102 simpr 485 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
103 disjsn 4672 . . . . . . . . . . . 12 (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅ ↔ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
104102, 103sylibr 233 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅)
10569a1i 11 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}))
106 tpfi 9267 . . . . . . . . . . . 12 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin
107106a1i 11 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin)
10875sselda 3944 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℕ)
109108nncnd 12169 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℂ)
110104, 105, 107, 109fsumsplit 15626 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘))
1117nncnd 12169 . . . . . . . . . . . . . . 15 (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ)
112 id 22 . . . . . . . . . . . . . . . 16 (𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
113112sumsn 15631 . . . . . . . . . . . . . . 15 (((𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
1147, 111, 113syl2anc 584 . . . . . . . . . . . . . 14 (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
115 id 22 . . . . . . . . . . . . . . . 16 (𝑘 = 𝐵𝑘 = 𝐵)
116115sumsn 15631 . . . . . . . . . . . . . . 15 ((𝐵 ∈ ℕ ∧ 𝐵 ∈ ℂ) → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
1171, 52, 116syl2anc 584 . . . . . . . . . . . . . 14 (𝜑 → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
118114, 117oveq12d 7375 . . . . . . . . . . . . 13 (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
119 incom 4161 . . . . . . . . . . . . . . 15 ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵})
1208, 54gtned 11290 . . . . . . . . . . . . . . . 16 (𝜑𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
121 disjsn2 4673 . . . . . . . . . . . . . . . 16 (𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)) → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
122120, 121syl 17 . . . . . . . . . . . . . . 15 (𝜑 → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
123119, 122eqtr3id 2790 . . . . . . . . . . . . . 14 (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵}) = ∅)
124 df-pr 4589 . . . . . . . . . . . . . . 15 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵})
125124a1i 11 . . . . . . . . . . . . . 14 (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵}))
126 prfi 9266 . . . . . . . . . . . . . . 15 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∈ Fin
127126a1i 11 . . . . . . . . . . . . . 14 (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∈ Fin)
12870sselda 3944 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℕ)
129128nncnd 12169 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℂ)
130123, 125, 127, 129fsumsplit 15626 . . . . . . . . . . . . 13 (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘))
13181, 52mulcld 11175 . . . . . . . . . . . . . . 15 (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) ∈ ℂ)
13252, 131, 81, 82divdird 11969 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))))
13335nncnd 12169 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (2↑(𝐴 + 1)) ∈ ℂ)
134 1cnd 11150 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → 1 ∈ ℂ)
135133, 134, 52subdird 11612 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)))
13652mulid2d 11173 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1 · 𝐵) = 𝐵)
137136oveq2d 7373 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
138135, 137eqtrd 2776 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
139138oveq2d 7373 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)))
140133, 52mulcld 11175 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) ∈ ℂ)
14152, 140pncan3d 11515 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
142139, 141eqtrd 2776 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
143142oveq1d 7372 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)))
144133, 52, 81, 82divassd 11966 . . . . . . . . . . . . . . 15 (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
145143, 144eqtrd 2776 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
14652, 81, 82divcan3d 11936 . . . . . . . . . . . . . . 15 (𝜑 → ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = 𝐵)
147146oveq2d 7373 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
148132, 145, 1473eqtr3d 2784 . . . . . . . . . . . . 13 (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
149118, 130, 1483eqtr4d 2786 . . . . . . . . . . . 12 (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
150149ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
15172nncnd 12169 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℂ)
152 id 22 . . . . . . . . . . . . 13 (𝑘 = 𝑛𝑘 = 𝑛)
153152sumsn 15631 . . . . . . . . . . . 12 ((𝑛 ∈ ℂ ∧ 𝑛 ∈ ℂ) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
154151, 151, 153syl2anc 584 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
155150, 154oveq12d 7375 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
156110, 155eqtrd 2776 . . . . . . . . 9 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
1573nnnn0d 12473 . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ ℕ0)
158 expp1 13974 . . . . . . . . . . . . . . . . 17 ((2 ∈ ℂ ∧ 𝐴 ∈ ℕ0) → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
15911, 157, 158sylancr 587 . . . . . . . . . . . . . . . 16 (𝜑 → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
160 2nn 12226 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℕ
161 nnexpcl 13980 . . . . . . . . . . . . . . . . . . 19 ((2 ∈ ℕ ∧ 𝐴 ∈ ℕ0) → (2↑𝐴) ∈ ℕ)
162160, 157, 161sylancr 587 . . . . . . . . . . . . . . . . . 18 (𝜑 → (2↑𝐴) ∈ ℕ)
163162nncnd 12169 . . . . . . . . . . . . . . . . 17 (𝜑 → (2↑𝐴) ∈ ℂ)
164 mulcom 11137 . . . . . . . . . . . . . . . . 17 (((2↑𝐴) ∈ ℂ ∧ 2 ∈ ℂ) → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
165163, 11, 164sylancl 586 . . . . . . . . . . . . . . . 16 (𝜑 → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
166159, 165eqtrd 2776 . . . . . . . . . . . . . . 15 (𝜑 → (2↑(𝐴 + 1)) = (2 · (2↑𝐴)))
167166oveq1d 7372 . . . . . . . . . . . . . 14 (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = ((2 · (2↑𝐴)) · 𝐵))
168 2cnd 12231 . . . . . . . . . . . . . . 15 (𝜑 → 2 ∈ ℂ)
169168, 163, 52mulassd 11178 . . . . . . . . . . . . . 14 (𝜑 → ((2 · (2↑𝐴)) · 𝐵) = (2 · ((2↑𝐴) · 𝐵)))
170 2prm 16568 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℙ
171 coprm 16587 . . . . . . . . . . . . . . . . . . 19 ((2 ∈ ℙ ∧ 𝐵 ∈ ℤ) → (¬ 2 ∥ 𝐵 ↔ (2 gcd 𝐵) = 1))
172170, 88, 171sylancr 587 . . . . . . . . . . . . . . . . . 18 (𝜑 → (¬ 2 ∥ 𝐵 ↔ (2 gcd 𝐵) = 1))
1734, 172mpbid 231 . . . . . . . . . . . . . . . . 17 (𝜑 → (2 gcd 𝐵) = 1)
174 2z 12535 . . . . . . . . . . . . . . . . . 18 2 ∈ ℤ
175 rpexp1i 16599 . . . . . . . . . . . . . . . . . 18 ((2 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐴 ∈ ℕ0) → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
176174, 88, 157, 175mp3an2i 1466 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
177173, 176mpd 15 . . . . . . . . . . . . . . . 16 (𝜑 → ((2↑𝐴) gcd 𝐵) = 1)
178 sgmmul 26549 . . . . . . . . . . . . . . . 16 ((1 ∈ ℂ ∧ ((2↑𝐴) ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ ((2↑𝐴) gcd 𝐵) = 1)) → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
179134, 162, 1, 177, 178syl13anc 1372 . . . . . . . . . . . . . . 15 (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
180 pncan 11407 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 1) − 1) = 𝐴)
18128, 27, 180sylancl 586 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝐴 + 1) − 1) = 𝐴)
182181oveq2d 7373 . . . . . . . . . . . . . . . . . 18 (𝜑 → (2↑((𝐴 + 1) − 1)) = (2↑𝐴))
183182oveq2d 7373 . . . . . . . . . . . . . . . . 17 (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = (1 σ (2↑𝐴)))
184 1sgm2ppw 26548 . . . . . . . . . . . . . . . . . 18 ((𝐴 + 1) ∈ ℕ → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
18519, 184syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
186183, 185eqtr3d 2778 . . . . . . . . . . . . . . . 16 (𝜑 → (1 σ (2↑𝐴)) = ((2↑(𝐴 + 1)) − 1))
187186oveq1d 7372 . . . . . . . . . . . . . . 15 (𝜑 → ((1 σ (2↑𝐴)) · (1 σ 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
188179, 5, 1873eqtr3d 2784 . . . . . . . . . . . . . 14 (𝜑 → (2 · ((2↑𝐴) · 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
189167, 169, 1883eqtrd 2780 . . . . . . . . . . . . 13 (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
190189oveq1d 7372 . . . . . . . . . . . 12 (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)))
191 1nn0 12429 . . . . . . . . . . . . . . 15 1 ∈ ℕ0
192 sgmnncl 26496 . . . . . . . . . . . . . . 15 ((1 ∈ ℕ0𝐵 ∈ ℕ) → (1 σ 𝐵) ∈ ℕ)
193191, 1, 192sylancr 587 . . . . . . . . . . . . . 14 (𝜑 → (1 σ 𝐵) ∈ ℕ)
194193nncnd 12169 . . . . . . . . . . . . 13 (𝜑 → (1 σ 𝐵) ∈ ℂ)
195194, 81, 82divcan3d 11936 . . . . . . . . . . . 12 (𝜑 → ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (1 σ 𝐵))
196190, 144, 1953eqtr3d 2784 . . . . . . . . . . 11 (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = (1 σ 𝐵))
197 sgmval 26491 . . . . . . . . . . . 12 ((1 ∈ ℂ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵} (𝑘𝑐1))
19827, 1, 197sylancr 587 . . . . . . . . . . 11 (𝜑 → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵} (𝑘𝑐1))
199 simpr 485 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵})
20063, 199sselid 3942 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℕ)
201200nncnd 12169 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℂ)
202201cxp1d 26061 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → (𝑘𝑐1) = 𝑘)
203202sumeq2dv 15588 . . . . . . . . . . 11 (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵} (𝑘𝑐1) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘)
204196, 198, 2033eqtrrd 2781 . . . . . . . . . 10 (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
205204ad2antrr 724 . . . . . . . . 9 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
206101, 156, 2053brtr3d 5136 . . . . . . . 8 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
20736, 8remulcld 11185 . . . . . . . . . . 11 (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
208207ad2antrr 724 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
20972nnrpd 12955 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℝ+)
210208, 209ltaddrpd 12990 . . . . . . . . 9 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
21172nnred 12168 . . . . . . . . . . 11 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℝ)
212208, 211readdcld 11184 . . . . . . . . . 10 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℝ)
213208, 212ltnled 11302 . . . . . . . . 9 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
214210, 213mpbid 231 . . . . . . . 8 (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
215206, 214condan 816 . . . . . . 7 ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) → 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
216 elpri 4608 . . . . . . 7 (𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
217215, 216syl 17 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛𝐵)) → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
218217expr 457 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (𝑛𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
219218ralrimiva 3143 . . . 4 (𝜑 → ∀𝑛 ∈ ℕ (𝑛𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
2202, 55gtned 11290 . . . . . . . . . 10 (𝜑𝐵 ≠ 1)
221220necomd 2999 . . . . . . . . 9 (𝜑 → 1 ≠ 𝐵)
222 1dvds 16153 . . . . . . . . . . . . 13 (𝐵 ∈ ℤ → 1 ∥ 𝐵)
22388, 222syl 17 . . . . . . . . . . . 12 (𝜑 → 1 ∥ 𝐵)
224 breq1 5108 . . . . . . . . . . . . . 14 (𝑛 = 1 → (𝑛𝐵 ↔ 1 ∥ 𝐵))
225 eqeq1 2740 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ↔ 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
226 eqeq1 2740 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (𝑛 = 𝐵 ↔ 1 = 𝐵))
227225, 226orbi12d 917 . . . . . . . . . . . . . 14 (𝑛 = 1 → ((𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵) ↔ (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵)))
228224, 227imbi12d 344 . . . . . . . . . . . . 13 (𝑛 = 1 → ((𝑛𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)) ↔ (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))))
229 1nn 12164 . . . . . . . . . . . . . 14 1 ∈ ℕ
230229a1i 11 . . . . . . . . . . . . 13 (𝜑 → 1 ∈ ℕ)
231228, 219, 230rspcdva 3582 . . . . . . . . . . . 12 (𝜑 → (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵)))
232223, 231mpd 15 . . . . . . . . . . 11 (𝜑 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))
233232ord 862 . . . . . . . . . 10 (𝜑 → (¬ 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 1 = 𝐵))
234233necon1ad 2960 . . . . . . . . 9 (𝜑 → (1 ≠ 𝐵 → 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
235221, 234mpd 15 . . . . . . . 8 (𝜑 → 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
236235eqeq2d 2747 . . . . . . 7 (𝜑 → (𝑛 = 1 ↔ 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
237236orbi1d 915 . . . . . 6 (𝜑 → ((𝑛 = 1 ∨ 𝑛 = 𝐵) ↔ (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
238237imbi2d 340 . . . . 5 (𝜑 → ((𝑛𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ (𝑛𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
239238ralbidv 3174 . . . 4 (𝜑 → (∀𝑛 ∈ ℕ (𝑛𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ ∀𝑛 ∈ ℕ (𝑛𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
240219, 239mpbird 256 . . 3 (𝜑 → ∀𝑛 ∈ ℕ (𝑛𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)))
241 isprm2 16558 . . 3 (𝐵 ∈ ℙ ↔ (𝐵 ∈ (ℤ‘2) ∧ ∀𝑛 ∈ ℕ (𝑛𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵))))
24257, 240, 241sylanbrc 583 . 2 (𝜑𝐵 ∈ ℙ)
243207ltp1d 12085 . . . 4 (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
244 peano2re 11328 . . . . . 6 (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℝ)
245207, 244syl 17 . . . . 5 (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℝ)
246207, 245ltnled 11302 . . . 4 (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
247243, 246mpbid 231 . . 3 (𝜑 → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
248200nnred 12168 . . . . . . . 8 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℝ)
249200nnnn0d 12473 . . . . . . . . 9 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 𝑘 ∈ ℕ0)
250249nn0ge0d 12476 . . . . . . . 8 ((𝜑𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}) → 0 ≤ 𝑘)
251 df-tp 4591 . . . . . . . . . 10 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1})
252 snssi 4768 . . . . . . . . . . . 12 (1 ∈ ℕ → {1} ⊆ ℕ)
253229, 252mp1i 13 . . . . . . . . . . 11 (𝜑 → {1} ⊆ ℕ)
25470, 253unssd 4146 . . . . . . . . . 10 (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}) ⊆ ℕ)
255251, 254eqsstrid 3992 . . . . . . . . 9 (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
256 breq1 5108 . . . . . . . . . . . 12 (𝑥 = 1 → (𝑥𝐵 ↔ 1 ∥ 𝐵))
257223, 256syl5ibrcom 246 . . . . . . . . . . 11 (𝜑 → (𝑥 = 1 → 𝑥𝐵))
25886, 92, 2573jaod 1428 . . . . . . . . . 10 (𝜑 → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵𝑥 = 1) → 𝑥𝐵))
259 eltpi 4648 . . . . . . . . . 10 (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵𝑥 = 1))
260258, 259impel 506 . . . . . . . . 9 ((𝜑𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑥𝐵)
261255, 260ssrabdv 4031 . . . . . . . 8 (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ {𝑥 ∈ ℕ ∣ 𝑥𝐵})
26261, 248, 250, 261fsumless 15681 . . . . . . 7 (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘)
263262adantr 481 . . . . . 6 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘)
26452, 81, 82diveq1ad 11940 . . . . . . . . . . . . 13 (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) = 1 ↔ 𝐵 = ((2↑(𝐴 + 1)) − 1)))
265264necon3bid 2988 . . . . . . . . . . . 12 (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1 ↔ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)))
266265biimpar 478 . . . . . . . . . . 11 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1)
267266necomd 2999 . . . . . . . . . 10 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
268221adantr 481 . . . . . . . . . 10 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ 𝐵)
269267, 268nelprd 4617 . . . . . . . . 9 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
270 disjsn 4672 . . . . . . . . 9 (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅ ↔ ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
271269, 270sylibr 233 . . . . . . . 8 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅)
272251a1i 11 . . . . . . . 8 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}))
273 tpfi 9267 . . . . . . . . 9 {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin
274273a1i 11 . . . . . . . 8 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin)
275255adantr 481 . . . . . . . . . 10 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
276275sselda 3944 . . . . . . . . 9 (((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℕ)
277276nncnd 12169 . . . . . . . 8 (((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℂ)
278271, 272, 274, 277fsumsplit 15626 . . . . . . 7 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘))
279 id 22 . . . . . . . . . . 11 (𝑘 = 1 → 𝑘 = 1)
280279sumsn 15631 . . . . . . . . . 10 ((1 ∈ ℝ ∧ 1 ∈ ℂ) → Σ𝑘 ∈ {1}𝑘 = 1)
2812, 27, 280sylancl 586 . . . . . . . . 9 (𝜑 → Σ𝑘 ∈ {1}𝑘 = 1)
282149, 281oveq12d 7375 . . . . . . . 8 (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
283282adantr 481 . . . . . . 7 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
284278, 283eqtrd 2776 . . . . . 6 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
285204adantr 481 . . . . . 6 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
286263, 284, 2853brtr3d 5136 . . . . 5 ((𝜑𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
287286ex 413 . . . 4 (𝜑 → (𝐵 ≠ ((2↑(𝐴 + 1)) − 1) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
288287necon1bd 2961 . . 3 (𝜑 → (¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) → 𝐵 = ((2↑(𝐴 + 1)) − 1)))
289247, 288mpd 15 . 2 (𝜑𝐵 = ((2↑(𝐴 + 1)) − 1))
290242, 289jca 512 1 (𝜑 → (𝐵 ∈ ℙ ∧ 𝐵 = ((2↑(𝐴 + 1)) − 1)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  wo 845  w3o 1086   = wceq 1541  wcel 2106  wne 2943  wral 3064  {crab 3407  cun 3908  cin 3909  wss 3910  c0 4282  {csn 4586  {cpr 4588  {ctp 4590   class class class wbr 5105  cfv 6496  (class class class)co 7357  Fincfn 8883  cc 11049  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   · cmul 11056   < clt 11189  cle 11190  cmin 11385   / cdiv 11812  cn 12153  2c2 12208  0cn0 12413  cz 12499  cuz 12763  +crp 12915  ...cfz 13424  cexp 13967  Σcsu 15570  cdvds 16136   gcd cgcd 16374  cprime 16547  𝑐ccxp 25911   σ csgm 26445
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-inf2 9577  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129  ax-addf 11130  ax-mulf 11131
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-map 8767  df-pm 8768  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-fi 9347  df-sup 9378  df-inf 9379  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-q 12874  df-rp 12916  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-ioo 13268  df-ioc 13269  df-ico 13270  df-icc 13271  df-fz 13425  df-fzo 13568  df-fl 13697  df-mod 13775  df-seq 13907  df-exp 13968  df-fac 14174  df-bc 14203  df-hash 14231  df-shft 14952  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-limsup 15353  df-clim 15370  df-rlim 15371  df-sum 15571  df-ef 15950  df-sin 15952  df-cos 15953  df-pi 15955  df-dvds 16137  df-gcd 16375  df-prm 16548  df-pc 16709  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-starv 17148  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-unif 17156  df-hom 17157  df-cco 17158  df-rest 17304  df-topn 17305  df-0g 17323  df-gsum 17324  df-topgen 17325  df-pt 17326  df-prds 17329  df-xrs 17384  df-qtop 17389  df-imas 17390  df-xps 17392  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-submnd 18602  df-mulg 18873  df-cntz 19097  df-cmn 19564  df-psmet 20788  df-xmet 20789  df-met 20790  df-bl 20791  df-mopn 20792  df-fbas 20793  df-fg 20794  df-cnfld 20797  df-top 22243  df-topon 22260  df-topsp 22282  df-bases 22296  df-cld 22370  df-ntr 22371  df-cls 22372  df-nei 22449  df-lp 22487  df-perf 22488  df-cn 22578  df-cnp 22579  df-haus 22666  df-tx 22913  df-hmeo 23106  df-fil 23197  df-fm 23289  df-flim 23290  df-flf 23291  df-xms 23673  df-ms 23674  df-tms 23675  df-cncf 24241  df-limc 25230  df-dv 25231  df-log 25912  df-cxp 25913  df-sgm 26451
This theorem is referenced by:  perfect  26579
  Copyright terms: Public domain W3C validator