Theorem dchrinv 27233

Description: The inverse of a Dirichlet character is the conjugate (which is also the multiplicative inverse, because the values of 𝑋 are unimodular). (Contributed by Mario Carneiro, 28-Apr-2016.)

Hypotheses

Ref	Expression
dchrabs.g	⊢ 𝐺 = (DChr‘𝑁)
dchrabs.d	⊢ 𝐷 = (Base‘𝐺)
dchrabs.x	⊢ (𝜑 → 𝑋 ∈ 𝐷)
dchrinv.i	⊢ 𝐼 = (invg‘𝐺)

Assertion

Ref	Expression
dchrinv	⊢ (𝜑 → (𝐼‘𝑋) = (∗ ∘ 𝑋))

Proof of Theorem dchrinv

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dchrabs.g	. . . . . . . 8 ⊢ 𝐺 = (DChr‘𝑁)
2		eqid 2737	. . . . . . . 8 ⊢ (ℤ/nℤ‘𝑁) = (ℤ/nℤ‘𝑁)
3		dchrabs.d	. . . . . . . 8 ⊢ 𝐷 = (Base‘𝐺)
4		eqid 2737	. . . . . . . 8 ⊢ (+g‘𝐺) = (+g‘𝐺)
5		dchrabs.x	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
6		cjf 15032	. . . . . . . . . 10 ⊢ ∗:ℂ⟶ℂ
7		eqid 2737	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑁)) = (Base‘(ℤ/nℤ‘𝑁))
8	1, 2, 3, 7, 5	dchrf 27214	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
9		fco 6687	. . . . . . . . . 10 ⊢ ((∗:ℂ⟶ℂ ∧ 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ) → (∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
10	6, 8, 9	sylancr 588	. . . . . . . . 9 ⊢ (𝜑 → (∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
11		eqid 2737	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Unit‘(ℤ/nℤ‘𝑁)) = (Unit‘(ℤ/nℤ‘𝑁))
12	1, 3	dchrrcl 27212	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑋 ∈ 𝐷 → 𝑁 ∈ ℕ)
13	5, 12	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑁 ∈ ℕ)
14	1, 2, 7, 11, 13, 3	dchrelbas3 27210	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑋 ∈ 𝐷 ↔ (𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))))
15	5, 14	mpbid 232	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))))
16	15	simprd 495	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
17	16	simp1d 1143	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
18	17	r19.21bi 3229	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
19	18	r19.21bi 3229	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
20	19	anasss 466	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
21	20	fveq2d 6839	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))) = (∗‘((𝑋‘𝑥) · (𝑋‘𝑦))))
22	8	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
23	7, 11	unitss 20317	. . . . . . . . . . . . . . . 16 ⊢ (Unit‘(ℤ/nℤ‘𝑁)) ⊆ (Base‘(ℤ/nℤ‘𝑁))
24		simprl 771	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
25	23, 24	sselid 3932	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
26	22, 25	ffvelcdmd 7032	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘𝑥) ∈ ℂ)
27		simprr 773	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
28	23, 27	sselid 3932	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁)))
29	22, 28	ffvelcdmd 7032	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘𝑦) ∈ ℂ)
30	26, 29	cjmuld 15149	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘((𝑋‘𝑥) · (𝑋‘𝑦))) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
31	21, 30	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
32	13	nnnn0d 12467	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
33	2	zncrng 21504	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ0 → (ℤ/nℤ‘𝑁) ∈ CRing)
34		crngring 20185	. . . . . . . . . . . . . . . 16 ⊢ ((ℤ/nℤ‘𝑁) ∈ CRing → (ℤ/nℤ‘𝑁) ∈ Ring)
35	32, 33, 34	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (ℤ/nℤ‘𝑁) ∈ Ring)
36	35	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (ℤ/nℤ‘𝑁) ∈ Ring)
37		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ (.r‘(ℤ/nℤ‘𝑁)) = (.r‘(ℤ/nℤ‘𝑁))
38	7, 37	ringcl 20190	. . . . . . . . . . . . . 14 ⊢ (((ℤ/nℤ‘𝑁) ∈ Ring ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁)))
39	36, 25, 28, 38	syl3anc 1374	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁)))
40		fvco3 6934	. . . . . . . . . . . . 13 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))))
41	22, 39, 40	syl2anc 585	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))))
42		fvco3 6934	. . . . . . . . . . . . . 14 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
43	22, 25, 42	syl2anc 585	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
44		fvco3 6934	. . . . . . . . . . . . . 14 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑦) = (∗‘(𝑋‘𝑦)))
45	22, 28, 44	syl2anc 585	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘𝑦) = (∗‘(𝑋‘𝑦)))
46	43, 45	oveq12d 7379	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
47	31, 41, 46	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)))
48	47	ralrimivva 3180	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)))
49		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (1r‘(ℤ/nℤ‘𝑁)) = (1r‘(ℤ/nℤ‘𝑁))
50	7, 49	ringidcl 20205	. . . . . . . . . . . . 13 ⊢ ((ℤ/nℤ‘𝑁) ∈ Ring → (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁)))
51	35, 50	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁)))
52		fvco3 6934	. . . . . . . . . . . 12 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))))
53	8, 51, 52	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))))
54	16	simp2d 1144	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1)
55	54	fveq2d 6839	. . . . . . . . . . . 12 ⊢ (𝜑 → (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))) = (∗‘1))
56		1re 11137	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℝ
57		cjre 15067	. . . . . . . . . . . . 13 ⊢ (1 ∈ ℝ → (∗‘1) = 1)
58	56, 57	ax-mp 5	. . . . . . . . . . . 12 ⊢ (∗‘1) = 1
59	55, 58	eqtrdi 2788	. . . . . . . . . . 11 ⊢ (𝜑 → (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))) = 1)
60	53, 59	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1)
61	16	simp3d 1145	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))
62	8, 42	sylan 581	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
63		cj0 15086	. . . . . . . . . . . . . . . . . 18 ⊢ (∗‘0) = 0
64	63	eqcomi 2746	. . . . . . . . . . . . . . . . 17 ⊢ 0 = (∗‘0)
65	64	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → 0 = (∗‘0))
66	62, 65	eqeq12d 2753	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) = 0 ↔ (∗‘(𝑋‘𝑥)) = (∗‘0)))
67	8	ffvelcdmda 7031	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (𝑋‘𝑥) ∈ ℂ)
68		0cn 11129	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℂ
69		cj11 15090	. . . . . . . . . . . . . . . 16 ⊢ (((𝑋‘𝑥) ∈ ℂ ∧ 0 ∈ ℂ) → ((∗‘(𝑋‘𝑥)) = (∗‘0) ↔ (𝑋‘𝑥) = 0))
70	67, 68, 69	sylancl 587	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗‘(𝑋‘𝑥)) = (∗‘0) ↔ (𝑋‘𝑥) = 0))
71	66, 70	bitrd 279	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) = 0 ↔ (𝑋‘𝑥) = 0))
72	71	necon3bid 2977	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) ≠ 0 ↔ (𝑋‘𝑥) ≠ 0))
73	72	imbi1d 341	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ↔ ((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
74	73	ralbidva 3158	. . . . . . . . . . 11 ⊢ (𝜑 → (∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ↔ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
75	61, 74	mpbird 257	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))
76	48, 60, 75	3jca 1129	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) ∧ ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
77	1, 2, 7, 11, 13, 3	dchrelbas3 27210	. . . . . . . . 9 ⊢ (𝜑 → ((∗ ∘ 𝑋) ∈ 𝐷 ↔ ((∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) ∧ ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))))
78	10, 76, 77	mpbir2and 714	. . . . . . . 8 ⊢ (𝜑 → (∗ ∘ 𝑋) ∈ 𝐷)
79	1, 2, 3, 4, 5, 78	dchrmul 27220	. . . . . . 7 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (𝑋 ∘f · (∗ ∘ 𝑋)))
80	79	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (𝑋 ∘f · (∗ ∘ 𝑋)))
81	80	fveq1d 6837	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥))
82	23	sseli 3930	. . . . . . . . 9 ⊢ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
83	82, 62	sylan2 594	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
84	83	oveq2d 7377	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)) = ((𝑋‘𝑥) · (∗‘(𝑋‘𝑥))))
85	82, 67	sylan2 594	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋‘𝑥) ∈ ℂ)
86	85	absvalsqd 15373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = ((𝑋‘𝑥) · (∗‘(𝑋‘𝑥))))
87	5	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋 ∈ 𝐷)
88		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
89	1, 3, 87, 2, 11, 88	dchrabs 27232	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (abs‘(𝑋‘𝑥)) = 1)
90	89	oveq1d 7376	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = (1↑2))
91		sq1 14123	. . . . . . . 8 ⊢ (1↑2) = 1
92	90, 91	eqtrdi 2788	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = 1)
93	84, 86, 92	3eqtr2d 2778	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)) = 1)
94	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
95	94	ffnd 6664	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋 Fn (Base‘(ℤ/nℤ‘𝑁)))
96	10	ffnd 6664	. . . . . . . 8 ⊢ (𝜑 → (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁)))
97	96	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁)))
98		fvexd 6850	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (Base‘(ℤ/nℤ‘𝑁)) ∈ V)
99	82	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
100		fnfvof 7642	. . . . . . 7 ⊢ (((𝑋 Fn (Base‘(ℤ/nℤ‘𝑁)) ∧ (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁))) ∧ ((Base‘(ℤ/nℤ‘𝑁)) ∈ V ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)))
101	95, 97, 98, 99, 100	syl22anc 839	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)))
102		eqid 2737	. . . . . . 7 ⊢ (0g‘𝐺) = (0g‘𝐺)
103	13	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑁 ∈ ℕ)
104	1, 2, 102, 11, 103, 88	dchr1 27229	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((0g‘𝐺)‘𝑥) = 1)
105	93, 101, 104	3eqtr4d 2782	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
106	81, 105	eqtrd 2772	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
107	106	ralrimiva 3129	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
108	1, 2, 3, 4, 5, 78	dchrmulcl 27221	. . . 4 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) ∈ 𝐷)
109	1	dchrabl 27226	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝐺 ∈ Abel)
110		ablgrp 19719	. . . . . 6 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
111	13, 109, 110	3syl 18	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ Grp)
112	3, 102	grpidcl 18900	. . . . 5 ⊢ (𝐺 ∈ Grp → (0g‘𝐺) ∈ 𝐷)
113	111, 112	syl 17	. . . 4 ⊢ (𝜑 → (0g‘𝐺) ∈ 𝐷)
114	1, 2, 3, 11, 108, 113	dchreq 27230	. . 3 ⊢ (𝜑 → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺) ↔ ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥)))
115	107, 114	mpbird 257	. 2 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺))
116		dchrinv.i	. . . 4 ⊢ 𝐼 = (invg‘𝐺)
117	3, 4, 102, 116	grpinvid1 18926	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐷 ∧ (∗ ∘ 𝑋) ∈ 𝐷) → ((𝐼‘𝑋) = (∗ ∘ 𝑋) ↔ (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺)))
118	111, 5, 78, 117	syl3anc 1374	. 2 ⊢ (𝜑 → ((𝐼‘𝑋) = (∗ ∘ 𝑋) ↔ (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺)))
119	115, 118	mpbird 257	1 ⊢ (𝜑 → (𝐼‘𝑋) = (∗ ∘ 𝑋))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ∀wral 3052  Vcvv 3441   ∘ ccom 5629   Fn wfn 6488  ⟶wf 6489  ‘cfv 6493  (class class class)co 7361   ∘_f cof 7623  ℂcc 11029  ℝcr 11030  0cc0 11031  1c1 11032   · cmul 11036  ℕcn 12150  2c2 12205  ℕ₀cn0 12406  ↑cexp 13989  ∗ccj 15024  abscabs 15162  Basecbs 17141  +_gcplusg 17182  ._rcmulr 17183  0_gc0g 17364  Grpcgrp 18868  inv_gcminusg 18869  Abelcabl 19715  1_rcur 20121  Ringcrg 20173  CRingccrg 20174  Unitcui 20296  ℤ/nℤczn 21462  DChrcdchr 27204

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7683  ax-inf2 9555  ax-cnex 11087  ax-resscn 11088  ax-1cn 11089  ax-icn 11090  ax-addcl 11091  ax-addrcl 11092  ax-mulcl 11093  ax-mulrcl 11094  ax-mulcom 11095  ax-addass 11096  ax-mulass 11097  ax-distr 11098  ax-i2m1 11099  ax-1ne0 11100  ax-1rid 11101  ax-rnegex 11102  ax-rrecex 11103  ax-cnre 11104  ax-pre-lttri 11105  ax-pre-lttrn 11106  ax-pre-ltadd 11107  ax-pre-mulgt0 11108  ax-pre-sup 11109  ax-addf 11110  ax-mulf 11111

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-int 4904  df-iun 4949  df-iin 4950  df-disj 5067  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-of 7625  df-om 7812  df-1st 7936  df-2nd 7937  df-supp 8106  df-tpos 8171  df-frecs 8226  df-wrecs 8257  df-recs 8306  df-rdg 8344  df-1o 8400  df-2o 8401  df-oadd 8404  df-omul 8405  df-er 8638  df-ec 8640  df-qs 8644  df-map 8770  df-pm 8771  df-ixp 8841  df-en 8889  df-dom 8890  df-sdom 8891  df-fin 8892  df-fsupp 9270  df-fi 9319  df-sup 9350  df-inf 9351  df-oi 9420  df-card 9856  df-acn 9859  df-pnf 11173  df-mnf 11174  df-xr 11175  df-ltxr 11176  df-le 11177  df-sub 11371  df-neg 11372  df-div 11800  df-nn 12151  df-2 12213  df-3 12214  df-4 12215  df-5 12216  df-6 12217  df-7 12218  df-8 12219  df-9 12220  df-n0 12407  df-z 12494  df-dec 12613  df-uz 12757  df-q 12867  df-rp 12911  df-xneg 13031  df-xadd 13032  df-xmul 13033  df-ioo 13270  df-ioc 13271  df-ico 13272  df-icc 13273  df-fz 13429  df-fzo 13576  df-fl 13717  df-mod 13795  df-seq 13930  df-exp 13990  df-fac 14202  df-bc 14231  df-hash 14259  df-shft 14995  df-cj 15027  df-re 15028  df-im 15029  df-sqrt 15163  df-abs 15164  df-limsup 15399  df-clim 15416  df-rlim 15417  df-sum 15615  df-ef 15995  df-sin 15997  df-cos 15998  df-pi 16000  df-dvds 16185  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17142  df-ress 17163  df-plusg 17195  df-mulr 17196  df-starv 17197  df-sca 17198  df-vsca 17199  df-ip 17200  df-tset 17201  df-ple 17202  df-ds 17204  df-unif 17205  df-hom 17206  df-cco 17207  df-rest 17347  df-topn 17348  df-0g 17366  df-gsum 17367  df-topgen 17368  df-pt 17369  df-prds 17372  df-xrs 17428  df-qtop 17433  df-imas 17434  df-qus 17435  df-xps 17436  df-mre 17510  df-mrc 17511  df-acs 17513  df-mgm 18570  df-sgrp 18649  df-mnd 18665  df-mhm 18713  df-submnd 18714  df-grp 18871  df-minusg 18872  df-sbg 18873  df-mulg 19003  df-subg 19058  df-nsg 19059  df-eqg 19060  df-ghm 19147  df-cntz 19251  df-od 19462  df-cmn 19716  df-abl 19717  df-mgp 20081  df-rng 20093  df-ur 20122  df-ring 20175  df-cring 20176  df-oppr 20278  df-dvdsr 20298  df-unit 20299  df-invr 20329  df-dvr 20342  df-rhm 20413  df-subrng 20484  df-subrg 20508  df-drng 20669  df-lmod 20818  df-lss 20888  df-lsp 20928  df-sra 21130  df-rgmod 21131  df-lidl 21168  df-rsp 21169  df-2idl 21210  df-psmet 21306  df-xmet 21307  df-met 21308  df-bl 21309  df-mopn 21310  df-fbas 21311  df-fg 21312  df-cnfld 21315  df-zring 21407  df-zrh 21463  df-zn 21466  df-top 22843  df-topon 22860  df-topsp 22882  df-bases 22895  df-cld 22968  df-ntr 22969  df-cls 22970  df-nei 23047  df-lp 23085  df-perf 23086  df-cn 23176  df-cnp 23177  df-haus 23264  df-tx 23511  df-hmeo 23704  df-fil 23795  df-fm 23887  df-flim 23888  df-flf 23889  df-xms 24269  df-ms 24270  df-tms 24271  df-cncf 24832  df-limc 25828  df-dv 25829  df-log 26526  df-cxp 26527  df-dchr 27205

This theorem is referenced by:  dchr2sum  27245  dchrisum0re  27485