Theorem qqhcn 26356

Description: The QQHom homomorphism is a continuous function. (Contributed by Thierry Arnoux, 9-Nov-2017.)

Hypotheses

Ref	Expression
qqhcn.q	|- Q = (ℂfld ↾s QQ )
qqhcn.j	|- J = ( TopOpen ` Q )
qqhcn.z	|- Z = ( ZMod ` R )
qqhcn.k	|- K = ( TopOpen ` R )

Assertion

Ref	Expression
qqhcn	|- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( J Cn K ) )

Proof of Theorem qqhcn

Dummy variables e d q are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		inss2 3568	. . . . . . . 8 |- (NrmRing i^i DivRing ) C_ DivRing
2	1	sseli 3349	. . . . . . 7 |- ( R e. (NrmRing i^i DivRing ) -> R e. DivRing )
3	2	3ad2ant1 1004	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> R e. DivRing )
4		simp3 985	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (chr ` R ) = 0 )
5		eqid 2441	. . . . . . 7 |- ( Base ` R ) = ( Base ` R )
6		eqid 2441	. . . . . . 7 |- (/r ` R ) = (/r ` R )
7		eqid 2441	. . . . . . 7 |- ( ZRHom ` R ) = ( ZRHom ` R )
8	5, 6, 7	qqhf 26351	. . . . . 6 |- ( ( R e. DivRing /\ (chr ` R ) = 0 ) -> (QQHom ` R ) : QQ --> ( Base ` R ) )
9	3, 4, 8	syl2anc 656	. . . . 5 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) : QQ --> ( Base ` R ) )
10		simpr 458	. . . . . . 7 |- ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) -> e e. RR+ )
11		qsscn 10960	. . . . . . . . . . . . . 14 |- QQ C_ CC
12		simpr 458	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> q e. QQ )
13	11, 12	sseldi 3351	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> q e. CC )
14		0cn 9374	. . . . . . . . . . . . . . 15 |- 0 e. CC
15		eqid 2441	. . . . . . . . . . . . . . . 16 |- ( abs o. - ) = ( abs o. - )
16	15	cnmetdval 20309	. . . . . . . . . . . . . . 15 |- ( ( 0 e. CC /\ q e. CC ) -> ( 0 ( abs o. - ) q ) = ( abs ` ( 0 - q ) ) )
17	14, 16	mpan 665	. . . . . . . . . . . . . 14 |- ( q e. CC -> ( 0 ( abs o. - ) q ) = ( abs ` ( 0 - q ) ) )
18		df-neg 9594	. . . . . . . . . . . . . . . 16 |- -u q = ( 0 - q )
19	18	fveq2i 5691	. . . . . . . . . . . . . . 15 |- ( abs ` -u q ) = ( abs ` ( 0 - q ) )
20	19	a1i 11	. . . . . . . . . . . . . 14 |- ( q e. CC -> ( abs ` -u q ) = ( abs ` ( 0 - q ) ) )
21		absneg 12762	. . . . . . . . . . . . . 14 |- ( q e. CC -> ( abs ` -u q ) = ( abs ` q ) )
22	17, 20, 21	3eqtr2d 2479	. . . . . . . . . . . . 13 |- ( q e. CC -> ( 0 ( abs o. - ) q ) = ( abs ` q ) )
23	13, 22	syl 16	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( 0 ( abs o. - ) q ) = ( abs ` q ) )
24		zssq 10956	. . . . . . . . . . . . . . 15 |- ZZ C_ QQ
25		0z 10653	. . . . . . . . . . . . . . 15 |- 0 e. ZZ
26	24, 25	sselii 3350	. . . . . . . . . . . . . 14 |- 0 e. QQ
27	26	a1i 11	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> 0 e. QQ )
28	27, 12	ovresd 6230	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) = ( 0 ( abs o. - ) q ) )
29		eqid 2441	. . . . . . . . . . . . . 14 |- ( norm ` R ) = ( norm ` R )
30		qqhcn.z	. . . . . . . . . . . . . 14 |- Z = ( ZMod ` R )
31	29, 30	qqhnm 26355	. . . . . . . . . . . . 13 |- ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ q e. QQ ) -> ( ( norm ` R ) ` ( (QQHom ` R ) ` q ) ) = ( abs ` q ) )
32	31	adantlr 709	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( norm ` R ) ` ( (QQHom ` R ) ` q ) ) = ( abs ` q ) )
33	23, 28, 32	3eqtr4d 2483	. . . . . . . . . . 11 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) = ( ( norm ` R ) ` ( (QQHom ` R ) ` q ) ) )
34	9	ad2antrr 720	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> (QQHom ` R ) : QQ --> ( Base ` R ) )
35	34, 27	ffvelrnd 5841	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( (QQHom ` R ) ` 0 ) e. ( Base ` R ) )
36	34, 12	ffvelrnd 5841	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( (QQHom ` R ) ` q ) e. ( Base ` R ) )
37	35, 36	ovresd 6230	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) = ( ( (QQHom ` R ) ` 0 ) ( dist ` R ) ( (QQHom ` R ) ` q ) ) )
38		inss1 3567	. . . . . . . . . . . . . . . . 17 |- (NrmRing i^i DivRing ) C_ NrmRing
39	38	sseli 3349	. . . . . . . . . . . . . . . 16 |- ( R e. (NrmRing i^i DivRing ) -> R e. NrmRing )
40	39	3ad2ant1 1004	. . . . . . . . . . . . . . 15 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> R e. NrmRing )
41	40	ad2antrr 720	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> R e. NrmRing )
42		nrgngp 20202	. . . . . . . . . . . . . 14 |- ( R e. NrmRing -> R e. NrmGrp )
43	41, 42	syl 16	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> R e. NrmGrp )
44		eqid 2441	. . . . . . . . . . . . . 14 |- ( -g ` R ) = ( -g ` R )
45		eqid 2441	. . . . . . . . . . . . . 14 |- ( dist ` R ) = ( dist ` R )
46	29, 5, 44, 45	ngpdsr 20155	. . . . . . . . . . . . 13 |- ( ( R e. NrmGrp /\ ( (QQHom ` R ) ` 0 ) e. ( Base ` R ) /\ ( (QQHom ` R ) ` q ) e. ( Base ` R ) ) -> ( ( (QQHom ` R ) ` 0 ) ( dist ` R ) ( (QQHom ` R ) ` q ) ) = ( ( norm ` R ) ` ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( (QQHom ` R ) ` 0 ) ) ) )
47	43, 35, 36, 46	syl3anc 1213	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` 0 ) ( dist ` R ) ( (QQHom ` R ) ` q ) ) = ( ( norm ` R ) ` ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( (QQHom ` R ) ` 0 ) ) ) )
48	3	ad2antrr 720	. . . . . . . . . . . . . . . 16 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> R e. DivRing )
49	4	ad2antrr 720	. . . . . . . . . . . . . . . 16 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> (chr ` R ) = 0 )
50	5, 6, 7	qqh0 26349	. . . . . . . . . . . . . . . 16 |- ( ( R e. DivRing /\ (chr ` R ) = 0 ) -> ( (QQHom ` R ) ` 0 ) = ( 0g ` R ) )
51	48, 49, 50	syl2anc 656	. . . . . . . . . . . . . . 15 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( (QQHom ` R ) ` 0 ) = ( 0g ` R ) )
52	51	oveq2d 6106	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( (QQHom ` R ) ` 0 ) ) = ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( 0g ` R ) ) )
53		ngpgrp 20150	. . . . . . . . . . . . . . . 16 |- ( R e. NrmGrp -> R e. Grp )
54	43, 53	syl 16	. . . . . . . . . . . . . . 15 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> R e. Grp )
55		eqid 2441	. . . . . . . . . . . . . . . 16 |- ( 0g ` R ) = ( 0g ` R )
56	5, 55, 44	grpsubid1 15604	. . . . . . . . . . . . . . 15 |- ( ( R e. Grp /\ ( (QQHom ` R ) ` q ) e. ( Base ` R ) ) -> ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( 0g ` R ) ) = ( (QQHom ` R ) ` q ) )
57	54, 36, 56	syl2anc 656	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( 0g ` R ) ) = ( (QQHom ` R ) ` q ) )
58	52, 57	eqtrd 2473	. . . . . . . . . . . . 13 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( (QQHom ` R ) ` 0 ) ) = ( (QQHom ` R ) ` q ) )
59	58	fveq2d 5692	. . . . . . . . . . . 12 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( norm ` R ) ` ( ( (QQHom ` R ) ` q ) ( -g ` R ) ( (QQHom ` R ) ` 0 ) ) ) = ( ( norm ` R ) ` ( (QQHom ` R ) ` q ) ) )
60	37, 47, 59	3eqtrd 2477	. . . . . . . . . . 11 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) = ( ( norm ` R ) ` ( (QQHom ` R ) ` q ) ) )
61	33, 60	eqtr4d 2476	. . . . . . . . . 10 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) = ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) )
62	61	breq1d 4299	. . . . . . . . 9 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e <-> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
63	62	biimpd 207	. . . . . . . 8 |- ( ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) /\ q e. QQ ) -> ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
64	63	ralrimiva 2797	. . . . . . 7 |- ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) -> A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
65		breq2 4293	. . . . . . . . . 10 |- ( d = e -> ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d <-> ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e ) )
66	65	imbi1d 317	. . . . . . . . 9 |- ( d = e -> ( ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) <-> ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) ) )
67	66	ralbidv 2733	. . . . . . . 8 |- ( d = e -> ( A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) <-> A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) ) )
68	67	rspcev 3070	. . . . . . 7 |- ( ( e e. RR+ /\ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < e -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) ) -> E. d e. RR+ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
69	10, 64, 68	syl2anc 656	. . . . . 6 |- ( ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) /\ e e. RR+ ) -> E. d e. RR+ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
70	69	ralrimiva 2797	. . . . 5 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> A. e e. RR+ E. d e. RR+ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) )
71		qqhcn.q	. . . . . . . 8 |- Q = (ℂfld ↾s QQ )
72		cnfldxms 20315	. . . . . . . . 9 |- ℂfld e. *MetSp
73		qex 10961	. . . . . . . . 9 |- QQ e. _V
74		ressxms 20059	. . . . . . . . 9 |- ( (ℂfld e. *MetSp /\ QQ e. _V ) -> (ℂfld ↾s QQ ) e. *MetSp )
75	72, 73, 74	mp2an 667	. . . . . . . 8 |- (ℂfld ↾s QQ ) e. *MetSp
76	71, 75	eqeltri 2511	. . . . . . 7 |- Q e. *MetSp
77	71	qrngbas 22827	. . . . . . . 8 |- QQ = ( Base ` Q )
78		cnfldds 17787	. . . . . . . . . 10 |- ( abs o. - ) = ( dist ` ℂfld )
79	71, 78	ressds 14348	. . . . . . . . 9 |- ( QQ e. _V -> ( abs o. - ) = ( dist ` Q ) )
80	73, 79	ax-mp 5	. . . . . . . 8 |- ( abs o. - ) = ( dist ` Q )
81	77, 80	xmsxmet2 19993	. . . . . . 7 |- ( Q e. *MetSp -> ( ( abs o. - ) |` ( QQ X. QQ ) ) e. ( *Met ` QQ ) )
82	76, 81	mp1i 12	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( ( abs o. - ) |` ( QQ X. QQ ) ) e. ( *Met ` QQ ) )
83		ngpxms 20152	. . . . . . . . 9 |- ( R e. NrmGrp -> R e. *MetSp )
84	39, 42, 83	3syl 20	. . . . . . . 8 |- ( R e. (NrmRing i^i DivRing ) -> R e. *MetSp )
85	84	3ad2ant1 1004	. . . . . . 7 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> R e. *MetSp )
86	5, 45	xmsxmet2 19993	. . . . . . 7 |- ( R e. *MetSp -> ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) e. ( *Met ` ( Base ` R ) ) )
87	85, 86	syl 16	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) e. ( *Met ` ( Base ` R ) ) )
88	26	a1i 11	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> 0 e. QQ )
89		qqhcn.j	. . . . . . . . 9 |- J = ( TopOpen ` Q )
90	80	reseq1i 5102	. . . . . . . . 9 |- ( ( abs o. - ) |` ( QQ X. QQ ) ) = ( ( dist ` Q ) |` ( QQ X. QQ ) )
91	89, 77, 90	xmstopn 19985	. . . . . . . 8 |- ( Q e. *MetSp -> J = ( MetOpen ` ( ( abs o. - ) |` ( QQ X. QQ ) ) ) )
92	76, 91	ax-mp 5	. . . . . . 7 |- J = ( MetOpen ` ( ( abs o. - ) |` ( QQ X. QQ ) ) )
93		eqid 2441	. . . . . . 7 |- ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) = ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) )
94	92, 93	metcnp 20075	. . . . . 6 |- ( ( ( ( abs o. - ) |` ( QQ X. QQ ) ) e. ( *Met ` QQ ) /\ ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) e. ( *Met ` ( Base ` R ) ) /\ 0 e. QQ ) -> ( (QQHom ` R ) e. ( ( J CnP ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) ) ` 0 ) <-> ( (QQHom ` R ) : QQ --> ( Base ` R ) /\ A. e e. RR+ E. d e. RR+ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) ) ) )
95	82, 87, 88, 94	syl3anc 1213	. . . . 5 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( (QQHom ` R ) e. ( ( J CnP ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) ) ` 0 ) <-> ( (QQHom ` R ) : QQ --> ( Base ` R ) /\ A. e e. RR+ E. d e. RR+ A. q e. QQ ( ( 0 ( ( abs o. - ) |` ( QQ X. QQ ) ) q ) < d -> ( ( (QQHom ` R ) ` 0 ) ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ( (QQHom ` R ) ` q ) ) < e ) ) ) )
96	9, 70, 95	mpbir2and 908	. . . 4 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( ( J CnP ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) ) ` 0 ) )
97		qqhcn.k	. . . . . . . 8 |- K = ( TopOpen ` R )
98		eqid 2441	. . . . . . . 8 |- ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) = ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) )
99	97, 5, 98	xmstopn 19985	. . . . . . 7 |- ( R e. *MetSp -> K = ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) )
100	85, 99	syl 16	. . . . . 6 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> K = ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) )
101	100	oveq2d 6106	. . . . 5 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( J CnP K ) = ( J CnP ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) ) )
102	101	fveq1d 5690	. . . 4 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( ( J CnP K ) ` 0 ) = ( ( J CnP ( MetOpen ` ( ( dist ` R ) |` ( ( Base ` R ) X. ( Base ` R ) ) ) ) ) ` 0 ) )
103	96, 102	eleqtrrd 2518	. . 3 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( ( J CnP K ) ` 0 ) )
104		cnfldtgp 20404	. . . . . 6 |- ℂfld e. TopGrp
105		qsubdrg 17824	. . . . . . . 8 |- ( QQ e. (SubRing ` ℂfld ) /\ (ℂfld ↾s QQ ) e. DivRing )
106	105	simpli 455	. . . . . . 7 |- QQ e. (SubRing ` ℂfld )
107		subrgsubg 16851	. . . . . . 7 |- ( QQ e. (SubRing ` ℂfld ) -> QQ e. (SubGrp ` ℂfld ) )
108	106, 107	ax-mp 5	. . . . . 6 |- QQ e. (SubGrp ` ℂfld )
109	71	subgtgp 19635	. . . . . 6 |- ( (ℂfld e. TopGrp /\ QQ e. (SubGrp ` ℂfld ) ) -> Q e. TopGrp )
110	104, 108, 109	mp2an 667	. . . . 5 |- Q e. TopGrp
111		tgptmd 19609	. . . . 5 |- ( Q e. TopGrp -> Q e. TopMnd )
112	110, 111	mp1i 12	. . . 4 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> Q e. TopMnd )
113		nrgtrg 20229	. . . . 5 |- ( R e. NrmRing -> R e. TopRing )
114		trgtmd2 19702	. . . . 5 |- ( R e. TopRing -> R e. TopMnd )
115	40, 113, 114	3syl 20	. . . 4 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> R e. TopMnd )
116	5, 6, 7, 71	qqhghm 26353	. . . . 5 |- ( ( R e. DivRing /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( Q GrpHom R ) )
117	3, 4, 116	syl2anc 656	. . . 4 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( Q GrpHom R ) )
118	77, 89, 97	ghmcnp 19644	. . . 4 |- ( ( Q e. TopMnd /\ R e. TopMnd /\ (QQHom ` R ) e. ( Q GrpHom R ) ) -> ( (QQHom ` R ) e. ( ( J CnP K ) ` 0 ) <-> ( 0 e. QQ /\ (QQHom ` R ) e. ( J Cn K ) ) ) )
119	112, 115, 117, 118	syl3anc 1213	. . 3 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( (QQHom ` R ) e. ( ( J CnP K ) ` 0 ) <-> ( 0 e. QQ /\ (QQHom ` R ) e. ( J Cn K ) ) ) )
120	103, 119	mpbid 210	. 2 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> ( 0 e. QQ /\ (QQHom ` R ) e. ( J Cn K ) ) )
121	120	simprd 460	1 |- ( ( R e. (NrmRing i^i DivRing ) /\ Z e. NrmMod /\ (chr ` R ) = 0 ) -> (QQHom ` R ) e. ( J Cn K ) )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 960   = wceq 1364   e. wcel 1761   A.wral 2713   E.wrex 2714   _Vcvv 2970   i^i cin 3324   class class class wbr 4289   X. cxp 4834   |` cres 4838   o. ccom 4840   -->wf 5411   ` cfv 5415  (class class class)co 6090   CCcc 9276   0cc0 9278   < clt 9414   - cmin 9591   -ucneg 9592   ZZcz 10642   QQcq 10949   RR+crp 10987   abscabs 12719   Basecbs 14170   ↾_s cress 14171   distcds 14243   TopOpenctopn 14356   0gc0g 14374   Grpcgrp 15406   -gcsg 15409  SubGrpcsubg 15668   GrpHom cghm 15737  /_rcdvr 16764   DivRingcdr 16812  SubRingcsubrg 16841   *Metcxmt 17760   MetOpencmopn 17765  ℂ_fldccnfld 17777   ZRHomczrh 17890   ZModczlm 17891  chrcchr 17892   Cn ccn 18787   CnP ccnp 18788  TopMndctmd 19600   TopGrpctgp 19601   TopRingctrg 19689   *MetSpcxme 19851   normcnm 20128  NrmGrpcngp 20129  NrmRingcnrg 20131  NrmModcnlm 20132  QQHomcqqh 26337

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371  ax-inf2 7843  ax-cnex 9334  ax-resscn 9335  ax-1cn 9336  ax-icn 9337  ax-addcl 9338  ax-addrcl 9339  ax-mulcl 9340  ax-mulrcl 9341  ax-mulcom 9342  ax-addass 9343  ax-mulass 9344  ax-distr 9345  ax-i2m1 9346  ax-1ne0 9347  ax-1rid 9348  ax-rnegex 9349  ax-rrecex 9350  ax-cnre 9351  ax-pre-lttri 9352  ax-pre-lttrn 9353  ax-pre-ltadd 9354  ax-pre-mulgt0 9355  ax-pre-sup 9356  ax-addf 9357  ax-mulf 9358

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-pss 3341  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-tp 3879  df-op 3881  df-uni 4089  df-int 4126  df-iun 4170  df-iin 4171  df-br 4290  df-opab 4348  df-mpt 4349  df-tr 4383  df-eprel 4628  df-id 4632  df-po 4637  df-so 4638  df-fr 4675  df-se 4676  df-we 4677  df-ord 4718  df-on 4719  df-lim 4720  df-suc 4721  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-isom 5424  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-of 6319  df-om 6476  df-1st 6576  df-2nd 6577  df-supp 6690  df-tpos 6744  df-recs 6828  df-rdg 6862  df-1o 6916  df-2o 6917  df-oadd 6920  df-er 7097  df-map 7212  df-ixp 7260  df-en 7307  df-dom 7308  df-sdom 7309  df-fin 7310  df-fsupp 7617  df-fi 7657  df-sup 7687  df-oi 7720  df-card 8105  df-cda 8333  df-pnf 9416  df-mnf 9417  df-xr 9418  df-ltxr 9419  df-le 9420  df-sub 9593  df-neg 9594  df-div 9990  df-nn 10319  df-2 10376  df-3 10377  df-4 10378  df-5 10379  df-6 10380  df-7 10381  df-8 10382  df-9 10383  df-10 10384  df-n0 10576  df-z 10643  df-dec 10752  df-uz 10858  df-q 10950  df-rp 10988  df-xneg 11085  df-xadd 11086  df-xmul 11087  df-ico 11302  df-icc 11303  df-fz 11434  df-fzo 11545  df-fl 11638  df-mod 11705  df-seq 11803  df-exp 11862  df-hash 12100  df-cj 12584  df-re 12585  df-im 12586  df-sqr 12720  df-abs 12721  df-dvds 13532  df-gcd 13687  df-numer 13809  df-denom 13810  df-gz 13987  df-struct 14172  df-ndx 14173  df-slot 14174  df-base 14175  df-sets 14176  df-ress 14177  df-plusg 14247  df-mulr 14248  df-starv 14249  df-sca 14250  df-vsca 14251  df-ip 14252  df-tset 14253  df-ple 14254  df-ds 14256  df-unif 14257  df-hom 14258  df-cco 14259  df-rest 14357  df-topn 14358  df-0g 14376  df-gsum 14377  df-topgen 14378  df-pt 14379  df-prds 14382  df-xrs 14436  df-qtop 14441  df-imas 14442  df-xps 14444  df-mre 14520  df-mrc 14521  df-acs 14523  df-mnd 15411  df-plusf 15412  df-mhm 15460  df-submnd 15461  df-grp 15538  df-minusg 15539  df-sbg 15540  df-mulg 15541  df-subg 15671  df-ghm 15738  df-cntz 15828  df-od 16025  df-cmn 16272  df-abl 16273  df-mgp 16582  df-ur 16594  df-rng 16637  df-cring 16638  df-oppr 16705  df-dvdsr 16723  df-unit 16724  df-invr 16754  df-dvr 16765  df-rnghom 16796  df-drng 16814  df-subrg 16843  df-abv 16882  df-lmod 16930  df-scaf 16931  df-sra 17231  df-rgmod 17232  df-nzr 17318  df-psmet 17768  df-xmet 17769  df-met 17770  df-bl 17771  df-mopn 17772  df-cnfld 17778  df-zring 17843  df-zrh 17894  df-zlm 17895  df-chr 17896  df-top 18462  df-bases 18464  df-topon 18465  df-topsp 18466  df-cn 18790  df-cnp 18791  df-tx 19094  df-hmeo 19287  df-tmd 19602  df-tgp 19603  df-trg 19693  df-xms 19854  df-ms 19855  df-tms 19856  df-nm 20134  df-ngp 20135  df-nrg 20137  df-nlm 20138  df-qqh 26338

This theorem is referenced by: (None)