Theorem dchrelbas3 22576

Description: A Dirichlet character is a monoid homomorphism from the multiplicative monoid on ℤ/nℤ to the multiplicative monoid of CC, which is zero off the group of units of ℤ/nℤ. (Contributed by Mario Carneiro, 19-Apr-2016.)

Hypotheses

Ref	Expression
dchrval.g	|- G = (DChr ` N )
dchrval.z	|- Z = (ℤ/nℤ ` N )
dchrval.b	|- B = ( Base ` Z )
dchrval.u	|- U = (Unit ` Z )
dchrval.n	|- ( ph -> N e. NN )
dchrbas.b	|- D = ( Base ` G )

Assertion

Ref	Expression
dchrelbas3	|- ( ph -> ( X e. D <-> ( X : B --> CC /\ ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) ) )

Distinct variable groups:   x, y, B   x, N   x, U, y   ph, x, y   x, X, y   x, Z, y

Allowed substitution hints:   D( x, y)   G( x, y)   N( y)

Proof of Theorem dchrelbas3

Dummy variable z is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dchrval.g	. . 3 |- G = (DChr ` N )
2		dchrval.z	. . 3 |- Z = (ℤ/nℤ ` N )
3		dchrval.b	. . 3 |- B = ( Base ` Z )
4		dchrval.u	. . 3 |- U = (Unit ` Z )
5		dchrval.n	. . 3 |- ( ph -> N e. NN )
6		dchrbas.b	. . 3 |- D = ( Base ` G )
7	1, 2, 3, 4, 5, 6	dchrelbas2 22575	. 2 |- ( ph -> ( X e. D <-> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) )
8		fveq2 5690	. . . . . . . 8 |- ( z = x -> ( X ` z ) = ( X ` x ) )
9	8	neeq1d 2620	. . . . . . 7 |- ( z = x -> ( ( X ` z ) =/= 0 <-> ( X ` x ) =/= 0 ) )
10		eleq1 2502	. . . . . . 7 |- ( z = x -> ( z e. U <-> x e. U ) )
11	9, 10	imbi12d 320	. . . . . 6 |- ( z = x -> ( ( ( X ` z ) =/= 0 -> z e. U ) <-> ( ( X ` x ) =/= 0 -> x e. U ) ) )
12	11	cbvralv 2946	. . . . 5 |- ( A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) <-> A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) )
13	5	nnnn0d 10635	. . . . . . . . . . 11 |- ( ph -> N e. NN0 )
14	2	zncrng 17976	. . . . . . . . . . 11 |- ( N e. NN0 -> Z e. CRing )
15	13, 14	syl 16	. . . . . . . . . 10 |- ( ph -> Z e. CRing )
16		crngrng 16654	. . . . . . . . . 10 |- ( Z e. CRing -> Z e. Ring )
17	15, 16	syl 16	. . . . . . . . 9 |- ( ph -> Z e. Ring )
18		eqid 2442	. . . . . . . . . 10 |- (mulGrp ` Z ) = (mulGrp ` Z )
19	18	rngmgp 16650	. . . . . . . . 9 |- ( Z e. Ring -> (mulGrp ` Z ) e. Mnd )
20	17, 19	syl 16	. . . . . . . 8 |- ( ph -> (mulGrp ` Z ) e. Mnd )
21		cnrng 17837	. . . . . . . . 9 |- ℂfld e. Ring
22		eqid 2442	. . . . . . . . . 10 |- (mulGrp ` ℂfld ) = (mulGrp ` ℂfld )
23	22	rngmgp 16650	. . . . . . . . 9 |- (ℂfld e. Ring -> (mulGrp ` ℂfld ) e. Mnd )
24	21, 23	ax-mp 5	. . . . . . . 8 |- (mulGrp ` ℂfld ) e. Mnd
25	18, 3	mgpbas 16596	. . . . . . . . . 10 |- B = ( Base ` (mulGrp ` Z ) )
26		cnfldbas 17821	. . . . . . . . . . 11 |- CC = ( Base ` ℂfld )
27	22, 26	mgpbas 16596	. . . . . . . . . 10 |- CC = ( Base ` (mulGrp ` ℂfld ) )
28		eqid 2442	. . . . . . . . . . 11 |- ( .r ` Z ) = ( .r ` Z )
29	18, 28	mgpplusg 16594	. . . . . . . . . 10 |- ( .r ` Z ) = ( +g ` (mulGrp ` Z ) )
30		cnfldmul 17823	. . . . . . . . . . 11 |- x. = ( .r ` ℂfld )
31	22, 30	mgpplusg 16594	. . . . . . . . . 10 |- x. = ( +g ` (mulGrp ` ℂfld ) )
32		eqid 2442	. . . . . . . . . . 11 |- ( 1r ` Z ) = ( 1r ` Z )
33	18, 32	rngidval 16604	. . . . . . . . . 10 |- ( 1r ` Z ) = ( 0g ` (mulGrp ` Z ) )
34		cnfld1 17840	. . . . . . . . . . 11 |- 1 = ( 1r ` ℂfld )
35	22, 34	rngidval 16604	. . . . . . . . . 10 |- 1 = ( 0g ` (mulGrp ` ℂfld ) )
36	25, 27, 29, 31, 33, 35	ismhm 15465	. . . . . . . . 9 |- ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( ( (mulGrp ` Z ) e. Mnd /\ (mulGrp ` ℂfld ) e. Mnd ) /\ ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) ) )
37	36	baib 896	. . . . . . . 8 |- ( ( (mulGrp ` Z ) e. Mnd /\ (mulGrp ` ℂfld ) e. Mnd ) -> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) ) )
38	20, 24, 37	sylancl 662	. . . . . . 7 |- ( ph -> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) ) )
39	38	adantr 465	. . . . . 6 |- ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) -> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) ) )
40		biimt 335	. . . . . . . . . . . . . . 15 |- ( ( x e. U /\ y e. U ) -> ( ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
41	40	adantl 466	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ ( x e. U /\ y e. U ) ) -> ( ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
42	17	ad3antrrr 729	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> Z e. Ring )
43		simprl 755	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> x e. B )
44		simprr 756	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> y e. B )
45	3, 28	rngcl 16657	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( Z e. Ring /\ x e. B /\ y e. B ) -> ( x ( .r ` Z ) y ) e. B )
46	42, 43, 44, 45	syl3anc 1218	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( x ( .r ` Z ) y ) e. B )
47		simpllr 758	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) )
48		fveq2 5690	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( z = ( x ( .r ` Z ) y ) -> ( X ` z ) = ( X ` ( x ( .r ` Z ) y ) ) )
49	48	neeq1d 2620	. . . . . . . . . . . . . . . . . . . . . 22 |- ( z = ( x ( .r ` Z ) y ) -> ( ( X ` z ) =/= 0 <-> ( X ` ( x ( .r ` Z ) y ) ) =/= 0 ) )
50		eleq1 2502	. . . . . . . . . . . . . . . . . . . . . 22 |- ( z = ( x ( .r ` Z ) y ) -> ( z e. U <-> ( x ( .r ` Z ) y ) e. U ) )
51	49, 50	imbi12d 320	. . . . . . . . . . . . . . . . . . . . 21 |- ( z = ( x ( .r ` Z ) y ) -> ( ( ( X ` z ) =/= 0 -> z e. U ) <-> ( ( X ` ( x ( .r ` Z ) y ) ) =/= 0 -> ( x ( .r ` Z ) y ) e. U ) ) )
52	51	rspcv 3068	. . . . . . . . . . . . . . . . . . . 20 |- ( ( x ( .r ` Z ) y ) e. B -> ( A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) -> ( ( X ` ( x ( .r ` Z ) y ) ) =/= 0 -> ( x ( .r ` Z ) y ) e. U ) ) )
53	46, 47, 52	sylc 60	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( X ` ( x ( .r ` Z ) y ) ) =/= 0 -> ( x ( .r ` Z ) y ) e. U ) )
54	15	ad3antrrr 729	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> Z e. CRing )
55	4, 28, 3	unitmulclb 16756	. . . . . . . . . . . . . . . . . . . 20 |- ( ( Z e. CRing /\ x e. B /\ y e. B ) -> ( ( x ( .r ` Z ) y ) e. U <-> ( x e. U /\ y e. U ) ) )
56	54, 43, 44, 55	syl3anc 1218	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( x ( .r ` Z ) y ) e. U <-> ( x e. U /\ y e. U ) ) )
57	53, 56	sylibd 214	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( X ` ( x ( .r ` Z ) y ) ) =/= 0 -> ( x e. U /\ y e. U ) ) )
58	57	necon1bd 2678	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( -. ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = 0 ) )
59	58	imp 429	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( X ` ( x ( .r ` Z ) y ) ) = 0 )
60	11	rspcv 3068	. . . . . . . . . . . . . . . . . . . . 21 |- ( x e. B -> ( A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) -> ( ( X ` x ) =/= 0 -> x e. U ) ) )
61	43, 47, 60	sylc 60	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( X ` x ) =/= 0 -> x e. U ) )
62		fveq2 5690	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( z = y -> ( X ` z ) = ( X ` y ) )
63	62	neeq1d 2620	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( z = y -> ( ( X ` z ) =/= 0 <-> ( X ` y ) =/= 0 ) )
64		eleq1 2502	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( z = y -> ( z e. U <-> y e. U ) )
65	63, 64	imbi12d 320	. . . . . . . . . . . . . . . . . . . . . 22 |- ( z = y -> ( ( ( X ` z ) =/= 0 -> z e. U ) <-> ( ( X ` y ) =/= 0 -> y e. U ) ) )
66	65	rspcv 3068	. . . . . . . . . . . . . . . . . . . . 21 |- ( y e. B -> ( A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) -> ( ( X ` y ) =/= 0 -> y e. U ) ) )
67	44, 47, 66	sylc 60	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( X ` y ) =/= 0 -> y e. U ) )
68	61, 67	anim12d 563	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( ( X ` x ) =/= 0 /\ ( X ` y ) =/= 0 ) -> ( x e. U /\ y e. U ) ) )
69	68	con3dimp 441	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> -. ( ( X ` x ) =/= 0 /\ ( X ` y ) =/= 0 ) )
70		neanior 2696	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( X ` x ) =/= 0 /\ ( X ` y ) =/= 0 ) <-> -. ( ( X ` x ) = 0 \/ ( X ` y ) = 0 ) )
71	70	con2bii 332	. . . . . . . . . . . . . . . . . 18 |- ( ( ( X ` x ) = 0 \/ ( X ` y ) = 0 ) <-> -. ( ( X ` x ) =/= 0 /\ ( X ` y ) =/= 0 ) )
72	69, 71	sylibr 212	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( ( X ` x ) = 0 \/ ( X ` y ) = 0 ) )
73		simplr 754	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> X : B --> CC )
74	73, 43	ffvelrnd 5843	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( X ` x ) e. CC )
75	73, 44	ffvelrnd 5843	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( X ` y ) e. CC )
76	74, 75	mul0ord 9985	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( ( X ` x ) x. ( X ` y ) ) = 0 <-> ( ( X ` x ) = 0 \/ ( X ` y ) = 0 ) ) )
77	76	adantr 465	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( ( ( X ` x ) x. ( X ` y ) ) = 0 <-> ( ( X ` x ) = 0 \/ ( X ` y ) = 0 ) ) )
78	72, 77	mpbird 232	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( ( X ` x ) x. ( X ` y ) ) = 0 )
79	59, 78	eqtr4d 2477	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) )
80	79	a1d 25	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
81	79, 80	2thd 240	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) /\ -. ( x e. U /\ y e. U ) ) -> ( ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
82	41, 81	pm2.61dan 789	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) /\ ( x e. B /\ y e. B ) ) -> ( ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
83	82	pm5.74da 687	. . . . . . . . . . . 12 |- ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) -> ( ( ( x e. B /\ y e. B ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( x e. B /\ y e. B ) -> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) ) )
84	3, 4	unitcl 16750	. . . . . . . . . . . . . . . 16 |- ( x e. U -> x e. B )
85	3, 4	unitcl 16750	. . . . . . . . . . . . . . . 16 |- ( y e. U -> y e. B )
86	84, 85	anim12i 566	. . . . . . . . . . . . . . 15 |- ( ( x e. U /\ y e. U ) -> ( x e. B /\ y e. B ) )
87	86	pm4.71ri 633	. . . . . . . . . . . . . 14 |- ( ( x e. U /\ y e. U ) <-> ( ( x e. B /\ y e. B ) /\ ( x e. U /\ y e. U ) ) )
88	87	imbi1i 325	. . . . . . . . . . . . 13 |- ( ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( ( x e. B /\ y e. B ) /\ ( x e. U /\ y e. U ) ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
89		impexp 446	. . . . . . . . . . . . 13 |- ( ( ( ( x e. B /\ y e. B ) /\ ( x e. U /\ y e. U ) ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( x e. B /\ y e. B ) -> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
90	88, 89	bitri 249	. . . . . . . . . . . 12 |- ( ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( x e. B /\ y e. B ) -> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
91	83, 90	syl6bbr 263	. . . . . . . . . . 11 |- ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) -> ( ( ( x e. B /\ y e. B ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
92	91	2albidv 1681	. . . . . . . . . 10 |- ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) -> ( A. x A. y ( ( x e. B /\ y e. B ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> A. x A. y ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
93		r2al 2751	. . . . . . . . . 10 |- ( A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> A. x A. y ( ( x e. B /\ y e. B ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
94		r2al 2751	. . . . . . . . . 10 |- ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> A. x A. y ( ( x e. U /\ y e. U ) -> ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
95	92, 93, 94	3bitr4g 288	. . . . . . . . 9 |- ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ X : B --> CC ) -> ( A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
96	95	adantrr 716	. . . . . . . 8 |- ( ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) /\ ( X : B --> CC /\ ( X ` ( 1r ` Z ) ) = 1 ) ) -> ( A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) <-> A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
97	96	pm5.32da 641	. . . . . . 7 |- ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) -> ( ( ( X : B --> CC /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) <-> ( ( X : B --> CC /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) ) )
98		3anan32 977	. . . . . . 7 |- ( ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) <-> ( ( X : B --> CC /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
99		an31 798	. . . . . . 7 |- ( ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) <-> ( ( X : B --> CC /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) ) )
100	97, 98, 99	3bitr4g 288	. . . . . 6 |- ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) -> ( ( X : B --> CC /\ A. x e. B A. y e. B ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) <-> ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) )
101	39, 100	bitrd 253	. . . . 5 |- ( ( ph /\ A. z e. B ( ( X ` z ) =/= 0 -> z e. U ) ) -> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) )
102	12, 101	sylan2br 476	. . . 4 |- ( ( ph /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) -> ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) <-> ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) )
103	102	pm5.32da 641	. . 3 |- ( ph -> ( ( A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) /\ X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) ) <-> ( A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) /\ ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) ) )
104		ancom 450	. . 3 |- ( ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) <-> ( A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) /\ X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) ) )
105		df-3an 967	. . . . 5 |- ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) <-> ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) )
106	105	anbi2i 694	. . . 4 |- ( ( X : B --> CC /\ ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) <-> ( X : B --> CC /\ ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) )
107		an13 797	. . . 4 |- ( ( X : B --> CC /\ ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) <-> ( A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) /\ ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) )
108	106, 107	bitri 249	. . 3 |- ( ( X : B --> CC /\ ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) <-> ( A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) /\ ( ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 ) /\ X : B --> CC ) ) )
109	103, 104, 108	3bitr4g 288	. 2 |- ( ph -> ( ( X e. ( (mulGrp ` Z ) MndHom (mulGrp ` ℂfld ) ) /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) <-> ( X : B --> CC /\ ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) ) )
110	7, 109	bitrd 253	1 |- ( ph -> ( X e. D <-> ( X : B --> CC /\ ( A. x e. U A. y e. U ( X ` ( x ( .r ` Z ) y ) ) = ( ( X ` x ) x. ( X ` y ) ) /\ ( X ` ( 1r ` Z ) ) = 1 /\ A. x e. B ( ( X ` x ) =/= 0 -> x e. U ) ) ) ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   \/ wo 368   /\ wa 369   /\ w3a 965   A.wal 1367   = wceq 1369   e. wcel 1756   =/= wne 2605   A.wral 2714   -->wf 5413   ` cfv 5417  (class class class)co 6090   CCcc 9279   0cc0 9281   1c1 9282   x. cmul 9286   NNcn 10321   NN0cn0 10578   Basecbs 14173   .rcmulr 14238   Mndcmnd 15408   MndHom cmhm 15461  mulGrpcmgp 16590   1rcur 16602   Ringcrg 16644   CRingccrg 16645  Unitcui 16730  ℂ_fldccnfld 17817  ℤ/nℤczn 17933  DChrcdchr 22570

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-rep 4402  ax-sep 4412  ax-nul 4420  ax-pow 4469  ax-pr 4530  ax-un 6371  ax-cnex 9337  ax-resscn 9338  ax-1cn 9339  ax-icn 9340  ax-addcl 9341  ax-addrcl 9342  ax-mulcl 9343  ax-mulrcl 9344  ax-mulcom 9345  ax-addass 9346  ax-mulass 9347  ax-distr 9348  ax-i2m1 9349  ax-1ne0 9350  ax-1rid 9351  ax-rnegex 9352  ax-rrecex 9353  ax-cnre 9354  ax-pre-lttri 9355  ax-pre-lttrn 9356  ax-pre-ltadd 9357  ax-pre-mulgt0 9358  ax-addf 9360  ax-mulf 9361

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2567  df-ne 2607  df-nel 2608  df-ral 2719  df-rex 2720  df-reu 2721  df-rmo 2722  df-rab 2723  df-v 2973  df-sbc 3186  df-csb 3288  df-dif 3330  df-un 3332  df-in 3334  df-ss 3341  df-pss 3343  df-nul 3637  df-if 3791  df-pw 3861  df-sn 3877  df-pr 3879  df-tp 3881  df-op 3883  df-uni 4091  df-int 4128  df-iun 4172  df-br 4292  df-opab 4350  df-mpt 4351  df-tr 4385  df-eprel 4631  df-id 4635  df-po 4640  df-so 4641  df-fr 4678  df-we 4680  df-ord 4721  df-on 4722  df-lim 4723  df-suc 4724  df-xp 4845  df-rel 4846  df-cnv 4847  df-co 4848  df-dm 4849  df-rn 4850  df-res 4851  df-ima 4852  df-iota 5380  df-fun 5419  df-fn 5420  df-f 5421  df-f1 5422  df-fo 5423  df-f1o 5424  df-fv 5425  df-riota 6051  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-om 6476  df-1st 6576  df-2nd 6577  df-tpos 6744  df-recs 6831  df-rdg 6865  df-1o 6919  df-oadd 6923  df-er 7100  df-ec 7102  df-qs 7106  df-map 7215  df-en 7310  df-dom 7311  df-sdom 7312  df-fin 7313  df-sup 7690  df-pnf 9419  df-mnf 9420  df-xr 9421  df-ltxr 9422  df-le 9423  df-sub 9596  df-neg 9597  df-nn 10322  df-2 10379  df-3 10380  df-4 10381  df-5 10382  df-6 10383  df-7 10384  df-8 10385  df-9 10386  df-10 10387  df-n0 10579  df-z 10646  df-dec 10755  df-uz 10861  df-fz 11437  df-struct 14175  df-ndx 14176  df-slot 14177  df-base 14178  df-sets 14179  df-ress 14180  df-plusg 14250  df-mulr 14251  df-starv 14252  df-sca 14253  df-vsca 14254  df-ip 14255  df-tset 14256  df-ple 14257  df-ds 14259  df-unif 14260  df-0g 14379  df-imas 14445  df-divs 14446  df-mnd 15414  df-mhm 15463  df-grp 15544  df-minusg 15545  df-sbg 15546  df-subg 15677  df-nsg 15678  df-eqg 15679  df-cmn 16278  df-abl 16279  df-mgp 16591  df-ur 16603  df-rng 16646  df-cring 16647  df-oppr 16714  df-dvdsr 16732  df-unit 16733  df-subrg 16862  df-lmod 16949  df-lss 17013  df-lsp 17052  df-sra 17252  df-rgmod 17253  df-lidl 17254  df-rsp 17255  df-2idl 17313  df-cnfld 17818  df-zring 17883  df-zn 17937  df-dchr 22571

This theorem is referenced by:  dchrelbasd  22577  dchrf  22580  dchrmulcl  22587  dchrinv  22599  lgsdchr  22686