Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hgt750lemb Structured version   Visualization version   GIF version

Theorem hgt750lemb 31929
Description: An upper bound on the contribution of the non-prime terms in the Statement 7.50 of [Helfgott] p. 69. (Contributed by Thierry Arnoux, 28-Dec-2021.)
Hypotheses
Ref Expression
hgt750leme.o 𝑂 = {𝑧 ∈ ℤ ∣ ¬ 2 ∥ 𝑧}
hgt750leme.n (𝜑𝑁 ∈ ℕ)
hgt750lemb.2 (𝜑 → 2 ≤ 𝑁)
hgt750lemb.a 𝐴 = {𝑐 ∈ (ℕ(repr‘3)𝑁) ∣ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)}
Assertion
Ref Expression
hgt750lemb (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
Distinct variable groups:   𝑧,𝑂   𝐴,𝑐,𝑖,𝑗,𝑛   𝑁,𝑐,𝑖,𝑗,𝑛   𝜑,𝑐,𝑖,𝑗,𝑛
Allowed substitution hints:   𝜑(𝑧)   𝐴(𝑧)   𝑁(𝑧)   𝑂(𝑖,𝑗,𝑛,𝑐)

Proof of Theorem hgt750lemb
Dummy variables 𝑑 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hgt750leme.n . . . . . 6 (𝜑𝑁 ∈ ℕ)
21nnnn0d 11958 . . . . 5 (𝜑𝑁 ∈ ℕ0)
3 3nn0 11918 . . . . . 6 3 ∈ ℕ0
43a1i 11 . . . . 5 (𝜑 → 3 ∈ ℕ0)
5 ssidd 3992 . . . . 5 (𝜑 → ℕ ⊆ ℕ)
62, 4, 5reprfi2 31896 . . . 4 (𝜑 → (ℕ(repr‘3)𝑁) ∈ Fin)
7 hgt750lemb.a . . . . 5 𝐴 = {𝑐 ∈ (ℕ(repr‘3)𝑁) ∣ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)}
87ssrab3 4059 . . . 4 𝐴 ⊆ (ℕ(repr‘3)𝑁)
9 ssfi 8740 . . . 4 (((ℕ(repr‘3)𝑁) ∈ Fin ∧ 𝐴 ⊆ (ℕ(repr‘3)𝑁)) → 𝐴 ∈ Fin)
106, 8, 9sylancl 588 . . 3 (𝜑𝐴 ∈ Fin)
11 vmaf 25698 . . . . . 6 Λ:ℕ⟶ℝ
1211a1i 11 . . . . 5 ((𝜑𝑛𝐴) → Λ:ℕ⟶ℝ)
13 ssidd 3992 . . . . . . 7 ((𝜑𝑛𝐴) → ℕ ⊆ ℕ)
141nnzd 12089 . . . . . . . 8 (𝜑𝑁 ∈ ℤ)
1514adantr 483 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℤ)
163a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 3 ∈ ℕ0)
17 simpr 487 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑛𝐴)
188, 17sseldi 3967 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
1913, 15, 16, 18reprf 31885 . . . . . 6 ((𝜑𝑛𝐴) → 𝑛:(0..^3)⟶ℕ)
20 c0ex 10637 . . . . . . . . 9 0 ∈ V
2120tpid1 4706 . . . . . . . 8 0 ∈ {0, 1, 2}
22 fzo0to3tp 13126 . . . . . . . 8 (0..^3) = {0, 1, 2}
2321, 22eleqtrri 2914 . . . . . . 7 0 ∈ (0..^3)
2423a1i 11 . . . . . 6 ((𝜑𝑛𝐴) → 0 ∈ (0..^3))
2519, 24ffvelrnd 6854 . . . . 5 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℕ)
2612, 25ffvelrnd 6854 . . . 4 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℝ)
27 1ex 10639 . . . . . . . . . 10 1 ∈ V
2827tpid2 4708 . . . . . . . . 9 1 ∈ {0, 1, 2}
2928, 22eleqtrri 2914 . . . . . . . 8 1 ∈ (0..^3)
3029a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 1 ∈ (0..^3))
3119, 30ffvelrnd 6854 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℕ)
3212, 31ffvelrnd 6854 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℝ)
33 2ex 11717 . . . . . . . . . 10 2 ∈ V
3433tpid3 4711 . . . . . . . . 9 2 ∈ {0, 1, 2}
3534, 22eleqtrri 2914 . . . . . . . 8 2 ∈ (0..^3)
3635a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 2 ∈ (0..^3))
3719, 36ffvelrnd 6854 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℕ)
3812, 37ffvelrnd 6854 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ∈ ℝ)
3932, 38remulcld 10673 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ∈ ℝ)
4026, 39remulcld 10673 . . 3 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
4110, 40fsumrecl 15093 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
421nnrpd 12432 . . . 4 (𝜑𝑁 ∈ ℝ+)
4342relogcld 25208 . . 3 (𝜑 → (log‘𝑁) ∈ ℝ)
4426, 32remulcld 10673 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4510, 44fsumrecl 15093 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4643, 45remulcld 10673 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ∈ ℝ)
47 fzfi 13343 . . . . . . . 8 (1...𝑁) ∈ Fin
48 diffi 8752 . . . . . . . 8 ((1...𝑁) ∈ Fin → ((1...𝑁) ∖ ℙ) ∈ Fin)
4947, 48ax-mp 5 . . . . . . 7 ((1...𝑁) ∖ ℙ) ∈ Fin
50 snfi 8596 . . . . . . 7 {2} ∈ Fin
51 unfi 8787 . . . . . . 7 ((((1...𝑁) ∖ ℙ) ∈ Fin ∧ {2} ∈ Fin) → (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin)
5249, 50, 51mp2an 690 . . . . . 6 (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin
5352a1i 11 . . . . 5 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin)
5411a1i 11 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → Λ:ℕ⟶ℝ)
55 difss 4110 . . . . . . . . . 10 ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁)
5655a1i 11 . . . . . . . . 9 (𝜑 → ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁))
57 2nn 11713 . . . . . . . . . . . 12 2 ∈ ℕ
5857a1i 11 . . . . . . . . . . 11 (𝜑 → 2 ∈ ℕ)
59 hgt750lemb.2 . . . . . . . . . . 11 (𝜑 → 2 ≤ 𝑁)
60 elfz1b 12979 . . . . . . . . . . . 12 (2 ∈ (1...𝑁) ↔ (2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁))
6160biimpri 230 . . . . . . . . . . 11 ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁) → 2 ∈ (1...𝑁))
6258, 1, 59, 61syl3anc 1367 . . . . . . . . . 10 (𝜑 → 2 ∈ (1...𝑁))
6362snssd 4744 . . . . . . . . 9 (𝜑 → {2} ⊆ (1...𝑁))
6456, 63unssd 4164 . . . . . . . 8 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ (1...𝑁))
65 fz1ssnn 12941 . . . . . . . . 9 (1...𝑁) ⊆ ℕ
6665a1i 11 . . . . . . . 8 (𝜑 → (1...𝑁) ⊆ ℕ)
6764, 66sstrd 3979 . . . . . . 7 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
6867sselda 3969 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → 𝑖 ∈ ℕ)
6954, 68ffvelrnd 6854 . . . . 5 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℝ)
7053, 69fsumrecl 15093 . . . 4 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) ∈ ℝ)
71 fzfid 13344 . . . . 5 (𝜑 → (1...𝑁) ∈ Fin)
7211a1i 11 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → Λ:ℕ⟶ℝ)
7366sselda 3969 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → 𝑗 ∈ ℕ)
7472, 73ffvelrnd 6854 . . . . 5 ((𝜑𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
7571, 74fsumrecl 15093 . . . 4 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℝ)
7670, 75remulcld 10673 . . 3 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) ∈ ℝ)
7743, 76remulcld 10673 . 2 (𝜑 → ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))) ∈ ℝ)
781adantr 483 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑁 ∈ ℕ)
7978nnrpd 12432 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℝ+)
80 relogcl 25161 . . . . . . 7 (𝑁 ∈ ℝ+ → (log‘𝑁) ∈ ℝ)
8179, 80syl 17 . . . . . 6 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℝ)
8232, 81remulcld 10673 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (log‘𝑁)) ∈ ℝ)
8326, 82remulcld 10673 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) ∈ ℝ)
84 vmage0 25700 . . . . . 6 ((𝑛‘0) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘0)))
8525, 84syl 17 . . . . 5 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘0)))
86 vmage0 25700 . . . . . . 7 ((𝑛‘1) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘1)))
8731, 86syl 17 . . . . . 6 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘1)))
8837nnrpd 12432 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℝ+)
8988relogcld 25208 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ∈ ℝ)
90 vmalelog 25783 . . . . . . . 8 ((𝑛‘2) ∈ ℕ → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9137, 90syl 17 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9213, 15, 16, 18, 36reprle 31887 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ≤ 𝑁)
93 logleb 25188 . . . . . . . . 9 (((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) → ((𝑛‘2) ≤ 𝑁 ↔ (log‘(𝑛‘2)) ≤ (log‘𝑁)))
9493biimpa 479 . . . . . . . 8 ((((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) ∧ (𝑛‘2) ≤ 𝑁) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9588, 79, 92, 94syl21anc 835 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9638, 89, 81, 91, 95letrd 10799 . . . . . 6 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘𝑁))
9738, 81, 32, 87, 96lemul2ad 11582 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ≤ ((Λ‘(𝑛‘1)) · (log‘𝑁)))
9839, 82, 26, 85, 97lemul2ad 11582 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
9910, 40, 83, 98fsumle 15156 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
1001nncnd 11656 . . . . . 6 (𝜑𝑁 ∈ ℂ)
1011nnne0d 11690 . . . . . 6 (𝜑𝑁 ≠ 0)
102100, 101logcld 25156 . . . . 5 (𝜑 → (log‘𝑁) ∈ ℂ)
10344recnd 10671 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℂ)
10410, 102, 103fsummulc2 15141 . . . 4 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
105102adantr 483 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℂ)
106105, 103mulcomd 10664 . . . . . 6 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)))
10726recnd 10671 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℂ)
10832recnd 10671 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℂ)
109107, 108, 105mulassd 10666 . . . . . 6 ((𝜑𝑛𝐴) → (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
110106, 109eqtrd 2858 . . . . 5 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
111110sumeq2dv 15062 . . . 4 (𝜑 → Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
112104, 111eqtr2d 2859 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) = ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
11399, 112breqtrd 5094 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
1141nnred 11655 . . . 4 (𝜑𝑁 ∈ ℝ)
1151nnge1d 11688 . . . 4 (𝜑 → 1 ≤ 𝑁)
116114, 115logge0d 25215 . . 3 (𝜑 → 0 ≤ (log‘𝑁))
117 xpfi 8791 . . . . . 6 (((((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin ∧ (1...𝑁) ∈ Fin) → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11853, 71, 117syl2anc 586 . . . . 5 (𝜑 → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11911a1i 11 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → Λ:ℕ⟶ℝ)
12067adantr 483 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
121 xp1st 7723 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
122121adantl 484 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
123120, 122sseldd 3970 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ ℕ)
124119, 123ffvelrnd 6854 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(1st𝑢)) ∈ ℝ)
125 xp2nd 7724 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (2nd𝑢) ∈ (1...𝑁))
126125adantl 484 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ (1...𝑁))
12765, 126sseldi 3967 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ ℕ)
128119, 127ffvelrnd 6854 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(2nd𝑢)) ∈ ℝ)
129124, 128remulcld 10673 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
130 vmage0 25700 . . . . . . 7 ((1st𝑢) ∈ ℕ → 0 ≤ (Λ‘(1st𝑢)))
131123, 130syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(1st𝑢)))
132 vmage0 25700 . . . . . . 7 ((2nd𝑢) ∈ ℕ → 0 ≤ (Λ‘(2nd𝑢)))
133127, 132syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(2nd𝑢)))
134124, 128, 131, 133mulge0d 11219 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
135 ssidd 3992 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ℕ ⊆ ℕ)
13614adantr 483 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑁 ∈ ℤ)
1373a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 3 ∈ ℕ0)
138 simpr 487 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
1398, 138sseldi 3967 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑐 ∈ (ℕ(repr‘3)𝑁))
140135, 136, 137, 139reprf 31885 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 𝑐:(0..^3)⟶ℕ)
14123a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 0 ∈ (0..^3))
142140, 141ffvelrnd 6854 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℕ)
1431adantr 483 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → 𝑁 ∈ ℕ)
144135, 136, 137, 139, 141reprle 31887 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ≤ 𝑁)
145 elfz1b 12979 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (1...𝑁) ↔ ((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁))
146145biimpri 230 . . . . . . . . . . . 12 (((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁) → (𝑐‘0) ∈ (1...𝑁))
147142, 143, 144, 146syl3anc 1367 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (1...𝑁))
1487rabeq2i 3489 . . . . . . . . . . . . . 14 (𝑐𝐴 ↔ (𝑐 ∈ (ℕ(repr‘3)𝑁) ∧ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)))
149148simprbi 499 . . . . . . . . . . . . 13 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
150 hgt750leme.o . . . . . . . . . . . . . . 15 𝑂 = {𝑧 ∈ ℤ ∣ ¬ 2 ∥ 𝑧}
151150oddprm2 31928 . . . . . . . . . . . . . 14 (ℙ ∖ {2}) = (𝑂 ∩ ℙ)
152151eleq2i 2906 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (ℙ ∖ {2}) ↔ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
153149, 152sylnibr 331 . . . . . . . . . . . 12 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
154138, 153syl 17 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
155147, 154jca 514 . . . . . . . . . 10 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
156 eldif 3948 . . . . . . . . . 10 ((𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})) ↔ ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
157155, 156sylibr 236 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})))
158 uncom 4131 . . . . . . . . . . . . 13 (((1...𝑁) ∖ ℙ) ∪ {2}) = ({2} ∪ ((1...𝑁) ∖ ℙ))
159 undif3 4267 . . . . . . . . . . . . 13 ({2} ∪ ((1...𝑁) ∖ ℙ)) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
160158, 159eqtri 2846 . . . . . . . . . . . 12 (((1...𝑁) ∖ ℙ) ∪ {2}) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
161 ssequn1 4158 . . . . . . . . . . . . . 14 ({2} ⊆ (1...𝑁) ↔ ({2} ∪ (1...𝑁)) = (1...𝑁))
16263, 161sylib 220 . . . . . . . . . . . . 13 (𝜑 → ({2} ∪ (1...𝑁)) = (1...𝑁))
163162difeq1d 4100 . . . . . . . . . . . 12 (𝜑 → (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2})) = ((1...𝑁) ∖ (ℙ ∖ {2})))
164160, 163syl5eq 2870 . . . . . . . . . . 11 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) = ((1...𝑁) ∖ (ℙ ∖ {2})))
165164eleq2d 2900 . . . . . . . . . 10 (𝜑 → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
166165adantr 483 . . . . . . . . 9 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
167157, 166mpbird 259 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
16829a1i 11 . . . . . . . . . 10 ((𝜑𝑐𝐴) → 1 ∈ (0..^3))
169140, 168ffvelrnd 6854 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ)
170135, 136, 137, 139, 168reprle 31887 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ≤ 𝑁)
171 elfz1b 12979 . . . . . . . . . 10 ((𝑐‘1) ∈ (1...𝑁) ↔ ((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁))
172171biimpri 230 . . . . . . . . 9 (((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁) → (𝑐‘1) ∈ (1...𝑁))
173169, 143, 170, 172syl3anc 1367 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ (1...𝑁))
174167, 173opelxpd 5595 . . . . . . 7 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
175174ralrimiva 3184 . . . . . 6 (𝜑 → ∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
176 fveq1 6671 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘0) = (𝑐‘0))
177 fveq1 6671 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘1) = (𝑐‘1))
178176, 177opeq12d 4813 . . . . . . . 8 (𝑑 = 𝑐 → ⟨(𝑑‘0), (𝑑‘1)⟩ = ⟨(𝑐‘0), (𝑐‘1)⟩)
179178cbvmptv 5171 . . . . . . 7 (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩)
180179rnmptss 6888 . . . . . 6 (∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ⊆ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
181175, 180syl 17 . . . . 5 (𝜑 → ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ⊆ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
182118, 129, 134, 181fsumless 15153 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ≤ Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
183 fvex 6685 . . . . . . . 8 (𝑛‘0) ∈ V
184 fvex 6685 . . . . . . . 8 (𝑛‘1) ∈ V
185183, 184op1std 7701 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (1st𝑢) = (𝑛‘0))
186185fveq2d 6676 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(1st𝑢)) = (Λ‘(𝑛‘0)))
187183, 184op2ndd 7702 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (2nd𝑢) = (𝑛‘1))
188187fveq2d 6676 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(2nd𝑢)) = (Λ‘(𝑛‘1)))
189186, 188oveq12d 7176 . . . . 5 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
190 opex 5358 . . . . . . . 8 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
191190rgenw 3152 . . . . . . 7 𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
192179fnmpt 6490 . . . . . . 7 (∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
193191, 192mp1i 13 . . . . . 6 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
194 eqidd 2824 . . . . . 6 (𝜑 → ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
195140ad2antrr 724 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐:(0..^3)⟶ℕ)
196195ffnd 6517 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 Fn (0..^3))
19719ad4ant13 749 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛:(0..^3)⟶ℕ)
198197ffnd 6517 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛 Fn (0..^3))
199 simpr 487 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛))
200179a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩))
201190a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V)
202200, 201fvmpt2d 6783 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
203202adantr 483 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
204203adantr 483 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
205 fveq1 6671 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘0) = (𝑛‘0))
206 fveq1 6671 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘1) = (𝑛‘1))
207205, 206opeq12d 4813 . . . . . . . . . . . . . . . . . . 19 (𝑐 = 𝑛 → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
208 opex 5358 . . . . . . . . . . . . . . . . . . . 20 ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V
209208a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V)
210179, 207, 17, 209fvmptd3 6793 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
211210adantlr 713 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
212211adantr 483 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
213199, 204, 2123eqtr3d 2866 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
214183, 184opth2 5374 . . . . . . . . . . . . . . 15 (⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩ ↔ ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
215213, 214sylib 220 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
216215simpld 497 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘0) = (𝑛‘0))
217216ad2antrr 724 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐‘0) = (𝑛‘0))
218 simpr 487 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → 𝑖 = 0)
219218fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑐‘0))
220218fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑛𝑖) = (𝑛‘0))
221217, 219, 2203eqtr4d 2868 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑛𝑖))
222215simprd 498 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘1) = (𝑛‘1))
223222ad2antrr 724 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐‘1) = (𝑛‘1))
224 simpr 487 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → 𝑖 = 1)
225224fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐𝑖) = (𝑐‘1))
226224fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑛𝑖) = (𝑛‘1))
227223, 225, 2263eqtr4d 2868 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐𝑖) = (𝑛𝑖))
228216ad2antrr 724 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘0) = (𝑛‘0))
229222ad2antrr 724 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘1) = (𝑛‘1))
230228, 229oveq12d 7176 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) = ((𝑛‘0) + (𝑛‘1)))
231230oveq2d 7174 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑁 − ((𝑐‘0) + (𝑐‘1))) = (𝑁 − ((𝑛‘0) + (𝑛‘1))))
23222a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (0..^3) = {0, 1, 2})
233232sumeq1d 15060 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗))
234 ssidd 3992 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ℕ ⊆ ℕ)
235136ad4antr 730 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑁 ∈ ℤ)
2363a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 3 ∈ ℕ0)
237139ad4antr 730 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑐 ∈ (ℕ(repr‘3)𝑁))
238234, 235, 236, 237reprsum 31886 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = 𝑁)
239 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
240 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑐𝑗) = (𝑐‘1))
241 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑐𝑗) = (𝑐‘2))
242142nncnd 11656 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℂ)
243242ad4antr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘0) ∈ ℂ)
244169nncnd 11656 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
245244ad4antr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘1) ∈ ℂ)
24635a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 2 ∈ (0..^3))
247140, 246ffvelrnd 6854 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℕ)
248247nncnd 11656 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℂ)
249248ad4antr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) ∈ ℂ)
250243, 245, 2493jca 1124 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) ∈ ℂ ∧ (𝑐‘1) ∈ ℂ ∧ (𝑐‘2) ∈ ℂ))
25120, 27, 333pm3.2i 1335 . . . . . . . . . . . . . . . . 17 (0 ∈ V ∧ 1 ∈ V ∧ 2 ∈ V)
252251a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (0 ∈ V ∧ 1 ∈ V ∧ 2 ∈ V))
253 0ne1 11711 . . . . . . . . . . . . . . . . 17 0 ≠ 1
254253a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 1)
255 0ne2 11847 . . . . . . . . . . . . . . . . 17 0 ≠ 2
256255a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 2)
257 1ne2 11848 . . . . . . . . . . . . . . . . 17 1 ≠ 2
258257a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 1 ≠ 2)
259239, 240, 241, 250, 252, 254, 256, 258sumtp 15106 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗) = (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)))
260233, 238, 2593eqtr3rd 2867 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁)
261243, 245addcld 10662 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) ∈ ℂ)
262100ad5antr 732 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑁 ∈ ℂ)
263261, 249, 262addrsub 11059 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁 ↔ (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1)))))
264260, 263mpbid 234 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1))))
265232sumeq1d 15060 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑛𝑗) = Σ𝑗 ∈ {0, 1, 2} (𝑛𝑗))
26618ad4ant13 749 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
267266ad2antrr 724 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
268234, 235, 236, 267reprsum 31886 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑛𝑗) = 𝑁)
269 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑛𝑗) = (𝑛‘0))
270 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑛𝑗) = (𝑛‘1))
271 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑛𝑗) = (𝑛‘2))
27225nncnd 11656 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℂ)
273272adantlr 713 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘0) ∈ ℂ)
274273ad3antrrr 728 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘0) ∈ ℂ)
27531nncnd 11656 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℂ)
276275adantlr 713 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘1) ∈ ℂ)
277276ad3antrrr 728 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘1) ∈ ℂ)
27837nncnd 11656 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℂ)
279278adantlr 713 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘2) ∈ ℂ)
280279ad3antrrr 728 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) ∈ ℂ)
281274, 277, 2803jca 1124 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) ∈ ℂ ∧ (𝑛‘1) ∈ ℂ ∧ (𝑛‘2) ∈ ℂ))
282269, 270, 271, 281, 252, 254, 256, 258sumtp 15106 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑛𝑗) = (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)))
283265, 268, 2823eqtr3rd 2867 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁)
284274, 277addcld 10662 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) + (𝑛‘1)) ∈ ℂ)
285284, 280, 262addrsub 11059 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁 ↔ (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1)))))
286283, 285mpbid 234 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1))))
287231, 264, 2863eqtr4d 2868 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑛‘2))
288 simpr 487 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑖 = 2)
289288fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑐‘2))
290288fveq2d 6676 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛𝑖) = (𝑛‘2))
291287, 289, 2903eqtr4d 2868 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑛𝑖))
292 simpr 487 . . . . . . . . . . . . 13 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ (0..^3))
293292, 22eleqtrdi 2925 . . . . . . . . . . . 12 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ {0, 1, 2})
294 vex 3499 . . . . . . . . . . . . 13 𝑖 ∈ V
295294eltp 4628 . . . . . . . . . . . 12 (𝑖 ∈ {0, 1, 2} ↔ (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
296293, 295sylib 220 . . . . . . . . . . 11 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
297221, 227, 291, 296mpjao3dan 1427 . . . . . . . . . 10 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑐𝑖) = (𝑛𝑖))
298196, 198, 297eqfnfvd 6807 . . . . . . . . 9 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 = 𝑛)
299298ex 415 . . . . . . . 8 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
300299anasss 469 . . . . . . 7 ((𝜑 ∧ (𝑐𝐴𝑛𝐴)) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
301300ralrimivva 3193 . . . . . 6 (𝜑 → ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
302 dff1o6 7034 . . . . . . 7 ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ↔ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴 ∧ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ∧ ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛)))
303302biimpri 230 . . . . . 6 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴 ∧ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ∧ ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛)) → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
304193, 194, 301, 303syl3anc 1367 . . . . 5 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
305181sselda 3969 . . . . . . . 8 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → 𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
306305, 124syldan 593 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(1st𝑢)) ∈ ℝ)
307305, 128syldan 593 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(2nd𝑢)) ∈ ℝ)
308306, 307remulcld 10673 . . . . . 6 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
309308recnd 10671 . . . . 5 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℂ)
310189, 10, 304, 210, 309fsumf1o 15082 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
31175recnd 10671 . . . . . 6 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℂ)
31269recnd 10671 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℂ)
31353, 311, 312fsummulc1 15142 . . . . 5 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
31447a1i 11 . . . . . . 7 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (1...𝑁) ∈ Fin)
31574adantrl 714 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑗) ∈ ℝ)
316315anassrs 470 . . . . . . . 8 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
317316recnd 10671 . . . . . . 7 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℂ)
318314, 312, 317fsummulc2 15141 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → ((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
319318sumeq2dv 15062 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
320 vex 3499 . . . . . . . . 9 𝑗 ∈ V
321294, 320op1std 7701 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (1st𝑢) = 𝑖)
322321fveq2d 6676 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(1st𝑢)) = (Λ‘𝑖))
323294, 320op2ndd 7702 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (2nd𝑢) = 𝑗)
324323fveq2d 6676 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(2nd𝑢)) = (Λ‘𝑗))
325322, 324oveq12d 7176 . . . . . 6 (𝑢 = ⟨𝑖, 𝑗⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘𝑖) · (Λ‘𝑗)))
32669adantrr 715 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑖) ∈ ℝ)
327326, 315remulcld 10673 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℝ)
328327recnd 10671 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℂ)
329325, 53, 71, 328fsumxp 15129 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)) = Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
330313, 319, 3293eqtrrd 2863 . . . 4 (𝜑 → Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
331182, 310, 3303brtr3d 5099 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ≤ (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
33245, 76, 43, 116, 331lemul2ad 11582 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
33341, 46, 77, 113, 332letrd 10799 1 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  w3o 1082  w3a 1083   = wceq 1537  wcel 2114  wne 3018  wral 3140  {crab 3144  Vcvv 3496  cdif 3935  cun 3936  cin 3937  wss 3938  {csn 4569  {ctp 4573  cop 4575   class class class wbr 5068  cmpt 5148   × cxp 5555  ran crn 5558   Fn wfn 6352  wf 6353  1-1-ontowf1o 6356  cfv 6357  (class class class)co 7158  1st c1st 7689  2nd c2nd 7690  Fincfn 8511  cc 10537  cr 10538  0cc0 10539  1c1 10540   + caddc 10542   · cmul 10544  cle 10678  cmin 10872  cn 11640  2c2 11695  3c3 11696  0cn0 11900  cz 11984  +crp 12392  ...cfz 12895  ..^cfzo 13036  Σcsu 15044  cdvds 15609  cprime 16017  logclog 25140  Λcvma 25671  reprcrepr 31881
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-inf2 9106  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617  ax-addf 10618  ax-mulf 10619
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-oadd 8108  df-er 8291  df-map 8410  df-pm 8411  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-fsupp 8836  df-fi 8877  df-sup 8908  df-inf 8909  df-oi 8976  df-dju 9332  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-q 12352  df-rp 12393  df-xneg 12510  df-xadd 12511  df-xmul 12512  df-ioo 12745  df-ioc 12746  df-ico 12747  df-icc 12748  df-fz 12896  df-fzo 13037  df-fl 13165  df-mod 13241  df-seq 13373  df-exp 13433  df-fac 13637  df-bc 13666  df-hash 13694  df-shft 14428  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-limsup 14830  df-clim 14847  df-rlim 14848  df-sum 15045  df-ef 15423  df-sin 15425  df-cos 15426  df-pi 15428  df-dvds 15610  df-gcd 15846  df-prm 16018  df-pc 16176  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-starv 16582  df-sca 16583  df-vsca 16584  df-ip 16585  df-tset 16586  df-ple 16587  df-ds 16589  df-unif 16590  df-hom 16591  df-cco 16592  df-rest 16698  df-topn 16699  df-0g 16717  df-gsum 16718  df-topgen 16719  df-pt 16720  df-prds 16723  df-xrs 16777  df-qtop 16782  df-imas 16783  df-xps 16785  df-mre 16859  df-mrc 16860  df-acs 16862  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-submnd 17959  df-mulg 18227  df-cntz 18449  df-cmn 18910  df-psmet 20539  df-xmet 20540  df-met 20541  df-bl 20542  df-mopn 20543  df-fbas 20544  df-fg 20545  df-cnfld 20548  df-top 21504  df-topon 21521  df-topsp 21543  df-bases 21556  df-cld 21629  df-ntr 21630  df-cls 21631  df-nei 21708  df-lp 21746  df-perf 21747  df-cn 21837  df-cnp 21838  df-haus 21925  df-tx 22172  df-hmeo 22365  df-fil 22456  df-fm 22548  df-flim 22549  df-flf 22550  df-xms 22932  df-ms 22933  df-tms 22934  df-cncf 23488  df-limc 24466  df-dv 24467  df-log 25142  df-vma 25677  df-repr 31882
This theorem is referenced by:  hgt750leme  31931
  Copyright terms: Public domain W3C validator