Theorem wilthlem3 26456

Description: Lemma for wilth 26457. Here we round out the argument of wilthlem2 26455 with the final step of the induction. The induction argument shows that every subset of 1...(𝑃 − 1) that is closed under inverse and contains 𝑃 − 1 multiplies to -1 mod 𝑃, and clearly 1...(𝑃 − 1) itself is such a set. Thus, the product of all the elements is -1, and all that is left is to translate the group sum notation (which we used for its unordered summing capabilities) into an ordered sequence to match the definition of the factorial. (Contributed by Mario Carneiro, 24-Jan-2015.) (Proof shortened by AV, 27-Jul-2019.)

Hypotheses

Ref	Expression
wilthlem.t	⊢ 𝑇 = (mulGrp‘ℂfld)
wilthlem.a	⊢ 𝐴 = {𝑥 ∈ 𝒫 (1...(𝑃 − 1)) ∣ ((𝑃 − 1) ∈ 𝑥 ∧ ∀𝑦 ∈ 𝑥 ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ 𝑥)}

Assertion

Ref	Expression
wilthlem3	⊢ (𝑃 ∈ ℙ → 𝑃 ∥ ((!‘(𝑃 − 1)) + 1))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝑃,𝑦   𝑥,𝑇,𝑦

Proof of Theorem wilthlem3

