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 34640
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 12445 . . . . 5 (𝜑𝑁 ∈ ℕ0)
3 3nn0 12402 . . . . . 6 3 ∈ ℕ0
43a1i 11 . . . . 5 (𝜑 → 3 ∈ ℕ0)
5 ssidd 3959 . . . . 5 (𝜑 → ℕ ⊆ ℕ)
62, 4, 5reprfi2 34607 . . . 4 (𝜑 → (ℕ(repr‘3)𝑁) ∈ Fin)
7 hgt750lemb.a . . . . 5 𝐴 = {𝑐 ∈ (ℕ(repr‘3)𝑁) ∣ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)}
87ssrab3 4033 . . . 4 𝐴 ⊆ (ℕ(repr‘3)𝑁)
9 ssfi 9087 . . . 4 (((ℕ(repr‘3)𝑁) ∈ Fin ∧ 𝐴 ⊆ (ℕ(repr‘3)𝑁)) → 𝐴 ∈ Fin)
106, 8, 9sylancl 586 . . 3 (𝜑𝐴 ∈ Fin)
11 vmaf 27027 . . . . . 6 Λ:ℕ⟶ℝ
1211a1i 11 . . . . 5 ((𝜑𝑛𝐴) → Λ:ℕ⟶ℝ)
13 ssidd 3959 . . . . . . 7 ((𝜑𝑛𝐴) → ℕ ⊆ ℕ)
141nnzd 12498 . . . . . . . 8 (𝜑𝑁 ∈ ℤ)
1514adantr 480 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℤ)
163a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 3 ∈ ℕ0)
17 simpr 484 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑛𝐴)
188, 17sselid 3933 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑛 ∈ (ℕ(repr‘3)𝑁))
1913, 15, 16, 18reprf 34596 . . . . . 6 ((𝜑𝑛𝐴) → 𝑛:(0..^3)⟶ℕ)
20 c0ex 11109 . . . . . . . . 9 0 ∈ V
2120tpid1 4720 . . . . . . . 8 0 ∈ {0, 1, 2}
22 fzo0to3tp 13655 . . . . . . . 8 (0..^3) = {0, 1, 2}
2321, 22eleqtrri 2827 . . . . . . 7 0 ∈ (0..^3)
2423a1i 11 . . . . . 6 ((𝜑𝑛𝐴) → 0 ∈ (0..^3))
2519, 24ffvelcdmd 7019 . . . . 5 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℕ)
2612, 25ffvelcdmd 7019 . . . 4 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℝ)
27 1ex 11111 . . . . . . . . . 10 1 ∈ V
2827tpid2 4722 . . . . . . . . 9 1 ∈ {0, 1, 2}
2928, 22eleqtrri 2827 . . . . . . . 8 1 ∈ (0..^3)
3029a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 1 ∈ (0..^3))
3119, 30ffvelcdmd 7019 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℕ)
3212, 31ffvelcdmd 7019 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℝ)
33 2ex 12205 . . . . . . . . . 10 2 ∈ V
3433tpid3 4725 . . . . . . . . 9 2 ∈ {0, 1, 2}
3534, 22eleqtrri 2827 . . . . . . . 8 2 ∈ (0..^3)
3635a1i 11 . . . . . . 7 ((𝜑𝑛𝐴) → 2 ∈ (0..^3))
3719, 36ffvelcdmd 7019 . . . . . 6 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℕ)
3812, 37ffvelcdmd 7019 . . . . 5 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ∈ ℝ)
3932, 38remulcld 11145 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ∈ ℝ)
4026, 39remulcld 11145 . . 3 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
4110, 40fsumrecl 15641 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ∈ ℝ)
421nnrpd 12935 . . . 4 (𝜑𝑁 ∈ ℝ+)
4342relogcld 26530 . . 3 (𝜑 → (log‘𝑁) ∈ ℝ)
4426, 32remulcld 11145 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4510, 44fsumrecl 15641 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℝ)
4643, 45remulcld 11145 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ∈ ℝ)
47 fzfi 13879 . . . . . . . 8 (1...𝑁) ∈ Fin
48 diffi 9089 . . . . . . . 8 ((1...𝑁) ∈ Fin → ((1...𝑁) ∖ ℙ) ∈ Fin)
4947, 48ax-mp 5 . . . . . . 7 ((1...𝑁) ∖ ℙ) ∈ Fin
50 snfi 8968 . . . . . . 7 {2} ∈ Fin
51 unfi 9085 . . . . . . 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 4087 . . . . . . . . . 10 ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁)
5655a1i 11 . . . . . . . . 9 (𝜑 → ((1...𝑁) ∖ ℙ) ⊆ (1...𝑁))
57 2nn 12201 . . . . . . . . . . . 12 2 ∈ ℕ
5857a1i 11 . . . . . . . . . . 11 (𝜑 → 2 ∈ ℕ)
59 hgt750lemb.2 . . . . . . . . . . 11 (𝜑 → 2 ≤ 𝑁)
60 elfz1b 13496 . . . . . . . . . . . 12 (2 ∈ (1...𝑁) ↔ (2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁))
6160biimpri 228 . . . . . . . . . . 11 ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 2 ≤ 𝑁) → 2 ∈ (1...𝑁))
6258, 1, 59, 61syl3anc 1373 . . . . . . . . . 10 (𝜑 → 2 ∈ (1...𝑁))
6362snssd 4760 . . . . . . . . 9 (𝜑 → {2} ⊆ (1...𝑁))
6456, 63unssd 4143 . . . . . . . 8 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ (1...𝑁))
65 fz1ssnn 13458 . . . . . . . . 9 (1...𝑁) ⊆ ℕ
6665a1i 11 . . . . . . . 8 (𝜑 → (1...𝑁) ⊆ ℕ)
6764, 66sstrd 3946 . . . . . . 7 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
6867sselda 3935 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → 𝑖 ∈ ℕ)
6954, 68ffvelcdmd 7019 . . . . 5 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℝ)
7053, 69fsumrecl 15641 . . . 4 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) ∈ ℝ)
71 fzfid 13880 . . . . 5 (𝜑 → (1...𝑁) ∈ Fin)
7211a1i 11 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → Λ:ℕ⟶ℝ)
7366sselda 3935 . . . . . 6 ((𝜑𝑗 ∈ (1...𝑁)) → 𝑗 ∈ ℕ)
7472, 73ffvelcdmd 7019 . . . . 5 ((𝜑𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
7571, 74fsumrecl 15641 . . . 4 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℝ)
7670, 75remulcld 11145 . . 3 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) ∈ ℝ)
7743, 76remulcld 11145 . 2 (𝜑 → ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))) ∈ ℝ)
781adantr 480 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑁 ∈ ℕ)
7978nnrpd 12935 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑁 ∈ ℝ+)
80 relogcl 26482 . . . . . . 7 (𝑁 ∈ ℝ+ → (log‘𝑁) ∈ ℝ)
8179, 80syl 17 . . . . . 6 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℝ)
8232, 81remulcld 11145 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (log‘𝑁)) ∈ ℝ)
8326, 82remulcld 11145 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) ∈ ℝ)
84 vmage0 27029 . . . . . 6 ((𝑛‘0) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘0)))
8525, 84syl 17 . . . . 5 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘0)))
86 vmage0 27029 . . . . . . 7 ((𝑛‘1) ∈ ℕ → 0 ≤ (Λ‘(𝑛‘1)))
8731, 86syl 17 . . . . . 6 ((𝜑𝑛𝐴) → 0 ≤ (Λ‘(𝑛‘1)))
8837nnrpd 12935 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℝ+)
8988relogcld 26530 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ∈ ℝ)
90 vmalelog 27114 . . . . . . . 8 ((𝑛‘2) ∈ ℕ → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9137, 90syl 17 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘(𝑛‘2)))
9213, 15, 16, 18, 36reprle 34598 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝑛‘2) ≤ 𝑁)
93 logleb 26510 . . . . . . . . 9 (((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) → ((𝑛‘2) ≤ 𝑁 ↔ (log‘(𝑛‘2)) ≤ (log‘𝑁)))
9493biimpa 476 . . . . . . . 8 ((((𝑛‘2) ∈ ℝ+𝑁 ∈ ℝ+) ∧ (𝑛‘2) ≤ 𝑁) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9588, 79, 92, 94syl21anc 837 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘(𝑛‘2)) ≤ (log‘𝑁))
9638, 89, 81, 91, 95letrd 11273 . . . . . 6 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘2)) ≤ (log‘𝑁))
9738, 81, 32, 87, 96lemul2ad 12065 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2))) ≤ ((Λ‘(𝑛‘1)) · (log‘𝑁)))
9839, 82, 26, 85, 97lemul2ad 12065 . . . 4 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
9910, 40, 83, 98fsumle 15706 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
1001nncnd 12144 . . . . . 6 (𝜑𝑁 ∈ ℂ)
1011nnne0d 12178 . . . . . 6 (𝜑𝑁 ≠ 0)
102100, 101logcld 26477 . . . . 5 (𝜑 → (log‘𝑁) ∈ ℂ)
10344recnd 11143 . . . . 5 ((𝜑𝑛𝐴) → ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ∈ ℂ)
10410, 102, 103fsummulc2 15691 . . . 4 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
105102adantr 480 . . . . . . 7 ((𝜑𝑛𝐴) → (log‘𝑁) ∈ ℂ)
106105, 103mulcomd 11136 . . . . . 6 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)))
10726recnd 11143 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘0)) ∈ ℂ)
10832recnd 11143 . . . . . . 7 ((𝜑𝑛𝐴) → (Λ‘(𝑛‘1)) ∈ ℂ)
109107, 108, 105mulassd 11138 . . . . . 6 ((𝜑𝑛𝐴) → (((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) · (log‘𝑁)) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
110106, 109eqtrd 2764 . . . . 5 ((𝜑𝑛𝐴) → ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
111110sumeq2dv 15609 . . . 4 (𝜑 → Σ𝑛𝐴 ((log‘𝑁) · ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))))
112104, 111eqtr2d 2765 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (log‘𝑁))) = ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
11399, 112breqtrd 5118 . 2 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))))
1141nnred 12143 . . . 4 (𝜑𝑁 ∈ ℝ)
1151nnge1d 12176 . . . 4 (𝜑 → 1 ≤ 𝑁)
116114, 115logge0d 26537 . . 3 (𝜑 → 0 ≤ (log‘𝑁))
117 xpfi 9209 . . . . . 6 (((((1...𝑁) ∖ ℙ) ∪ {2}) ∈ Fin ∧ (1...𝑁) ∈ Fin) → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11853, 71, 117syl2anc 584 . . . . 5 (𝜑 → ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) ∈ Fin)
11911a1i 11 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → Λ:ℕ⟶ℝ)
12067adantr 480 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (((1...𝑁) ∖ ℙ) ∪ {2}) ⊆ ℕ)
121 xp1st 7956 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
122121adantl 481 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
123120, 122sseldd 3936 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (1st𝑢) ∈ ℕ)
124119, 123ffvelcdmd 7019 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(1st𝑢)) ∈ ℝ)
125 xp2nd 7957 . . . . . . . . 9 (𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)) → (2nd𝑢) ∈ (1...𝑁))
126125adantl 481 . . . . . . . 8 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ (1...𝑁))
12765, 126sselid 3933 . . . . . . 7 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (2nd𝑢) ∈ ℕ)
128119, 127ffvelcdmd 7019 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → (Λ‘(2nd𝑢)) ∈ ℝ)
129124, 128remulcld 11145 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
130 vmage0 27029 . . . . . . 7 ((1st𝑢) ∈ ℕ → 0 ≤ (Λ‘(1st𝑢)))
131123, 130syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(1st𝑢)))
132 vmage0 27029 . . . . . . 7 ((2nd𝑢) ∈ ℕ → 0 ≤ (Λ‘(2nd𝑢)))
133127, 132syl 17 . . . . . 6 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ (Λ‘(2nd𝑢)))
134124, 128, 131, 133mulge0d 11697 . . . . 5 ((𝜑𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))) → 0 ≤ ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
135 ssidd 3959 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → ℕ ⊆ ℕ)
13614adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑁 ∈ ℤ)
1373a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 3 ∈ ℕ0)
138 simpr 484 . . . . . . . . . . . . . . 15 ((𝜑𝑐𝐴) → 𝑐𝐴)
1398, 138sselid 3933 . . . . . . . . . . . . . 14 ((𝜑𝑐𝐴) → 𝑐 ∈ (ℕ(repr‘3)𝑁))
140135, 136, 137, 139reprf 34596 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 𝑐:(0..^3)⟶ℕ)
14123a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑐𝐴) → 0 ∈ (0..^3))
142140, 141ffvelcdmd 7019 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℕ)
1431adantr 480 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → 𝑁 ∈ ℕ)
144135, 136, 137, 139, 141reprle 34598 . . . . . . . . . . . 12 ((𝜑𝑐𝐴) → (𝑐‘0) ≤ 𝑁)
145 elfz1b 13496 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (1...𝑁) ↔ ((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁))
146145biimpri 228 . . . . . . . . . . . 12 (((𝑐‘0) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘0) ≤ 𝑁) → (𝑐‘0) ∈ (1...𝑁))
147142, 143, 144, 146syl3anc 1373 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (1...𝑁))
1487reqabi 3418 . . . . . . . . . . . . . 14 (𝑐𝐴 ↔ (𝑐 ∈ (ℕ(repr‘3)𝑁) ∧ ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ)))
149148simprbi 496 . . . . . . . . . . . . 13 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
150 hgt750leme.o . . . . . . . . . . . . . . 15 𝑂 = {𝑧 ∈ ℤ ∣ ¬ 2 ∥ 𝑧}
151150oddprm2 34639 . . . . . . . . . . . . . 14 (ℙ ∖ {2}) = (𝑂 ∩ ℙ)
152151eleq2i 2820 . . . . . . . . . . . . 13 ((𝑐‘0) ∈ (ℙ ∖ {2}) ↔ (𝑐‘0) ∈ (𝑂 ∩ ℙ))
153149, 152sylnibr 329 . . . . . . . . . . . 12 (𝑐𝐴 → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
154138, 153syl 17 . . . . . . . . . . 11 ((𝜑𝑐𝐴) → ¬ (𝑐‘0) ∈ (ℙ ∖ {2}))
155147, 154jca 511 . . . . . . . . . 10 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
156 eldif 3913 . . . . . . . . . 10 ((𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})) ↔ ((𝑐‘0) ∈ (1...𝑁) ∧ ¬ (𝑐‘0) ∈ (ℙ ∖ {2})))
157155, 156sylibr 234 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2})))
158 uncom 4109 . . . . . . . . . . . . 13 (((1...𝑁) ∖ ℙ) ∪ {2}) = ({2} ∪ ((1...𝑁) ∖ ℙ))
159 undif3 4251 . . . . . . . . . . . . 13 ({2} ∪ ((1...𝑁) ∖ ℙ)) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
160158, 159eqtri 2752 . . . . . . . . . . . 12 (((1...𝑁) ∖ ℙ) ∪ {2}) = (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2}))
161 ssequn1 4137 . . . . . . . . . . . . . 14 ({2} ⊆ (1...𝑁) ↔ ({2} ∪ (1...𝑁)) = (1...𝑁))
16263, 161sylib 218 . . . . . . . . . . . . 13 (𝜑 → ({2} ∪ (1...𝑁)) = (1...𝑁))
163162difeq1d 4076 . . . . . . . . . . . 12 (𝜑 → (({2} ∪ (1...𝑁)) ∖ (ℙ ∖ {2})) = ((1...𝑁) ∖ (ℙ ∖ {2})))
164160, 163eqtrid 2776 . . . . . . . . . . 11 (𝜑 → (((1...𝑁) ∖ ℙ) ∪ {2}) = ((1...𝑁) ∖ (ℙ ∖ {2})))
165164eleq2d 2814 . . . . . . . . . 10 (𝜑 → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
166165adantr 480 . . . . . . . . 9 ((𝜑𝑐𝐴) → ((𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ↔ (𝑐‘0) ∈ ((1...𝑁) ∖ (ℙ ∖ {2}))))
167157, 166mpbird 257 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ (((1...𝑁) ∖ ℙ) ∪ {2}))
16829a1i 11 . . . . . . . . . 10 ((𝜑𝑐𝐴) → 1 ∈ (0..^3))
169140, 168ffvelcdmd 7019 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℕ)
170135, 136, 137, 139, 168reprle 34598 . . . . . . . . 9 ((𝜑𝑐𝐴) → (𝑐‘1) ≤ 𝑁)
171 elfz1b 13496 . . . . . . . . . 10 ((𝑐‘1) ∈ (1...𝑁) ↔ ((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁))
172171biimpri 228 . . . . . . . . 9 (((𝑐‘1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑐‘1) ≤ 𝑁) → (𝑐‘1) ∈ (1...𝑁))
173169, 143, 170, 172syl3anc 1373 . . . . . . . 8 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ (1...𝑁))
174167, 173opelxpd 5658 . . . . . . 7 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
175174ralrimiva 3121 . . . . . 6 (𝜑 → ∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
176 fveq1 6821 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘0) = (𝑐‘0))
177 fveq1 6821 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑‘1) = (𝑐‘1))
178176, 177opeq12d 4832 . . . . . . . 8 (𝑑 = 𝑐 → ⟨(𝑑‘0), (𝑑‘1)⟩ = ⟨(𝑐‘0), (𝑐‘1)⟩)
179178cbvmptv 5196 . . . . . . 7 (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩)
180179rnmptss 7057 . . . . . 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 15703 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ≤ Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
183 fvex 6835 . . . . . . . 8 (𝑛‘0) ∈ V
184 fvex 6835 . . . . . . . 8 (𝑛‘1) ∈ V
185183, 184op1std 7934 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (1st𝑢) = (𝑛‘0))
186185fveq2d 6826 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(1st𝑢)) = (Λ‘(𝑛‘0)))
187183, 184op2ndd 7935 . . . . . . 7 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (2nd𝑢) = (𝑛‘1))
188187fveq2d 6826 . . . . . 6 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → (Λ‘(2nd𝑢)) = (Λ‘(𝑛‘1)))
189186, 188oveq12d 7367 . . . . 5 (𝑢 = ⟨(𝑛‘0), (𝑛‘1)⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
190 opex 5407 . . . . . . . 8 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
191190rgenw 3048 . . . . . . 7 𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V
192179fnmpt 6622 . . . . . . 7 (∀𝑐𝐴 ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
193191, 192mp1i 13 . . . . . 6 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴)
194 eqidd 2730 . . . . . 6 (𝜑 → ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩))
195140ad2antrr 726 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐:(0..^3)⟶ℕ)
196195ffnd 6653 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 Fn (0..^3))
19719ad4ant13 751 . . . . . . . . . . 11 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛:(0..^3)⟶ℕ)
198197ffnd 6653 . . . . . . . . . 10 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑛 Fn (0..^3))
199 simpr 484 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛))
200179a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = (𝑐𝐴 ↦ ⟨(𝑐‘0), (𝑐‘1)⟩))
201190a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → ⟨(𝑐‘0), (𝑐‘1)⟩ ∈ V)
202200, 201fvmpt2d 6943 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
203202adantr 480 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
204203adantr 480 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ⟨(𝑐‘0), (𝑐‘1)⟩)
205 fveq1 6821 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘0) = (𝑛‘0))
206 fveq1 6821 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑛 → (𝑐‘1) = (𝑛‘1))
207205, 206opeq12d 4832 . . . . . . . . . . . . . . . . . . 19 (𝑐 = 𝑛 → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
208 opex 5407 . . . . . . . . . . . . . . . . . . . 20 ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V
209208a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → ⟨(𝑛‘0), (𝑛‘1)⟩ ∈ V)
210179, 207, 17, 209fvmptd3 6953 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
211210adantlr 715 . . . . . . . . . . . . . . . . 17 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
212211adantr 480 . . . . . . . . . . . . . . . 16 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) = ⟨(𝑛‘0), (𝑛‘1)⟩)
213199, 204, 2123eqtr3d 2772 . . . . . . . . . . . . . . 15 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩)
214183, 184opth2 5423 . . . . . . . . . . . . . . 15 (⟨(𝑐‘0), (𝑐‘1)⟩ = ⟨(𝑛‘0), (𝑛‘1)⟩ ↔ ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
215213, 214sylib 218 . . . . . . . . . . . . . 14 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → ((𝑐‘0) = (𝑛‘0) ∧ (𝑐‘1) = (𝑛‘1)))
216215simpld 494 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘0) = (𝑛‘0))
217216ad2antrr 726 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐‘0) = (𝑛‘0))
218 simpr 484 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → 𝑖 = 0)
219218fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑐‘0))
220218fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑛𝑖) = (𝑛‘0))
221217, 219, 2203eqtr4d 2774 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 0) → (𝑐𝑖) = (𝑛𝑖))
222215simprd 495 . . . . . . . . . . . . 13 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → (𝑐‘1) = (𝑛‘1))
223222ad2antrr 726 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐‘1) = (𝑛‘1))
224 simpr 484 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → 𝑖 = 1)
225224fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑐𝑖) = (𝑐‘1))
226224fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 1) → (𝑛𝑖) = (𝑛‘1))
227223, 225, 2263eqtr4d 2774 . . . . . . . . . . 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 7367 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) = ((𝑛‘0) + (𝑛‘1)))
231230oveq2d 7365 . . . . . . . . . . . . 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 15607 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗))
234 ssidd 3959 . . . . . . . . . . . . . . . 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 34597 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑐𝑗) = 𝑁)
239 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
240 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑐𝑗) = (𝑐‘1))
241 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑐𝑗) = (𝑐‘2))
242142nncnd 12144 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘0) ∈ ℂ)
243242ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘0) ∈ ℂ)
244169nncnd 12144 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘1) ∈ ℂ)
245244ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘1) ∈ ℂ)
24635a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑐𝐴) → 2 ∈ (0..^3))
247140, 246ffvelcdmd 7019 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℕ)
248247nncnd 12144 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑐𝐴) → (𝑐‘2) ∈ ℂ)
249248ad4antr 732 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) ∈ ℂ)
250243, 245, 2493jca 1128 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) ∈ ℂ ∧ (𝑐‘1) ∈ ℂ ∧ (𝑐‘2) ∈ ℂ))
25120, 27, 333pm3.2i 1340 . . . . . . . . . . . . . . . . 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 12199 . . . . . . . . . . . . . . . . 17 0 ≠ 1
254253a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 1)
255 0ne2 12330 . . . . . . . . . . . . . . . . 17 0 ≠ 2
256255a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 0 ≠ 2)
257 1ne2 12331 . . . . . . . . . . . . . . . . 17 1 ≠ 2
258257a1i 11 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 1 ≠ 2)
259239, 240, 241, 250, 252, 254, 256, 258sumtp 15656 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑐𝑗) = (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)))
260233, 238, 2593eqtr3rd 2773 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁)
261243, 245addcld 11134 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑐‘0) + (𝑐‘1)) ∈ ℂ)
262100ad5antr 734 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑁 ∈ ℂ)
263261, 249, 262addrsub 11537 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑐‘0) + (𝑐‘1)) + (𝑐‘2)) = 𝑁 ↔ (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1)))))
264260, 263mpbid 232 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑁 − ((𝑐‘0) + (𝑐‘1))))
265232sumeq1d 15607 . . . . . . . . . . . . . . 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 34597 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ (0..^3)(𝑛𝑗) = 𝑁)
269 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 0 → (𝑛𝑗) = (𝑛‘0))
270 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 1 → (𝑛𝑗) = (𝑛‘1))
271 fveq2 6822 . . . . . . . . . . . . . . . 16 (𝑗 = 2 → (𝑛𝑗) = (𝑛‘2))
27225nncnd 12144 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘0) ∈ ℂ)
273272adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘0) ∈ ℂ)
274273ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘0) ∈ ℂ)
27531nncnd 12144 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘1) ∈ ℂ)
276275adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘1) ∈ ℂ)
277276ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘1) ∈ ℂ)
27837nncnd 12144 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑛𝐴) → (𝑛‘2) ∈ ℂ)
279278adantlr 715 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (𝑛‘2) ∈ ℂ)
280279ad3antrrr 730 . . . . . . . . . . . . . . . . 17 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) ∈ ℂ)
281274, 277, 2803jca 1128 . . . . . . . . . . . . . . . 16 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) ∈ ℂ ∧ (𝑛‘1) ∈ ℂ ∧ (𝑛‘2) ∈ ℂ))
282269, 270, 271, 281, 252, 254, 256, 258sumtp 15656 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → Σ𝑗 ∈ {0, 1, 2} (𝑛𝑗) = (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)))
283265, 268, 2823eqtr3rd 2773 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁)
284274, 277addcld 11134 . . . . . . . . . . . . . . 15 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((𝑛‘0) + (𝑛‘1)) ∈ ℂ)
285284, 280, 262addrsub 11537 . . . . . . . . . . . . . 14 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → ((((𝑛‘0) + (𝑛‘1)) + (𝑛‘2)) = 𝑁 ↔ (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1)))))
286283, 285mpbid 232 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛‘2) = (𝑁 − ((𝑛‘0) + (𝑛‘1))))
287231, 264, 2863eqtr4d 2774 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐‘2) = (𝑛‘2))
288 simpr 484 . . . . . . . . . . . . 13 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → 𝑖 = 2)
289288fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑐‘2))
290288fveq2d 6826 . . . . . . . . . . . 12 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑛𝑖) = (𝑛‘2))
291287, 289, 2903eqtr4d 2774 . . . . . . . . . . 11 ((((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) ∧ 𝑖 = 2) → (𝑐𝑖) = (𝑛𝑖))
292 simpr 484 . . . . . . . . . . . . 13 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ (0..^3))
293292, 22eleqtrdi 2838 . . . . . . . . . . . 12 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → 𝑖 ∈ {0, 1, 2})
294 vex 3440 . . . . . . . . . . . . 13 𝑖 ∈ V
295294eltp 4641 . . . . . . . . . . . 12 (𝑖 ∈ {0, 1, 2} ↔ (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
296293, 295sylib 218 . . . . . . . . . . 11 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑖 = 0 ∨ 𝑖 = 1 ∨ 𝑖 = 2))
297221, 227, 291, 296mpjao3dan 1434 . . . . . . . . . 10 (((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) ∧ 𝑖 ∈ (0..^3)) → (𝑐𝑖) = (𝑛𝑖))
298196, 198, 297eqfnfvd 6968 . . . . . . . . 9 ((((𝜑𝑐𝐴) ∧ 𝑛𝐴) ∧ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛)) → 𝑐 = 𝑛)
299298ex 412 . . . . . . . 8 (((𝜑𝑐𝐴) ∧ 𝑛𝐴) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
300299anasss 466 . . . . . . 7 ((𝜑 ∧ (𝑐𝐴𝑛𝐴)) → (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
301300ralrimivva 3172 . . . . . 6 (𝜑 → ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛))
302 dff1o6 7212 . . . . . . 7 ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩):𝐴1-1-onto→ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ↔ ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) Fn 𝐴 ∧ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) = ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩) ∧ ∀𝑐𝐴𝑛𝐴 (((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑐) = ((𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)‘𝑛) → 𝑐 = 𝑛)))
303302biimpri 228 . . . . . 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 3935 . . . . . . . 8 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → 𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁)))
306305, 124syldan 591 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(1st𝑢)) ∈ ℝ)
307305, 128syldan 591 . . . . . . 7 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → (Λ‘(2nd𝑢)) ∈ ℝ)
308306, 307remulcld 11145 . . . . . 6 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℝ)
309308recnd 11143 . . . . 5 ((𝜑𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)) → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) ∈ ℂ)
310189, 10, 304, 210, 309fsumf1o 15630 . . . 4 (𝜑 → Σ𝑢 ∈ ran (𝑑𝐴 ↦ ⟨(𝑑‘0), (𝑑‘1)⟩)((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))))
31175recnd 11143 . . . . . 6 (𝜑 → Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗) ∈ ℂ)
31269recnd 11143 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (Λ‘𝑖) ∈ ℂ)
31353, 311, 312fsummulc1 15692 . . . . 5 (𝜑 → (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
31447a1i 11 . . . . . . 7 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → (1...𝑁) ∈ Fin)
31574adantrl 716 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑗) ∈ ℝ)
316315anassrs 467 . . . . . . . 8 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℝ)
317316recnd 11143 . . . . . . 7 (((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) ∧ 𝑗 ∈ (1...𝑁)) → (Λ‘𝑗) ∈ ℂ)
318314, 312, 317fsummulc2 15691 . . . . . 6 ((𝜑𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})) → ((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
319318sumeq2dv 15609 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})((Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)) = Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)))
320 vex 3440 . . . . . . . . 9 𝑗 ∈ V
321294, 320op1std 7934 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (1st𝑢) = 𝑖)
322321fveq2d 6826 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(1st𝑢)) = (Λ‘𝑖))
323294, 320op2ndd 7935 . . . . . . . 8 (𝑢 = ⟨𝑖, 𝑗⟩ → (2nd𝑢) = 𝑗)
324323fveq2d 6826 . . . . . . 7 (𝑢 = ⟨𝑖, 𝑗⟩ → (Λ‘(2nd𝑢)) = (Λ‘𝑗))
325322, 324oveq12d 7367 . . . . . 6 (𝑢 = ⟨𝑖, 𝑗⟩ → ((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = ((Λ‘𝑖) · (Λ‘𝑗)))
32669adantrr 717 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → (Λ‘𝑖) ∈ ℝ)
327326, 315remulcld 11145 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℝ)
328327recnd 11143 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2}) ∧ 𝑗 ∈ (1...𝑁))) → ((Λ‘𝑖) · (Λ‘𝑗)) ∈ ℂ)
329325, 53, 71, 328fsumxp 15679 . . . . 5 (𝜑 → Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})Σ𝑗 ∈ (1...𝑁)((Λ‘𝑖) · (Λ‘𝑗)) = Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))))
330313, 319, 3293eqtrrd 2769 . . . 4 (𝜑 → Σ𝑢 ∈ ((((1...𝑁) ∖ ℙ) ∪ {2}) × (1...𝑁))((Λ‘(1st𝑢)) · (Λ‘(2nd𝑢))) = (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
331182, 310, 3303brtr3d 5123 . . 3 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1))) ≤ (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗)))
33245, 76, 43, 116, 331lemul2ad 12065 . 2 (𝜑 → ((log‘𝑁) · Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · (Λ‘(𝑛‘1)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
33341, 46, 77, 113, 332letrd 11273 1 (𝜑 → Σ𝑛𝐴 ((Λ‘(𝑛‘0)) · ((Λ‘(𝑛‘1)) · (Λ‘(𝑛‘2)))) ≤ ((log‘𝑁) · (Σ𝑖 ∈ (((1...𝑁) ∖ ℙ) ∪ {2})(Λ‘𝑖) · Σ𝑗 ∈ (1...𝑁)(Λ‘𝑗))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3o 1085  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wral 3044  {crab 3394  Vcvv 3436  cdif 3900  cun 3901  cin 3902  wss 3903  {csn 4577  {ctp 4581  cop 4583   class class class wbr 5092  cmpt 5173   × cxp 5617  ran crn 5620   Fn wfn 6477  wf 6478  1-1-ontowf1o 6481  cfv 6482  (class class class)co 7349  1st c1st 7922  2nd c2nd 7923  Fincfn 8872  cc 11007  cr 11008  0cc0 11009  1c1 11010   + caddc 11012   · cmul 11014  cle 11150  cmin 11347  cn 12128  2c2 12183  3c3 12184  0cn0 12384  cz 12471  +crp 12893  ...cfz 13410  ..^cfzo 13557  Σcsu 15593  cdvds 16163  cprime 16582  logclog 26461  Λcvma 27000  reprcrepr 34592
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-inf2 9537  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-pre-sup 11087  ax-addf 11088
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-uni 4859  df-int 4897  df-iun 4943  df-iin 4944  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-isom 6491  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-of 7613  df-om 7800  df-1st 7924  df-2nd 7925  df-supp 8094  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-2o 8389  df-oadd 8392  df-er 8625  df-map 8755  df-pm 8756  df-ixp 8825  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-fsupp 9252  df-fi 9301  df-sup 9332  df-inf 9333  df-oi 9402  df-dju 9797  df-card 9835  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-2 12191  df-3 12192  df-4 12193  df-5 12194  df-6 12195  df-7 12196  df-8 12197  df-9 12198  df-n0 12385  df-z 12472  df-dec 12592  df-uz 12736  df-q 12850  df-rp 12894  df-xneg 13014  df-xadd 13015  df-xmul 13016  df-ioo 13252  df-ioc 13253  df-ico 13254  df-icc 13255  df-fz 13411  df-fzo 13558  df-fl 13696  df-mod 13774  df-seq 13909  df-exp 13969  df-fac 14181  df-bc 14210  df-hash 14238  df-shft 14974  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-limsup 15378  df-clim 15395  df-rlim 15396  df-sum 15594  df-ef 15974  df-sin 15976  df-cos 15977  df-pi 15979  df-dvds 16164  df-gcd 16406  df-prm 16583  df-pc 16749  df-struct 17058  df-sets 17075  df-slot 17093  df-ndx 17105  df-base 17121  df-ress 17142  df-plusg 17174  df-mulr 17175  df-starv 17176  df-sca 17177  df-vsca 17178  df-ip 17179  df-tset 17180  df-ple 17181  df-ds 17183  df-unif 17184  df-hom 17185  df-cco 17186  df-rest 17326  df-topn 17327  df-0g 17345  df-gsum 17346  df-topgen 17347  df-pt 17348  df-prds 17351  df-xrs 17406  df-qtop 17411  df-imas 17412  df-xps 17414  df-mre 17488  df-mrc 17489  df-acs 17491  df-mgm 18514  df-sgrp 18593  df-mnd 18609  df-submnd 18658  df-mulg 18947  df-cntz 19196  df-cmn 19661  df-psmet 21253  df-xmet 21254  df-met 21255  df-bl 21256  df-mopn 21257  df-fbas 21258  df-fg 21259  df-cnfld 21262  df-top 22779  df-topon 22796  df-topsp 22818  df-bases 22831  df-cld 22904  df-ntr 22905  df-cls 22906  df-nei 22983  df-lp 23021  df-perf 23022  df-cn 23112  df-cnp 23113  df-haus 23200  df-tx 23447  df-hmeo 23640  df-fil 23731  df-fm 23823  df-flim 23824  df-flf 23825  df-xms 24206  df-ms 24207  df-tms 24208  df-cncf 24769  df-limc 25765  df-dv 25766  df-log 26463  df-vma 27006  df-repr 34593
This theorem is referenced by:  hgt750leme  34642
  Copyright terms: Public domain W3C validator