Metamath Proof Explorer


Theorem hgt750lema

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, 1-Jan-2022)

Ref Expression
Hypotheses hgt750leme.o O = z | ¬ 2 z
hgt750leme.n φ N
hgt750lemb.2 φ 2 N
hgt750lemb.a A = c repr 3 N | ¬ c 0 O
hgt750lema.f F = d c repr 3 N | ¬ c a O d if a = 0 I 0 ..^ 3 pmTrsp 0 ..^ 3 a 0
Assertion hgt750lema φ n repr 3 N O repr 3 N Λ n 0 Λ n 1 Λ n 2 3 n A Λ n 0 Λ n 1 Λ n 2

Proof

Step Hyp Ref Expression
1 hgt750leme.o O = z | ¬ 2 z
2 hgt750leme.n φ N
3 hgt750lemb.2 φ 2 N
4 hgt750lemb.a A = c repr 3 N | ¬ c 0 O
5 hgt750lema.f F = d c repr 3 N | ¬ c a O d if a = 0 I 0 ..^ 3 pmTrsp 0 ..^ 3 a 0
6 fzofi 0 ..^ 3 Fin
7 6 a1i φ 0 ..^ 3 Fin
8 2 nnnn0d φ N 0
9 3nn0 3 0
10 9 a1i φ 3 0
11 ssidd φ
12 8 10 11 reprfi2 φ repr 3 N Fin
13 ssrab2 c repr 3 N | ¬ c a O repr 3 N
14 13 a1i φ c repr 3 N | ¬ c a O repr 3 N
15 12 14 ssfid φ c repr 3 N | ¬ c a O Fin
16 15 adantr φ a 0 ..^ 3 c repr 3 N | ¬ c a O Fin
17 vmaf Λ :
18 17 a1i φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ :
19 ssidd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O
20 8 nn0zd φ N
21 20 ad2antrr φ a 0 ..^ 3 n c repr 3 N | ¬ c a O N
22 9 a1i φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 3 0
23 simpr φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n c repr 3 N | ¬ c a O
24 13 23 sselid φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n repr 3 N
25 19 21 22 24 reprf φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n : 0 ..^ 3
26 c0ex 0 V
27 26 tpid1 0 0 1 2
28 fzo0to3tp 0 ..^ 3 = 0 1 2
29 27 28 eleqtrri 0 0 ..^ 3
30 29 a1i φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 0 ..^ 3
31 25 30 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n 0
32 18 31 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0
33 1eltp012 1 0 1 2
34 33 28 eleqtrri 1 0 ..^ 3
35 34 a1i φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 1 0 ..^ 3
36 25 35 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n 1
37 18 36 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 1
38 2ex 2 V
39 38 tpid3 2 0 1 2
40 39 28 eleqtrri 2 0 ..^ 3
41 40 a1i φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 2 0 ..^ 3
42 25 41 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O n 2
43 18 42 ffvelcdmd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 2
44 37 43 remulcld φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 1 Λ n 2
45 32 44 remulcld φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2
46 vmage0 n 0 0 Λ n 0
47 31 46 syl φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 Λ n 0
48 vmage0 n 1 0 Λ n 1
49 36 48 syl φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 Λ n 1
50 vmage0 n 2 0 Λ n 2
51 42 50 syl φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 Λ n 2
52 37 43 49 51 mulge0d φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 Λ n 1 Λ n 2
53 32 44 47 52 mulge0d φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 Λ n 0 Λ n 1 Λ n 2
54 7 16 45 53 fsumiunle φ n a 0 ..^ 3 c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2 a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2
55 eqid c repr 3 N | ¬ c a O = c repr 3 N | ¬ c a O
56 inss2 O
57 prmssnn
58 56 57 sstri O
59 58 a1i φ O
60 55 11 59 8 10 reprdifc φ repr 3 N O repr 3 N = a 0 ..^ 3 c repr 3 N | ¬ c a O
61 60 sumeq1d φ n repr 3 N O repr 3 N Λ n 0 Λ n 1 Λ n 2 = n a 0 ..^ 3 c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2
62 ssrab2 c repr 3 N | ¬ c 0 O repr 3 N
63 62 a1i φ c repr 3 N | ¬ c 0 O repr 3 N
64 12 63 ssfid φ c repr 3 N | ¬ c 0 O Fin
65 17 a1i φ n c repr 3 N | ¬ c 0 O Λ :
66 ssidd φ n c repr 3 N | ¬ c 0 O
67 20 adantr φ n c repr 3 N | ¬ c 0 O N
68 9 a1i φ n c repr 3 N | ¬ c 0 O 3 0
69 63 sselda φ n c repr 3 N | ¬ c 0 O n repr 3 N
70 66 67 68 69 reprf φ n c repr 3 N | ¬ c 0 O n : 0 ..^ 3
71 29 a1i φ n c repr 3 N | ¬ c 0 O 0 0 ..^ 3
72 70 71 ffvelcdmd φ n c repr 3 N | ¬ c 0 O n 0
73 65 72 ffvelcdmd φ n c repr 3 N | ¬ c 0 O Λ n 0
74 34 a1i φ n c repr 3 N | ¬ c 0 O 1 0 ..^ 3
75 70 74 ffvelcdmd φ n c repr 3 N | ¬ c 0 O n 1
76 65 75 ffvelcdmd φ n c repr 3 N | ¬ c 0 O Λ n 1
77 40 a1i φ n c repr 3 N | ¬ c 0 O 2 0 ..^ 3
78 70 77 ffvelcdmd φ n c repr 3 N | ¬ c 0 O n 2
79 65 78 ffvelcdmd φ n c repr 3 N | ¬ c 0 O Λ n 2
80 76 79 remulcld φ n c repr 3 N | ¬ c 0 O Λ n 1 Λ n 2
81 73 80 remulcld φ n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
82 64 81 fsumrecl φ n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
83 82 recnd φ n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
84 fsumconst 0 ..^ 3 Fin n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2 a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2 = 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
85 7 83 84 syl2anc φ a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2 = 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
86 fveq1 n = F e n 0 = F e 0
87 86 fveq2d n = F e Λ n 0 = Λ F e 0
88 fveq1 n = F e n 1 = F e 1
89 88 fveq2d n = F e Λ n 1 = Λ F e 1
90 fveq1 n = F e n 2 = F e 2
91 90 fveq2d n = F e Λ n 2 = Λ F e 2
92 89 91 oveq12d n = F e Λ n 1 Λ n 2 = Λ F e 1 Λ F e 2
93 87 92 oveq12d n = F e Λ n 0 Λ n 1 Λ n 2 = Λ F e 0 Λ F e 1 Λ F e 2
94 3nn 3
95 94 a1i φ 3
96 95 ralrimivw φ a 0 ..^ 3 3
97 96 r19.21bi φ a 0 ..^ 3 3
98 20 adantr φ a 0 ..^ 3 N
99 ssidd φ a 0 ..^ 3
100 simpr φ a 0 ..^ 3 a 0 ..^ 3
101 fveq1 c = d c 0 = d 0
102 101 eleq1d c = d c 0 O d 0 O
103 102 notbid c = d ¬ c 0 O ¬ d 0 O
104 103 cbvrabv c repr 3 N | ¬ c 0 O = d repr 3 N | ¬ d 0 O
105 fveq1 c = d c a = d a
106 105 eleq1d c = d c a O d a O
107 106 notbid c = d ¬ c a O ¬ d a O
108 107 cbvrabv c repr 3 N | ¬ c a O = d repr 3 N | ¬ d a O
109 eqid if a = 0 I 0 ..^ 3 pmTrsp 0 ..^ 3 a 0 = if a = 0 I 0 ..^ 3 pmTrsp 0 ..^ 3 a 0
110 97 98 99 100 104 108 109 5 reprpmtf1o φ a 0 ..^ 3 F : c repr 3 N | ¬ c a O 1-1 onto c repr 3 N | ¬ c 0 O
111 eqidd φ a 0 ..^ 3 e c repr 3 N | ¬ c a O F e = F e
112 81 adantlr φ a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
113 112 recnd φ a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
114 93 16 110 111 113 fsumf1o φ a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2 = e c repr 3 N | ¬ c a O Λ F e 0 Λ F e 1 Λ F e 2
115 fveq2 e = n F e = F n
116 115 fveq1d e = n F e 0 = F n 0
117 116 fveq2d e = n Λ F e 0 = Λ F n 0
118 115 fveq1d e = n F e 1 = F n 1
119 118 fveq2d e = n Λ F e 1 = Λ F n 1
120 115 fveq1d e = n F e 2 = F n 2
121 120 fveq2d e = n Λ F e 2 = Λ F n 2
122 119 121 oveq12d e = n Λ F e 1 Λ F e 2 = Λ F n 1 Λ F n 2
123 117 122 oveq12d e = n Λ F e 0 Λ F e 1 Λ F e 2 = Λ F n 0 Λ F n 1 Λ F n 2
124 123 cbvsumv e c repr 3 N | ¬ c a O Λ F e 0 Λ F e 1 Λ F e 2 = n c repr 3 N | ¬ c a O Λ F n 0 Λ F n 1 Λ F n 2
125 124 a1i φ a 0 ..^ 3 e c repr 3 N | ¬ c a O Λ F e 0 Λ F e 1 Λ F e 2 = n c repr 3 N | ¬ c a O Λ F n 0 Λ F n 1 Λ F n 2
126 ovexd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O 0 ..^ 3 V
127 100 adantr φ a 0 ..^ 3 n c repr 3 N | ¬ c a O a 0 ..^ 3
128 126 127 30 109 pmtridf1o φ a 0 ..^ 3 n c repr 3 N | ¬ c a O if a = 0 I 0 ..^ 3 pmTrsp 0 ..^ 3 a 0 : 0 ..^ 3 1-1 onto 0 ..^ 3
129 5 128 25 18 23 hgt750lemg φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ F n 0 Λ F n 1 Λ F n 2 = Λ n 0 Λ n 1 Λ n 2
130 129 sumeq2dv φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ F n 0 Λ F n 1 Λ F n 2 = n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2
131 114 125 130 3eqtrrd φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2 = n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
132 131 sumeq2dv φ a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2 = a 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
133 hashfzo0 3 0 0 ..^ 3 = 3
134 9 133 ax-mp 0 ..^ 3 = 3
135 134 a1i φ 0 ..^ 3 = 3
136 135 eqcomd φ 3 = 0 ..^ 3
137 4 a1i φ A = c repr 3 N | ¬ c 0 O
138 137 sumeq1d φ n A Λ n 0 Λ n 1 Λ n 2 = n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
139 136 138 oveq12d φ 3 n A Λ n 0 Λ n 1 Λ n 2 = 0 ..^ 3 n c repr 3 N | ¬ c 0 O Λ n 0 Λ n 1 Λ n 2
140 85 132 139 3eqtr4rd φ 3 n A Λ n 0 Λ n 1 Λ n 2 = a 0 ..^ 3 n c repr 3 N | ¬ c a O Λ n 0 Λ n 1 Λ n 2
141 54 61 140 3brtr4d φ n repr 3 N O repr 3 N Λ n 0 Λ n 1 Λ n 2 3 n A Λ n 0 Λ n 1 Λ n 2