Theorem nrginvrcn 24587

Description: The ring inverse function is continuous in a normed ring. (Note that this is true even in rings which are not division rings.) (Contributed by Mario Carneiro, 6-Oct-2015.)

Hypotheses

Ref	Expression
nrginvrcn.x	⊢ 𝑋 = (Base‘𝑅)
nrginvrcn.u	⊢ 𝑈 = (Unit‘𝑅)
nrginvrcn.i	⊢ 𝐼 = (invr‘𝑅)
nrginvrcn.j	⊢ 𝐽 = (TopOpen‘𝑅)

Assertion

Ref	Expression
nrginvrcn	⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)))

Proof of Theorem nrginvrcn

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

Step	Hyp	Ref	Expression
1		nrgring 24558	. . . 4 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ Ring)
2		nrginvrcn.u	. . . . 5 ⊢ 𝑈 = (Unit‘𝑅)
3		eqid 2730	. . . . 5 ⊢ ((mulGrp‘𝑅) ↾s 𝑈) = ((mulGrp‘𝑅) ↾s 𝑈)
4	2, 3	unitgrp 20299	. . . 4 ⊢ (𝑅 ∈ Ring → ((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp)
5	2, 3	unitgrpbas 20298	. . . . 5 ⊢ 𝑈 = (Base‘((mulGrp‘𝑅) ↾s 𝑈))
6		nrginvrcn.i	. . . . . 6 ⊢ 𝐼 = (invr‘𝑅)
7	2, 3, 6	invrfval 20305	. . . . 5 ⊢ 𝐼 = (invg‘((mulGrp‘𝑅) ↾s 𝑈))
8	5, 7	grpinvf 18925	. . . 4 ⊢ (((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp → 𝐼:𝑈⟶𝑈)
9	1, 4, 8	3syl 18	. . 3 ⊢ (𝑅 ∈ NrmRing → 𝐼:𝑈⟶𝑈)
10		1rp 12962	. . . . . . . 8 ⊢ 1 ∈ ℝ+
11	10	ne0ii 4310	. . . . . . 7 ⊢ ℝ+ ≠ ∅
12	1	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ Ring)
13		nrginvrcn.x	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = (Base‘𝑅)
14	13, 2	unitss 20292	. . . . . . . . . . . . . . 15 ⊢ 𝑈 ⊆ 𝑋
15		simplrl 776	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑈)
16	14, 15	sselid 3947	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑋)
17		simpr 484	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑈)
18	14, 17	sselid 3947	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑋)
19		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (1r‘𝑅) = (1r‘𝑅)
20		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (0g‘𝑅) = (0g‘𝑅)
21	13, 19, 20	ring1eq0 20214	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
22	12, 16, 18, 21	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
23		eqid 2730	. . . . . . . . . . . . . . . 16 ⊢ (𝐼‘𝑦) = (𝐼‘𝑦)
24		nrgngp 24557	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ NrmGrp)
25		ngpms 24495	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmGrp → 𝑅 ∈ MetSp)
26		msxms 24349	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ MetSp → 𝑅 ∈ ∞MetSp)
27	24, 25, 26	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ ∞MetSp)
28	27	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ ∞MetSp)
29	9	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → 𝐼:𝑈⟶𝑈)
30	29	ffvelcdmda 7059	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑈)
31	14, 30	sselid 3947	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑋)
32		eqid 2730	. . . . . . . . . . . . . . . . . 18 ⊢ (dist‘𝑅) = (dist‘𝑅)
33	13, 32	xmseq0 24359	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ ∞MetSp ∧ (𝐼‘𝑦) ∈ 𝑋 ∧ (𝐼‘𝑦) ∈ 𝑋) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
34	28, 31, 31, 33	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
35	23, 34	mpbiri 258	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0)
36		simplrr 777	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑟 ∈ ℝ+)
37	36	rpgt0d 13005	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 0 < 𝑟)
38	35, 37	eqbrtrd 5132	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
39		fveq2 6861	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑦 → (𝐼‘𝑥) = (𝐼‘𝑦))
40	39	oveq1d 7405	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) = ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)))
41	40	breq1d 5120	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑦 → (((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
42	38, 41	syl5ibrcom 247	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
43	22, 42	syld 47	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
44	43	imp 406	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) ∧ (1r‘𝑅) = (0g‘𝑅)) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
45	44	an32s 652	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
46	45	a1d 25	. . . . . . . . 9 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
47	46	ralrimiva 3126	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
48	47	ralrimivw 3130	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
49		r19.2z 4461	. . . . . . 7 ⊢ ((ℝ+ ≠ ∅ ∧ ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
50	11, 48, 49	sylancr 587	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
51		eqid 2730	. . . . . . 7 ⊢ (norm‘𝑅) = (norm‘𝑅)
52		simpll 766	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NrmRing)
53	1	ad2antrr 726	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ Ring)
54		simpr 484	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → (1r‘𝑅) ≠ (0g‘𝑅))
55	19, 20	isnzr 20430	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing ↔ (𝑅 ∈ Ring ∧ (1r‘𝑅) ≠ (0g‘𝑅)))
56	53, 54, 55	sylanbrc 583	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NzRing)
57		simplrl 776	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑥 ∈ 𝑈)
58		simplrr 777	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑟 ∈ ℝ+)
59		eqid 2730	. . . . . . 7 ⊢ (if(1 ≤ (((norm‘𝑅)‘𝑥) · 𝑟), 1, (((norm‘𝑅)‘𝑥) · 𝑟)) · (((norm‘𝑅)‘𝑥) / 2)) = (if(1 ≤ (((norm‘𝑅)‘𝑥) · 𝑟), 1, (((norm‘𝑅)‘𝑥) · 𝑟)) · (((norm‘𝑅)‘𝑥) / 2))
60	13, 2, 6, 51, 32, 52, 56, 57, 58, 59	nrginvrcnlem 24586	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
61	50, 60	pm2.61dane 3013	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
62	15, 17	ovresd 7559	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) = (𝑥(dist‘𝑅)𝑦))
63	62	breq1d 5120	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 ↔ (𝑥(dist‘𝑅)𝑦) < 𝑠))
64		simpl 482	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+) → 𝑥 ∈ 𝑈)
65		ffvelcdm 7056	. . . . . . . . . . . 12 ⊢ ((𝐼:𝑈⟶𝑈 ∧ 𝑥 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
66	9, 64, 65	syl2an 596	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (𝐼‘𝑥) ∈ 𝑈)
67	66	adantr 480	. . . . . . . . . 10 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
68	67, 30	ovresd 7559	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) = ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)))
69	68	breq1d 5120	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
70	63, 69	imbi12d 344	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
71	70	ralbidva 3155	. . . . . 6 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
72	71	rexbidv 3158	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
73	61, 72	mpbird 257	. . . 4 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
74	73	ralrimivva 3181	. . 3 ⊢ (𝑅 ∈ NrmRing → ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
75		xpss12 5656	. . . . . . 7 ⊢ ((𝑈 ⊆ 𝑋 ∧ 𝑈 ⊆ 𝑋) → (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋))
76	14, 14, 75	mp2an 692	. . . . . 6 ⊢ (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋)
77		resabs1 5980	. . . . . 6 ⊢ ((𝑈 × 𝑈) ⊆ (𝑋 × 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈)))
78	76, 77	ax-mp 5	. . . . 5 ⊢ (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈))
79		eqid 2730	. . . . . . . 8 ⊢ ((dist‘𝑅) ↾ (𝑋 × 𝑋)) = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
80	13, 79	xmsxmet 24351	. . . . . . 7 ⊢ (𝑅 ∈ ∞MetSp → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
81	24, 25, 26, 80	4syl 19	. . . . . 6 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
82		xmetres2 24256	. . . . . 6 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
83	81, 14, 82	sylancl 586	. . . . 5 ⊢ (𝑅 ∈ NrmRing → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
84	78, 83	eqeltrrid 2834	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
85		eqid 2730	. . . . 5 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))
86	85, 85	metcn 24438	. . . 4 ⊢ ((((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈) ∧ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈)) → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
87	84, 84, 86	syl2anc 584	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
88	9, 74, 87	mpbir2and 713	. 2 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
89		nrginvrcn.j	. . . . . . 7 ⊢ 𝐽 = (TopOpen‘𝑅)
90	89, 13, 79	mstopn 24347	. . . . . 6 ⊢ (𝑅 ∈ MetSp → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
91	24, 25, 90	3syl 18	. . . . 5 ⊢ (𝑅 ∈ NrmRing → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
92	91	oveq1d 7405	. . . 4 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈))
93	78	eqcomi 2739	. . . . . 6 ⊢ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) = (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈))
94		eqid 2730	. . . . . 6 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋)))
95	93, 94, 85	metrest 24419	. . . . 5 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
96	81, 14, 95	sylancl 586	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
97	92, 96	eqtrd 2765	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
98	97, 97	oveq12d 7408	. 2 ⊢ (𝑅 ∈ NrmRing → ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)) = ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
99	88, 98	eleqtrrd 2832	1 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2926  ∀wral 3045  ∃wrex 3054   ⊆ wss 3917  ∅c0 4299  ifcif 4491   class class class wbr 5110   × cxp 5639   ↾ cres 5643  ⟶wf 6510  ‘cfv 6514  (class class class)co 7390  0cc0 11075  1c1 11076   · cmul 11080   < clt 11215   ≤ cle 11216   / cdiv 11842  2c2 12248  ℝ⁺crp 12958  Basecbs 17186   ↾_s cress 17207  distcds 17236   ↾_t crest 17390  TopOpenctopn 17391  0_gc0g 17409  Grpcgrp 18872  mulGrpcmgp 20056  1_rcur 20097  Ringcrg 20149  Unitcui 20271  inv_rcinvr 20303  NzRingcnzr 20428  ∞Metcxmet 21256  MetOpencmopn 21261   Cn ccn 23118  ∞MetSpcxms 24212  MetSpcms 24213  normcnm 24471  NrmGrpcngp 24472  NrmRingcnrg 24474

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7846  df-1st 7971  df-2nd 7972  df-tpos 8208  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-er 8674  df-map 8804  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-sup 9400  df-inf 9401  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-z 12537  df-dec 12657  df-uz 12801  df-q 12915  df-rp 12959  df-xneg 13079  df-xadd 13080  df-xmul 13081  df-fz 13476  df-seq 13974  df-exp 14034  df-cj 15072  df-re 15073  df-im 15074  df-sqrt 15208  df-abs 15209  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-tset 17246  df-ple 17247  df-ds 17249  df-rest 17392  df-0g 17411  df-topgen 17413  df-xrs 17472  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-grp 18875  df-minusg 18876  df-sbg 18877  df-cmn 19719  df-abl 19720  df-mgp 20057  df-rng 20069  df-ur 20098  df-ring 20151  df-oppr 20253  df-dvdsr 20273  df-unit 20274  df-invr 20304  df-nzr 20429  df-abv 20725  df-psmet 21263  df-xmet 21264  df-met 21265  df-bl 21266  df-mopn 21267  df-top 22788  df-topon 22805  df-topsp 22827  df-bases 22840  df-cn 23121  df-cnp 23122  df-xms 24215  df-ms 24216  df-nm 24477  df-ngp 24478  df-nrg 24480

This theorem is referenced by:  nrgtdrg  24588