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 32320
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 12133 . . . . 5 (𝜑𝑁 ∈ ℕ0)
3 3nn0 12091 . . . . . 6 3 ∈ ℕ0
43a1i 11 . . . . 5 (𝜑 → 3 ∈ ℕ0)
5 ssidd 3914 . . . . 5 (𝜑 → ℕ ⊆ ℕ)
62, 4, 5reprfi2 32287 . . . 4 (𝜑 → (ℕ(repr‘3)𝑁) ∈ Fin)
7 hgt750lemb.a . . . . 5 𝐴 = {𝑐 ∈ (ℕ(repr‘3)𝑁) ∣ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)}
87ssrab3 3985 . . . 4 𝐴 ⊆ (ℕ(repr‘3)𝑁)
9 ssfi 8840 . . . 4 (((ℕ(repr‘3)𝑁) ∈ Fin ∧ 𝐴 ⊆ (ℕ(repr‘3)𝑁)) → 𝐴 ∈ Fin)
106, 8, 9sylancl 589 . . 3 (𝜑𝐴 ∈ Fin)
11 vmaf 25973 . . . . . 6 Λ:ℕ⟶ℝ
1211a1i 11 . . . . 5 ((𝜑𝑛𝐴) → Λ:ℕ⟶ℝ)
13 ssidd 3914 . . . . . . 7 ((𝜑𝑛𝐴) → ℕ ⊆ ℕ)
141nnzd 12264 . . . . . . . 8 (𝜑𝑁 ∈ ℤ)
1514adantr 484 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℤ)
163a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 3 ∈ ℕ0)
17 simpr 488 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑛𝐴)
188, 17sseldi 3889 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
1913, 15, 16, 18reprf 32276 . . . . . 6 ((𝜑𝑛𝐴) → 𝑛:(0..^3)⟶ℕ)
20 c0ex 10810 . . . . . . . . 9 0 ∈ V
2120tpid1 4674 . . . . . . . 8 0 ∈ {0, 1, 2}
22 fzo0to3tp 13311 . . . . . . . 8 (0..^3) = {0, 1, 2}
2321, 22eleqtrri 2833 . . . . . . 7 0 ∈ (0..^3)
2423a1i 11 . . . . . 6 ((𝜑𝑛𝐴) → 0 ∈ (0..^3))
2519, 24ffvelrnd 6894 . . . . 5 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℕ)
2612, 25ffvelrnd 6894 . . . 4 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℝ)
27 1ex 10812 . . . . . . . . . 10 1 ∈ V
2827tpid2 4676 . . . . . . . . 9 1 ∈ {0, 1, 2}
2928, 22eleqtrri 2833 . . . . . . . 8 1 ∈ (0..^3)
3029a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 1 ∈ (0..^3))
3119, 30ffvelrnd 6894 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℕ)
3212, 31ffvelrnd 6894 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℝ)
33 2ex 11890 . . . . . . . . . 10 2 ∈ V
3433tpid3 4679 . . . . . . . . 9 2 ∈ {0, 1, 2}
3534, 22eleqtrri 2833 . . . . . . . 8 2 ∈ (0..^3)
3635a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 2 ∈ (0..^3))
3719, 36ffvelrnd 6894 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℕ)
3812, 37ffvelrnd 6894 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ∈ ℝ)
3932, 38remulcld 10846 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ∈ ℝ)
4026, 39remulcld 10846 . . 3 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
4110, 40fsumrecl 15281 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
421nnrpd 12609 . . . 4 (𝜑𝑁 ∈ ℝ+)
4342relogcld 25483 . . 3 (𝜑 → (log‘𝑁) ∈ ℝ)
4426, 32remulcld 10846 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4510, 44fsumrecl 15281 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4643, 45remulcld 10846 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ∈ ℝ)
47 fzfi 13528 . . . . . . . 8 (1...𝑁) ∈ Fin
48 diffi 8895 . . . . . . . 8 ((1...𝑁) ∈ Fin → ((1...𝑁) ∖ ℙ) ∈ Fin)
4947, 48ax-mp 5 . . . . . . 7 ((1...𝑁) ∖ ℙ) ∈ Fin
50 snfi 8710 . . . . . . 7 {2} ∈ Fin
51 unfi 8839 . . . . . . 7 ((((1...𝑁) ∖ ℙ) ∈ Fin ∧ {2} ∈ Fin) → (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin)
5249, 50, 51mp2an 692 . . . . . 6 (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin
5352a1i 11 . . . . 5 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin)
5411a1i 11 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → Λ:ℕ⟶ℝ)
55 difss 4036 . . . . . . . . . 10 ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁)
5655a1i 11 . . . . . . . . 9 (𝜑 → ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁))
57 2nn 11886 . . . . . . . . . . . 12 2 ∈ ℕ
5857a1i 11 . . . . . . . . . . 11 (𝜑 → 2 ∈ ℕ)
59 hgt750lemb.2 . . . . . . . . . . 11 (𝜑 → 2 ≤ 𝑁)
60 elfz1b 13164 . . . . . . . . . . . 12 (2 ∈ (1...𝑁) ↔ (2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁))
6160biimpri 231 . . . . . . . . . . 11 ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁) → 2 ∈ (1...𝑁))
6258, 1, 59, 61syl3anc 1373 . . . . . . . . . 10 (𝜑 → 2 ∈ (1...𝑁))
6362snssd 4712 . . . . . . . . 9 (𝜑 → {2} ⊆ (1...𝑁))
6456, 63unssd 4090 . . . . . . . 8 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ (1...𝑁))
65 fz1ssnn 13126 . . . . . . . . 9 (1...𝑁) ⊆ ℕ
6665a1i 11 . . . . . . . 8 (𝜑 → (1...𝑁) ⊆ ℕ)
6764, 66sstrd 3901 . . . . . . 7 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
6867sselda 3891 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → 𝑖 ∈ ℕ)
6954, 68ffvelrnd 6894 . . . . 5 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℝ)
7053, 69fsumrecl 15281 . . . 4 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) ∈ ℝ)
71 fzfid 13529 . . . . 5 (𝜑 → (1...𝑁) ∈ Fin)
7211a1i 11 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → Λ:ℕ⟶ℝ)
7366sselda 3891 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → 𝑗 ∈ ℕ)
7472, 73ffvelrnd 6894 . . . . 5 ((𝜑𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
7571, 74fsumrecl 15281 . . . 4 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℝ)
7670, 75remulcld 10846 . . 3 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) ∈ ℝ)
7743, 76remulcld 10846 . 2 (𝜑 → ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))) ∈ ℝ)
781adantr 484 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑁 ∈ ℕ)
7978nnrpd 12609 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℝ+)
80 relogcl 25436 . . . . . . 7 (𝑁 ∈ ℝ+ → (log‘𝑁) ∈ ℝ)
8179, 80syl 17 . . . . . 6 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℝ)
8232, 81remulcld 10846 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (log‘𝑁)) ∈ ℝ)
8326, 82remulcld 10846 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) ∈ ℝ)
84 vmage0 25975 . . . . . 6 ((𝑛‘0) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘0)))
8525, 84syl 17 . . . . 5 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘0)))
86 vmage0 25975 . . . . . . 7 ((𝑛‘1) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘1)))
8731, 86syl 17 . . . . . 6 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘1)))
8837nnrpd 12609 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℝ+)
8988relogcld 25483 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ∈ ℝ)
90 vmalelog 26058 . . . . . . . 8 ((𝑛‘2) ∈ ℕ → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9137, 90syl 17 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9213, 15, 16, 18, 36reprle 32278 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ≤ 𝑁)
93 logleb 25463 . . . . . . . . 9 (((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) → ((𝑛‘2) ≤ 𝑁 ↔ (log‘(𝑛‘2)) ≤ (log‘𝑁)))
9493biimpa 480 . . . . . . . 8 ((((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) ∧ (𝑛‘2) ≤ 𝑁) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9588, 79, 92, 94syl21anc 838 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9638, 89, 81, 91, 95letrd 10972 . . . . . 6 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘𝑁))
9738, 81, 32, 87, 96lemul2ad 11755 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ≤ ((Λ‘(𝑛‘1)) · (log‘𝑁)))
9839, 82, 26, 85, 97lemul2ad 11755 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
9910, 40, 83, 98fsumle 15344 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
1001nncnd 11829 . . . . . 6 (𝜑𝑁 ∈ ℂ)
1011nnne0d 11863 . . . . . 6 (𝜑𝑁 ≠ 0)
102100, 101logcld 25431 . . . . 5 (𝜑 → (log‘𝑁) ∈ ℂ)
10344recnd 10844 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℂ)
10410, 102, 103fsummulc2 15329 . . . 4 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
105102adantr 484 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℂ)
106105, 103mulcomd 10837 . . . . . 6 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)))
10726recnd 10844 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℂ)
10832recnd 10844 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℂ)
109107, 108, 105mulassd 10839 . . . . . 6 ((𝜑𝑛𝐴) → (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
110106, 109eqtrd 2774 . . . . 5 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
111110sumeq2dv 15250 . . . 4 (𝜑 → Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
112104, 111eqtr2d 2775 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) = ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
11399, 112breqtrd 5069 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
1141nnred 11828 . . . 4 (𝜑𝑁 ∈ ℝ)
1151nnge1d 11861 . . . 4 (𝜑 → 1 ≤ 𝑁)
116114, 115logge0d 25490 . . 3 (𝜑 → 0 ≤ (log‘𝑁))
117 xpfi 8931 . . . . . 6 (((((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin ∧ (1...𝑁) ∈ Fin) → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11853, 71, 117syl2anc 587 . . . . 5 (𝜑 → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11911a1i 11 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → Λ:ℕ⟶ℝ)
12067adantr 484 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
121 xp1st 7782 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
122121adantl 485 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
123120, 122sseldd 3892 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ ℕ)
124119, 123ffvelrnd 6894 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(1st𝑢)) ∈ ℝ)
125 xp2nd 7783 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (2nd𝑢) ∈ (1...𝑁))
126125adantl 485 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ (1...𝑁))
12765, 126sseldi 3889 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ ℕ)
128119, 127ffvelrnd 6894 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(2nd𝑢)) ∈ ℝ)
129124, 128remulcld 10846 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
130 vmage0 25975 . . . . . . 7 ((1st𝑢) ∈ ℕ → 0 ≤ (Λ‘(1st𝑢)))
131123, 130syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(1st𝑢)))
132 vmage0 25975 . . . . . . 7 ((2nd𝑢) ∈ ℕ → 0 ≤ (Λ‘(2nd𝑢)))
133127, 132syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(2nd𝑢)))
134124, 128, 131, 133mulge0d 11392 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
135 ssidd 3914 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ℕ ⊆ ℕ)
13614adantr 484 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑁 ∈ ℤ)
1373a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 3 ∈ ℕ0)
138 simpr 488 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
1398, 138sseldi 3889 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑐 ∈ (ℕ(repr‘3)𝑁))
140135, 136, 137, 139reprf 32276 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 𝑐:(0..^3)⟶ℕ)
14123a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 0 ∈ (0..^3))
142140, 141ffvelrnd 6894 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℕ)
1431adantr 484 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → 𝑁 ∈ ℕ)
144135, 136, 137, 139, 141reprle 32278 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ≤ 𝑁)
145 elfz1b 13164 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (1...𝑁) ↔ ((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁))
146145biimpri 231 . . . . . . . . . . . 12 (((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁) → (𝑐‘0) ∈ (1...𝑁))
147142, 143, 144, 146syl3anc 1373 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (1...𝑁))
1487rabeq2i 3391 . . . . . . . . . . . . . 14 (𝑐𝐴 ↔ (𝑐 ∈ (ℕ(repr‘3)𝑁) ∧ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)))
149148simprbi 500 . . . . . . . . . . . . 13 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
150 hgt750leme.o . . . . . . . . . . . . . . 15 𝑂 = {𝑧 ∈ ℤ ∣ ¬ 2 ∥ 𝑧}
151150oddprm2 32319 . . . . . . . . . . . . . 14 (ℙ ∖ {2}) = (𝑂 ∩ ℙ)
152151eleq2i 2825 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (ℙ ∖ {2}) ↔ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
153149, 152sylnibr 332 . . . . . . . . . . . 12 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
154138, 153syl 17 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
155147, 154jca 515 . . . . . . . . . 10 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
156 eldif 3867 . . . . . . . . . 10 ((𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})) ↔ ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
157155, 156sylibr 237 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})))
158 uncom 4057 . . . . . . . . . . . . 13 (((1...𝑁) ∖ ℙ) ∪ {2}) = ({2} ∪ ((1...𝑁) ∖ ℙ))
159 undif3 4195 . . . . . . . . . . . . 13 ({2} ∪ ((1...𝑁) ∖ ℙ)) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
160158, 159eqtri 2762 . . . . . . . . . . . 12 (((1...𝑁) ∖ ℙ) ∪ {2}) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
161 ssequn1 4084 . . . . . . . . . . . . . 14 ({2} ⊆ (1...𝑁) ↔ ({2} ∪ (1...𝑁)) = (1...𝑁))
16263, 161sylib 221 . . . . . . . . . . . . 13 (𝜑 → ({2} ∪ (1...𝑁)) = (1...𝑁))
163162difeq1d 4026 . . . . . . . . . . . 12 (𝜑 → (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2})) = ((1...𝑁) ∖ (ℙ ∖ {2})))
164160, 163syl5eq 2786 . . . . . . . . . . 11 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) = ((1...𝑁) ∖ (ℙ ∖ {2})))
165164eleq2d 2819 . . . . . . . . . 10 (𝜑 → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
166165adantr 484 . . . . . . . . 9 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
167157, 166mpbird 260 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
16829a1i 11 . . . . . . . . . 10 ((𝜑𝑐𝐴) → 1 ∈ (0..^3))
169140, 168ffvelrnd 6894 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ)
170135, 136, 137, 139, 168reprle 32278 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ≤ 𝑁)
171 elfz1b 13164 . . . . . . . . . 10 ((𝑐‘1) ∈ (1...𝑁) ↔ ((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁))
172171biimpri 231 . . . . . . . . 9 (((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁) → (𝑐‘1) ∈ (1...𝑁))
173169, 143, 170, 172syl3anc 1373 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ (1...𝑁))
174167, 173opelxpd 5578 . . . . . . 7 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
175174ralrimiva 3098 . . . . . 6 (𝜑 → ∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
176 fveq1 6705 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘0) = (𝑐‘0))
177 fveq1 6705 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘1) = (𝑐‘1))
178176, 177opeq12d 4782 . . . . . . . 8 (𝑑 = 𝑐 → ⟨(𝑑‘0), (𝑑‘1)⟩ = ⟨(𝑐‘0), (𝑐‘1)⟩)
179178cbvmptv 5147 . . . . . . 7 (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩)
180179rnmptss 6928 . . . . . 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 15341 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ≤ Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
183 fvex 6719 . . . . . . . 8 (𝑛‘0) ∈ V
184 fvex 6719 . . . . . . . 8 (𝑛‘1) ∈ V
185183, 184op1std 7760 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (1st𝑢) = (𝑛‘0))
186185fveq2d 6710 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(1st𝑢)) = (Λ‘(𝑛‘0)))
187183, 184op2ndd 7761 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (2nd𝑢) = (𝑛‘1))
188187fveq2d 6710 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(2nd𝑢)) = (Λ‘(𝑛‘1)))
189186, 188oveq12d 7220 . . . . 5 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
190 opex 5337 . . . . . . . 8 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
191190rgenw 3066 . . . . . . 7 𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
192179fnmpt 6507 . . . . . . 7 (∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
193191, 192mp1i 13 . . . . . 6 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
194 eqidd 2735 . . . . . 6 (𝜑 → ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
195140ad2antrr 726 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐:(0..^3)⟶ℕ)
196195ffnd 6535 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 Fn (0..^3))
19719ad4ant13 751 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛:(0..^3)⟶ℕ)
198197ffnd 6535 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛 Fn (0..^3))
199 simpr 488 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛))
200179a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩))
201190a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V)
202200, 201fvmpt2d 6820 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
203202adantr 484 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
204203adantr 484 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
205 fveq1 6705 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘0) = (𝑛‘0))
206 fveq1 6705 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘1) = (𝑛‘1))
207205, 206opeq12d 4782 . . . . . . . . . . . . . . . . . . 19 (𝑐 = 𝑛 → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
208 opex 5337 . . . . . . . . . . . . . . . . . . . 20 ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V
209208a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V)
210179, 207, 17, 209fvmptd3 6830 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
211210adantlr 715 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
212211adantr 484 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
213199, 204, 2123eqtr3d 2782 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
214183, 184opth2 5353 . . . . . . . . . . . . . . 15 (⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩ ↔ ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
215213, 214sylib 221 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
216215simpld 498 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘0) = (𝑛‘0))
217216ad2antrr 726 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐‘0) = (𝑛‘0))
218 simpr 488 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → 𝑖 = 0)
219218fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑐‘0))
220218fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑛𝑖) = (𝑛‘0))
221217, 219, 2203eqtr4d 2784 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑛𝑖))
222215simprd 499 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘1) = (𝑛‘1))
223222ad2antrr 726 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐‘1) = (𝑛‘1))
224 simpr 488 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → 𝑖 = 1)
225224fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐𝑖) = (𝑐‘1))
226224fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑛𝑖) = (𝑛‘1))
227223, 225, 2263eqtr4d 2784 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐𝑖) = (𝑛𝑖))
228216ad2antrr 726 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘0) = (𝑛‘0))
229222ad2antrr 726 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘1) = (𝑛‘1))
230228, 229oveq12d 7220 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) = ((𝑛‘0) + (𝑛‘1)))
231230oveq2d 7218 . . . . . . . . . . . . 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 15248 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗))
234 ssidd 3914 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ℕ ⊆ ℕ)
235136ad4antr 732 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑁 ∈ ℤ)
2363a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 3 ∈ ℕ0)
237139ad4antr 732 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑐 ∈ (ℕ(repr‘3)𝑁))
238234, 235, 236, 237reprsum 32277 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = 𝑁)
239 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
240 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑐𝑗) = (𝑐‘1))
241 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑐𝑗) = (𝑐‘2))
242142nncnd 11829 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℂ)
243242ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘0) ∈ ℂ)
244169nncnd 11829 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
245244ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘1) ∈ ℂ)
24635a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 2 ∈ (0..^3))
247140, 246ffvelrnd 6894 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℕ)
248247nncnd 11829 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℂ)
249248ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) ∈ ℂ)
250243, 245, 2493jca 1130 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) ∈ ℂ ∧ (𝑐‘1) ∈ ℂ ∧ (𝑐‘2) ∈ ℂ))
25120, 27, 333pm3.2i 1341 . . . . . . . . . . . . . . . . 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 11884 . . . . . . . . . . . . . . . . 17 0 ≠ 1
254253a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 1)
255 0ne2 12020 . . . . . . . . . . . . . . . . 17 0 ≠ 2
256255a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 2)
257 1ne2 12021 . . . . . . . . . . . . . . . . 17 1 ≠ 2
258257a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 1 ≠ 2)
259239, 240, 241, 250, 252, 254, 256, 258sumtp 15294 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗) = (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)))
260233, 238, 2593eqtr3rd 2783 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁)
261243, 245addcld 10835 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) ∈ ℂ)
262100ad5antr 734 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑁 ∈ ℂ)
263261, 249, 262addrsub 11232 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁 ↔ (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1)))))
264260, 263mpbid 235 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1))))
265232sumeq1d 15248 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑛𝑗) = Σ𝑗 ∈ {0, 1, 2} (𝑛𝑗))
26618ad4ant13 751 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
267266ad2antrr 726 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
268234, 235, 236, 267reprsum 32277 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑛𝑗) = 𝑁)
269 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑛𝑗) = (𝑛‘0))
270 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑛𝑗) = (𝑛‘1))
271 fveq2 6706 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑛𝑗) = (𝑛‘2))
27225nncnd 11829 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℂ)
273272adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘0) ∈ ℂ)
274273ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘0) ∈ ℂ)
27531nncnd 11829 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℂ)
276275adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘1) ∈ ℂ)
277276ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘1) ∈ ℂ)
27837nncnd 11829 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℂ)
279278adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘2) ∈ ℂ)
280279ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) ∈ ℂ)
281274, 277, 2803jca 1130 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) ∈ ℂ ∧ (𝑛‘1) ∈ ℂ ∧ (𝑛‘2) ∈ ℂ))
282269, 270, 271, 281, 252, 254, 256, 258sumtp 15294 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑛𝑗) = (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)))
283265, 268, 2823eqtr3rd 2783 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁)
284274, 277addcld 10835 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) + (𝑛‘1)) ∈ ℂ)
285284, 280, 262addrsub 11232 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁 ↔ (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1)))))
286283, 285mpbid 235 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1))))
287231, 264, 2863eqtr4d 2784 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑛‘2))
288 simpr 488 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑖 = 2)
289288fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑐‘2))
290288fveq2d 6710 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛𝑖) = (𝑛‘2))
291287, 289, 2903eqtr4d 2784 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑛𝑖))
292 simpr 488 . . . . . . . . . . . . 13 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ (0..^3))
293292, 22eleqtrdi 2844 . . . . . . . . . . . 12 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ {0, 1, 2})
294 vex 3405 . . . . . . . . . . . . 13 𝑖 ∈ V
295294eltp 4594 . . . . . . . . . . . 12 (𝑖 ∈ {0, 1, 2} ↔ (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
296293, 295sylib 221 . . . . . . . . . . 11 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
297221, 227, 291, 296mpjao3dan 1433 . . . . . . . . . 10 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑐𝑖) = (𝑛𝑖))
298196, 198, 297eqfnfvd 6844 . . . . . . . . 9 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 = 𝑛)
299298ex 416 . . . . . . . 8 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
300299anasss 470 . . . . . . 7 ((𝜑 ∧ (𝑐𝐴𝑛𝐴)) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
301300ralrimivva 3105 . . . . . 6 (𝜑 → ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
302 dff1o6 7075 . . . . . . 7 ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ↔ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴 ∧ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ∧ ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛)))
303302biimpri 231 . . . . . 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 1373 . . . . 5 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
305181sselda 3891 . . . . . . . 8 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → 𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
306305, 124syldan 594 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(1st𝑢)) ∈ ℝ)
307305, 128syldan 594 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(2nd𝑢)) ∈ ℝ)
308306, 307remulcld 10846 . . . . . 6 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
309308recnd 10844 . . . . 5 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℂ)
310189, 10, 304, 210, 309fsumf1o 15270 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
31175recnd 10844 . . . . . 6 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℂ)
31269recnd 10844 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℂ)
31353, 311, 312fsummulc1 15330 . . . . 5 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
31447a1i 11 . . . . . . 7 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (1...𝑁) ∈ Fin)
31574adantrl 716 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑗) ∈ ℝ)
316315anassrs 471 . . . . . . . 8 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
317316recnd 10844 . . . . . . 7 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℂ)
318314, 312, 317fsummulc2 15329 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → ((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
319318sumeq2dv 15250 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
320 vex 3405 . . . . . . . . 9 𝑗 ∈ V
321294, 320op1std 7760 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (1st𝑢) = 𝑖)
322321fveq2d 6710 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(1st𝑢)) = (Λ‘𝑖))
323294, 320op2ndd 7761 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (2nd𝑢) = 𝑗)
324323fveq2d 6710 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(2nd𝑢)) = (Λ‘𝑗))
325322, 324oveq12d 7220 . . . . . 6 (𝑢 = ⟨𝑖, 𝑗⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘𝑖) · (Λ‘𝑗)))
32669adantrr 717 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑖) ∈ ℝ)
327326, 315remulcld 10846 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℝ)
328327recnd 10844 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℂ)
329325, 53, 71, 328fsumxp 15317 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)) = Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
330313, 319, 3293eqtrrd 2779 . . . 4 (𝜑 → Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
331182, 310, 3303brtr3d 5074 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ≤ (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
33245, 76, 43, 116, 331lemul2ad 11755 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
33341, 46, 77, 113, 332letrd 10972 1 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3o 1088  w3a 1089   = wceq 1543  wcel 2110  wne 2935  wral 3054  {crab 3058  Vcvv 3401  cdif 3854  cun 3855  cin 3856  wss 3857  {csn 4531  {ctp 4535  cop 4537   class class class wbr 5043  cmpt 5124   × cxp 5538  ran crn 5541   Fn wfn 6364  wf 6365  1-1-ontowf1o 6368  cfv 6369  (class class class)co 7202  1st c1st 7748  2nd c2nd 7749  Fincfn 8615  cc 10710  cr 10711  0cc0 10712  1c1 10713   + caddc 10715   · cmul 10717  cle 10851  cmin 11045  cn 11813  2c2 11868  3c3 11869  0cn0 12073  cz 12159  +crp 12569  ...cfz 13078  ..^cfzo 13221  Σcsu 15232  cdvds 15796  cprime 16209  logclog 25415  Λcvma 25946  reprcrepr 32272
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2706  ax-rep 5168  ax-sep 5181  ax-nul 5188  ax-pow 5247  ax-pr 5311  ax-un 7512  ax-inf2 9245  ax-cnex 10768  ax-resscn 10769  ax-1cn 10770  ax-icn 10771  ax-addcl 10772  ax-addrcl 10773  ax-mulcl 10774  ax-mulrcl 10775  ax-mulcom 10776  ax-addass 10777  ax-mulass 10778  ax-distr 10779  ax-i2m1 10780  ax-1ne0 10781  ax-1rid 10782  ax-rnegex 10783  ax-rrecex 10784  ax-cnre 10785  ax-pre-lttri 10786  ax-pre-lttrn 10787  ax-pre-ltadd 10788  ax-pre-mulgt0 10789  ax-pre-sup 10790  ax-addf 10791  ax-mulf 10792
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2537  df-eu 2566  df-clab 2713  df-cleq 2726  df-clel 2812  df-nfc 2882  df-ne 2936  df-nel 3040  df-ral 3059  df-rex 3060  df-reu 3061  df-rmo 3062  df-rab 3063  df-v 3403  df-sbc 3688  df-csb 3803  df-dif 3860  df-un 3862  df-in 3864  df-ss 3874  df-pss 3876  df-nul 4228  df-if 4430  df-pw 4505  df-sn 4532  df-pr 4534  df-tp 4536  df-op 4538  df-uni 4810  df-int 4850  df-iun 4896  df-iin 4897  df-br 5044  df-opab 5106  df-mpt 5125  df-tr 5151  df-id 5444  df-eprel 5449  df-po 5457  df-so 5458  df-fr 5498  df-se 5499  df-we 5500  df-xp 5546  df-rel 5547  df-cnv 5548  df-co 5549  df-dm 5550  df-rn 5551  df-res 5552  df-ima 5553  df-pred 6149  df-ord 6205  df-on 6206  df-lim 6207  df-suc 6208  df-iota 6327  df-fun 6371  df-fn 6372  df-f 6373  df-f1 6374  df-fo 6375  df-f1o 6376  df-fv 6377  df-isom 6378  df-riota 7159  df-ov 7205  df-oprab 7206  df-mpo 7207  df-of 7458  df-om 7634  df-1st 7750  df-2nd 7751  df-supp 7893  df-wrecs 8036  df-recs 8097  df-rdg 8135  df-1o 8191  df-2o 8192  df-oadd 8195  df-er 8380  df-map 8499  df-pm 8500  df-ixp 8568  df-en 8616  df-dom 8617  df-sdom 8618  df-fin 8619  df-fsupp 8975  df-fi 9016  df-sup 9047  df-inf 9048  df-oi 9115  df-dju 9500  df-card 9538  df-pnf 10852  df-mnf 10853  df-xr 10854  df-ltxr 10855  df-le 10856  df-sub 11047  df-neg 11048  df-div 11473  df-nn 11814  df-2 11876  df-3 11877  df-4 11878  df-5 11879  df-6 11880  df-7 11881  df-8 11882  df-9 11883  df-n0 12074  df-z 12160  df-dec 12277  df-uz 12422  df-q 12528  df-rp 12570  df-xneg 12687  df-xadd 12688  df-xmul 12689  df-ioo 12922  df-ioc 12923  df-ico 12924  df-icc 12925  df-fz 13079  df-fzo 13222  df-fl 13350  df-mod 13426  df-seq 13558  df-exp 13619  df-fac 13823  df-bc 13852  df-hash 13880  df-shft 14613  df-cj 14645  df-re 14646  df-im 14647  df-sqrt 14781  df-abs 14782  df-limsup 15015  df-clim 15032  df-rlim 15033  df-sum 15233  df-ef 15610  df-sin 15612  df-cos 15613  df-pi 15615  df-dvds 15797  df-gcd 16035  df-prm 16210  df-pc 16371  df-struct 16686  df-ndx 16687  df-slot 16688  df-base 16690  df-sets 16691  df-ress 16692  df-plusg 16780  df-mulr 16781  df-starv 16782  df-sca 16783  df-vsca 16784  df-ip 16785  df-tset 16786  df-ple 16787  df-ds 16789  df-unif 16790  df-hom 16791  df-cco 16792  df-rest 16899  df-topn 16900  df-0g 16918  df-gsum 16919  df-topgen 16920  df-pt 16921  df-prds 16924  df-xrs 16979  df-qtop 16984  df-imas 16985  df-xps 16987  df-mre 17061  df-mrc 17062  df-acs 17064  df-mgm 18086  df-sgrp 18135  df-mnd 18146  df-submnd 18191  df-mulg 18461  df-cntz 18683  df-cmn 19144  df-psmet 20327  df-xmet 20328  df-met 20329  df-bl 20330  df-mopn 20331  df-fbas 20332  df-fg 20333  df-cnfld 20336  df-top 21763  df-topon 21780  df-topsp 21802  df-bases 21815  df-cld 21888  df-ntr 21889  df-cls 21890  df-nei 21967  df-lp 22005  df-perf 22006  df-cn 22096  df-cnp 22097  df-haus 22184  df-tx 22431  df-hmeo 22624  df-fil 22715  df-fm 22807  df-flim 22808  df-flf 22809  df-xms 23190  df-ms 23191  df-tms 23192  df-cncf 23747  df-limc 24735  df-dv 24736  df-log 25417  df-vma 25952  df-repr 32273
This theorem is referenced by:  hgt750leme  32322
  Copyright terms: Public domain W3C validator