Theorem lgseisenlem3 16313

Description: Lemma for lgseisen 16315. (Contributed by Mario Carneiro, 17-Jun-2015.) (Proof shortened by AV, 28-Jul-2019.)

Hypotheses

Ref	Expression
lgseisen.1	|- ( ph -> P e. ( Prime \ { 2 } ) )
lgseisen.2	|- ( ph -> Q e. ( Prime \ { 2 } ) )
lgseisen.3	|- ( ph -> P =/= Q )
lgseisen.4	|- R = ( ( Q x. ( 2 x. x ) ) mod P )
lgseisen.5	|- M = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) )
lgseisen.6	|- S = ( ( Q x. ( 2 x. y ) ) mod P )
lgseisen.7	|- Y = (ℤ/nℤ ` P )
lgseisen.8	|- G = (mulGrp ` Y )
lgseisen.9	|- L = ( ZRHom ` Y )

Assertion

Ref	Expression
lgseisenlem3	|- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) = ( 1r ` Y ) )

Distinct variable groups:   x, G   x, L   x, y, P   ph, x, y   y, M   x, Q, y   x, Y   x, S

Allowed substitution hints:   R( x, y)   S( y)   G( y)   L( y)   M( x)   Y( y)

Proof of Theorem lgseisenlem3

Dummy variable k is distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 6093	. . . . . . . . 9 |- ( k = x -> ( 2 x. k ) = ( 2 x. x ) )
2	1	fveq2d 5699	. . . . . . . 8 |- ( k = x -> ( L ` ( 2 x. k ) ) = ( L ` ( 2 x. x ) ) )
3	2	cbvmptv 4227	. . . . . . 7 |- ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) )
4	3	oveq2i 6096	. . . . . 6 |- ( G gsumg ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) ) = ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) )
5		eqid 2238	. . . . . . 7 |- ( Base ` G ) = ( Base ` G )
6		eqid 2238	. . . . . . 7 |- ( 0g ` G ) = ( 0g ` G )
7		lgseisen.1	. . . . . . . . . . 11 |- ( ph -> P e. ( Prime \ { 2 } ) )
8	7	eldifad 3231	. . . . . . . . . 10 |- ( ph -> P e. Prime )
9		lgseisen.7	. . . . . . . . . . 11 |- Y = (ℤ/nℤ ` P )
10	9	znidom 15043	. . . . . . . . . 10 |- ( P e. Prime -> Y e. IDomn )
11	8, 10	syl 14	. . . . . . . . 9 |- ( ph -> Y e. IDomn )
12	11	idomcringd 14638	. . . . . . . 8 |- ( ph -> Y e. CRing )
13		lgseisen.8	. . . . . . . . 9 |- G = (mulGrp ` Y )
14	13	crngmgp 14359	. . . . . . . 8 |- ( Y e. CRing -> G e. CMnd )
15	12, 14	syl 14	. . . . . . 7 |- ( ph -> G e. CMnd )
16		1zzd 9676	. . . . . . . 8 |- ( ph -> 1 e. ZZ )
17		oddn2prm 13062	. . . . . . . . . 10 |- ( P e. ( Prime \ { 2 } ) -> -. 2 || P )
18	7, 17	syl 14	. . . . . . . . 9 |- ( ph -> -. 2 || P )
19		prmz 12907	. . . . . . . . . 10 |- ( P e. Prime -> P e. ZZ )
20		oddm1d2 12677	. . . . . . . . . 10 |- ( P e. ZZ -> ( -. 2 || P <-> ( ( P - 1 ) / 2 ) e. ZZ ) )
21	8, 19, 20	3syl 17	. . . . . . . . 9 |- ( ph -> ( -. 2 || P <-> ( ( P - 1 ) / 2 ) e. ZZ ) )
22	18, 21	mpbid 147	. . . . . . . 8 |- ( ph -> ( ( P - 1 ) / 2 ) e. ZZ )
23	16, 22	fzfigd 10882	. . . . . . 7 |- ( ph -> ( 1 ... ( ( P - 1 ) / 2 ) ) e. Fin )
24	11	idomringd 14639	. . . . . . . . . . 11 |- ( ph -> Y e. Ring )
25		lgseisen.9	. . . . . . . . . . . 12 |- L = ( ZRHom ` Y )
26	25	zrhrhm 15009	. . . . . . . . . . 11 |- ( Y e. Ring -> L e. (ℤring RingHom Y ) )
27		zringbas 14982	. . . . . . . . . . . 12 |- ZZ = ( Base ` ℤring )
28		eqid 2238	. . . . . . . . . . . 12 |- ( Base ` Y ) = ( Base ` Y )
29	27, 28	rhmf 14521	. . . . . . . . . . 11 |- ( L e. (ℤring RingHom Y ) -> L : ZZ --> ( Base ` Y ) )
30	24, 26, 29	3syl 17	. . . . . . . . . 10 |- ( ph -> L : ZZ --> ( Base ` Y ) )
31		2z 9677	. . . . . . . . . . 11 |- 2 e. ZZ
32		elfzelz 10439	. . . . . . . . . . 11 |- ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) -> k e. ZZ )
33		zmulcl 9703	. . . . . . . . . . 11 |- ( ( 2 e. ZZ /\ k e. ZZ ) -> ( 2 x. k ) e. ZZ )
34	31, 32, 33	sylancr 418	. . . . . . . . . 10 |- ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) -> ( 2 x. k ) e. ZZ )
35		ffvelcdm 5841	. . . . . . . . . 10 |- ( ( L : ZZ --> ( Base ` Y ) /\ ( 2 x. k ) e. ZZ ) -> ( L ` ( 2 x. k ) ) e. ( Base ` Y ) )
36	30, 34, 35	syl2an 289	. . . . . . . . 9 |- ( ( ph /\ k e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. k ) ) e. ( Base ` Y ) )
37	36	fmpttd 5863	. . . . . . . 8 |- ( ph -> ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` Y ) )
38	13, 28	mgpbasg 14275	. . . . . . . . . 10 |- ( Y e. CRing -> ( Base ` Y ) = ( Base ` G ) )
39	12, 38	syl 14	. . . . . . . . 9 |- ( ph -> ( Base ` Y ) = ( Base ` G ) )
40	39	feq3d 5522	. . . . . . . 8 |- ( ph -> ( ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` Y ) <-> ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` G ) ) )
41	37, 40	mpbid 147	. . . . . . 7 |- ( ph -> ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` G ) )
42		lgseisen.2	. . . . . . . 8 |- ( ph -> Q e. ( Prime \ { 2 } ) )
43		lgseisen.3	. . . . . . . 8 |- ( ph -> P =/= Q )
44		lgseisen.4	. . . . . . . 8 |- R = ( ( Q x. ( 2 x. x ) ) mod P )
45		lgseisen.5	. . . . . . . 8 |- M = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) )
46		lgseisen.6	. . . . . . . 8 |- S = ( ( Q x. ( 2 x. y ) ) mod P )
47	7, 42, 43, 44, 45, 46	lgseisenlem2 16312	. . . . . . 7 |- ( ph -> M : ( 1 ... ( ( P - 1 ) / 2 ) ) -1-1-onto-> ( 1 ... ( ( P - 1 ) / 2 ) ) )
48	5, 6, 15, 23, 41, 47	gsumf1ofi 14211	. . . . . 6 |- ( ph -> ( G gsumg ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) ) = ( G gsumg ( ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) o. M ) ) )
49	4, 48	eqtr3id 2285	. . . . 5 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) = ( G gsumg ( ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) o. M ) ) )
50	7, 42, 43, 44, 45	lgseisenlem1 16311	. . . . . . . 8 |- ( ph -> M : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( 1 ... ( ( P - 1 ) / 2 ) ) )
51	45	fmpt 5858	. . . . . . . 8 |- ( A. x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) e. ( 1 ... ( ( P - 1 ) / 2 ) ) <-> M : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( 1 ... ( ( P - 1 ) / 2 ) ) )
52	50, 51	sylibr 134	. . . . . . 7 |- ( ph -> A. x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) e. ( 1 ... ( ( P - 1 ) / 2 ) ) )
53	45	a1i 9	. . . . . . 7 |- ( ph -> M = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) )
54		eqidd 2239	. . . . . . 7 |- ( ph -> ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) = ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) )
55		oveq2 6093	. . . . . . . 8 |- ( k = ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) -> ( 2 x. k ) = ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) )
56	55	fveq2d 5699	. . . . . . 7 |- ( k = ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) -> ( L ` ( 2 x. k ) ) = ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) )
57	52, 53, 54, 56	fmptcof 5875	. . . . . 6 |- ( ph -> ( ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) o. M ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) ) )
58	57	oveq2d 6101	. . . . 5 |- ( ph -> ( G gsumg ( ( k e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. k ) ) ) o. M ) ) = ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) ) ) )
59	42	eldifad 3231	. . . . . . . . . . . . . . . . . . . . 21 |- ( ph -> Q e. Prime )
60	59	adantr 276	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> Q e. Prime )
61		prmz 12907	. . . . . . . . . . . . . . . . . . . 20 |- ( Q e. Prime -> Q e. ZZ )
62	60, 61	syl 14	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> Q e. ZZ )
63		2nn 9471	. . . . . . . . . . . . . . . . . . . . 21 |- 2 e. NN
64		elfznn 10471	. . . . . . . . . . . . . . . . . . . . . 22 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) -> x e. NN )
65	64	adantl 277	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> x e. NN )
66		nnmulcl 9328	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( 2 e. NN /\ x e. NN ) -> ( 2 x. x ) e. NN )
67	63, 65, 66	sylancr 418	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. NN )
68	67	nnzd 9772	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. ZZ )
69	62, 68	zmulcld 9779	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( Q x. ( 2 x. x ) ) e. ZZ )
70	8	adantr 276	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. Prime )
71		prmnn 12906	. . . . . . . . . . . . . . . . . . 19 |- ( P e. Prime -> P e. NN )
72	70, 71	syl 14	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. NN )
73	69, 72	zmodcld 10796	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( Q x. ( 2 x. x ) ) mod P ) e. NN0 )
74	44, 73	eqeltrid 2325	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> R e. NN0 )
75	74	nn0zd 9771	. . . . . . . . . . . . . . 15 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> R e. ZZ )
76		m1expcl 11013	. . . . . . . . . . . . . . 15 |- ( R e. ZZ -> ( -u 1 ^ R ) e. ZZ )
77	75, 76	syl 14	. . . . . . . . . . . . . 14 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( -u 1 ^ R ) e. ZZ )
78	77, 75	zmulcld 9779	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( -u 1 ^ R ) x. R ) e. ZZ )
79	78, 72	zmodcld 10796	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. R ) mod P ) e. NN0 )
80	79	nn0cnd 9627	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. R ) mod P ) e. CC )
81		2cnd 9380	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 2 e. CC )
82		2ap0 9400	. . . . . . . . . . . 12 |- 2 # 0
83	82	a1i 9	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 2 # 0 )
84	80, 81, 83	divcanap2d 9125	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) = ( ( ( -u 1 ^ R ) x. R ) mod P ) )
85	84	fveq2d 5699	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) = ( L ` ( ( ( -u 1 ^ R ) x. R ) mod P ) ) )
86		zq 10036	. . . . . . . . . . . . . . 15 |- ( P e. ZZ -> P e. QQ )
87	8, 19, 86	3syl 17	. . . . . . . . . . . . . 14 |- ( ph -> P e. QQ )
88	87	adantr 276	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. QQ )
89	72	nngt0d 9351	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 0 < P )
90		eqidd 2239	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( -u 1 ^ R ) mod P ) = ( ( -u 1 ^ R ) mod P ) )
91	44	oveq1i 6095	. . . . . . . . . . . . . 14 |- ( R mod P ) = ( ( ( Q x. ( 2 x. x ) ) mod P ) mod P )
92		zq 10036	. . . . . . . . . . . . . . . 16 |- ( ( Q x. ( 2 x. x ) ) e. ZZ -> ( Q x. ( 2 x. x ) ) e. QQ )
93	69, 92	syl 14	. . . . . . . . . . . . . . 15 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( Q x. ( 2 x. x ) ) e. QQ )
94		modqabs2 10809	. . . . . . . . . . . . . . 15 |- ( ( ( Q x. ( 2 x. x ) ) e. QQ /\ P e. QQ /\ 0 < P ) -> ( ( ( Q x. ( 2 x. x ) ) mod P ) mod P ) = ( ( Q x. ( 2 x. x ) ) mod P ) )
95	93, 88, 89, 94	syl3anc 1278	. . . . . . . . . . . . . 14 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( Q x. ( 2 x. x ) ) mod P ) mod P ) = ( ( Q x. ( 2 x. x ) ) mod P ) )
96	91, 95	eqtrid 2283	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( R mod P ) = ( ( Q x. ( 2 x. x ) ) mod P ) )
97	77, 77, 75, 69, 88, 89, 90, 96	modqmul12d 10829	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. R ) mod P ) = ( ( ( -u 1 ^ R ) x. ( Q x. ( 2 x. x ) ) ) mod P ) )
98		zq 10036	. . . . . . . . . . . . . 14 |- ( ( ( -u 1 ^ R ) x. R ) e. ZZ -> ( ( -u 1 ^ R ) x. R ) e. QQ )
99	78, 98	syl 14	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( -u 1 ^ R ) x. R ) e. QQ )
100		modqabs2 10809	. . . . . . . . . . . . 13 |- ( ( ( ( -u 1 ^ R ) x. R ) e. QQ /\ P e. QQ /\ 0 < P ) -> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) mod P ) = ( ( ( -u 1 ^ R ) x. R ) mod P ) )
101	99, 88, 89, 100	syl3anc 1278	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) mod P ) = ( ( ( -u 1 ^ R ) x. R ) mod P ) )
102	77	zcnd 9774	. . . . . . . . . . . . . 14 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( -u 1 ^ R ) e. CC )
103	62	zcnd 9774	. . . . . . . . . . . . . 14 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> Q e. CC )
104	68	zcnd 9774	. . . . . . . . . . . . . 14 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. CC )
105	102, 103, 104	mulassd 8350	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) = ( ( -u 1 ^ R ) x. ( Q x. ( 2 x. x ) ) ) )
106	105	oveq1d 6100	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) mod P ) = ( ( ( -u 1 ^ R ) x. ( Q x. ( 2 x. x ) ) ) mod P ) )
107	97, 101, 106	3eqtr4d 2281	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( ( -u 1 ^ R ) x. R ) mod P ) mod P ) = ( ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) mod P ) )
108	8, 71	syl 14	. . . . . . . . . . . . 13 |- ( ph -> P e. NN )
109	108	adantr 276	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. NN )
110	79	nn0zd 9771	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. R ) mod P ) e. ZZ )
111	77, 62	zmulcld 9779	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( -u 1 ^ R ) x. Q ) e. ZZ )
112	111, 68	zmulcld 9779	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) e. ZZ )
113		moddvds 12584	. . . . . . . . . . . 12 |- ( ( P e. NN /\ ( ( ( -u 1 ^ R ) x. R ) mod P ) e. ZZ /\ ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) e. ZZ ) -> ( ( ( ( ( -u 1 ^ R ) x. R ) mod P ) mod P ) = ( ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) mod P ) <-> P || ( ( ( ( -u 1 ^ R ) x. R ) mod P ) - ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) ) )
114	109, 110, 112, 113	syl3anc 1278	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( ( ( ( -u 1 ^ R ) x. R ) mod P ) mod P ) = ( ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) mod P ) <-> P || ( ( ( ( -u 1 ^ R ) x. R ) mod P ) - ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) ) )
115	107, 114	mpbid 147	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P || ( ( ( ( -u 1 ^ R ) x. R ) mod P ) - ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) )
116	72	nnnn0d 9625	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. NN0 )
117	9, 25	zndvds 15035	. . . . . . . . . . 11 |- ( ( P e. NN0 /\ ( ( ( -u 1 ^ R ) x. R ) mod P ) e. ZZ /\ ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) e. ZZ ) -> ( ( L ` ( ( ( -u 1 ^ R ) x. R ) mod P ) ) = ( L ` ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) <-> P || ( ( ( ( -u 1 ^ R ) x. R ) mod P ) - ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) ) )
118	116, 110, 112, 117	syl3anc 1278	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( L ` ( ( ( -u 1 ^ R ) x. R ) mod P ) ) = ( L ` ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) <-> P || ( ( ( ( -u 1 ^ R ) x. R ) mod P ) - ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) ) )
119	115, 118	mpbird 167	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( ( ( -u 1 ^ R ) x. R ) mod P ) ) = ( L ` ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) )
120	24, 26	syl 14	. . . . . . . . . . 11 |- ( ph -> L e. (ℤring RingHom Y ) )
121	120	adantr 276	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> L e. (ℤring RingHom Y ) )
122		zringmulr 14985	. . . . . . . . . . 11 |- x. = ( .r ` ℤring )
123		eqid 2238	. . . . . . . . . . 11 |- ( .r ` Y ) = ( .r ` Y )
124	27, 122, 123	rhmmul 14522	. . . . . . . . . 10 |- ( ( L e. (ℤring RingHom Y ) /\ ( ( -u 1 ^ R ) x. Q ) e. ZZ /\ ( 2 x. x ) e. ZZ ) -> ( L ` ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) = ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) ( .r ` Y ) ( L ` ( 2 x. x ) ) ) )
125	121, 111, 68, 124	syl3anc 1278	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( ( ( -u 1 ^ R ) x. Q ) x. ( 2 x. x ) ) ) = ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) ( .r ` Y ) ( L ` ( 2 x. x ) ) ) )
126	85, 119, 125	3eqtrd 2275	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) = ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) ( .r ` Y ) ( L ` ( 2 x. x ) ) ) )
127	126	mpteq2dva 4221	. . . . . . 7 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) ( .r ` Y ) ( L ` ( 2 x. x ) ) ) ) )
128	30	adantr 276	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> L : ZZ --> ( Base ` Y ) )
129	128, 111	ffvelcdmd 5844	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` Y ) )
130	128, 68	ffvelcdmd 5844	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. x ) ) e. ( Base ` Y ) )
131		eqidd 2239	. . . . . . . 8 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) )
132		eqidd 2239	. . . . . . . 8 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) )
133	23, 129, 130, 131, 132	offval2 6318	. . . . . . 7 |- ( ph -> ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) ( .r ` Y ) ( L ` ( 2 x. x ) ) ) ) )
134	127, 133	eqtr4d 2274	. . . . . 6 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) ) = ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) )
135	134	oveq2d 6101	. . . . 5 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. ( ( ( ( -u 1 ^ R ) x. R ) mod P ) / 2 ) ) ) ) ) = ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
136	49, 58, 135	3eqtrd 2275	. . . 4 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) = ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
137		eqid 2238	. . . . . 6 |- ( +g ` G ) = ( +g ` G )
138	39	eleq2d 2308	. . . . . . . 8 |- ( ph -> ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` Y ) <-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` G ) ) )
139	138	adantr 276	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` Y ) <-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` G ) ) )
140	129, 139	mpbid 147	. . . . . 6 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( ( -u 1 ^ R ) x. Q ) ) e. ( Base ` G ) )
141	39	eleq2d 2308	. . . . . . . 8 |- ( ph -> ( ( L ` ( 2 x. x ) ) e. ( Base ` Y ) <-> ( L ` ( 2 x. x ) ) e. ( Base ` G ) ) )
142	141	adantr 276	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( L ` ( 2 x. x ) ) e. ( Base ` Y ) <-> ( L ` ( 2 x. x ) ) e. ( Base ` G ) ) )
143	130, 142	mpbid 147	. . . . . 6 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. x ) ) e. ( Base ` G ) )
144		eqid 2238	. . . . . 6 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) )
145		eqid 2238	. . . . . 6 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) )
146	5, 137, 15, 23, 140, 143, 144, 145	gsummptfidmadd2 14213	. . . . 5 |- ( ph -> ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( +g ` G ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( +g ` G ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
147	13, 123	mgpplusgg 14272	. . . . . . . . 9 |- ( Y e. CRing -> ( .r ` Y ) = ( +g ` G ) )
148	12, 147	syl 14	. . . . . . . 8 |- ( ph -> ( .r ` Y ) = ( +g ` G ) )
149	148	ofeqd 6304	. . . . . . 7 |- ( ph -> oF ( .r ` Y ) = oF ( +g ` G ) )
150	149	oveqd 6102	. . . . . 6 |- ( ph -> ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) = ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( +g ` G ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) )
151	150	oveq2d 6101	. . . . 5 |- ( ph -> ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( +g ` G ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
152	148	oveqd 6102	. . . . 5 |- ( ph -> ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( +g ` G ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
153	146, 151, 152	3eqtr4d 2281	. . . 4 |- ( ph -> ( G gsumg ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) oF ( .r ` Y ) ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
154	136, 153	eqtrd 2271	. . 3 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) = ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
155	154	oveq1d 6100	. 2 |- ( ph -> ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) )
156		eqid 2238	. . . . . 6 |- (Unit ` Y ) = (Unit ` Y )
157	156, 13	unitsubm 14477	. . . . 5 |- ( Y e. Ring -> (Unit ` Y ) e. (SubMnd ` G ) )
158	24, 157	syl 14	. . . 4 |- ( ph -> (Unit ` Y ) e. (SubMnd ` G ) )
159		elfzle2 10443	. . . . . . . . . 10 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) -> x <_ ( ( P - 1 ) / 2 ) )
160	159	adantl 277	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> x <_ ( ( P - 1 ) / 2 ) )
161	65	nnred 9320	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> x e. RR )
162		prmuz2 12928	. . . . . . . . . . . 12 |- ( P e. Prime -> P e. ( ZZ>= ` 2 ) )
163		uz2m1nn 10015	. . . . . . . . . . . 12 |- ( P e. ( ZZ>= ` 2 ) -> ( P - 1 ) e. NN )
164	70, 162, 163	3syl 17	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( P - 1 ) e. NN )
165	164	nnred 9320	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( P - 1 ) e. RR )
166		2re 9377	. . . . . . . . . . 11 |- 2 e. RR
167	166	a1i 9	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 2 e. RR )
168		2pos 9398	. . . . . . . . . . 11 |- 0 < 2
169	168	a1i 9	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 0 < 2 )
170		lemuldiv2 9215	. . . . . . . . . 10 |- ( ( x e. RR /\ ( P - 1 ) e. RR /\ ( 2 e. RR /\ 0 < 2 ) ) -> ( ( 2 x. x ) <_ ( P - 1 ) <-> x <_ ( ( P - 1 ) / 2 ) ) )
171	161, 165, 167, 169, 170	syl112anc 1282	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( 2 x. x ) <_ ( P - 1 ) <-> x <_ ( ( P - 1 ) / 2 ) ) )
172	160, 171	mpbird 167	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) <_ ( P - 1 ) )
173	70, 19	syl 14	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> P e. ZZ )
174		peano2zm 9687	. . . . . . . . 9 |- ( P e. ZZ -> ( P - 1 ) e. ZZ )
175		fznn 10507	. . . . . . . . 9 |- ( ( P - 1 ) e. ZZ -> ( ( 2 x. x ) e. ( 1 ... ( P - 1 ) ) <-> ( ( 2 x. x ) e. NN /\ ( 2 x. x ) <_ ( P - 1 ) ) ) )
176	173, 174, 175	3syl 17	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( 2 x. x ) e. ( 1 ... ( P - 1 ) ) <-> ( ( 2 x. x ) e. NN /\ ( 2 x. x ) <_ ( P - 1 ) ) ) )
177	67, 172, 176	mpbir2and 957	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. ( 1 ... ( P - 1 ) ) )
178		fzm1ndvds 12641	. . . . . . 7 |- ( ( P e. NN /\ ( 2 x. x ) e. ( 1 ... ( P - 1 ) ) ) -> -. P || ( 2 x. x ) )
179	72, 177, 178	syl2anc 415	. . . . . 6 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> -. P || ( 2 x. x ) )
180	9, 156, 25	znunit 15045	. . . . . . . 8 |- ( ( P e. NN0 /\ ( 2 x. x ) e. ZZ ) -> ( ( L ` ( 2 x. x ) ) e. (Unit ` Y ) <-> ( ( 2 x. x ) gcd P ) = 1 ) )
181	116, 68, 180	syl2anc 415	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( L ` ( 2 x. x ) ) e. (Unit ` Y ) <-> ( ( 2 x. x ) gcd P ) = 1 ) )
182		coprm 12941	. . . . . . . . 9 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> ( -. P || ( 2 x. x ) <-> ( P gcd ( 2 x. x ) ) = 1 ) )
183	19	adantr 276	. . . . . . . . . . 11 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> P e. ZZ )
184		simpr 110	. . . . . . . . . . 11 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> ( 2 x. x ) e. ZZ )
185	183, 184	gcdcomd 12769	. . . . . . . . . 10 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> ( P gcd ( 2 x. x ) ) = ( ( 2 x. x ) gcd P ) )
186	185	eqeq1d 2247	. . . . . . . . 9 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> ( ( P gcd ( 2 x. x ) ) = 1 <-> ( ( 2 x. x ) gcd P ) = 1 ) )
187	182, 186	bitrd 188	. . . . . . . 8 |- ( ( P e. Prime /\ ( 2 x. x ) e. ZZ ) -> ( -. P || ( 2 x. x ) <-> ( ( 2 x. x ) gcd P ) = 1 ) )
188	70, 68, 187	syl2anc 415	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( -. P || ( 2 x. x ) <-> ( ( 2 x. x ) gcd P ) = 1 ) )
189	181, 188	bitr4d 191	. . . . . 6 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( L ` ( 2 x. x ) ) e. (Unit ` Y ) <-> -. P || ( 2 x. x ) ) )
190	179, 189	mpbird 167	. . . . 5 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( L ` ( 2 x. x ) ) e. (Unit ` Y ) )
191	190	fmpttd 5863	. . . 4 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> (Unit ` Y ) )
192	6, 15, 23, 158, 191	gsumsubmclfi 14214	. . 3 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) e. (Unit ` Y ) )
193		eqid 2238	. . . 4 |- (/r ` Y ) = (/r ` Y )
194		eqid 2238	. . . 4 |- ( 1r ` Y ) = ( 1r ` Y )
195	156, 193, 194	dvrid 14495	. . 3 |- ( ( Y e. Ring /\ ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) e. (Unit ` Y ) ) -> ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( 1r ` Y ) )
196	24, 192, 195	syl2anc 415	. 2 |- ( ph -> ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( 1r ` Y ) )
197	129	fmpttd 5863	. . . . . 6 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` Y ) )
198	39	feq3d 5522	. . . . . 6 |- ( ph -> ( ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` Y ) <-> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` G ) ) )
199	197, 198	mpbid 147	. . . . 5 |- ( ph -> ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) : ( 1 ... ( ( P - 1 ) / 2 ) ) --> ( Base ` G ) )
200	5, 6, 15, 23, 199	gsumclfi 14210	. . . 4 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) e. ( Base ` G ) )
201	200, 39	eleqtrrd 2318	. . 3 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) e. ( Base ` Y ) )
202	28, 156, 193, 123	dvrcan3 14499	. . 3 |- ( ( Y e. Ring /\ ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) e. ( Base ` Y ) /\ ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) e. (Unit ` Y ) ) -> ( ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) )
203	24, 201, 192, 202	syl3anc 1278	. 2 |- ( ph -> ( ( ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) ( .r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) (/r ` Y ) ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( 2 x. x ) ) ) ) ) = ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) )
204	155, 196, 203	3eqtr3rd 2280	1 |- ( ph -> ( G gsumg ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( L ` ( ( -u 1 ^ R ) x. Q ) ) ) ) = ( 1r ` Y ) )

This proof depends on syntax axioms:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1402   e. wcel 2209   =/= wne 2420   A.wral 2528   \ cdif 3217   {csn 3709   class class class wbr 4130   |-> cmpt 4192   o. ccom 4778   -->wf 5373   ` cfv 5377  (class class class)co 6085   oFcof 6300   Fincfn 7022   RRcr 8179   0cc0 8180   1c1 8181   x. cmul 8185   < clt 8361   <_ cle 8362   - cmin 8499   -ucneg 8500   # cap 8912   / cdiv 9005   NNcn 9307   2c2 9358   NN0cn0 9568   ZZcz 9649   ZZ>=cuz 9931   QQcq 10029   ...cfz 10422   mod cmo 10773   ^cexp 10989   || cdvds 12572   gcd cgcd 12748   Primecprime 12903   Basecbs 13403   +g cplusg 13482   .rcmulr 13483   0gc0g 13661  SubMndcsubmnd 13816  CMndccmn 14138   gsum_g cgsu 14201  mulGrpcmgp 14268   1rcur 14313   Ringcrg 14351   CRingccrg 14352  Unitcui 14444  /_rcdvr 14489   RingHom crh 14508  IDomncidom 14616  ℤ_ringczring 14976   ZRHomczrh 14997  ℤ/nℤczn 14999

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735  ax-cnex 8271  ax-resscn 8272  ax-1cn 8273  ax-1re 8274  ax-icn 8275  ax-addcl 8276  ax-addrcl 8277  ax-mulcl 8278  ax-mulrcl 8279  ax-addcom 8280  ax-mulcom 8281  ax-addass 8282  ax-mulass 8283  ax-distr 8284  ax-i2m1 8285  ax-0lt1 8286  ax-1rid 8287  ax-0id 8288  ax-rnegex 8289  ax-precex 8290  ax-cnre 8291  ax-pre-ltirr 8292  ax-pre-ltwlin 8293  ax-pre-lttrn 8294  ax-pre-apti 8295  ax-pre-ltadd 8296  ax-pre-mulgt0 8297  ax-pre-mulext 8298  ax-arch 8299  ax-caucvg 8300  ax-addf 8302  ax-mulf 8303

This proof depends on definitions:  df-bi 117  df-stab 843  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-xor 1425  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3715  df-pr 3716  df-tp 3717  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-id 4438  df-po 4441  df-iso 4442  df-iord 4511  df-on 4513  df-ilim 4514  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-riota 6038  df-ov 6088  df-oprab 6089  df-mpo 6090  df-of 6302  df-1st 6374  df-2nd 6375  df-tpos 6516  df-recs 6576  df-irdg 6641  df-frec 6662  df-1o 6687  df-2o 6688  df-oadd 6691  df-er 6807  df-ec 6809  df-qs 6813  df-map 6924  df-en 7023  df-dom 7024  df-fin 7025  df-sup 7325  df-pnf 8363  df-mnf 8364  df-xr 8365  df-ltxr 8366  df-le 8367  df-sub 8501  df-neg 8502  df-reap 8906  df-ap 8913  df-div 9006  df-inn 9308  df-2 9366  df-3 9367  df-4 9368  df-5 9369  df-6 9370  df-7 9371  df-8 9372  df-9 9373  df-n0 9569  df-z 9650  df-dec 9783  df-uz 9932  df-q 10030  df-rp 10066  df-fz 10423  df-fzo 10561  df-fl 10716  df-mod 10774  df-seqfrec 10899  df-exp 10990  df-ihash 11230  df-cj 11622  df-re 11623  df-im 11624  df-rsqrt 11779  df-abs 11780  df-dvds 12573  df-gcd 12749  df-prm 12904  df-struct 13405  df-ndx 13406  df-slot 13407  df-base 13409  df-sets 13410  df-iress 13411  df-plusg 13495  df-mulr 13496  df-starv 13497  df-sca 13498  df-vsca 13499  df-ip 13500  df-tset 13501  df-ple 13502  df-ds 13504  df-unif 13505  df-0g 13663  df-gzsum 13664  df-topgen 13665  df-iimas 13675  df-qus 13676  df-mgm 13727  df-sgrp 13768  df-mnd 13781  df-mhm 13817  df-submnd 13818  df-grp 13859  df-minusg 13860  df-sbg 13861  df-mulg 13974  df-subg 14024  df-nsg 14025  df-eqg 14026  df-ghm 14095  df-cmn 14140  df-abl 14141  df-gsumfi 14202  df-mgp 14269  df-rng 14283  df-ur 14314  df-srg 14319  df-ring 14353  df-cring 14354  df-oppr 14424  df-dvdsr 14446  df-unit 14447  df-invr 14479  df-dvr 14490  df-rhm 14510  df-nzr 14538  df-subrg 14578  df-domn 14618  df-idom 14619  df-lmod 14676  df-lssm 14741  df-lsp 14775  df-sra 14823  df-rgmod 14824  df-lidl 14857  df-rsp 14858  df-2idl 14888  df-bl 14934  df-mopn 14935  df-fg 14937  df-metu 14938  df-cnfld 14945  df-zring 14977  df-zrh 15000  df-zn 15002

This theorem is used by:  lgseisenlem4  16314