Theorem 2sqlem8 14509

Description: Lemma for 2sq . (Contributed by Mario Carneiro, 20-Jun-2015.)

Hypotheses

Ref	Expression
2sq.1	|- S = ran ( w e. ZZ[_i] |-> ( ( abs ` w ) ^ 2 ) )
2sqlem7.2	|- Y = { z | E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ z = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) }
2sqlem9.5	|- ( ph -> A. b e. ( 1 ... ( M - 1 ) ) A. a e. Y ( b || a -> b e. S ) )
2sqlem9.7	|- ( ph -> M || N )
2sqlem8.n	|- ( ph -> N e. NN )
2sqlem8.m	|- ( ph -> M e. ( ZZ>= ` 2 ) )
2sqlem8.1	|- ( ph -> A e. ZZ )
2sqlem8.2	|- ( ph -> B e. ZZ )
2sqlem8.3	|- ( ph -> ( A gcd B ) = 1 )
2sqlem8.4	|- ( ph -> N = ( ( A ^ 2 ) + ( B ^ 2 ) ) )
2sqlem8.c	|- C = ( ( ( A + ( M / 2 ) ) mod M ) - ( M / 2 ) )
2sqlem8.d	|- D = ( ( ( B + ( M / 2 ) ) mod M ) - ( M / 2 ) )
2sqlem8.e	|- E = ( C / ( C gcd D ) )
2sqlem8.f	|- F = ( D / ( C gcd D ) )

Assertion

Ref	Expression
2sqlem8	|- ( ph -> M e. S )

Distinct variable groups:   a, b, w, x, y, z   A, a, x, y, z   x, C   ph, x, y   B, a, b, x, y   M, a, b, x, y, z   S, a, b, x, y, z   x, D   E, a, x, y, z   x, N, y, z   Y, a, b, x, y   F, a, x, y, z

Allowed substitution hints:   ph( z, w, a, b)   A( w, b)   B( z, w)   C( y, z, w, a, b)   D( y, z, w, a, b)   S( w)   E( w, b)   F( w, b)   M( w)   N( w, a, b)   Y( z, w)

Proof of Theorem 2sqlem8

Dummy variable p is distinct from all other variables.

Step	Hyp	Ref	Expression
1		2sq.1	. 2 |- S = ran ( w e. ZZ[_i] |-> ( ( abs ` w ) ^ 2 ) )
2		2sqlem8.m	. . . 4 |- ( ph -> M e. ( ZZ>= ` 2 ) )
3		eluz2b3 9606	. . . 4 |- ( M e. ( ZZ>= ` 2 ) <-> ( M e. NN /\ M =/= 1 ) )
4	2, 3	sylib 122	. . 3 |- ( ph -> ( M e. NN /\ M =/= 1 ) )
5	4	simpld 112	. 2 |- ( ph -> M e. NN )
6		2sqlem9.7	. . . . . . 7 |- ( ph -> M || N )
7		eluzelz 9539	. . . . . . . . 9 |- ( M e. ( ZZ>= ` 2 ) -> M e. ZZ )
8	2, 7	syl 14	. . . . . . . 8 |- ( ph -> M e. ZZ )
9		2sqlem8.n	. . . . . . . . 9 |- ( ph -> N e. NN )
10	9	nnzd 9376	. . . . . . . 8 |- ( ph -> N e. ZZ )
11		2sqlem8.1	. . . . . . . . . . . 12 |- ( ph -> A e. ZZ )
12		2sqlem8.c	. . . . . . . . . . . 12 |- C = ( ( ( A + ( M / 2 ) ) mod M ) - ( M / 2 ) )
13	11, 5, 12	4sqlem5 12382	. . . . . . . . . . 11 |- ( ph -> ( C e. ZZ /\ ( ( A - C ) / M ) e. ZZ ) )
14	13	simpld 112	. . . . . . . . . 10 |- ( ph -> C e. ZZ )
15		zsqcl 10593	. . . . . . . . . 10 |- ( C e. ZZ -> ( C ^ 2 ) e. ZZ )
16	14, 15	syl 14	. . . . . . . . 9 |- ( ph -> ( C ^ 2 ) e. ZZ )
17		2sqlem8.2	. . . . . . . . . . . 12 |- ( ph -> B e. ZZ )
18		2sqlem8.d	. . . . . . . . . . . 12 |- D = ( ( ( B + ( M / 2 ) ) mod M ) - ( M / 2 ) )
19	17, 5, 18	4sqlem5 12382	. . . . . . . . . . 11 |- ( ph -> ( D e. ZZ /\ ( ( B - D ) / M ) e. ZZ ) )
20	19	simpld 112	. . . . . . . . . 10 |- ( ph -> D e. ZZ )
21		zsqcl 10593	. . . . . . . . . 10 |- ( D e. ZZ -> ( D ^ 2 ) e. ZZ )
22	20, 21	syl 14	. . . . . . . . 9 |- ( ph -> ( D ^ 2 ) e. ZZ )
23	16, 22	zaddcld 9381	. . . . . . . 8 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) e. ZZ )
24		zsqcl 10593	. . . . . . . . . . . 12 |- ( A e. ZZ -> ( A ^ 2 ) e. ZZ )
25	11, 24	syl 14	. . . . . . . . . . 11 |- ( ph -> ( A ^ 2 ) e. ZZ )
26	25, 16	zsubcld 9382	. . . . . . . . . 10 |- ( ph -> ( ( A ^ 2 ) - ( C ^ 2 ) ) e. ZZ )
27		zsqcl 10593	. . . . . . . . . . . 12 |- ( B e. ZZ -> ( B ^ 2 ) e. ZZ )
28	17, 27	syl 14	. . . . . . . . . . 11 |- ( ph -> ( B ^ 2 ) e. ZZ )
29	28, 22	zsubcld 9382	. . . . . . . . . 10 |- ( ph -> ( ( B ^ 2 ) - ( D ^ 2 ) ) e. ZZ )
30	11, 5, 12	4sqlem8 12385	. . . . . . . . . 10 |- ( ph -> M || ( ( A ^ 2 ) - ( C ^ 2 ) ) )
31	17, 5, 18	4sqlem8 12385	. . . . . . . . . 10 |- ( ph -> M || ( ( B ^ 2 ) - ( D ^ 2 ) ) )
32	8, 26, 29, 30, 31	dvds2addd 11838	. . . . . . . . 9 |- ( ph -> M || ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
33		2sqlem8.4	. . . . . . . . . . 11 |- ( ph -> N = ( ( A ^ 2 ) + ( B ^ 2 ) ) )
34	33	oveq1d 5892	. . . . . . . . . 10 |- ( ph -> ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
35	25	zcnd 9378	. . . . . . . . . . 11 |- ( ph -> ( A ^ 2 ) e. CC )
36	28	zcnd 9378	. . . . . . . . . . 11 |- ( ph -> ( B ^ 2 ) e. CC )
37	16	zcnd 9378	. . . . . . . . . . 11 |- ( ph -> ( C ^ 2 ) e. CC )
38	22	zcnd 9378	. . . . . . . . . . 11 |- ( ph -> ( D ^ 2 ) e. CC )
39	35, 36, 37, 38	addsub4d 8317	. . . . . . . . . 10 |- ( ph -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
40	34, 39	eqtrd 2210	. . . . . . . . 9 |- ( ph -> ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
41	32, 40	breqtrrd 4033	. . . . . . . 8 |- ( ph -> M || ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
42		dvdssub2 11844	. . . . . . . 8 |- ( ( ( M e. ZZ /\ N e. ZZ /\ ( ( C ^ 2 ) + ( D ^ 2 ) ) e. ZZ ) /\ M || ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) ) -> ( M || N <-> M || ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
43	8, 10, 23, 41, 42	syl31anc 1241	. . . . . . 7 |- ( ph -> ( M || N <-> M || ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
44	6, 43	mpbid 147	. . . . . 6 |- ( ph -> M || ( ( C ^ 2 ) + ( D ^ 2 ) ) )
45		2sqlem7.2	. . . . . . . . . . . 12 |- Y = { z | E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ z = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) }
46		2sqlem9.5	. . . . . . . . . . . 12 |- ( ph -> A. b e. ( 1 ... ( M - 1 ) ) A. a e. Y ( b || a -> b e. S ) )
47		2sqlem8.3	. . . . . . . . . . . 12 |- ( ph -> ( A gcd B ) = 1 )
48	1, 45, 46, 6, 9, 2, 11, 17, 47, 33, 12, 18	2sqlem8a 14508	. . . . . . . . . . 11 |- ( ph -> ( C gcd D ) e. NN )
49	48	nnzd 9376	. . . . . . . . . 10 |- ( ph -> ( C gcd D ) e. ZZ )
50		zsqcl2 10600	. . . . . . . . . 10 |- ( ( C gcd D ) e. ZZ -> ( ( C gcd D ) ^ 2 ) e. NN0 )
51	49, 50	syl 14	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. NN0 )
52	51	nn0cnd 9233	. . . . . . . 8 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. CC )
53		2sqlem8.e	. . . . . . . . . . 11 |- E = ( C / ( C gcd D ) )
54		gcddvds 11966	. . . . . . . . . . . . . 14 |- ( ( C e. ZZ /\ D e. ZZ ) -> ( ( C gcd D ) || C /\ ( C gcd D ) || D ) )
55	14, 20, 54	syl2anc 411	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) || C /\ ( C gcd D ) || D ) )
56	55	simpld 112	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) || C )
57	48	nnne0d 8966	. . . . . . . . . . . . 13 |- ( ph -> ( C gcd D ) =/= 0 )
58		dvdsval2 11799	. . . . . . . . . . . . 13 |- ( ( ( C gcd D ) e. ZZ /\ ( C gcd D ) =/= 0 /\ C e. ZZ ) -> ( ( C gcd D ) || C <-> ( C / ( C gcd D ) ) e. ZZ ) )
59	49, 57, 14, 58	syl3anc 1238	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) || C <-> ( C / ( C gcd D ) ) e. ZZ ) )
60	56, 59	mpbid 147	. . . . . . . . . . 11 |- ( ph -> ( C / ( C gcd D ) ) e. ZZ )
61	53, 60	eqeltrid 2264	. . . . . . . . . 10 |- ( ph -> E e. ZZ )
62		zsqcl2 10600	. . . . . . . . . 10 |- ( E e. ZZ -> ( E ^ 2 ) e. NN0 )
63	61, 62	syl 14	. . . . . . . . 9 |- ( ph -> ( E ^ 2 ) e. NN0 )
64	63	nn0cnd 9233	. . . . . . . 8 |- ( ph -> ( E ^ 2 ) e. CC )
65		2sqlem8.f	. . . . . . . . . . 11 |- F = ( D / ( C gcd D ) )
66	55	simprd 114	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) || D )
67		dvdsval2 11799	. . . . . . . . . . . . 13 |- ( ( ( C gcd D ) e. ZZ /\ ( C gcd D ) =/= 0 /\ D e. ZZ ) -> ( ( C gcd D ) || D <-> ( D / ( C gcd D ) ) e. ZZ ) )
68	49, 57, 20, 67	syl3anc 1238	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) || D <-> ( D / ( C gcd D ) ) e. ZZ ) )
69	66, 68	mpbid 147	. . . . . . . . . . 11 |- ( ph -> ( D / ( C gcd D ) ) e. ZZ )
70	65, 69	eqeltrid 2264	. . . . . . . . . 10 |- ( ph -> F e. ZZ )
71		zsqcl2 10600	. . . . . . . . . 10 |- ( F e. ZZ -> ( F ^ 2 ) e. NN0 )
72	70, 71	syl 14	. . . . . . . . 9 |- ( ph -> ( F ^ 2 ) e. NN0 )
73	72	nn0cnd 9233	. . . . . . . 8 |- ( ph -> ( F ^ 2 ) e. CC )
74	52, 64, 73	adddid 7984	. . . . . . 7 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) = ( ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) + ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) ) )
75	49	zcnd 9378	. . . . . . . . . 10 |- ( ph -> ( C gcd D ) e. CC )
76	61	zcnd 9378	. . . . . . . . . 10 |- ( ph -> E e. CC )
77	75, 76	sqmuld 10668	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. E ) ^ 2 ) = ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) )
78	53	oveq2i 5888	. . . . . . . . . . 11 |- ( ( C gcd D ) x. E ) = ( ( C gcd D ) x. ( C / ( C gcd D ) ) )
79	14	zcnd 9378	. . . . . . . . . . . 12 |- ( ph -> C e. CC )
80	48	nnap0d 8967	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) # 0 )
81	79, 75, 80	divcanap2d 8751	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) x. ( C / ( C gcd D ) ) ) = C )
82	78, 81	eqtrid 2222	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. E ) = C )
83	82	oveq1d 5892	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. E ) ^ 2 ) = ( C ^ 2 ) )
84	77, 83	eqtr3d 2212	. . . . . . . 8 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) = ( C ^ 2 ) )
85	70	zcnd 9378	. . . . . . . . . 10 |- ( ph -> F e. CC )
86	75, 85	sqmuld 10668	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. F ) ^ 2 ) = ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) )
87	65	oveq2i 5888	. . . . . . . . . . 11 |- ( ( C gcd D ) x. F ) = ( ( C gcd D ) x. ( D / ( C gcd D ) ) )
88	20	zcnd 9378	. . . . . . . . . . . 12 |- ( ph -> D e. CC )
89	88, 75, 80	divcanap2d 8751	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) x. ( D / ( C gcd D ) ) ) = D )
90	87, 89	eqtrid 2222	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. F ) = D )
91	90	oveq1d 5892	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. F ) ^ 2 ) = ( D ^ 2 ) )
92	86, 91	eqtr3d 2212	. . . . . . . 8 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) = ( D ^ 2 ) )
93	84, 92	oveq12d 5895	. . . . . . 7 |- ( ph -> ( ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) + ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) ) = ( ( C ^ 2 ) + ( D ^ 2 ) ) )
94	74, 93	eqtrd 2210	. . . . . 6 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) = ( ( C ^ 2 ) + ( D ^ 2 ) ) )
95	44, 94	breqtrrd 4033	. . . . 5 |- ( ph -> M || ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
96		zsqcl 10593	. . . . . . . 8 |- ( ( C gcd D ) e. ZZ -> ( ( C gcd D ) ^ 2 ) e. ZZ )
97	49, 96	syl 14	. . . . . . 7 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. ZZ )
98	8, 97	gcdcomd 11977	. . . . . 6 |- ( ph -> ( M gcd ( ( C gcd D ) ^ 2 ) ) = ( ( ( C gcd D ) ^ 2 ) gcd M ) )
99	49, 8	gcdcld 11971	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) gcd M ) e. NN0 )
100	99	nn0zd 9375	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) e. ZZ )
101		gcddvds 11966	. . . . . . . . . . . . . 14 |- ( ( ( C gcd D ) e. ZZ /\ M e. ZZ ) -> ( ( ( C gcd D ) gcd M ) || ( C gcd D ) /\ ( ( C gcd D ) gcd M ) || M ) )
102	49, 8, 101	syl2anc 411	. . . . . . . . . . . . 13 |- ( ph -> ( ( ( C gcd D ) gcd M ) || ( C gcd D ) /\ ( ( C gcd D ) gcd M ) || M ) )
103	102	simpld 112	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( C gcd D ) )
104	100, 49, 14, 103, 56	dvdstrd 11839	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) gcd M ) || C )
105	11, 14	zsubcld 9382	. . . . . . . . . . . . 13 |- ( ph -> ( A - C ) e. ZZ )
106	102	simprd 114	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) gcd M ) || M )
107	13	simprd 114	. . . . . . . . . . . . . 14 |- ( ph -> ( ( A - C ) / M ) e. ZZ )
108	5	nnne0d 8966	. . . . . . . . . . . . . . 15 |- ( ph -> M =/= 0 )
109		dvdsval2 11799	. . . . . . . . . . . . . . 15 |- ( ( M e. ZZ /\ M =/= 0 /\ ( A - C ) e. ZZ ) -> ( M || ( A - C ) <-> ( ( A - C ) / M ) e. ZZ ) )
110	8, 108, 105, 109	syl3anc 1238	. . . . . . . . . . . . . 14 |- ( ph -> ( M || ( A - C ) <-> ( ( A - C ) / M ) e. ZZ ) )
111	107, 110	mpbird 167	. . . . . . . . . . . . 13 |- ( ph -> M || ( A - C ) )
112	100, 8, 105, 106, 111	dvdstrd 11839	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( A - C ) )
113		dvdssub2 11844	. . . . . . . . . . . 12 |- ( ( ( ( ( C gcd D ) gcd M ) e. ZZ /\ A e. ZZ /\ C e. ZZ ) /\ ( ( C gcd D ) gcd M ) || ( A - C ) ) -> ( ( ( C gcd D ) gcd M ) || A <-> ( ( C gcd D ) gcd M ) || C ) )
114	100, 11, 14, 112, 113	syl31anc 1241	. . . . . . . . . . 11 |- ( ph -> ( ( ( C gcd D ) gcd M ) || A <-> ( ( C gcd D ) gcd M ) || C ) )
115	104, 114	mpbird 167	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) gcd M ) || A )
116	100, 49, 20, 103, 66	dvdstrd 11839	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) gcd M ) || D )
117	17, 20	zsubcld 9382	. . . . . . . . . . . . 13 |- ( ph -> ( B - D ) e. ZZ )
118	19	simprd 114	. . . . . . . . . . . . . 14 |- ( ph -> ( ( B - D ) / M ) e. ZZ )
119		dvdsval2 11799	. . . . . . . . . . . . . . 15 |- ( ( M e. ZZ /\ M =/= 0 /\ ( B - D ) e. ZZ ) -> ( M || ( B - D ) <-> ( ( B - D ) / M ) e. ZZ ) )
120	8, 108, 117, 119	syl3anc 1238	. . . . . . . . . . . . . 14 |- ( ph -> ( M || ( B - D ) <-> ( ( B - D ) / M ) e. ZZ ) )
121	118, 120	mpbird 167	. . . . . . . . . . . . 13 |- ( ph -> M || ( B - D ) )
122	100, 8, 117, 106, 121	dvdstrd 11839	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( B - D ) )
123		dvdssub2 11844	. . . . . . . . . . . 12 |- ( ( ( ( ( C gcd D ) gcd M ) e. ZZ /\ B e. ZZ /\ D e. ZZ ) /\ ( ( C gcd D ) gcd M ) || ( B - D ) ) -> ( ( ( C gcd D ) gcd M ) || B <-> ( ( C gcd D ) gcd M ) || D ) )
124	100, 17, 20, 122, 123	syl31anc 1241	. . . . . . . . . . 11 |- ( ph -> ( ( ( C gcd D ) gcd M ) || B <-> ( ( C gcd D ) gcd M ) || D ) )
125	116, 124	mpbird 167	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) gcd M ) || B )
126		1ne0 8989	. . . . . . . . . . . . . . 15 |- 1 =/= 0
127	126	a1i 9	. . . . . . . . . . . . . 14 |- ( ph -> 1 =/= 0 )
128	47, 127	eqnetrd 2371	. . . . . . . . . . . . 13 |- ( ph -> ( A gcd B ) =/= 0 )
129	128	neneqd 2368	. . . . . . . . . . . 12 |- ( ph -> -. ( A gcd B ) = 0 )
130		gcdeq0 11980	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ B e. ZZ ) -> ( ( A gcd B ) = 0 <-> ( A = 0 /\ B = 0 ) ) )
131	11, 17, 130	syl2anc 411	. . . . . . . . . . . 12 |- ( ph -> ( ( A gcd B ) = 0 <-> ( A = 0 /\ B = 0 ) ) )
132	129, 131	mtbid 672	. . . . . . . . . . 11 |- ( ph -> -. ( A = 0 /\ B = 0 ) )
133		dvdslegcd 11967	. . . . . . . . . . 11 |- ( ( ( ( ( C gcd D ) gcd M ) e. ZZ /\ A e. ZZ /\ B e. ZZ ) /\ -. ( A = 0 /\ B = 0 ) ) -> ( ( ( ( C gcd D ) gcd M ) || A /\ ( ( C gcd D ) gcd M ) || B ) -> ( ( C gcd D ) gcd M ) <_ ( A gcd B ) ) )
134	100, 11, 17, 132, 133	syl31anc 1241	. . . . . . . . . 10 |- ( ph -> ( ( ( ( C gcd D ) gcd M ) || A /\ ( ( C gcd D ) gcd M ) || B ) -> ( ( C gcd D ) gcd M ) <_ ( A gcd B ) ) )
135	115, 125, 134	mp2and 433	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) gcd M ) <_ ( A gcd B ) )
136	135, 47	breqtrd 4031	. . . . . . . 8 |- ( ph -> ( ( C gcd D ) gcd M ) <_ 1 )
137		simpr 110	. . . . . . . . . . . 12 |- ( ( ( C gcd D ) = 0 /\ M = 0 ) -> M = 0 )
138	137	necon3ai 2396	. . . . . . . . . . 11 |- ( M =/= 0 -> -. ( ( C gcd D ) = 0 /\ M = 0 ) )
139	108, 138	syl 14	. . . . . . . . . 10 |- ( ph -> -. ( ( C gcd D ) = 0 /\ M = 0 ) )
140		gcdn0cl 11965	. . . . . . . . . 10 |- ( ( ( ( C gcd D ) e. ZZ /\ M e. ZZ ) /\ -. ( ( C gcd D ) = 0 /\ M = 0 ) ) -> ( ( C gcd D ) gcd M ) e. NN )
141	49, 8, 139, 140	syl21anc 1237	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) gcd M ) e. NN )
142		nnle1eq1 8945	. . . . . . . . 9 |- ( ( ( C gcd D ) gcd M ) e. NN -> ( ( ( C gcd D ) gcd M ) <_ 1 <-> ( ( C gcd D ) gcd M ) = 1 ) )
143	141, 142	syl 14	. . . . . . . 8 |- ( ph -> ( ( ( C gcd D ) gcd M ) <_ 1 <-> ( ( C gcd D ) gcd M ) = 1 ) )
144	136, 143	mpbid 147	. . . . . . 7 |- ( ph -> ( ( C gcd D ) gcd M ) = 1 )
145		2nn 9082	. . . . . . . . 9 |- 2 e. NN
146	145	a1i 9	. . . . . . . 8 |- ( ph -> 2 e. NN )
147		rplpwr 12030	. . . . . . . 8 |- ( ( ( C gcd D ) e. NN /\ M e. NN /\ 2 e. NN ) -> ( ( ( C gcd D ) gcd M ) = 1 -> ( ( ( C gcd D ) ^ 2 ) gcd M ) = 1 ) )
148	48, 5, 146, 147	syl3anc 1238	. . . . . . 7 |- ( ph -> ( ( ( C gcd D ) gcd M ) = 1 -> ( ( ( C gcd D ) ^ 2 ) gcd M ) = 1 ) )
149	144, 148	mpd 13	. . . . . 6 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) gcd M ) = 1 )
150	98, 149	eqtrd 2210	. . . . 5 |- ( ph -> ( M gcd ( ( C gcd D ) ^ 2 ) ) = 1 )
151	63, 72	nn0addcld 9235	. . . . . . 7 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. NN0 )
152	151	nn0zd 9375	. . . . . 6 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ )
153		coprmdvds 12094	. . . . . 6 |- ( ( M e. ZZ /\ ( ( C gcd D ) ^ 2 ) e. ZZ /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ ) -> ( ( M || ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) /\ ( M gcd ( ( C gcd D ) ^ 2 ) ) = 1 ) -> M || ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
154	8, 97, 152, 153	syl3anc 1238	. . . . 5 |- ( ph -> ( ( M || ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) /\ ( M gcd ( ( C gcd D ) ^ 2 ) ) = 1 ) -> M || ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
155	95, 150, 154	mp2and 433	. . . 4 |- ( ph -> M || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
156		dvdsval2 11799	. . . . 5 |- ( ( M e. ZZ /\ M =/= 0 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ ) -> ( M || ( ( E ^ 2 ) + ( F ^ 2 ) ) <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ ) )
157	8, 108, 152, 156	syl3anc 1238	. . . 4 |- ( ph -> ( M || ( ( E ^ 2 ) + ( F ^ 2 ) ) <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ ) )
158	155, 157	mpbid 147	. . 3 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ )
159	63	nn0red 9232	. . . . 5 |- ( ph -> ( E ^ 2 ) e. RR )
160	72	nn0red 9232	. . . . 5 |- ( ph -> ( F ^ 2 ) e. RR )
161	159, 160	readdcld 7989	. . . 4 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. RR )
162	5	nnred 8934	. . . 4 |- ( ph -> M e. RR )
163	1, 45	2sqlem7 14507	. . . . . . 7 |- Y C_ ( S i^i NN )
164		inss2 3358	. . . . . . 7 |- ( S i^i NN ) C_ NN
165	163, 164	sstri 3166	. . . . . 6 |- Y C_ NN
166	61, 70	gcdcld 11971	. . . . . . . . . 10 |- ( ph -> ( E gcd F ) e. NN0 )
167	166	nn0cnd 9233	. . . . . . . . 9 |- ( ph -> ( E gcd F ) e. CC )
168		1cnd 7975	. . . . . . . . 9 |- ( ph -> 1 e. CC )
169	75	mulridd 7976	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. 1 ) = ( C gcd D ) )
170	82, 90	oveq12d 5895	. . . . . . . . . 10 |- ( ph -> ( ( ( C gcd D ) x. E ) gcd ( ( C gcd D ) x. F ) ) = ( C gcd D ) )
171	14, 20	gcdcld 11971	. . . . . . . . . . 11 |- ( ph -> ( C gcd D ) e. NN0 )
172		mulgcd 12019	. . . . . . . . . . 11 |- ( ( ( C gcd D ) e. NN0 /\ E e. ZZ /\ F e. ZZ ) -> ( ( ( C gcd D ) x. E ) gcd ( ( C gcd D ) x. F ) ) = ( ( C gcd D ) x. ( E gcd F ) ) )
173	171, 61, 70, 172	syl3anc 1238	. . . . . . . . . 10 |- ( ph -> ( ( ( C gcd D ) x. E ) gcd ( ( C gcd D ) x. F ) ) = ( ( C gcd D ) x. ( E gcd F ) ) )
174	169, 170, 173	3eqtr2rd 2217	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) x. ( E gcd F ) ) = ( ( C gcd D ) x. 1 ) )
175	167, 168, 75, 80, 174	mulcanapad 8622	. . . . . . . 8 |- ( ph -> ( E gcd F ) = 1 )
176		eqidd 2178	. . . . . . . 8 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
177		oveq1 5884	. . . . . . . . . . 11 |- ( x = E -> ( x gcd y ) = ( E gcd y ) )
178	177	eqeq1d 2186	. . . . . . . . . 10 |- ( x = E -> ( ( x gcd y ) = 1 <-> ( E gcd y ) = 1 ) )
179		oveq1 5884	. . . . . . . . . . . 12 |- ( x = E -> ( x ^ 2 ) = ( E ^ 2 ) )
180	179	oveq1d 5892	. . . . . . . . . . 11 |- ( x = E -> ( ( x ^ 2 ) + ( y ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) )
181	180	eqeq2d 2189	. . . . . . . . . 10 |- ( x = E -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) ) )
182	178, 181	anbi12d 473	. . . . . . . . 9 |- ( x = E -> ( ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) <-> ( ( E gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) ) ) )
183		oveq2 5885	. . . . . . . . . . 11 |- ( y = F -> ( E gcd y ) = ( E gcd F ) )
184	183	eqeq1d 2186	. . . . . . . . . 10 |- ( y = F -> ( ( E gcd y ) = 1 <-> ( E gcd F ) = 1 ) )
185		oveq1 5884	. . . . . . . . . . . 12 |- ( y = F -> ( y ^ 2 ) = ( F ^ 2 ) )
186	185	oveq2d 5893	. . . . . . . . . . 11 |- ( y = F -> ( ( E ^ 2 ) + ( y ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
187	186	eqeq2d 2189	. . . . . . . . . 10 |- ( y = F -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
188	184, 187	anbi12d 473	. . . . . . . . 9 |- ( y = F -> ( ( ( E gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) ) <-> ( ( E gcd F ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) ) ) )
189	182, 188	rspc2ev 2858	. . . . . . . 8 |- ( ( E e. ZZ /\ F e. ZZ /\ ( ( E gcd F ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) ) ) -> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) )
190	61, 70, 175, 176, 189	syl112anc 1242	. . . . . . 7 |- ( ph -> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) )
191		eqeq1 2184	. . . . . . . . . . 11 |- ( z = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( z = ( ( x ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) )
192	191	anbi2d 464	. . . . . . . . . 10 |- ( z = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( ( ( x gcd y ) = 1 /\ z = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) <-> ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) ) )
193	192	2rexbidv 2502	. . . . . . . . 9 |- ( z = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ z = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) <-> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) ) )
194	193, 45	elab2g 2886	. . . . . . . 8 |- ( ( ( E ^ 2 ) + ( F ^ 2 ) ) e. NN0 -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y <-> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) ) )
195	151, 194	syl 14	. . . . . . 7 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y <-> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) ) )
196	190, 195	mpbird 167	. . . . . 6 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y )
197	165, 196	sselid 3155	. . . . 5 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. NN )
198	197	nngt0d 8965	. . . 4 |- ( ph -> 0 < ( ( E ^ 2 ) + ( F ^ 2 ) ) )
199	5	nngt0d 8965	. . . 4 |- ( ph -> 0 < M )
200	161, 162, 198, 199	divgt0d 8894	. . 3 |- ( ph -> 0 < ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) )
201		elnnz 9265	. . 3 |- ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN <-> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ /\ 0 < ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
202	158, 200, 201	sylanbrc 417	. 2 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN )
203		prmnn 12112	. . . . . . . 8 |- ( p e. Prime -> p e. NN )
204	203	ad2antrl 490	. . . . . . 7 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. NN )
205	204	nnred 8934	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. RR )
206	158	adantr 276	. . . . . . . . 9 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ )
207	206	zred 9377	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. RR )
208		peano2zm 9293	. . . . . . . . . . 11 |- ( M e. ZZ -> ( M - 1 ) e. ZZ )
209	8, 208	syl 14	. . . . . . . . . 10 |- ( ph -> ( M - 1 ) e. ZZ )
210	209	zred 9377	. . . . . . . . 9 |- ( ph -> ( M - 1 ) e. RR )
211	210	adantr 276	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( M - 1 ) e. RR )
212		simprr 531	. . . . . . . . 9 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) )
213		prmz 12113	. . . . . . . . . . 11 |- ( p e. Prime -> p e. ZZ )
214	213	ad2antrl 490	. . . . . . . . . 10 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. ZZ )
215	202	adantr 276	. . . . . . . . . 10 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN )
216		dvdsle 11852	. . . . . . . . . 10 |- ( ( p e. ZZ /\ ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN ) -> ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p <_ ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
217	214, 215, 216	syl2anc 411	. . . . . . . . 9 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p <_ ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
218	212, 217	mpd 13	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p <_ ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) )
219		zsqcl 10593	. . . . . . . . . . . . . . . 16 |- ( M e. ZZ -> ( M ^ 2 ) e. ZZ )
220	8, 219	syl 14	. . . . . . . . . . . . . . 15 |- ( ph -> ( M ^ 2 ) e. ZZ )
221	220	zred 9377	. . . . . . . . . . . . . 14 |- ( ph -> ( M ^ 2 ) e. RR )
222	221	rehalfcld 9167	. . . . . . . . . . . . 13 |- ( ph -> ( ( M ^ 2 ) / 2 ) e. RR )
223	16	zred 9377	. . . . . . . . . . . . . . 15 |- ( ph -> ( C ^ 2 ) e. RR )
224	22	zred 9377	. . . . . . . . . . . . . . 15 |- ( ph -> ( D ^ 2 ) e. RR )
225	223, 224	readdcld 7989	. . . . . . . . . . . . . 14 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) e. RR )
226		1red 7974	. . . . . . . . . . . . . . . 16 |- ( ph -> 1 e. RR )
227	48	nnsqcld 10677	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. NN )
228	227	nnred 8934	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. RR )
229	151	nn0ge0d 9234	. . . . . . . . . . . . . . . 16 |- ( ph -> 0 <_ ( ( E ^ 2 ) + ( F ^ 2 ) ) )
230	227	nnge1d 8964	. . . . . . . . . . . . . . . 16 |- ( ph -> 1 <_ ( ( C gcd D ) ^ 2 ) )
231	226, 228, 161, 229, 230	lemul1ad 8898	. . . . . . . . . . . . . . 15 |- ( ph -> ( 1 x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) <_ ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
232	151	nn0cnd 9233	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. CC )
233	232	mulid2d 7978	. . . . . . . . . . . . . . 15 |- ( ph -> ( 1 x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
234	231, 233, 94	3brtr3d 4036	. . . . . . . . . . . . . 14 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) <_ ( ( C ^ 2 ) + ( D ^ 2 ) ) )
235	222	rehalfcld 9167	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( ( M ^ 2 ) / 2 ) / 2 ) e. RR )
236	11, 5, 12	4sqlem7 12384	. . . . . . . . . . . . . . . 16 |- ( ph -> ( C ^ 2 ) <_ ( ( ( M ^ 2 ) / 2 ) / 2 ) )
237	17, 5, 18	4sqlem7 12384	. . . . . . . . . . . . . . . 16 |- ( ph -> ( D ^ 2 ) <_ ( ( ( M ^ 2 ) / 2 ) / 2 ) )
238	223, 224, 235, 235, 236, 237	le2addd 8522	. . . . . . . . . . . . . . 15 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) <_ ( ( ( ( M ^ 2 ) / 2 ) / 2 ) + ( ( ( M ^ 2 ) / 2 ) / 2 ) ) )
239	222	recnd 7988	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( M ^ 2 ) / 2 ) e. CC )
240	239	2halvesd 9166	. . . . . . . . . . . . . . 15 |- ( ph -> ( ( ( ( M ^ 2 ) / 2 ) / 2 ) + ( ( ( M ^ 2 ) / 2 ) / 2 ) ) = ( ( M ^ 2 ) / 2 ) )
241	238, 240	breqtrd 4031	. . . . . . . . . . . . . 14 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) <_ ( ( M ^ 2 ) / 2 ) )
242	161, 225, 222, 234, 241	letrd 8083	. . . . . . . . . . . . 13 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) <_ ( ( M ^ 2 ) / 2 ) )
243	5	nnsqcld 10677	. . . . . . . . . . . . . . 15 |- ( ph -> ( M ^ 2 ) e. NN )
244	243	nnrpd 9696	. . . . . . . . . . . . . 14 |- ( ph -> ( M ^ 2 ) e. RR+ )
245		rphalflt 9685	. . . . . . . . . . . . . 14 |- ( ( M ^ 2 ) e. RR+ -> ( ( M ^ 2 ) / 2 ) < ( M ^ 2 ) )
246	244, 245	syl 14	. . . . . . . . . . . . 13 |- ( ph -> ( ( M ^ 2 ) / 2 ) < ( M ^ 2 ) )
247	161, 222, 221, 242, 246	lelttrd 8084	. . . . . . . . . . . 12 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M ^ 2 ) )
248	8	zcnd 9378	. . . . . . . . . . . . 13 |- ( ph -> M e. CC )
249	248	sqvald 10653	. . . . . . . . . . . 12 |- ( ph -> ( M ^ 2 ) = ( M x. M ) )
250	247, 249	breqtrd 4031	. . . . . . . . . . 11 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M x. M ) )
251		ltdivmul 8835	. . . . . . . . . . . 12 |- ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) e. RR /\ M e. RR /\ ( M e. RR /\ 0 < M ) ) -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M x. M ) ) )
252	161, 162, 162, 199, 251	syl112anc 1242	. . . . . . . . . . 11 |- ( ph -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M x. M ) ) )
253	250, 252	mpbird 167	. . . . . . . . . 10 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M )
254		zltlem1 9312	. . . . . . . . . . 11 |- ( ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ /\ M e. ZZ ) -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) ) )
255	158, 8, 254	syl2anc 411	. . . . . . . . . 10 |- ( ph -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) ) )
256	253, 255	mpbid 147	. . . . . . . . 9 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) )
257	256	adantr 276	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) )
258	205, 207, 211, 218, 257	letrd 8083	. . . . . . 7 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p <_ ( M - 1 ) )
259	209	adantr 276	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( M - 1 ) e. ZZ )
260		fznn 10091	. . . . . . . 8 |- ( ( M - 1 ) e. ZZ -> ( p e. ( 1 ... ( M - 1 ) ) <-> ( p e. NN /\ p <_ ( M - 1 ) ) ) )
261	259, 260	syl 14	. . . . . . 7 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( p e. ( 1 ... ( M - 1 ) ) <-> ( p e. NN /\ p <_ ( M - 1 ) ) ) )
262	204, 258, 261	mpbir2and 944	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. ( 1 ... ( M - 1 ) ) )
263	196	adantr 276	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y )
264	262, 263	jca 306	. . . . 5 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( p e. ( 1 ... ( M - 1 ) ) /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y ) )
265	46	adantr 276	. . . . 5 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> A. b e. ( 1 ... ( M - 1 ) ) A. a e. Y ( b || a -> b e. S ) )
266	152	adantr 276	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ )
267		dvdsmul2 11823	. . . . . . . . 9 |- ( ( M e. ZZ /\ ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
268	8, 158, 267	syl2anc 411	. . . . . . . 8 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
269	5	nnap0d 8967	. . . . . . . . 9 |- ( ph -> M # 0 )
270	232, 248, 269	divcanap2d 8751	. . . . . . . 8 |- ( ph -> ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
271	268, 270	breqtrd 4031	. . . . . . 7 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
272	271	adantr 276	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
273	214, 206, 266, 212, 272	dvdstrd 11839	. . . . 5 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
274		breq1 4008	. . . . . . 7 |- ( b = p -> ( b || a <-> p || a ) )
275		eleq1w 2238	. . . . . . 7 |- ( b = p -> ( b e. S <-> p e. S ) )
276	274, 275	imbi12d 234	. . . . . 6 |- ( b = p -> ( ( b || a -> b e. S ) <-> ( p || a -> p e. S ) ) )
277		breq2 4009	. . . . . . 7 |- ( a = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( p || a <-> p || ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
278	277	imbi1d 231	. . . . . 6 |- ( a = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( ( p || a -> p e. S ) <-> ( p || ( ( E ^ 2 ) + ( F ^ 2 ) ) -> p e. S ) ) )
279	276, 278	rspc2v 2856	. . . . 5 |- ( ( p e. ( 1 ... ( M - 1 ) ) /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y ) -> ( A. b e. ( 1 ... ( M - 1 ) ) A. a e. Y ( b || a -> b e. S ) -> ( p || ( ( E ^ 2 ) + ( F ^ 2 ) ) -> p e. S ) ) )
280	264, 265, 273, 279	syl3c 63	. . . 4 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. S )
281	280	expr 375	. . 3 |- ( ( ph /\ p e. Prime ) -> ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p e. S ) )
282	281	ralrimiva 2550	. 2 |- ( ph -> A. p e. Prime ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p e. S ) )
283		inss1 3357	. . . . 5 |- ( S i^i NN ) C_ S
284	163, 283	sstri 3166	. . . 4 |- Y C_ S
285	284, 196	sselid 3155	. . 3 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. S )
286	270, 285	eqeltrd 2254	. 2 |- ( ph -> ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) e. S )
287	1, 5, 202, 282, 286	2sqlem6 14506	1 |- ( ph -> M e. S )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1353   e. wcel 2148   {cab 2163   =/= wne 2347   A.wral 2455   E.wrex 2456   i^i cin 3130   class class class wbr 4005   |-> cmpt 4066   ran crn 4629   ` cfv 5218  (class class class)co 5877   RRcr 7812   0cc0 7813   1c1 7814   + caddc 7816   x. cmul 7818   < clt 7994   <_ cle 7995   - cmin 8130   / cdiv 8631   NNcn 8921   2c2 8972   NN0cn0 9178   ZZcz 9255   ZZ>=cuz 9530   RR+crp 9655   ...cfz 10010   mod cmo 10324   ^cexp 10521   abscabs 11008   || cdvds 11796   gcd cgcd 11945   Primecprime 12109   ZZ[_i]cgz 12369

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4120  ax-sep 4123  ax-nul 4131  ax-pow 4176  ax-pr 4211  ax-un 4435  ax-setind 4538  ax-iinf 4589  ax-cnex 7904  ax-resscn 7905  ax-1cn 7906  ax-1re 7907  ax-icn 7908  ax-addcl 7909  ax-addrcl 7910  ax-mulcl 7911  ax-mulrcl 7912  ax-addcom 7913  ax-mulcom 7914  ax-addass 7915  ax-mulass 7916  ax-distr 7917  ax-i2m1 7918  ax-0lt1 7919  ax-1rid 7920  ax-0id 7921  ax-rnegex 7922  ax-precex 7923  ax-cnre 7924  ax-pre-ltirr 7925  ax-pre-ltwlin 7926  ax-pre-lttrn 7927  ax-pre-apti 7928  ax-pre-ltadd 7929  ax-pre-mulgt0 7930  ax-pre-mulext 7931  ax-arch 7932  ax-caucvg 7933

This theorem depends on definitions:  df-bi 117  df-stab 831  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2741  df-sbc 2965  df-csb 3060  df-dif 3133  df-un 3135  df-in 3137  df-ss 3144  df-nul 3425  df-if 3537  df-pw 3579  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-int 3847  df-iun 3890  df-br 4006  df-opab 4067  df-mpt 4068  df-tr 4104  df-id 4295  df-po 4298  df-iso 4299  df-iord 4368  df-on 4370  df-ilim 4371  df-suc 4373  df-iom 4592  df-xp 4634  df-rel 4635  df-cnv 4636  df-co 4637  df-dm 4638  df-rn 4639  df-res 4640  df-ima 4641  df-iota 5180  df-fun 5220  df-fn 5221  df-f 5222  df-f1 5223  df-fo 5224  df-f1o 5225  df-fv 5226  df-riota 5833  df-ov 5880  df-oprab 5881  df-mpo 5882  df-1st 6143  df-2nd 6144  df-recs 6308  df-frec 6394  df-1o 6419  df-2o 6420  df-er 6537  df-en 6743  df-sup 6985  df-pnf 7996  df-mnf 7997  df-xr 7998  df-ltxr 7999  df-le 8000  df-sub 8132  df-neg 8133  df-reap 8534  df-ap 8541  df-div 8632  df-inn 8922  df-2 8980  df-3 8981  df-4 8982  df-n0 9179  df-z 9256  df-uz 9531  df-q 9622  df-rp 9656  df-fz 10011  df-fzo 10145  df-fl 10272  df-mod 10325  df-seqfrec 10448  df-exp 10522  df-cj 10853  df-re 10854  df-im 10855  df-rsqrt 11009  df-abs 11010  df-dvds 11797  df-gcd 11946  df-prm 12110  df-gz 12370

This theorem is referenced by:  2sqlem9  14510