Theorem dchrinv 27551

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 2760	. . . . . . . 8 ⊢ (ℤ/nℤ‘𝑁) = (ℤ/nℤ‘𝑁)
3		dchrabs.d	. . . . . . . 8 ⊢ 𝐷 = (Base‘𝐺)
4		eqid 2760	. . . . . . . 8 ⊢ (+g‘𝐺) = (+g‘𝐺)
5		dchrabs.x	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
6		cjf 15238	. . . . . . . . . 10 ⊢ ∗:ℂ⟶ℂ
7		eqid 2760	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑁)) = (Base‘(ℤ/nℤ‘𝑁))
8	1, 2, 3, 7, 5	dchrf 27532	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
9		fco 6722	. . . . . . . . . 10 ⊢ ((∗:ℂ⟶ℂ ∧ 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ) → (∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
10	6, 8, 9	sylancr 599	. . . . . . . . 9 ⊢ (𝜑 → (∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
11		eqid 2760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Unit‘(ℤ/nℤ‘𝑁)) = (Unit‘(ℤ/nℤ‘𝑁))
12	1, 3	dchrrcl 27530	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑋 ∈ 𝐷 → 𝑁 ∈ ℕ)
13	5, 12	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑁 ∈ ℕ)
14	1, 2, 7, 11, 13, 3	dchrelbas3 27528	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑋 ∈ 𝐷 ↔ (𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))))
15	5, 14	mpbid 235	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))))
16	15	simprd 501	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)) ∧ (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
17	16	simp1d 1160	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
18	17	r19.21bi 3254	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
19	18	r19.21bi 3254	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
20	19	anasss 472	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = ((𝑋‘𝑥) · (𝑋‘𝑦)))
21	20	fveq2d 6877	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))) = (∗‘((𝑋‘𝑥) · (𝑋‘𝑦))))
22	8	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
23	7, 11	unitss 20567	. . . . . . . . . . . . . . . 16 ⊢ (Unit‘(ℤ/nℤ‘𝑁)) ⊆ (Base‘(ℤ/nℤ‘𝑁))
24		simprl 783	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
25	23, 24	sselid 3928	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
26	22, 25	ffvelcdmd 7073	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘𝑥) ∈ ℂ)
27		simprr 785	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
28	23, 27	sselid 3928	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁)))
29	22, 28	ffvelcdmd 7073	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑋‘𝑦) ∈ ℂ)
30	26, 29	cjmuld 15355	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘((𝑋‘𝑥) · (𝑋‘𝑦))) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
31	21, 30	eqtrd 2795	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
32	13	nnnn0d 12636	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
33	2	zncrng 21811	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ0 → (ℤ/nℤ‘𝑁) ∈ CRing)
34		crngring 20433	. . . . . . . . . . . . . . . 16 ⊢ ((ℤ/nℤ‘𝑁) ∈ CRing → (ℤ/nℤ‘𝑁) ∈ Ring)
35	32, 33, 34	3syl 19	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (ℤ/nℤ‘𝑁) ∈ Ring)
36	35	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (ℤ/nℤ‘𝑁) ∈ Ring)
37		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (.r‘(ℤ/nℤ‘𝑁)) = (.r‘(ℤ/nℤ‘𝑁))
38	7, 37	ringcl 20438	. . . . . . . . . . . . . 14 ⊢ (((ℤ/nℤ‘𝑁) ∈ Ring ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁)))
39	36, 25, 28, 38	syl3anc 1398	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁)))
40		fvco3 6973	. . . . . . . . . . . . 13 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦) ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))))
41	22, 39, 40	syl2anc 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (∗‘(𝑋‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦))))
42		fvco3 6973	. . . . . . . . . . . . . 14 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
43	22, 25, 42	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
44		fvco3 6973	. . . . . . . . . . . . . 14 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ 𝑦 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑦) = (∗‘(𝑋‘𝑦)))
45	22, 28, 44	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘𝑦) = (∗‘(𝑋‘𝑦)))
46	43, 45	oveq12d 7426	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) = ((∗‘(𝑋‘𝑥)) · (∗‘(𝑋‘𝑦))))
47	31, 41, 46	3eqtr4d 2805	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) ∧ 𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁)))) → ((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)))
48	47	ralrimivva 3205	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)))
49		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (1r‘(ℤ/nℤ‘𝑁)) = (1r‘(ℤ/nℤ‘𝑁))
50	7, 49	ringidcl 20455	. . . . . . . . . . . . 13 ⊢ ((ℤ/nℤ‘𝑁) ∈ Ring → (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁)))
51	35, 50	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁)))
52		fvco3 6973	. . . . . . . . . . . 12 ⊢ ((𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (1r‘(ℤ/nℤ‘𝑁)) ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))))
53	8, 51, 52	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))))
54	16	simp2d 1161	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋‘(1r‘(ℤ/nℤ‘𝑁))) = 1)
55	54	fveq2d 6877	. . . . . . . . . . . 12 ⊢ (𝜑 → (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))) = (∗‘1))
56		1re 11279	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℝ
57		cjre 15273	. . . . . . . . . . . . 13 ⊢ (1 ∈ ℝ → (∗‘1) = 1)
58	56, 57	ax-mp 5	. . . . . . . . . . . 12 ⊢ (∗‘1) = 1
59	55, 58	eqtrdi 2811	. . . . . . . . . . 11 ⊢ (𝜑 → (∗‘(𝑋‘(1r‘(ℤ/nℤ‘𝑁)))) = 1)
60	53, 59	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝜑 → ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1)
61	16	simp3d 1162	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))
62	8, 42	sylan 592	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
63		cj0 15292	. . . . . . . . . . . . . . . . . 18 ⊢ (∗‘0) = 0
64	63	eqcomi 2769	. . . . . . . . . . . . . . . . 17 ⊢ 0 = (∗‘0)
65	64	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → 0 = (∗‘0))
66	62, 65	eqeq12d 2776	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) = 0 ↔ (∗‘(𝑋‘𝑥)) = (∗‘0)))
67	8	ffvelcdmda 7072	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (𝑋‘𝑥) ∈ ℂ)
68		0cn 11269	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℂ
69		cj11 15296	. . . . . . . . . . . . . . . 16 ⊢ (((𝑋‘𝑥) ∈ ℂ ∧ 0 ∈ ℂ) → ((∗‘(𝑋‘𝑥)) = (∗‘0) ↔ (𝑋‘𝑥) = 0))
70	67, 68, 69	sylancl 598	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((∗‘(𝑋‘𝑥)) = (∗‘0) ↔ (𝑋‘𝑥) = 0))
71	66, 70	bitrd 282	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) = 0 ↔ (𝑋‘𝑥) = 0))
72	71	necon3bid 2999	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → (((∗ ∘ 𝑋)‘𝑥) ≠ 0 ↔ (𝑋‘𝑥) ≠ 0))
73	72	imbi1d 344	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))) → ((((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ↔ ((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
74	73	ralbidva 3183	. . . . . . . . . . 11 ⊢ (𝜑 → (∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) ↔ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))((𝑋‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
75	61, 74	mpbird 260	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))))
76	48, 60, 75	3jca 1146	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) ∧ ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))
77	1, 2, 7, 11, 13, 3	dchrelbas3 27528	. . . . . . . . 9 ⊢ (𝜑 → ((∗ ∘ 𝑋) ∈ 𝐷 ↔ ((∗ ∘ 𝑋):(Base‘(ℤ/nℤ‘𝑁))⟶ℂ ∧ (∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))∀𝑦 ∈ (Unit‘(ℤ/nℤ‘𝑁))((∗ ∘ 𝑋)‘(𝑥(.r‘(ℤ/nℤ‘𝑁))𝑦)) = (((∗ ∘ 𝑋)‘𝑥) · ((∗ ∘ 𝑋)‘𝑦)) ∧ ((∗ ∘ 𝑋)‘(1r‘(ℤ/nℤ‘𝑁))) = 1 ∧ ∀𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁))(((∗ ∘ 𝑋)‘𝑥) ≠ 0 → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))))))
78	10, 76, 77	mpbir2and 726	. . . . . . . 8 ⊢ (𝜑 → (∗ ∘ 𝑋) ∈ 𝐷)
79	1, 2, 3, 4, 5, 78	dchrmul 27538	. . . . . . 7 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (𝑋 ∘f · (∗ ∘ 𝑋)))
80	79	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (𝑋 ∘f · (∗ ∘ 𝑋)))
81	80	fveq1d 6875	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥))
82	23	sseli 3926	. . . . . . . . 9 ⊢ (𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
83	82, 62	sylan2 605	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((∗ ∘ 𝑋)‘𝑥) = (∗‘(𝑋‘𝑥)))
84	83	oveq2d 7424	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)) = ((𝑋‘𝑥) · (∗‘(𝑋‘𝑥))))
85	82, 67	sylan2 605	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (𝑋‘𝑥) ∈ ℂ)
86	85	absvalsqd 15579	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = ((𝑋‘𝑥) · (∗‘(𝑋‘𝑥))))
87	5	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋 ∈ 𝐷)
88		simpr 490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁)))
89	1, 3, 87, 2, 11, 88	dchrabs 27550	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (abs‘(𝑋‘𝑥)) = 1)
90	89	oveq1d 7423	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = (1↑2))
91		sq1 14306	. . . . . . . 8 ⊢ (1↑2) = 1
92	90, 91	eqtrdi 2811	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((abs‘(𝑋‘𝑥))↑2) = 1)
93	84, 86, 92	3eqtr2d 2801	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)) = 1)
94	8	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋:(Base‘(ℤ/nℤ‘𝑁))⟶ℂ)
95	94	ffnd 6698	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑋 Fn (Base‘(ℤ/nℤ‘𝑁)))
96	10	ffnd 6698	. . . . . . . 8 ⊢ (𝜑 → (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁)))
97	96	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁)))
98		fvexd 6888	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → (Base‘(ℤ/nℤ‘𝑁)) ∈ V)
99	82	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))
100		fnfvof 7693	. . . . . . 7 ⊢ (((𝑋 Fn (Base‘(ℤ/nℤ‘𝑁)) ∧ (∗ ∘ 𝑋) Fn (Base‘(ℤ/nℤ‘𝑁))) ∧ ((Base‘(ℤ/nℤ‘𝑁)) ∈ V ∧ 𝑥 ∈ (Base‘(ℤ/nℤ‘𝑁)))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)))
101	95, 97, 98, 99, 100	syl22anc 852	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((𝑋‘𝑥) · ((∗ ∘ 𝑋)‘𝑥)))
102		eqid 2760	. . . . . . 7 ⊢ (0g‘𝐺) = (0g‘𝐺)
103	13	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → 𝑁 ∈ ℕ)
104	1, 2, 102, 11, 103, 88	dchr1 27547	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((0g‘𝐺)‘𝑥) = 1)
105	93, 101, 104	3eqtr4d 2805	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋 ∘f · (∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
106	81, 105	eqtrd 2795	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))) → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
107	106	ralrimiva 3154	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥))
108	1, 2, 3, 4, 5, 78	dchrmulcl 27539	. . . 4 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) ∈ 𝐷)
109	1	dchrabl 27544	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝐺 ∈ Abel)
110		ablgrp 19960	. . . . . 6 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
111	13, 109, 110	3syl 19	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ Grp)
112	3, 102	grpidcl 19137	. . . . 5 ⊢ (𝐺 ∈ Grp → (0g‘𝐺) ∈ 𝐷)
113	111, 112	syl 18	. . . 4 ⊢ (𝜑 → (0g‘𝐺) ∈ 𝐷)
114	1, 2, 3, 11, 108, 113	dchreq 27548	. . 3 ⊢ (𝜑 → ((𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺) ↔ ∀𝑥 ∈ (Unit‘(ℤ/nℤ‘𝑁))((𝑋(+g‘𝐺)(∗ ∘ 𝑋))‘𝑥) = ((0g‘𝐺)‘𝑥)))
115	107, 114	mpbird 260	. 2 ⊢ (𝜑 → (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺))
116		dchrinv.i	. . . 4 ⊢ 𝐼 = (invg‘𝐺)
117	3, 4, 102, 116	grpinvid1 19163	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐷 ∧ (∗ ∘ 𝑋) ∈ 𝐷) → ((𝐼‘𝑋) = (∗ ∘ 𝑋) ↔ (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺)))
118	111, 5, 78, 117	syl3anc 1398	. 2 ⊢ (𝜑 → ((𝐼‘𝑋) = (∗ ∘ 𝑋) ↔ (𝑋(+g‘𝐺)(∗ ∘ 𝑋)) = (0g‘𝐺)))
119	115, 118	mpbird 260	1 ⊢ (𝜑 → (𝐼‘𝑋) = (∗ ∘ 𝑋))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   ≠ wne 2955  ∀wral 3076  Vcvv 3450   ∘ ccom 5651   Fn wfn 6522  ⟶wf 6523  ‘cfv 6527  (class class class)co 7408   ∘_f cof 7674  ℂcc 11169  ℝcr 11170  0cc0 11171  1c1 11172   · cmul 11176  ℕcn 12304  2c2 12366  ℕ₀cn0 12575  ↑cexp 14172  ∗ccj 15230  abscabs 15368  Basecbs 17348  +_gcplusg 17389  ._rcmulr 17390  0_gc0g 17571  Grpcgrp 19105  inv_gcminusg 19106  Abelcabl 19956  1_rcur 20368  Ringcrg 20420  CRingccrg 20421  Unitcui 20546  ℤ/nℤczn 21769  DChrcdchr 27522

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-inf2 9620  ax-cnex 11227  ax-resscn 11228  ax-1cn 11229  ax-icn 11230  ax-addcl 11231  ax-addrcl 11232  ax-mulcl 11233  ax-mulrcl 11234  ax-mulcom 11235  ax-addass 11236  ax-mulass 11237  ax-distr 11238  ax-i2m1 11239  ax-1ne0 11240  ax-1rid 11241  ax-rnegex 11242  ax-rrecex 11243  ax-cnre 11244  ax-pre-lttri 11245  ax-pre-lttrn 11246  ax-pre-ltadd 11247  ax-pre-mulgt0 11248  ax-pre-sup 11249  ax-addf 11250  ax-mulf 11251

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-tp 4588  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-disj 5070  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7676  df-om 7861  df-1st 7984  df-2nd 7985  df-supp 8156  df-tpos 8221  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8454  df-2o 8455  df-oadd 8458  df-omul 8459  df-er 8695  df-ec 8697  df-qs 8701  df-map 8827  df-pm 8828  df-ixp 8904  df-en 8952  df-dom 8953  df-sdom 8954  df-fin 8955  df-fsupp 9332  df-fi 9381  df-sup 9412  df-inf 9413  df-oi 9482  df-card 9991  df-acn 9994  df-pnf 11316  df-mnf 11317  df-xr 11318  df-ltxr 11319  df-le 11320  df-sub 11514  df-neg 11515  df-div 11943  df-nn 12305  df-2 12374  df-3 12375  df-4 12376  df-5 12377  df-6 12378  df-7 12379  df-8 12380  df-9 12381  df-n0 12576  df-z 12663  df-dec 12784  df-uz 12935  df-q 13045  df-rp 13090  df-xneg 13210  df-xadd 13211  df-xmul 13212  df-ioo 13449  df-ioc 13450  df-ico 13451  df-icc 13452  df-fz 13609  df-fzo 13757  df-fl 13900  df-mod 13978  df-seq 14113  df-exp 14173  df-fac 14385  df-bc 14414  df-hash 14442  df-shft 15187  df-cj 15233  df-re 15234  df-im 15235  df-sqrt 15369  df-abs 15370  df-limsup 15605  df-clim 15622  df-rlim 15623  df-sum 15821  df-ef 16200  df-sin 16202  df-cos 16203  df-pi 16205  df-dvds 16390  df-struct 17286  df-sets 17303  df-slot 17321  df-ndx 17333  df-base 17349  df-ress 17370  df-plusg 17402  df-mulr 17403  df-starv 17404  df-sca 17405  df-vsca 17406  df-ip 17407  df-tset 17408  df-ple 17409  df-ds 17411  df-unif 17412  df-hom 17413  df-cco 17414  df-rest 17554  df-topn 17555  df-0g 17573  df-gsum 17574  df-topgen 17575  df-pt 17576  df-prds 17579  df-xrs 17635  df-qtop 17640  df-imas 17641  df-qus 17642  df-xps 17643  df-mre 17717  df-mrc 17718  df-acs 17720  df-mgm 18777  df-sgrp 18869  df-mnd 18885  df-mhm 18939  df-submnd 18940  df-grp 19108  df-minusg 19109  df-sbg 19110  df-mulg 19239  df-subg 19294  df-nsg 19295  df-eqg 19296  df-ghm 19389  df-cntz 19492  df-od 19703  df-cmn 19957  df-abl 19958  df-mgp 20322  df-rng 20336  df-ur 20369  df-ring 20422  df-cring 20423  df-oppr 20528  df-dvdsr 20548  df-unit 20549  df-invr 20579  df-dvr 20592  df-rhm 20663  df-subrng 20759  df-subrg 20783  df-drng 20943  df-lmod 21098  df-lss 21168  df-lsp 21208  df-sra 21409  df-rgmod 21410  df-lidl 21447  df-rsp 21448  df-2idl 21504  df-psmet 21631  df-xmet 21632  df-met 21633  df-bl 21634  df-mopn 21635  df-fbas 21636  df-fg 21637  df-cnfld 21640  df-zring 21714  df-zrh 21770  df-zn 21773  df-top 23173  df-topon 23190  df-topsp 23212  df-bases 23225  df-cld 23298  df-ntr 23299  df-cls 23300  df-nei 23377  df-lp 23415  df-perf 23416  df-cn 23506  df-cnp 23507  df-haus 23594  df-tx 23842  df-hmeo 24035  df-fil 24126  df-fm 24218  df-flim 24219  df-flf 24220  df-xms 24600  df-ms 24601  df-tms 24602  df-cncf 25160  df-limc 26147  df-dv 26148  df-log 26847  df-cxp 26848  df-dchr 27523

This theorem is used by:  dchr2sum  27563  dchrisum0re  27803