Dummy variables 𝑡 𝑠 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prmuz2 16583	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ≥‘2))
2		uz2m1nn 12857	. . . . . . . 8 ⊢ (𝑃 ∈ (ℤ≥‘2) → (𝑃 − 1) ∈ ℕ)
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → (𝑃 − 1) ∈ ℕ)
4		nnuz 12815	. . . . . . 7 ⊢ ℕ = (ℤ≥‘1)
5	3, 4	eleqtrdi 2842	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (𝑃 − 1) ∈ (ℤ≥‘1))
6		eluzfz2 13459	. . . . . 6 ⊢ ((𝑃 − 1) ∈ (ℤ≥‘1) → (𝑃 − 1) ∈ (1...(𝑃 − 1)))
7	5, 6	syl 17	. . . . 5 ⊢ (𝑃 ∈ ℙ → (𝑃 − 1) ∈ (1...(𝑃 − 1)))
8		simpl 483	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → 𝑃 ∈ ℙ)
9		elfzelz 13451	. . . . . . . . 9 ⊢ (𝑦 ∈ (1...(𝑃 − 1)) → 𝑦 ∈ ℤ)
10	9	adantl 482	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → 𝑦 ∈ ℤ)
11		prmnn 16561	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
12		fzm1ndvds 16215	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℕ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ 𝑦)
13	11, 12	sylan 580	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ 𝑦)
14		eqid 2731	. . . . . . . . 9 ⊢ ((𝑦↑(𝑃 − 2)) mod 𝑃) = ((𝑦↑(𝑃 − 2)) mod 𝑃)
15	14	prmdiv 16668	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ ℤ ∧ ¬ 𝑃 ∥ 𝑦) → (((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)) ∧ 𝑃 ∥ ((𝑦 · ((𝑦↑(𝑃 − 2)) mod 𝑃)) − 1)))
16	8, 10, 13, 15	syl3anc 1371	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → (((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)) ∧ 𝑃 ∥ ((𝑦 · ((𝑦↑(𝑃 − 2)) mod 𝑃)) − 1)))
17	16	simpld 495	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑦 ∈ (1...(𝑃 − 1))) → ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)))
18	17	ralrimiva 3139	. . . . 5 ⊢ (𝑃 ∈ ℙ → ∀𝑦 ∈ (1...(𝑃 − 1))((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)))
19		ovex 7395	. . . . . . 7 ⊢ (1...(𝑃 − 1)) ∈ V
20	19	pwid 4587	. . . . . 6 ⊢ (1...(𝑃 − 1)) ∈ 𝒫 (1...(𝑃 − 1))
21		eleq2 2821	. . . . . . . 8 ⊢ (𝑥 = (1...(𝑃 − 1)) → ((𝑃 − 1) ∈ 𝑥 ↔ (𝑃 − 1) ∈ (1...(𝑃 − 1))))
22		eleq2 2821	. . . . . . . . 9 ⊢ (𝑥 = (1...(𝑃 − 1)) → (((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ 𝑥 ↔ ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1))))
23	22	raleqbi1dv 3305	. . . . . . . 8 ⊢ (𝑥 = (1...(𝑃 − 1)) → (∀𝑦 ∈ 𝑥 ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ 𝑥 ↔ ∀𝑦 ∈ (1...(𝑃 − 1))((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1))))
24	21, 23	anbi12d 631	. . . . . . 7 ⊢ (𝑥 = (1...(𝑃 − 1)) → (((𝑃 − 1) ∈ 𝑥 ∧ ∀𝑦 ∈ 𝑥 ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ 𝑥) ↔ ((𝑃 − 1) ∈ (1...(𝑃 − 1)) ∧ ∀𝑦 ∈ (1...(𝑃 − 1))((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)))))
25		wilthlem.a	. . . . . . 7 ⊢ 𝐴 = {𝑥 ∈ 𝒫 (1...(𝑃 − 1)) ∣ ((𝑃 − 1) ∈ 𝑥 ∧ ∀𝑦 ∈ 𝑥 ((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ 𝑥)}
26	24, 25	elrab2 3651	. . . . . 6 ⊢ ((1...(𝑃 − 1)) ∈ 𝐴 ↔ ((1...(𝑃 − 1)) ∈ 𝒫 (1...(𝑃 − 1)) ∧ ((𝑃 − 1) ∈ (1...(𝑃 − 1)) ∧ ∀𝑦 ∈ (1...(𝑃 − 1))((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1)))))
27	20, 26	mpbiran 707	. . . . 5 ⊢ ((1...(𝑃 − 1)) ∈ 𝐴 ↔ ((𝑃 − 1) ∈ (1...(𝑃 − 1)) ∧ ∀𝑦 ∈ (1...(𝑃 − 1))((𝑦↑(𝑃 − 2)) mod 𝑃) ∈ (1...(𝑃 − 1))))
28	7, 18, 27	sylanbrc 583	. . . 4 ⊢ (𝑃 ∈ ℙ → (1...(𝑃 − 1)) ∈ 𝐴)
29		fzfi 13887	. . . . 5 ⊢ (1...(𝑃 − 1)) ∈ Fin
30		eleq1 2820	. . . . . . . 8 ⊢ (𝑠 = 𝑡 → (𝑠 ∈ 𝐴 ↔ 𝑡 ∈ 𝐴))
31		reseq2 5937	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → ( I ↾ 𝑠) = ( I ↾ 𝑡))
32	31	oveq2d 7378	. . . . . . . . . 10 ⊢ (𝑠 = 𝑡 → (𝑇 Σg ( I ↾ 𝑠)) = (𝑇 Σg ( I ↾ 𝑡)))
33	32	oveq1d 7377	. . . . . . . . 9 ⊢ (𝑠 = 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃))
34	33	eqeq1d 2733	. . . . . . . 8 ⊢ (𝑠 = 𝑡 → (((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃) ↔ ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃)))
35	30, 34	imbi12d 344	. . . . . . 7 ⊢ (𝑠 = 𝑡 → ((𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ↔ (𝑡 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃))))
36	35	imbi2d 340	. . . . . 6 ⊢ (𝑠 = 𝑡 → ((𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃))) ↔ (𝑃 ∈ ℙ → (𝑡 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃)))))
37		eleq1 2820	. . . . . . . 8 ⊢ (𝑠 = (1...(𝑃 − 1)) → (𝑠 ∈ 𝐴 ↔ (1...(𝑃 − 1)) ∈ 𝐴))
38		reseq2 5937	. . . . . . . . . . 11 ⊢ (𝑠 = (1...(𝑃 − 1)) → ( I ↾ 𝑠) = ( I ↾ (1...(𝑃 − 1))))
39	38	oveq2d 7378	. . . . . . . . . 10 ⊢ (𝑠 = (1...(𝑃 − 1)) → (𝑇 Σg ( I ↾ 𝑠)) = (𝑇 Σg ( I ↾ (1...(𝑃 − 1)))))
40	39	oveq1d 7377	. . . . . . . . 9 ⊢ (𝑠 = (1...(𝑃 − 1)) → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃))
41	40	eqeq1d 2733	. . . . . . . 8 ⊢ (𝑠 = (1...(𝑃 − 1)) → (((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃) ↔ ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃)))
42	37, 41	imbi12d 344	. . . . . . 7 ⊢ (𝑠 = (1...(𝑃 − 1)) → ((𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ↔ ((1...(𝑃 − 1)) ∈ 𝐴 → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃))))
43	42	imbi2d 340	. . . . . 6 ⊢ (𝑠 = (1...(𝑃 − 1)) → ((𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃))) ↔ (𝑃 ∈ ℙ → ((1...(𝑃 − 1)) ∈ 𝐴 → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃)))))
44		bi2.04 388	. . . . . . . . . . 11 ⊢ ((𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) ↔ (𝑃 ∈ ℙ → (𝑠 ⊊ 𝑡 → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))))
45		pm2.27 42	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ ℙ → ((𝑃 ∈ ℙ → (𝑠 ⊊ 𝑡 → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → (𝑠 ⊊ 𝑡 → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))))
46	45	com34 91	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → ((𝑃 ∈ ℙ → (𝑠 ⊊ 𝑡 → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → (𝑠 ∈ 𝐴 → (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))))
47	44, 46	biimtrid 241	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → ((𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → (𝑠 ∈ 𝐴 → (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))))
48	47	alimdv 1919	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → (∀𝑠(𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → ∀𝑠(𝑠 ∈ 𝐴 → (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))))
49		df-ral 3061	. . . . . . . . 9 ⊢ (∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ↔ ∀𝑠(𝑠 ∈ 𝐴 → (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃))))
50	48, 49	syl6ibr 251	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → (∀𝑠(𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃))))
51		wilthlem.t	. . . . . . . . . 10 ⊢ 𝑇 = (mulGrp‘ℂfld)
52		simp1 1136	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ∧ 𝑡 ∈ 𝐴) → 𝑃 ∈ ℙ)
53		simp3 1138	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ∧ 𝑡 ∈ 𝐴) → 𝑡 ∈ 𝐴)
54		simp2 1137	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ∧ 𝑡 ∈ 𝐴) → ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))
55	51, 25, 52, 53, 54	wilthlem2 26455	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ ∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) ∧ 𝑡 ∈ 𝐴) → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃))
56	55	3exp 1119	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → (∀𝑠 ∈ 𝐴 (𝑠 ⊊ 𝑡 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)) → (𝑡 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃))))
57	50, 56	syldc 48	. . . . . . 7 ⊢ (∀𝑠(𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → (𝑃 ∈ ℙ → (𝑡 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃))))
58	57	a1i 11	. . . . . 6 ⊢ (𝑡 ∈ Fin → (∀𝑠(𝑠 ⊊ 𝑡 → (𝑃 ∈ ℙ → (𝑠 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑠)) mod 𝑃) = (-1 mod 𝑃)))) → (𝑃 ∈ ℙ → (𝑡 ∈ 𝐴 → ((𝑇 Σg ( I ↾ 𝑡)) mod 𝑃) = (-1 mod 𝑃)))))
59	36, 43, 58	findcard3 9236	. . . . 5 ⊢ ((1...(𝑃 − 1)) ∈ Fin → (𝑃 ∈ ℙ → ((1...(𝑃 − 1)) ∈ 𝐴 → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃))))
60	29, 59	ax-mp 5	. . . 4 ⊢ (𝑃 ∈ ℙ → ((1...(𝑃 − 1)) ∈ 𝐴 → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃)))
61	28, 60	mpd 15	. . 3 ⊢ (𝑃 ∈ ℙ → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃))
62		cnfld1 20859	. . . . . 6 ⊢ 1 = (1r‘ℂfld)
63	51, 62	ringidval 19929	. . . . 5 ⊢ 1 = (0g‘𝑇)
64		cncrng 20855	. . . . . 6 ⊢ ℂfld ∈ CRing
65	51	crngmgp 19986	. . . . . 6 ⊢ (ℂfld ∈ CRing → 𝑇 ∈ CMnd)
66	64, 65	mp1i 13	. . . . 5 ⊢ (𝑃 ∈ ℙ → 𝑇 ∈ CMnd)
67	29	a1i 11	. . . . 5 ⊢ (𝑃 ∈ ℙ → (1...(𝑃 − 1)) ∈ Fin)
68		zsubrg 20887	. . . . . 6 ⊢ ℤ ∈ (SubRing‘ℂfld)
69	51	subrgsubm 20283	. . . . . 6 ⊢ (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubMnd‘𝑇))
70	68, 69	mp1i 13	. . . . 5 ⊢ (𝑃 ∈ ℙ → ℤ ∈ (SubMnd‘𝑇))
71		f1oi 6827	. . . . . . . 8 ⊢ ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))–1-1-onto→(1...(𝑃 − 1))
72		f1of 6789	. . . . . . . 8 ⊢ (( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))–1-1-onto→(1...(𝑃 − 1)) → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶(1...(𝑃 − 1)))
73	71, 72	ax-mp 5	. . . . . . 7 ⊢ ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶(1...(𝑃 − 1))
74		fzssz 13453	. . . . . . 7 ⊢ (1...(𝑃 − 1)) ⊆ ℤ
75		fss 6690	. . . . . . 7 ⊢ ((( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶(1...(𝑃 − 1)) ∧ (1...(𝑃 − 1)) ⊆ ℤ) → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℤ)
76	73, 74, 75	mp2an 690	. . . . . 6 ⊢ ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℤ
77	76	a1i 11	. . . . 5 ⊢ (𝑃 ∈ ℙ → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℤ)
78		1ex 11160	. . . . . . 7 ⊢ 1 ∈ V
79	78	a1i 11	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 1 ∈ V)
80	77, 67, 79	fdmfifsupp 9324	. . . . 5 ⊢ (𝑃 ∈ ℙ → ( I ↾ (1...(𝑃 − 1))) finSupp 1)
81	63, 66, 67, 70, 77, 80	gsumsubmcl 19710	. . . 4 ⊢ (𝑃 ∈ ℙ → (𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) ∈ ℤ)
82		1z 12542	. . . . 5 ⊢ 1 ∈ ℤ
83		znegcl 12547	. . . . 5 ⊢ (1 ∈ ℤ → -1 ∈ ℤ)
84	82, 83	mp1i 13	. . . 4 ⊢ (𝑃 ∈ ℙ → -1 ∈ ℤ)
85		moddvds 16158	. . . 4 ⊢ ((𝑃 ∈ ℕ ∧ (𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) ∈ ℤ ∧ -1 ∈ ℤ) → (((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃) ↔ 𝑃 ∥ ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) − -1)))
86	11, 81, 84, 85	syl3anc 1371	. . 3 ⊢ (𝑃 ∈ ℙ → (((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) mod 𝑃) = (-1 mod 𝑃) ↔ 𝑃 ∥ ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) − -1)))
87	61, 86	mpbid 231	. 2 ⊢ (𝑃 ∈ ℙ → 𝑃 ∥ ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) − -1))
88		fcoi1 6721	. . . . . . . . . 10 ⊢ (( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶(1...(𝑃 − 1)) → (( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))) = ( I ↾ (1...(𝑃 − 1))))
89	73, 88	ax-mp 5	. . . . . . . . 9 ⊢ (( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))) = ( I ↾ (1...(𝑃 − 1)))
90	89	fveq1i 6848	. . . . . . . 8 ⊢ ((( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1))))‘𝑘) = (( I ↾ (1...(𝑃 − 1)))‘𝑘)
91		fvres 6866	. . . . . . . 8 ⊢ (𝑘 ∈ (1...(𝑃 − 1)) → (( I ↾ (1...(𝑃 − 1)))‘𝑘) = ( I ‘𝑘))
92	90, 91	eqtrid 2783	. . . . . . 7 ⊢ (𝑘 ∈ (1...(𝑃 − 1)) → ((( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1))))‘𝑘) = ( I ‘𝑘))
93	92	adantl 482	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑘 ∈ (1...(𝑃 − 1))) → ((( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1))))‘𝑘) = ( I ‘𝑘))
94	5, 93	seqfveq 13942	. . . . 5 ⊢ (𝑃 ∈ ℙ → (seq1( · , (( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))))‘(𝑃 − 1)) = (seq1( · , I )‘(𝑃 − 1)))
95		cnfldbas 20837	. . . . . . 7 ⊢ ℂ = (Base‘ℂfld)
96	51, 95	mgpbas 19916	. . . . . 6 ⊢ ℂ = (Base‘𝑇)
97		cnfldmul 20839	. . . . . . 7 ⊢ · = (.r‘ℂfld)
98	51, 97	mgpplusg 19914	. . . . . 6 ⊢ · = (+g‘𝑇)
99		eqid 2731	. . . . . 6 ⊢ (Cntz‘𝑇) = (Cntz‘𝑇)
100		cnring 20856	. . . . . . 7 ⊢ ℂfld ∈ Ring
101	51	ringmgp 19984	. . . . . . 7 ⊢ (ℂfld ∈ Ring → 𝑇 ∈ Mnd)
102	100, 101	mp1i 13	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑇 ∈ Mnd)
103		zsscn 12516	. . . . . . . 8 ⊢ ℤ ⊆ ℂ
104		fss 6690	. . . . . . . 8 ⊢ ((( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℤ ∧ ℤ ⊆ ℂ) → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℂ)
105	76, 103, 104	mp2an 690	. . . . . . 7 ⊢ ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℂ
106	105	a1i 11	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))⟶ℂ)
107	96, 99, 66, 106	cntzcmnf 19637	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ran ( I ↾ (1...(𝑃 − 1))) ⊆ ((Cntz‘𝑇)‘ran ( I ↾ (1...(𝑃 − 1)))))
108		f1of1 6788	. . . . . . 7 ⊢ (( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))–1-1-onto→(1...(𝑃 − 1)) → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))–1-1→(1...(𝑃 − 1)))
109	71, 108	mp1i 13	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ( I ↾ (1...(𝑃 − 1))):(1...(𝑃 − 1))–1-1→(1...(𝑃 − 1)))
110		suppssdm 8113	. . . . . . . . 9 ⊢ (( I ↾ (1...(𝑃 − 1))) supp 1) ⊆ dom ( I ↾ (1...(𝑃 − 1)))
111		dmresi 6010	. . . . . . . . 9 ⊢ dom ( I ↾ (1...(𝑃 − 1))) = (1...(𝑃 − 1))
112	110, 111	sseqtri 3983	. . . . . . . 8 ⊢ (( I ↾ (1...(𝑃 − 1))) supp 1) ⊆ (1...(𝑃 − 1))
113		rnresi 6032	. . . . . . . 8 ⊢ ran ( I ↾ (1...(𝑃 − 1))) = (1...(𝑃 − 1))
114	112, 113	sseqtrri 3984	. . . . . . 7 ⊢ (( I ↾ (1...(𝑃 − 1))) supp 1) ⊆ ran ( I ↾ (1...(𝑃 − 1)))
115	114	a1i 11	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (( I ↾ (1...(𝑃 − 1))) supp 1) ⊆ ran ( I ↾ (1...(𝑃 − 1))))
116		eqid 2731	. . . . . 6 ⊢ ((( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))) supp 1) = ((( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))) supp 1)
117	96, 63, 98, 99, 102, 67, 106, 107, 3, 109, 115, 116	gsumval3 19698	. . . . 5 ⊢ (𝑃 ∈ ℙ → (𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) = (seq1( · , (( I ↾ (1...(𝑃 − 1))) ∘ ( I ↾ (1...(𝑃 − 1)))))‘(𝑃 − 1)))
118		facnn 14185	. . . . . 6 ⊢ ((𝑃 − 1) ∈ ℕ → (!‘(𝑃 − 1)) = (seq1( · , I )‘(𝑃 − 1)))
119	3, 118	syl 17	. . . . 5 ⊢ (𝑃 ∈ ℙ → (!‘(𝑃 − 1)) = (seq1( · , I )‘(𝑃 − 1)))
120	94, 117, 119	3eqtr4d 2781	. . . 4 ⊢ (𝑃 ∈ ℙ → (𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) = (!‘(𝑃 − 1)))
121	120	oveq1d 7377	. . 3 ⊢ (𝑃 ∈ ℙ → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) − -1) = ((!‘(𝑃 − 1)) − -1))
122		nnm1nn0 12463	. . . . . . 7 ⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
123	11, 122	syl 17	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (𝑃 − 1) ∈ ℕ0)
124	123	faccld 14194	. . . . 5 ⊢ (𝑃 ∈ ℙ → (!‘(𝑃 − 1)) ∈ ℕ)
125	124	nncnd 12178	. . . 4 ⊢ (𝑃 ∈ ℙ → (!‘(𝑃 − 1)) ∈ ℂ)
126		ax-1cn 11118	. . . 4 ⊢ 1 ∈ ℂ
127		subneg 11459	. . . 4 ⊢ (((!‘(𝑃 − 1)) ∈ ℂ ∧ 1 ∈ ℂ) → ((!‘(𝑃 − 1)) − -1) = ((!‘(𝑃 − 1)) + 1))
128	125, 126, 127	sylancl 586	. . 3 ⊢ (𝑃 ∈ ℙ → ((!‘(𝑃 − 1)) − -1) = ((!‘(𝑃 − 1)) + 1))
129	121, 128	eqtrd 2771	. 2 ⊢ (𝑃 ∈ ℙ → ((𝑇 Σg ( I ↾ (1...(𝑃 − 1)))) − -1) = ((!‘(𝑃 − 1)) + 1))
130	87, 129	breqtrd 5136	1 ⊢ (𝑃 ∈ ℙ → 𝑃 ∥ ((!‘(𝑃 − 1)) + 1))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087  ∀wal 1539   = wceq 1541   ∈ wcel 2106  ∀wral 3060  {crab 3405  Vcvv 3446   ⊆ wss 3913   ⊊ wpss 3914  𝒫 cpw 4565   class class class wbr 5110   I cid 5535  dom cdm 5638  ran crn 5639   ↾ cres 5640   ∘ ccom 5642  ⟶wf 6497  –1-1→wf1 6498  –1-1-onto→wf1o 6500  ‘cfv 6501  (class class class)co 7362   supp csupp 8097  Fincfn 8890  ℂcc 11058  1c1 11061   + caddc 11063   · cmul 11065   − cmin 11394  -cneg 11395  ℕcn 12162  2c2 12217  ℕ₀cn0 12422  ℤcz 12508  ℤ_≥cuz 12772  ...cfz 13434   mod cmo 13784  seqcseq 13916  ↑cexp 13977  !cfa 14183   ∥ cdvds 16147  ℙcprime 16558   Σ_g cgsu 17336  Mndcmnd 18570  SubMndcsubmnd 18614  Cntzccntz 19109  CMndccmn 19576  mulGrpcmgp 19910  Ringcrg 19978  CRingccrg 19979  SubRingcsubrg 20266  ℂ_fldccnfld 20833

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137  ax-pre-sup 11138  ax-addf 11139  ax-mulf 11140

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-supp 8098  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-2o 8418  df-oadd 8421  df-er 8655  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9313  df-sup 9387  df-inf 9388  df-oi 9455  df-dju 9846  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-div 11822  df-nn 12163  df-2 12225  df-3 12226  df-4 12227  df-5 12228  df-6 12229  df-7 12230  df-8 12231  df-9 12232  df-n0 12423  df-xnn0 12495  df-z 12509  df-dec 12628  df-uz 12773  df-rp 12925  df-fz 13435  df-fzo 13578  df-fl 13707  df-mod 13785  df-seq 13917  df-exp 13978  df-fac 14184  df-hash 14241  df-cj 14996  df-re 14997  df-im 14998  df-sqrt 15132  df-abs 15133  df-dvds 16148  df-gcd 16386  df-prm 16559  df-phi 16649  df-struct 17030  df-sets 17047  df-slot 17065  df-ndx 17077  df-base 17095  df-ress 17124  df-plusg 17160  df-mulr 17161  df-starv 17162  df-tset 17166  df-ple 17167  df-ds 17169  df-unif 17170  df-0g 17337  df-gsum 17338  df-mre 17480  df-mrc 17481  df-acs 17483  df-mgm 18511  df-sgrp 18560  df-mnd 18571  df-submnd 18616  df-grp 18765  df-minusg 18766  df-mulg 18887  df-subg 18939  df-cntz 19111  df-cmn 19578  df-mgp 19911  df-ur 19928  df-ring 19980  df-cring 19981  df-subrg 20268  df-cnfld 20834

This theorem is referenced by:  wilth  26457