Theorem lgseisen 15809

Description: Eisenstein's lemma, an expression for ( P /L Q ) when P , Q are distinct odd primes. (Contributed by Mario Carneiro, 18-Jun-2015.)

Hypotheses

Ref	Expression
lgseisen.1	|- ( ph -> P e. ( Prime \ { 2 } ) )
lgseisen.2	|- ( ph -> Q e. ( Prime \ { 2 } ) )
lgseisen.3	|- ( ph -> P =/= Q )

Assertion

Ref	Expression
lgseisen	|- ( ph -> ( Q /L P ) = ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )

Distinct variable groups:   x, P   ph, x   x, Q

Proof of Theorem lgseisen

Dummy variable y is distinct from all other variables.

Step	Hyp	Ref	Expression
1		lgseisen.2	. . . . 5 |- ( ph -> Q e. ( Prime \ { 2 } ) )
2	1	eldifad 3211	. . . 4 |- ( ph -> Q e. Prime )
3		prmz 12688	. . . 4 |- ( Q e. Prime -> Q e. ZZ )
4	2, 3	syl 14	. . 3 |- ( ph -> Q e. ZZ )
5		lgseisen.1	. . 3 |- ( ph -> P e. ( Prime \ { 2 } ) )
6		lgsval3 15753	. . 3 |- ( ( Q e. ZZ /\ P e. ( Prime \ { 2 } ) ) -> ( Q /L P ) = ( ( ( ( Q ^ ( ( P - 1 ) / 2 ) ) + 1 ) mod P ) - 1 ) )
7	4, 5, 6	syl2anc 411	. 2 |- ( ph -> ( Q /L P ) = ( ( ( ( Q ^ ( ( P - 1 ) / 2 ) ) + 1 ) mod P ) - 1 ) )
8	1	gausslemma2dlem0a 15784	. . . . . . 7 |- ( ph -> Q e. NN )
9		oddprm 12837	. . . . . . . . 9 |- ( P e. ( Prime \ { 2 } ) -> ( ( P - 1 ) / 2 ) e. NN )
10	5, 9	syl 14	. . . . . . . 8 |- ( ph -> ( ( P - 1 ) / 2 ) e. NN )
11	10	nnnn0d 9455	. . . . . . 7 |- ( ph -> ( ( P - 1 ) / 2 ) e. NN0 )
12	8, 11	nnexpcld 10958	. . . . . 6 |- ( ph -> ( Q ^ ( ( P - 1 ) / 2 ) ) e. NN )
13		nnq 9867	. . . . . 6 |- ( ( Q ^ ( ( P - 1 ) / 2 ) ) e. NN -> ( Q ^ ( ( P - 1 ) / 2 ) ) e. QQ )
14	12, 13	syl 14	. . . . 5 |- ( ph -> ( Q ^ ( ( P - 1 ) / 2 ) ) e. QQ )
15		1zzd 9506	. . . . . . . 8 |- ( ph -> 1 e. ZZ )
16	15	znegcld 9604	. . . . . . 7 |- ( ph -> -u 1 e. ZZ )
17		zq 9860	. . . . . . 7 |- ( -u 1 e. ZZ -> -u 1 e. QQ )
18	16, 17	syl 14	. . . . . 6 |- ( ph -> -u 1 e. QQ )
19		neg1ne0 9250	. . . . . . 7 |- -u 1 =/= 0
20	19	a1i 9	. . . . . 6 |- ( ph -> -u 1 =/= 0 )
21	10	nnzd 9601	. . . . . . . 8 |- ( ph -> ( ( P - 1 ) / 2 ) e. ZZ )
22	15, 21	fzfigd 10694	. . . . . . 7 |- ( ph -> ( 1 ... ( ( P - 1 ) / 2 ) ) e. Fin )
23	5	gausslemma2dlem0a 15784	. . . . . . . . . 10 |- ( ph -> P e. NN )
24		znq 9858	. . . . . . . . . 10 |- ( ( Q e. ZZ /\ P e. NN ) -> ( Q / P ) e. QQ )
25	4, 23, 24	syl2anc 411	. . . . . . . . 9 |- ( ph -> ( Q / P ) e. QQ )
26		2z 9507	. . . . . . . . . . . 12 |- 2 e. ZZ
27	26	a1i 9	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> 2 e. ZZ )
28		elfznn 10289	. . . . . . . . . . . . 13 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) -> x e. NN )
29	28	adantl 277	. . . . . . . . . . . 12 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> x e. NN )
30	29	nnzd 9601	. . . . . . . . . . 11 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> x e. ZZ )
31	27, 30	zmulcld 9608	. . . . . . . . . 10 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. ZZ )
32		zq 9860	. . . . . . . . . 10 |- ( ( 2 x. x ) e. ZZ -> ( 2 x. x ) e. QQ )
33	31, 32	syl 14	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( 2 x. x ) e. QQ )
34		qmulcl 9871	. . . . . . . . 9 |- ( ( ( Q / P ) e. QQ /\ ( 2 x. x ) e. QQ ) -> ( ( Q / P ) x. ( 2 x. x ) ) e. QQ )
35	25, 33, 34	syl2an2r 599	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( ( Q / P ) x. ( 2 x. x ) ) e. QQ )
36	35	flqcld 10538	. . . . . . 7 |- ( ( ph /\ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ) -> ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) e. ZZ )
37	22, 36	fsumzcl 11968	. . . . . 6 |- ( ph -> sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) e. ZZ )
38		qexpclz 10823	. . . . . 6 |- ( ( -u 1 e. QQ /\ -u 1 =/= 0 /\ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) e. ZZ ) -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. QQ )
39	18, 20, 37, 38	syl3anc 1273	. . . . 5 |- ( ph -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. QQ )
40		1z 9505	. . . . . 6 |- 1 e. ZZ
41		zq 9860	. . . . . 6 |- ( 1 e. ZZ -> 1 e. QQ )
42	40, 41	mp1i 10	. . . . 5 |- ( ph -> 1 e. QQ )
43		nnq 9867	. . . . . 6 |- ( P e. NN -> P e. QQ )
44	23, 43	syl 14	. . . . 5 |- ( ph -> P e. QQ )
45	23	nngt0d 9187	. . . . 5 |- ( ph -> 0 < P )
46		lgseisen.3	. . . . . 6 |- ( ph -> P =/= Q )
47		eqid 2231	. . . . . 6 |- ( ( Q x. ( 2 x. x ) ) mod P ) = ( ( Q x. ( 2 x. x ) ) mod P )
48		eqid 2231	. . . . . 6 |- ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( ( ( -u 1 ^ ( ( Q x. ( 2 x. x ) ) mod P ) ) x. ( ( Q x. ( 2 x. x ) ) mod P ) ) mod P ) / 2 ) ) = ( x e. ( 1 ... ( ( P - 1 ) / 2 ) ) |-> ( ( ( ( -u 1 ^ ( ( Q x. ( 2 x. x ) ) mod P ) ) x. ( ( Q x. ( 2 x. x ) ) mod P ) ) mod P ) / 2 ) )
49		eqid 2231	. . . . . 6 |- ( ( Q x. ( 2 x. y ) ) mod P ) = ( ( Q x. ( 2 x. y ) ) mod P )
50		eqid 2231	. . . . . 6 |- (ℤ/nℤ ` P ) = (ℤ/nℤ ` P )
51		eqid 2231	. . . . . 6 |- (mulGrp ` (ℤ/nℤ ` P ) ) = (mulGrp ` (ℤ/nℤ ` P ) )
52		eqid 2231	. . . . . 6 |- ( ZRHom ` (ℤ/nℤ ` P ) ) = ( ZRHom ` (ℤ/nℤ ` P ) )
53	5, 1, 46, 47, 48, 49, 50, 51, 52	lgseisenlem4 15808	. . . . 5 |- ( ph -> ( ( Q ^ ( ( P - 1 ) / 2 ) ) mod P ) = ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) mod P ) )
54	14, 39, 42, 44, 45, 53	modqadd1 10624	. . . 4 |- ( ph -> ( ( ( Q ^ ( ( P - 1 ) / 2 ) ) + 1 ) mod P ) = ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) mod P ) )
55		qaddcl 9869	. . . . . 6 |- ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. QQ /\ 1 e. QQ ) -> ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) e. QQ )
56	39, 42, 55	syl2anc 411	. . . . 5 |- ( ph -> ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) e. QQ )
57		df-neg 8353	. . . . . . 7 |- -u 1 = ( 0 - 1 )
58		neg1cn 9248	. . . . . . . . . . . 12 |- -u 1 e. CC
59		neg1ap0 9252	. . . . . . . . . . . 12 |- -u 1 # 0
60		absexpzap 11645	. . . . . . . . . . . 12 |- ( ( -u 1 e. CC /\ -u 1 # 0 /\ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) e. ZZ ) -> ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) = ( ( abs ` -u 1 ) ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
61	58, 59, 37, 60	mp3an12i 1377	. . . . . . . . . . 11 |- ( ph -> ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) = ( ( abs ` -u 1 ) ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
62		ax-1cn 8125	. . . . . . . . . . . . . . 15 |- 1 e. CC
63	62	absnegi 11712	. . . . . . . . . . . . . 14 |- ( abs ` -u 1 ) = ( abs ` 1 )
64		abs1 11637	. . . . . . . . . . . . . 14 |- ( abs ` 1 ) = 1
65	63, 64	eqtri 2252	. . . . . . . . . . . . 13 |- ( abs ` -u 1 ) = 1
66	65	oveq1i 6028	. . . . . . . . . . . 12 |- ( ( abs ` -u 1 ) ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) = ( 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) )
67		1exp 10831	. . . . . . . . . . . . 13 |- ( sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) e. ZZ -> ( 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) = 1 )
68	37, 67	syl 14	. . . . . . . . . . . 12 |- ( ph -> ( 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) = 1 )
69	66, 68	eqtrid 2276	. . . . . . . . . . 11 |- ( ph -> ( ( abs ` -u 1 ) ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) = 1 )
70	61, 69	eqtrd 2264	. . . . . . . . . 10 |- ( ph -> ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) = 1 )
71		1le1 8752	. . . . . . . . . 10 |- 1 <_ 1
72	70, 71	eqbrtrdi 4127	. . . . . . . . 9 |- ( ph -> ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) <_ 1 )
73		neg1rr 9249	. . . . . . . . . . . 12 |- -u 1 e. RR
74	73	a1i 9	. . . . . . . . . . 11 |- ( ph -> -u 1 e. RR )
75	59	a1i 9	. . . . . . . . . . 11 |- ( ph -> -u 1 # 0 )
76	74, 75, 37	reexpclzapd 10961	. . . . . . . . . 10 |- ( ph -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. RR )
77		1re 8178	. . . . . . . . . 10 |- 1 e. RR
78		absle 11654	. . . . . . . . . 10 |- ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. RR /\ 1 e. RR ) -> ( ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) <_ 1 <-> ( -u 1 <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) /\ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) <_ 1 ) ) )
79	76, 77, 78	sylancl 413	. . . . . . . . 9 |- ( ph -> ( ( abs ` ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) ) <_ 1 <-> ( -u 1 <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) /\ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) <_ 1 ) ) )
80	72, 79	mpbid 147	. . . . . . . 8 |- ( ph -> ( -u 1 <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) /\ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) <_ 1 ) )
81	80	simpld 112	. . . . . . 7 |- ( ph -> -u 1 <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
82	57, 81	eqbrtrrid 4124	. . . . . 6 |- ( ph -> ( 0 - 1 ) <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
83		0red 8180	. . . . . . 7 |- ( ph -> 0 e. RR )
84		1red 8194	. . . . . . 7 |- ( ph -> 1 e. RR )
85	83, 84, 76	lesubaddd 8722	. . . . . 6 |- ( ph -> ( ( 0 - 1 ) <_ ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) <-> 0 <_ ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) ) )
86	82, 85	mpbid 147	. . . . 5 |- ( ph -> 0 <_ ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) )
87	23	nnred 9156	. . . . . . . 8 |- ( ph -> P e. RR )
88		peano2rem 8446	. . . . . . . 8 |- ( P e. RR -> ( P - 1 ) e. RR )
89	87, 88	syl 14	. . . . . . 7 |- ( ph -> ( P - 1 ) e. RR )
90	80	simprd 114	. . . . . . 7 |- ( ph -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) <_ 1 )
91		df-2 9202	. . . . . . . . 9 |- 2 = ( 1 + 1 )
92		eldifsni 3802	. . . . . . . . . . . 12 |- ( P e. ( Prime \ { 2 } ) -> P =/= 2 )
93	5, 92	syl 14	. . . . . . . . . . 11 |- ( ph -> P =/= 2 )
94	23	nnzd 9601	. . . . . . . . . . . 12 |- ( ph -> P e. ZZ )
95		zapne 9554	. . . . . . . . . . . 12 |- ( ( P e. ZZ /\ 2 e. ZZ ) -> ( P # 2 <-> P =/= 2 ) )
96	94, 26, 95	sylancl 413	. . . . . . . . . . 11 |- ( ph -> ( P # 2 <-> P =/= 2 ) )
97	93, 96	mpbird 167	. . . . . . . . . 10 |- ( ph -> P # 2 )
98		2re 9213	. . . . . . . . . . . 12 |- 2 e. RR
99	98	a1i 9	. . . . . . . . . . 11 |- ( ph -> 2 e. RR )
100	5	eldifad 3211	. . . . . . . . . . . 12 |- ( ph -> P e. Prime )
101		prmuz2 12708	. . . . . . . . . . . 12 |- ( P e. Prime -> P e. ( ZZ>= ` 2 ) )
102		eluzle 9768	. . . . . . . . . . . 12 |- ( P e. ( ZZ>= ` 2 ) -> 2 <_ P )
103	100, 101, 102	3syl 17	. . . . . . . . . . 11 |- ( ph -> 2 <_ P )
104	99, 87, 103	leltapd 8819	. . . . . . . . . 10 |- ( ph -> ( 2 < P <-> P # 2 ) )
105	97, 104	mpbird 167	. . . . . . . . 9 |- ( ph -> 2 < P )
106	91, 105	eqbrtrrid 4124	. . . . . . . 8 |- ( ph -> ( 1 + 1 ) < P )
107	84, 84, 87	ltaddsubd 8725	. . . . . . . 8 |- ( ph -> ( ( 1 + 1 ) < P <-> 1 < ( P - 1 ) ) )
108	106, 107	mpbid 147	. . . . . . 7 |- ( ph -> 1 < ( P - 1 ) )
109	76, 84, 89, 90, 108	lelttrd 8304	. . . . . 6 |- ( ph -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) < ( P - 1 ) )
110	76, 84, 87	ltaddsubd 8725	. . . . . 6 |- ( ph -> ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) < P <-> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) < ( P - 1 ) ) )
111	109, 110	mpbird 167	. . . . 5 |- ( ph -> ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) < P )
112		modqid 10612	. . . . 5 |- ( ( ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) e. QQ /\ P e. QQ ) /\ ( 0 <_ ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) /\ ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) < P ) ) -> ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) mod P ) = ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) )
113	56, 44, 86, 111, 112	syl22anc 1274	. . . 4 |- ( ph -> ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) mod P ) = ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) )
114	54, 113	eqtrd 2264	. . 3 |- ( ph -> ( ( ( Q ^ ( ( P - 1 ) / 2 ) ) + 1 ) mod P ) = ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) )
115	114	oveq1d 6033	. 2 |- ( ph -> ( ( ( ( Q ^ ( ( P - 1 ) / 2 ) ) + 1 ) mod P ) - 1 ) = ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) - 1 ) )
116	76	recnd 8208	. . 3 |- ( ph -> ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. CC )
117		pncan 8385	. . 3 |- ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) e. CC /\ 1 e. CC ) -> ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) - 1 ) = ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
118	116, 62, 117	sylancl 413	. 2 |- ( ph -> ( ( ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) + 1 ) - 1 ) = ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )
119	7, 115, 118	3eqtrd 2268	1 |- ( ph -> ( Q /L P ) = ( -u 1 ^ sum_ x e. ( 1 ... ( ( P - 1 ) / 2 ) ) ( |_ ` ( ( Q / P ) x. ( 2 x. x ) ) ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1397   e. wcel 2202   =/= wne 2402   \ cdif 3197   {csn 3669   class class class wbr 4088   |-> cmpt 4150   ` cfv 5326  (class class class)co 6018   CCcc 8030   RRcr 8031   0cc0 8032   1c1 8033   + caddc 8035   x. cmul 8037   < clt 8214   <_ cle 8215   - cmin 8350   -ucneg 8351   # cap 8761   / cdiv 8852   NNcn 9143   2c2 9194   ZZcz 9479   ZZ>=cuz 9755   QQcq 9853   ...cfz 10243   |_cfl 10529   mod cmo 10585   ^cexp 10801   abscabs 11562   sum_csu 11918   Primecprime 12684  mulGrpcmgp 13939   ZRHomczrh 14631  ℤ/nℤczn 14633   /Lclgs 15732

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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8123  ax-resscn 8124  ax-1cn 8125  ax-1re 8126  ax-icn 8127  ax-addcl 8128  ax-addrcl 8129  ax-mulcl 8130  ax-mulrcl 8131  ax-addcom 8132  ax-mulcom 8133  ax-addass 8134  ax-mulass 8135  ax-distr 8136  ax-i2m1 8137  ax-0lt1 8138  ax-1rid 8139  ax-0id 8140  ax-rnegex 8141  ax-precex 8142  ax-cnre 8143  ax-pre-ltirr 8144  ax-pre-ltwlin 8145  ax-pre-lttrn 8146  ax-pre-apti 8147  ax-pre-ltadd 8148  ax-pre-mulgt0 8149  ax-pre-mulext 8150  ax-arch 8151  ax-caucvg 8152  ax-addf 8154  ax-mulf 8155

This theorem depends on definitions:  df-bi 117  df-stab 838  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-xor 1420  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rmo 2518  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-tp 3677  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-po 4393  df-iso 4394  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-isom 5335  df-riota 5971  df-ov 6021  df-oprab 6022  df-mpo 6023  df-of 6235  df-1st 6303  df-2nd 6304  df-tpos 6411  df-recs 6471  df-irdg 6536  df-frec 6557  df-1o 6582  df-2o 6583  df-oadd 6586  df-er 6702  df-ec 6704  df-qs 6708  df-map 6819  df-en 6910  df-dom 6911  df-fin 6912  df-sup 7183  df-inf 7184  df-pnf 8216  df-mnf 8217  df-xr 8218  df-ltxr 8219  df-le 8220  df-sub 8352  df-neg 8353  df-reap 8755  df-ap 8762  df-div 8853  df-inn 9144  df-2 9202  df-3 9203  df-4 9204  df-5 9205  df-6 9206  df-7 9207  df-8 9208  df-9 9209  df-n0 9403  df-z 9480  df-dec 9612  df-uz 9756  df-q 9854  df-rp 9889  df-fz 10244  df-fzo 10378  df-fl 10531  df-mod 10586  df-seqfrec 10711  df-exp 10802  df-ihash 11039  df-cj 11407  df-re 11408  df-im 11409  df-rsqrt 11563  df-abs 11564  df-clim 11844  df-sumdc 11919  df-proddc 12117  df-dvds 12354  df-gcd 12530  df-prm 12685  df-phi 12788  df-pc 12863  df-struct 13089  df-ndx 13090  df-slot 13091  df-base 13093  df-sets 13094  df-iress 13095  df-plusg 13178  df-mulr 13179  df-starv 13180  df-sca 13181  df-vsca 13182  df-ip 13183  df-tset 13184  df-ple 13185  df-ds 13187  df-unif 13188  df-0g 13346  df-igsum 13347  df-topgen 13348  df-iimas 13390  df-qus 13391  df-mgm 13444  df-sgrp 13490  df-mnd 13505  df-mhm 13547  df-submnd 13548  df-grp 13591  df-minusg 13592  df-sbg 13593  df-mulg 13712  df-subg 13762  df-nsg 13763  df-eqg 13764  df-ghm 13833  df-cmn 13878  df-abl 13879  df-mgp 13940  df-rng 13952  df-ur 13979  df-srg 13983  df-ring 14017  df-cring 14018  df-oppr 14087  df-dvdsr 14108  df-unit 14109  df-invr 14141  df-dvr 14152  df-rhm 14172  df-nzr 14200  df-subrg 14239  df-domn 14279  df-idom 14280  df-lmod 14309  df-lssm 14373  df-lsp 14407  df-sra 14455  df-rgmod 14456  df-lidl 14489  df-rsp 14490  df-2idl 14520  df-bl 14566  df-mopn 14567  df-fg 14569  df-metu 14570  df-cnfld 14577  df-zring 14611  df-zrh 14634  df-zn 14636  df-lgs 15733

This theorem is referenced by:  lgsquadlem2  15813