Theorem 2sqlem8 13559

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 9538	. . . 4 |- ( M e. ( ZZ>= ` 2 ) <-> ( M e. NN /\ M =/= 1 ) )
4	2, 3	sylib 121	. . 3 |- ( ph -> ( M e. NN /\ M =/= 1 ) )
5	4	simpld 111	. 2 |- ( ph -> M e. NN )
6		2sqlem9.7	. . . . . . 7 |- ( ph -> M || N )
7		eluzelz 9471	. . . . . . . . 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 9308	. . . . . . . 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 12308	. . . . . . . . . . 11 |- ( ph -> ( C e. ZZ /\ ( ( A - C ) / M ) e. ZZ ) )
14	13	simpld 111	. . . . . . . . . 10 |- ( ph -> C e. ZZ )
15		zsqcl 10521	. . . . . . . . . 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 12308	. . . . . . . . . . 11 |- ( ph -> ( D e. ZZ /\ ( ( B - D ) / M ) e. ZZ ) )
20	19	simpld 111	. . . . . . . . . 10 |- ( ph -> D e. ZZ )
21		zsqcl 10521	. . . . . . . . . 10 |- ( D e. ZZ -> ( D ^ 2 ) e. ZZ )
22	20, 21	syl 14	. . . . . . . . 9 |- ( ph -> ( D ^ 2 ) e. ZZ )
23	16, 22	zaddcld 9313	. . . . . . . 8 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) e. ZZ )
24		zsqcl 10521	. . . . . . . . . . . 12 |- ( A e. ZZ -> ( A ^ 2 ) e. ZZ )
25	11, 24	syl 14	. . . . . . . . . . 11 |- ( ph -> ( A ^ 2 ) e. ZZ )
26	25, 16	zsubcld 9314	. . . . . . . . . 10 |- ( ph -> ( ( A ^ 2 ) - ( C ^ 2 ) ) e. ZZ )
27		zsqcl 10521	. . . . . . . . . . . 12 |- ( B e. ZZ -> ( B ^ 2 ) e. ZZ )
28	17, 27	syl 14	. . . . . . . . . . 11 |- ( ph -> ( B ^ 2 ) e. ZZ )
29	28, 22	zsubcld 9314	. . . . . . . . . 10 |- ( ph -> ( ( B ^ 2 ) - ( D ^ 2 ) ) e. ZZ )
30	11, 5, 12	4sqlem8 12311	. . . . . . . . . 10 |- ( ph -> M || ( ( A ^ 2 ) - ( C ^ 2 ) ) )
31	17, 5, 18	4sqlem8 12311	. . . . . . . . . 10 |- ( ph -> M || ( ( B ^ 2 ) - ( D ^ 2 ) ) )
32	8, 26, 29, 30, 31	dvds2addd 11765	. . . . . . . . 9 |- ( ph -> M || ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
33		2sqlem8.4	. . . . . . . . . . 11 |- ( ph -> N = ( ( A ^ 2 ) + ( B ^ 2 ) ) )
34	33	oveq1d 5856	. . . . . . . . . 10 |- ( ph -> ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
35	25	zcnd 9310	. . . . . . . . . . 11 |- ( ph -> ( A ^ 2 ) e. CC )
36	28	zcnd 9310	. . . . . . . . . . 11 |- ( ph -> ( B ^ 2 ) e. CC )
37	16	zcnd 9310	. . . . . . . . . . 11 |- ( ph -> ( C ^ 2 ) e. CC )
38	22	zcnd 9310	. . . . . . . . . . 11 |- ( ph -> ( D ^ 2 ) e. CC )
39	35, 36, 37, 38	addsub4d 8252	. . . . . . . . . 10 |- ( ph -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
40	34, 39	eqtrd 2198	. . . . . . . . 9 |- ( ph -> ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) - ( C ^ 2 ) ) + ( ( B ^ 2 ) - ( D ^ 2 ) ) ) )
41	32, 40	breqtrrd 4009	. . . . . . . 8 |- ( ph -> M || ( N - ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
42		dvdssub2 11771	. . . . . . . 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 1231	. . . . . . 7 |- ( ph -> ( M || N <-> M || ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
44	6, 43	mpbid 146	. . . . . 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 13558	. . . . . . . . . . 11 |- ( ph -> ( C gcd D ) e. NN )
49	48	nnzd 9308	. . . . . . . . . 10 |- ( ph -> ( C gcd D ) e. ZZ )
50		zsqcl2 10528	. . . . . . . . . 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 9165	. . . . . . . 8 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. CC )
53		2sqlem8.e	. . . . . . . . . . 11 |- E = ( C / ( C gcd D ) )
54		gcddvds 11892	. . . . . . . . . . . . . 14 |- ( ( C e. ZZ /\ D e. ZZ ) -> ( ( C gcd D ) || C /\ ( C gcd D ) || D ) )
55	14, 20, 54	syl2anc 409	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) || C /\ ( C gcd D ) || D ) )
56	55	simpld 111	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) || C )
57	48	nnne0d 8898	. . . . . . . . . . . . 13 |- ( ph -> ( C gcd D ) =/= 0 )
58		dvdsval2 11726	. . . . . . . . . . . . 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 1228	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) || C <-> ( C / ( C gcd D ) ) e. ZZ ) )
60	56, 59	mpbid 146	. . . . . . . . . . 11 |- ( ph -> ( C / ( C gcd D ) ) e. ZZ )
61	53, 60	eqeltrid 2252	. . . . . . . . . 10 |- ( ph -> E e. ZZ )
62		zsqcl2 10528	. . . . . . . . . 10 |- ( E e. ZZ -> ( E ^ 2 ) e. NN0 )
63	61, 62	syl 14	. . . . . . . . 9 |- ( ph -> ( E ^ 2 ) e. NN0 )
64	63	nn0cnd 9165	. . . . . . . 8 |- ( ph -> ( E ^ 2 ) e. CC )
65		2sqlem8.f	. . . . . . . . . . 11 |- F = ( D / ( C gcd D ) )
66	55	simprd 113	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) || D )
67		dvdsval2 11726	. . . . . . . . . . . . 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 1228	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) || D <-> ( D / ( C gcd D ) ) e. ZZ ) )
69	66, 68	mpbid 146	. . . . . . . . . . 11 |- ( ph -> ( D / ( C gcd D ) ) e. ZZ )
70	65, 69	eqeltrid 2252	. . . . . . . . . 10 |- ( ph -> F e. ZZ )
71		zsqcl2 10528	. . . . . . . . . 10 |- ( F e. ZZ -> ( F ^ 2 ) e. NN0 )
72	70, 71	syl 14	. . . . . . . . 9 |- ( ph -> ( F ^ 2 ) e. NN0 )
73	72	nn0cnd 9165	. . . . . . . 8 |- ( ph -> ( F ^ 2 ) e. CC )
74	52, 64, 73	adddid 7919	. . . . . . 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 9310	. . . . . . . . . 10 |- ( ph -> ( C gcd D ) e. CC )
76	61	zcnd 9310	. . . . . . . . . 10 |- ( ph -> E e. CC )
77	75, 76	sqmuld 10596	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. E ) ^ 2 ) = ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) )
78	53	oveq2i 5852	. . . . . . . . . . 11 |- ( ( C gcd D ) x. E ) = ( ( C gcd D ) x. ( C / ( C gcd D ) ) )
79	14	zcnd 9310	. . . . . . . . . . . 12 |- ( ph -> C e. CC )
80	48	nnap0d 8899	. . . . . . . . . . . 12 |- ( ph -> ( C gcd D ) # 0 )
81	79, 75, 80	divcanap2d 8684	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) x. ( C / ( C gcd D ) ) ) = C )
82	78, 81	syl5eq 2210	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. E ) = C )
83	82	oveq1d 5856	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. E ) ^ 2 ) = ( C ^ 2 ) )
84	77, 83	eqtr3d 2200	. . . . . . . 8 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) = ( C ^ 2 ) )
85	70	zcnd 9310	. . . . . . . . . 10 |- ( ph -> F e. CC )
86	75, 85	sqmuld 10596	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. F ) ^ 2 ) = ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) )
87	65	oveq2i 5852	. . . . . . . . . . 11 |- ( ( C gcd D ) x. F ) = ( ( C gcd D ) x. ( D / ( C gcd D ) ) )
88	20	zcnd 9310	. . . . . . . . . . . 12 |- ( ph -> D e. CC )
89	88, 75, 80	divcanap2d 8684	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) x. ( D / ( C gcd D ) ) ) = D )
90	87, 89	syl5eq 2210	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. F ) = D )
91	90	oveq1d 5856	. . . . . . . . 9 |- ( ph -> ( ( ( C gcd D ) x. F ) ^ 2 ) = ( D ^ 2 ) )
92	86, 91	eqtr3d 2200	. . . . . . . 8 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) = ( D ^ 2 ) )
93	84, 92	oveq12d 5859	. . . . . . 7 |- ( ph -> ( ( ( ( C gcd D ) ^ 2 ) x. ( E ^ 2 ) ) + ( ( ( C gcd D ) ^ 2 ) x. ( F ^ 2 ) ) ) = ( ( C ^ 2 ) + ( D ^ 2 ) ) )
94	74, 93	eqtrd 2198	. . . . . 6 |- ( ph -> ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) = ( ( C ^ 2 ) + ( D ^ 2 ) ) )
95	44, 94	breqtrrd 4009	. . . . 5 |- ( ph -> M || ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
96		zsqcl 10521	. . . . . . . 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 11903	. . . . . 6 |- ( ph -> ( M gcd ( ( C gcd D ) ^ 2 ) ) = ( ( ( C gcd D ) ^ 2 ) gcd M ) )
99	49, 8	gcdcld 11897	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) gcd M ) e. NN0 )
100	99	nn0zd 9307	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) e. ZZ )
101		gcddvds 11892	. . . . . . . . . . . . . 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 409	. . . . . . . . . . . . 13 |- ( ph -> ( ( ( C gcd D ) gcd M ) || ( C gcd D ) /\ ( ( C gcd D ) gcd M ) || M ) )
103	102	simpld 111	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( C gcd D ) )
104	100, 49, 14, 103, 56	dvdstrd 11766	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) gcd M ) || C )
105	11, 14	zsubcld 9314	. . . . . . . . . . . . 13 |- ( ph -> ( A - C ) e. ZZ )
106	102	simprd 113	. . . . . . . . . . . . 13 |- ( ph -> ( ( C gcd D ) gcd M ) || M )
107	13	simprd 113	. . . . . . . . . . . . . 14 |- ( ph -> ( ( A - C ) / M ) e. ZZ )
108	5	nnne0d 8898	. . . . . . . . . . . . . . 15 |- ( ph -> M =/= 0 )
109		dvdsval2 11726	. . . . . . . . . . . . . . 15 |- ( ( M e. ZZ /\ M =/= 0 /\ ( A - C ) e. ZZ ) -> ( M || ( A - C ) <-> ( ( A - C ) / M ) e. ZZ ) )
110	8, 108, 105, 109	syl3anc 1228	. . . . . . . . . . . . . 14 |- ( ph -> ( M || ( A - C ) <-> ( ( A - C ) / M ) e. ZZ ) )
111	107, 110	mpbird 166	. . . . . . . . . . . . 13 |- ( ph -> M || ( A - C ) )
112	100, 8, 105, 106, 111	dvdstrd 11766	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( A - C ) )
113		dvdssub2 11771	. . . . . . . . . . . 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 1231	. . . . . . . . . . 11 |- ( ph -> ( ( ( C gcd D ) gcd M ) || A <-> ( ( C gcd D ) gcd M ) || C ) )
115	104, 114	mpbird 166	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) gcd M ) || A )
116	100, 49, 20, 103, 66	dvdstrd 11766	. . . . . . . . . . 11 |- ( ph -> ( ( C gcd D ) gcd M ) || D )
117	17, 20	zsubcld 9314	. . . . . . . . . . . . 13 |- ( ph -> ( B - D ) e. ZZ )
118	19	simprd 113	. . . . . . . . . . . . . 14 |- ( ph -> ( ( B - D ) / M ) e. ZZ )
119		dvdsval2 11726	. . . . . . . . . . . . . . 15 |- ( ( M e. ZZ /\ M =/= 0 /\ ( B - D ) e. ZZ ) -> ( M || ( B - D ) <-> ( ( B - D ) / M ) e. ZZ ) )
120	8, 108, 117, 119	syl3anc 1228	. . . . . . . . . . . . . 14 |- ( ph -> ( M || ( B - D ) <-> ( ( B - D ) / M ) e. ZZ ) )
121	118, 120	mpbird 166	. . . . . . . . . . . . 13 |- ( ph -> M || ( B - D ) )
122	100, 8, 117, 106, 121	dvdstrd 11766	. . . . . . . . . . . 12 |- ( ph -> ( ( C gcd D ) gcd M ) || ( B - D ) )
123		dvdssub2 11771	. . . . . . . . . . . 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 1231	. . . . . . . . . . 11 |- ( ph -> ( ( ( C gcd D ) gcd M ) || B <-> ( ( C gcd D ) gcd M ) || D ) )
125	116, 124	mpbird 166	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) gcd M ) || B )
126		1ne0 8921	. . . . . . . . . . . . . . 15 |- 1 =/= 0
127	126	a1i 9	. . . . . . . . . . . . . 14 |- ( ph -> 1 =/= 0 )
128	47, 127	eqnetrd 2359	. . . . . . . . . . . . 13 |- ( ph -> ( A gcd B ) =/= 0 )
129	128	neneqd 2356	. . . . . . . . . . . 12 |- ( ph -> -. ( A gcd B ) = 0 )
130		gcdeq0 11906	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ B e. ZZ ) -> ( ( A gcd B ) = 0 <-> ( A = 0 /\ B = 0 ) ) )
131	11, 17, 130	syl2anc 409	. . . . . . . . . . . 12 |- ( ph -> ( ( A gcd B ) = 0 <-> ( A = 0 /\ B = 0 ) ) )
132	129, 131	mtbid 662	. . . . . . . . . . 11 |- ( ph -> -. ( A = 0 /\ B = 0 ) )
133		dvdslegcd 11893	. . . . . . . . . . 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 1231	. . . . . . . . . 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 430	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) gcd M ) <_ ( A gcd B ) )
136	135, 47	breqtrd 4007	. . . . . . . 8 |- ( ph -> ( ( C gcd D ) gcd M ) <_ 1 )
137		simpr 109	. . . . . . . . . . . 12 |- ( ( ( C gcd D ) = 0 /\ M = 0 ) -> M = 0 )
138	137	necon3ai 2384	. . . . . . . . . . 11 |- ( M =/= 0 -> -. ( ( C gcd D ) = 0 /\ M = 0 ) )
139	108, 138	syl 14	. . . . . . . . . 10 |- ( ph -> -. ( ( C gcd D ) = 0 /\ M = 0 ) )
140		gcdn0cl 11891	. . . . . . . . . 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 1227	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) gcd M ) e. NN )
142		nnle1eq1 8877	. . . . . . . . 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 146	. . . . . . 7 |- ( ph -> ( ( C gcd D ) gcd M ) = 1 )
145		2nn 9014	. . . . . . . . 9 |- 2 e. NN
146	145	a1i 9	. . . . . . . 8 |- ( ph -> 2 e. NN )
147		rplpwr 11956	. . . . . . . 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 1228	. . . . . . 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 2198	. . . . 5 |- ( ph -> ( M gcd ( ( C gcd D ) ^ 2 ) ) = 1 )
151	63, 72	nn0addcld 9167	. . . . . . 7 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. NN0 )
152	151	nn0zd 9307	. . . . . 6 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ )
153		coprmdvds 12020	. . . . . 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 1228	. . . . 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 430	. . . 4 |- ( ph -> M || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
156		dvdsval2 11726	. . . . 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 1228	. . . 4 |- ( ph -> ( M || ( ( E ^ 2 ) + ( F ^ 2 ) ) <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ ) )
158	155, 157	mpbid 146	. . 3 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ )
159	63	nn0red 9164	. . . . 5 |- ( ph -> ( E ^ 2 ) e. RR )
160	72	nn0red 9164	. . . . 5 |- ( ph -> ( F ^ 2 ) e. RR )
161	159, 160	readdcld 7924	. . . 4 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. RR )
162	5	nnred 8866	. . . 4 |- ( ph -> M e. RR )
163	1, 45	2sqlem7 13557	. . . . . . 7 |- Y C_ ( S i^i NN )
164		inss2 3342	. . . . . . 7 |- ( S i^i NN ) C_ NN
165	163, 164	sstri 3150	. . . . . 6 |- Y C_ NN
166	61, 70	gcdcld 11897	. . . . . . . . . 10 |- ( ph -> ( E gcd F ) e. NN0 )
167	166	nn0cnd 9165	. . . . . . . . 9 |- ( ph -> ( E gcd F ) e. CC )
168		1cnd 7911	. . . . . . . . 9 |- ( ph -> 1 e. CC )
169	75	mulid1d 7912	. . . . . . . . . 10 |- ( ph -> ( ( C gcd D ) x. 1 ) = ( C gcd D ) )
170	82, 90	oveq12d 5859	. . . . . . . . . 10 |- ( ph -> ( ( ( C gcd D ) x. E ) gcd ( ( C gcd D ) x. F ) ) = ( C gcd D ) )
171	14, 20	gcdcld 11897	. . . . . . . . . . 11 |- ( ph -> ( C gcd D ) e. NN0 )
172		mulgcd 11945	. . . . . . . . . . 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 1228	. . . . . . . . . 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 2205	. . . . . . . . 9 |- ( ph -> ( ( C gcd D ) x. ( E gcd F ) ) = ( ( C gcd D ) x. 1 ) )
175	167, 168, 75, 80, 174	mulcanapad 8556	. . . . . . . 8 |- ( ph -> ( E gcd F ) = 1 )
176		eqidd 2166	. . . . . . . 8 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
177		oveq1 5848	. . . . . . . . . . 11 |- ( x = E -> ( x gcd y ) = ( E gcd y ) )
178	177	eqeq1d 2174	. . . . . . . . . 10 |- ( x = E -> ( ( x gcd y ) = 1 <-> ( E gcd y ) = 1 ) )
179		oveq1 5848	. . . . . . . . . . . 12 |- ( x = E -> ( x ^ 2 ) = ( E ^ 2 ) )
180	179	oveq1d 5856	. . . . . . . . . . 11 |- ( x = E -> ( ( x ^ 2 ) + ( y ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) )
181	180	eqeq2d 2177	. . . . . . . . . 10 |- ( x = E -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) ) )
182	178, 181	anbi12d 465	. . . . . . . . 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 5849	. . . . . . . . . . 11 |- ( y = F -> ( E gcd y ) = ( E gcd F ) )
184	183	eqeq1d 2174	. . . . . . . . . 10 |- ( y = F -> ( ( E gcd y ) = 1 <-> ( E gcd F ) = 1 ) )
185		oveq1 5848	. . . . . . . . . . . 12 |- ( y = F -> ( y ^ 2 ) = ( F ^ 2 ) )
186	185	oveq2d 5857	. . . . . . . . . . 11 |- ( y = F -> ( ( E ^ 2 ) + ( y ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
187	186	eqeq2d 2177	. . . . . . . . . 10 |- ( y = F -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
188	184, 187	anbi12d 465	. . . . . . . . 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 2844	. . . . . . . 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 1232	. . . . . . 7 |- ( ph -> E. x e. ZZ E. y e. ZZ ( ( x gcd y ) = 1 /\ ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) )
191		eqeq1 2172	. . . . . . . . . . 11 |- ( z = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( z = ( ( x ^ 2 ) + ( y ^ 2 ) ) <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) = ( ( x ^ 2 ) + ( y ^ 2 ) ) ) )
192	191	anbi2d 460	. . . . . . . . . 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 2490	. . . . . . . . 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 2872	. . . . . . . 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 166	. . . . . 6 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y )
197	165, 196	sselid 3139	. . . . 5 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. NN )
198	197	nngt0d 8897	. . . 4 |- ( ph -> 0 < ( ( E ^ 2 ) + ( F ^ 2 ) ) )
199	5	nngt0d 8897	. . . 4 |- ( ph -> 0 < M )
200	161, 162, 198, 199	divgt0d 8826	. . 3 |- ( ph -> 0 < ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) )
201		elnnz 9197	. . 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 414	. 2 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN )
203		prmnn 12038	. . . . . . . 8 |- ( p e. Prime -> p e. NN )
204	203	ad2antrl 482	. . . . . . 7 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. NN )
205	204	nnred 8866	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. RR )
206	158	adantr 274	. . . . . . . . 9 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. ZZ )
207	206	zred 9309	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. RR )
208		peano2zm 9225	. . . . . . . . . . 11 |- ( M e. ZZ -> ( M - 1 ) e. ZZ )
209	8, 208	syl 14	. . . . . . . . . 10 |- ( ph -> ( M - 1 ) e. ZZ )
210	209	zred 9309	. . . . . . . . 9 |- ( ph -> ( M - 1 ) e. RR )
211	210	adantr 274	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( M - 1 ) e. RR )
212		simprr 522	. . . . . . . . 9 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) )
213		prmz 12039	. . . . . . . . . . 11 |- ( p e. Prime -> p e. ZZ )
214	213	ad2antrl 482	. . . . . . . . . 10 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. ZZ )
215	202	adantr 274	. . . . . . . . . 10 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) e. NN )
216		dvdsle 11778	. . . . . . . . . 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 409	. . . . . . . . 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 10521	. . . . . . . . . . . . . . . 16 |- ( M e. ZZ -> ( M ^ 2 ) e. ZZ )
220	8, 219	syl 14	. . . . . . . . . . . . . . 15 |- ( ph -> ( M ^ 2 ) e. ZZ )
221	220	zred 9309	. . . . . . . . . . . . . 14 |- ( ph -> ( M ^ 2 ) e. RR )
222	221	rehalfcld 9099	. . . . . . . . . . . . 13 |- ( ph -> ( ( M ^ 2 ) / 2 ) e. RR )
223	16	zred 9309	. . . . . . . . . . . . . . 15 |- ( ph -> ( C ^ 2 ) e. RR )
224	22	zred 9309	. . . . . . . . . . . . . . 15 |- ( ph -> ( D ^ 2 ) e. RR )
225	223, 224	readdcld 7924	. . . . . . . . . . . . . 14 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) e. RR )
226		1red 7910	. . . . . . . . . . . . . . . 16 |- ( ph -> 1 e. RR )
227	48	nnsqcld 10605	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. NN )
228	227	nnred 8866	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( C gcd D ) ^ 2 ) e. RR )
229	151	nn0ge0d 9166	. . . . . . . . . . . . . . . 16 |- ( ph -> 0 <_ ( ( E ^ 2 ) + ( F ^ 2 ) ) )
230	227	nnge1d 8896	. . . . . . . . . . . . . . . 16 |- ( ph -> 1 <_ ( ( C gcd D ) ^ 2 ) )
231	226, 228, 161, 229, 230	lemul1ad 8830	. . . . . . . . . . . . . . 15 |- ( ph -> ( 1 x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) <_ ( ( ( C gcd D ) ^ 2 ) x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
232	151	nn0cnd 9165	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. CC )
233	232	mulid2d 7913	. . . . . . . . . . . . . . 15 |- ( ph -> ( 1 x. ( ( E ^ 2 ) + ( F ^ 2 ) ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
234	231, 233, 94	3brtr3d 4012	. . . . . . . . . . . . . 14 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) <_ ( ( C ^ 2 ) + ( D ^ 2 ) ) )
235	222	rehalfcld 9099	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( ( M ^ 2 ) / 2 ) / 2 ) e. RR )
236	11, 5, 12	4sqlem7 12310	. . . . . . . . . . . . . . . 16 |- ( ph -> ( C ^ 2 ) <_ ( ( ( M ^ 2 ) / 2 ) / 2 ) )
237	17, 5, 18	4sqlem7 12310	. . . . . . . . . . . . . . . 16 |- ( ph -> ( D ^ 2 ) <_ ( ( ( M ^ 2 ) / 2 ) / 2 ) )
238	223, 224, 235, 235, 236, 237	le2addd 8457	. . . . . . . . . . . . . . 15 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) <_ ( ( ( ( M ^ 2 ) / 2 ) / 2 ) + ( ( ( M ^ 2 ) / 2 ) / 2 ) ) )
239	222	recnd 7923	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( M ^ 2 ) / 2 ) e. CC )
240	239	2halvesd 9098	. . . . . . . . . . . . . . 15 |- ( ph -> ( ( ( ( M ^ 2 ) / 2 ) / 2 ) + ( ( ( M ^ 2 ) / 2 ) / 2 ) ) = ( ( M ^ 2 ) / 2 ) )
241	238, 240	breqtrd 4007	. . . . . . . . . . . . . 14 |- ( ph -> ( ( C ^ 2 ) + ( D ^ 2 ) ) <_ ( ( M ^ 2 ) / 2 ) )
242	161, 225, 222, 234, 241	letrd 8018	. . . . . . . . . . . . 13 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) <_ ( ( M ^ 2 ) / 2 ) )
243	5	nnsqcld 10605	. . . . . . . . . . . . . . 15 |- ( ph -> ( M ^ 2 ) e. NN )
244	243	nnrpd 9626	. . . . . . . . . . . . . 14 |- ( ph -> ( M ^ 2 ) e. RR+ )
245		rphalflt 9615	. . . . . . . . . . . . . 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 8019	. . . . . . . . . . . 12 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M ^ 2 ) )
248	8	zcnd 9310	. . . . . . . . . . . . 13 |- ( ph -> M e. CC )
249	248	sqvald 10581	. . . . . . . . . . . 12 |- ( ph -> ( M ^ 2 ) = ( M x. M ) )
250	247, 249	breqtrd 4007	. . . . . . . . . . 11 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M x. M ) )
251		ltdivmul 8767	. . . . . . . . . . . 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 1232	. . . . . . . . . . 11 |- ( ph -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( E ^ 2 ) + ( F ^ 2 ) ) < ( M x. M ) ) )
253	250, 252	mpbird 166	. . . . . . . . . 10 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M )
254		zltlem1 9244	. . . . . . . . . . 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 409	. . . . . . . . . 10 |- ( ph -> ( ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) < M <-> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) ) )
256	253, 255	mpbid 146	. . . . . . . . 9 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) <_ ( M - 1 ) )
257	256	adantr 274	. . . . . . . 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 8018	. . . . . . 7 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p <_ ( M - 1 ) )
259	209	adantr 274	. . . . . . . 8 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( M - 1 ) e. ZZ )
260		fznn 10020	. . . . . . . 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 934	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p e. ( 1 ... ( M - 1 ) ) )
263	196	adantr 274	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. Y )
264	262, 263	jca 304	. . . . 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 274	. . . . 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 274	. . . . . 6 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. ZZ )
267		dvdsmul2 11750	. . . . . . . . 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 409	. . . . . . . 8 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) )
269	5	nnap0d 8899	. . . . . . . . 9 |- ( ph -> M # 0 )
270	232, 248, 269	divcanap2d 8684	. . . . . . . 8 |- ( ph -> ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) = ( ( E ^ 2 ) + ( F ^ 2 ) ) )
271	268, 270	breqtrd 4007	. . . . . . 7 |- ( ph -> ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
272	271	adantr 274	. . . . . 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 11766	. . . . 5 |- ( ( ph /\ ( p e. Prime /\ p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) ) -> p || ( ( E ^ 2 ) + ( F ^ 2 ) ) )
274		breq1 3984	. . . . . . 7 |- ( b = p -> ( b || a <-> p || a ) )
275		eleq1w 2226	. . . . . . 7 |- ( b = p -> ( b e. S <-> p e. S ) )
276	274, 275	imbi12d 233	. . . . . 6 |- ( b = p -> ( ( b || a -> b e. S ) <-> ( p || a -> p e. S ) ) )
277		breq2 3985	. . . . . . 7 |- ( a = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( p || a <-> p || ( ( E ^ 2 ) + ( F ^ 2 ) ) ) )
278	277	imbi1d 230	. . . . . 6 |- ( a = ( ( E ^ 2 ) + ( F ^ 2 ) ) -> ( ( p || a -> p e. S ) <-> ( p || ( ( E ^ 2 ) + ( F ^ 2 ) ) -> p e. S ) ) )
279	276, 278	rspc2v 2842	. . . . 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 373	. . 3 |- ( ( ph /\ p e. Prime ) -> ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p e. S ) )
282	281	ralrimiva 2538	. 2 |- ( ph -> A. p e. Prime ( p || ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) -> p e. S ) )
283		inss1 3341	. . . . 5 |- ( S i^i NN ) C_ S
284	163, 283	sstri 3150	. . . 4 |- Y C_ S
285	284, 196	sselid 3139	. . 3 |- ( ph -> ( ( E ^ 2 ) + ( F ^ 2 ) ) e. S )
286	270, 285	eqeltrd 2242	. 2 |- ( ph -> ( M x. ( ( ( E ^ 2 ) + ( F ^ 2 ) ) / M ) ) e. S )
287	1, 5, 202, 282, 286	2sqlem6 13556	1 |- ( ph -> M e. S )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 103   <-> wb 104   = wceq 1343   e. wcel 2136   {cab 2151   =/= wne 2335   A.wral 2443   E.wrex 2444   i^i cin 3114   class class class wbr 3981   |-> cmpt 4042   ran crn 4604   ` cfv 5187  (class class class)co 5841   RRcr 7748   0cc0 7749   1c1 7750   + caddc 7752   x. cmul 7754   < clt 7929   <_ cle 7930   - cmin 8065   / cdiv 8564   NNcn 8853   2c2 8904   NN0cn0 9110   ZZcz 9187   ZZ>=cuz 9462   RR+crp 9585   ...cfz 9940   mod cmo 10253   ^cexp 10450   abscabs 10935   || cdvds 11723   gcd cgcd 11871   Primecprime 12035   ZZ[_i]cgz 12295

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4096  ax-sep 4099  ax-nul 4107  ax-pow 4152  ax-pr 4186  ax-un 4410  ax-setind 4513  ax-iinf 4564  ax-cnex 7840  ax-resscn 7841  ax-1cn 7842  ax-1re 7843  ax-icn 7844  ax-addcl 7845  ax-addrcl 7846  ax-mulcl 7847  ax-mulrcl 7848  ax-addcom 7849  ax-mulcom 7850  ax-addass 7851  ax-mulass 7852  ax-distr 7853  ax-i2m1 7854  ax-0lt1 7855  ax-1rid 7856  ax-0id 7857  ax-rnegex 7858  ax-precex 7859  ax-cnre 7860  ax-pre-ltirr 7861  ax-pre-ltwlin 7862  ax-pre-lttrn 7863  ax-pre-apti 7864  ax-pre-ltadd 7865  ax-pre-mulgt0 7866  ax-pre-mulext 7867  ax-arch 7868  ax-caucvg 7869

This theorem depends on definitions:  df-bi 116  df-stab 821  df-dc 825  df-3or 969  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2296  df-ne 2336  df-nel 2431  df-ral 2448  df-rex 2449  df-reu 2450  df-rmo 2451  df-rab 2452  df-v 2727  df-sbc 2951  df-csb 3045  df-dif 3117  df-un 3119  df-in 3121  df-ss 3128  df-nul 3409  df-if 3520  df-pw 3560  df-sn 3581  df-pr 3582  df-op 3584  df-uni 3789  df-int 3824  df-iun 3867  df-br 3982  df-opab 4043  df-mpt 4044  df-tr 4080  df-id 4270  df-po 4273  df-iso 4274  df-iord 4343  df-on 4345  df-ilim 4346  df-suc 4348  df-iom 4567  df-xp 4609  df-rel 4610  df-cnv 4611  df-co 4612  df-dm 4613  df-rn 4614  df-res 4615  df-ima 4616  df-iota 5152  df-fun 5189  df-fn 5190  df-f 5191  df-f1 5192  df-fo 5193  df-f1o 5194  df-fv 5195  df-riota 5797  df-ov 5844  df-oprab 5845  df-mpo 5846  df-1st 6105  df-2nd 6106  df-recs 6269  df-frec 6355  df-1o 6380  df-2o 6381  df-er 6497  df-en 6703  df-sup 6945  df-pnf 7931  df-mnf 7932  df-xr 7933  df-ltxr 7934  df-le 7935  df-sub 8067  df-neg 8068  df-reap 8469  df-ap 8476  df-div 8565  df-inn 8854  df-2 8912  df-3 8913  df-4 8914  df-n0 9111  df-z 9188  df-uz 9463  df-q 9554  df-rp 9586  df-fz 9941  df-fzo 10074  df-fl 10201  df-mod 10254  df-seqfrec 10377  df-exp 10451  df-cj 10780  df-re 10781  df-im 10782  df-rsqrt 10936  df-abs 10937  df-dvds 11724  df-gcd 11872  df-prm 12036  df-gz 12296

This theorem is referenced by:  2sqlem9  13560