Theorem nrginvrcn 24814

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 24785	. . . 4 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ Ring)
2		nrginvrcn.u	. . . . 5 ⊢ 𝑈 = (Unit‘𝑅)
3		eqid 2769	. . . . 5 ⊢ ((mulGrp‘𝑅) ↾s 𝑈) = ((mulGrp‘𝑅) ↾s 𝑈)
4	2, 3	unitgrp 20461	. . . 4 ⊢ (𝑅 ∈ Ring → ((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp)
5	2, 3	unitgrpbas 20460	. . . . 5 ⊢ 𝑈 = (Base‘((mulGrp‘𝑅) ↾s 𝑈))
6		nrginvrcn.i	. . . . . 6 ⊢ 𝐼 = (invr‘𝑅)
7	2, 3, 6	invrfval 20467	. . . . 5 ⊢ 𝐼 = (invg‘((mulGrp‘𝑅) ↾s 𝑈))
8	5, 7	grpinvf 19049	. . . 4 ⊢ (((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp → 𝐼:𝑈⟶𝑈)
9	1, 4, 8	3syl 19	. . 3 ⊢ (𝑅 ∈ NrmRing → 𝐼:𝑈⟶𝑈)
10		1rp 13016	. . . . . . . 8 ⊢ 1 ∈ ℝ+
11	10	ne0ii 4305	. . . . . . 7 ⊢ ℝ+ ≠ ∅
12	1	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ Ring)
13		nrginvrcn.x	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = (Base‘𝑅)
14	13, 2	unitss 20454	. . . . . . . . . . . . . . 15 ⊢ 𝑈 ⊆ 𝑋
15		simplrl 788	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑈)
16	14, 15	sselid 3943	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑋)
17		simpr 489	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑈)
18	14, 17	sselid 3943	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑋)
19		eqid 2769	. . . . . . . . . . . . . . 15 ⊢ (1r‘𝑅) = (1r‘𝑅)
20		eqid 2769	. . . . . . . . . . . . . . 15 ⊢ (0g‘𝑅) = (0g‘𝑅)
21	13, 19, 20	ring1eq0 20377	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
22	12, 16, 18, 21	syl3anc 1396	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
23		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (𝐼‘𝑦) = (𝐼‘𝑦)
24		nrgngp 24784	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ NrmGrp)
25		ngpms 24722	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmGrp → 𝑅 ∈ MetSp)
26		msxms 24576	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ MetSp → 𝑅 ∈ ∞MetSp)
27	24, 25, 26	3syl 19	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ ∞MetSp)
28	27	ad2antrr 738	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ ∞MetSp)
29	9	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → 𝐼:𝑈⟶𝑈)
30	29	ffvelcdmda 7077	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑈)
31	14, 30	sselid 3943	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑋)
32		eqid 2769	. . . . . . . . . . . . . . . . . 18 ⊢ (dist‘𝑅) = (dist‘𝑅)
33	13, 32	xmseq0 24586	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ ∞MetSp ∧ (𝐼‘𝑦) ∈ 𝑋 ∧ (𝐼‘𝑦) ∈ 𝑋) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
34	28, 31, 31, 33	syl3anc 1396	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
35	23, 34	mpbiri 261	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0)
36		simplrr 789	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑟 ∈ ℝ+)
37	36	rpgt0d 13059	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 0 < 𝑟)
38	35, 37	eqbrtrd 5134	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
39		fveq2 6879	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑦 → (𝐼‘𝑥) = (𝐼‘𝑦))
40	39	oveq1d 7423	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) = ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)))
41	40	breq1d 5120	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑦 → (((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
42	38, 41	syl5ibrcom 250	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
43	22, 42	syld 48	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
44	43	imp 411	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) ∧ (1r‘𝑅) = (0g‘𝑅)) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
45	44	an32s 664	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
46	45	a1d 26	. . . . . . . . 9 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
47	46	ralrimiva 3163	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
48	47	ralrimivw 3167	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
49		r19.2z 4462	. . . . . . 7 ⊢ ((ℝ+ ≠ ∅ ∧ ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
50	11, 48, 49	sylancr 598	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
51		eqid 2769	. . . . . . 7 ⊢ (norm‘𝑅) = (norm‘𝑅)
52		simpll 778	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NrmRing)
53	1	ad2antrr 738	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ Ring)
54		simpr 489	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → (1r‘𝑅) ≠ (0g‘𝑅))
55	19, 20	isnzr 20593	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing ↔ (𝑅 ∈ Ring ∧ (1r‘𝑅) ≠ (0g‘𝑅)))
56	53, 54, 55	sylanbrc 594	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NzRing)
57		simplrl 788	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑥 ∈ 𝑈)
58		simplrr 789	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑟 ∈ ℝ+)
59		eqid 2769	. . . . . . 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 24813	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
61	50, 60	pm2.61dane 3051	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
62	15, 17	ovresd 7575	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) = (𝑥(dist‘𝑅)𝑦))
63	62	breq1d 5120	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 ↔ (𝑥(dist‘𝑅)𝑦) < 𝑠))
64		simpl 487	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+) → 𝑥 ∈ 𝑈)
65		ffvelcdm 7074	. . . . . . . . . . . 12 ⊢ ((𝐼:𝑈⟶𝑈 ∧ 𝑥 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
66	9, 64, 65	syl2an 607	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (𝐼‘𝑥) ∈ 𝑈)
67	66	adantr 485	. . . . . . . . . 10 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
68	67, 30	ovresd 7575	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) = ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)))
69	68	breq1d 5120	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
70	63, 69	imbi12d 347	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
71	70	ralbidva 3192	. . . . . 6 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
72	71	rexbidv 3195	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
73	61, 72	mpbird 260	. . . 4 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
74	73	ralrimivva 3214	. . 3 ⊢ (𝑅 ∈ NrmRing → ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
75		xpss12 5674	. . . . . . 7 ⊢ ((𝑈 ⊆ 𝑋 ∧ 𝑈 ⊆ 𝑋) → (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋))
76	14, 14, 75	mp2an 704	. . . . . 6 ⊢ (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋)
77		resabs1 6003	. . . . . 6 ⊢ ((𝑈 × 𝑈) ⊆ (𝑋 × 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈)))
78	76, 77	ax-mp 5	. . . . 5 ⊢ (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈))
79		eqid 2769	. . . . . . . 8 ⊢ ((dist‘𝑅) ↾ (𝑋 × 𝑋)) = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
80	13, 79	xmsxmet 24578	. . . . . . 7 ⊢ (𝑅 ∈ ∞MetSp → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
81	24, 25, 26, 80	4syl 20	. . . . . 6 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
82		xmetres2 24483	. . . . . 6 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
83	81, 14, 82	sylancl 597	. . . . 5 ⊢ (𝑅 ∈ NrmRing → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
84	78, 83	eqeltrrid 2874	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
85		eqid 2769	. . . . 5 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))
86	85, 85	metcn 24665	. . . 4 ⊢ ((((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈) ∧ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈)) → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
87	84, 84, 86	syl2anc 595	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
88	9, 74, 87	mpbir2and 725	. 2 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
89		nrginvrcn.j	. . . . . . 7 ⊢ 𝐽 = (TopOpen‘𝑅)
90	89, 13, 79	mstopn 24574	. . . . . 6 ⊢ (𝑅 ∈ MetSp → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
91	24, 25, 90	3syl 19	. . . . 5 ⊢ (𝑅 ∈ NrmRing → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
92	91	oveq1d 7423	. . . 4 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈))
93	78	eqcomi 2778	. . . . . 6 ⊢ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) = (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈))
94		eqid 2769	. . . . . 6 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋)))
95	93, 94, 85	metrest 24646	. . . . 5 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
96	81, 14, 95	sylancl 597	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
97	92, 96	eqtrd 2804	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
98	97, 97	oveq12d 7426	. 2 ⊢ (𝑅 ∈ NrmRing → ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)) = ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
99	88, 98	eleqtrrd 2872	1 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∀wral 3085  ∃wrex 3095   ⊆ wss 3913  ∅c0 4294  ifcif 4489   class class class wbr 5110   × cxp 5657   ↾ cres 5661  ⟶wf 6529  ‘cfv 6533  (class class class)co 7408  0cc0 11096  1c1 11097   · cmul 11101   < clt 11239   ≤ cle 11240   / cdiv 11867  2c2 12291  ℝ⁺crp 13012  Basecbs 17265   ↾_s cress 17286  distcds 17315   ↾_t crest 17469  TopOpenctopn 17470  0_gc0g 17488  Grpcgrp 18996  mulGrpcmgp 20212  1_rcur 20259  Ringcrg 20311  Unitcui 20433  inv_rcinvr 20465  NzRingcnzr 20591  ∞Metcxmet 21472  MetOpencmopn 21477   Cn ccn 23346  ∞MetSpcxms 24439  MetSpcms 24440  normcnm 24698  NrmGrpcngp 24699  NrmRingcnrg 24701

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-cnex 11152  ax-resscn 11153  ax-1cn 11154  ax-icn 11155  ax-addcl 11156  ax-addrcl 11157  ax-mulcl 11158  ax-mulrcl 11159  ax-mulcom 11160  ax-addass 11161  ax-mulass 11162  ax-distr 11163  ax-i2m1 11164  ax-1ne0 11165  ax-1rid 11166  ax-rnegex 11167  ax-rrecex 11168  ax-cnre 11169  ax-pre-lttri 11170  ax-pre-lttrn 11171  ax-pre-ltadd 11172  ax-pre-mulgt0 11173  ax-pre-sup 11174

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7859  df-1st 7982  df-2nd 7983  df-tpos 8218  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-er 8690  df-map 8822  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-sup 9398  df-inf 9399  df-pnf 11241  df-mnf 11242  df-xr 11243  df-ltxr 11244  df-le 11245  df-sub 11439  df-neg 11440  df-div 11868  df-nn 12230  df-2 12299  df-3 12300  df-4 12301  df-5 12302  df-6 12303  df-7 12304  df-8 12305  df-9 12306  df-n0 12501  df-z 12588  df-dec 12708  df-uz 12859  df-q 12969  df-rp 13013  df-xneg 13133  df-xadd 13134  df-xmul 13135  df-fz 13532  df-seq 14034  df-exp 14094  df-cj 15146  df-re 15147  df-im 15148  df-sqrt 15282  df-abs 15283  df-struct 17203  df-sets 17220  df-slot 17238  df-ndx 17250  df-base 17266  df-ress 17287  df-plusg 17319  df-mulr 17320  df-tset 17325  df-ple 17326  df-ds 17328  df-rest 17471  df-0g 17490  df-topgen 17492  df-xrs 17552  df-mgm 18694  df-sgrp 18773  df-mnd 18789  df-grp 18999  df-minusg 19000  df-sbg 19001  df-cmn 19848  df-abl 19849  df-mgp 20213  df-rng 20227  df-ur 20260  df-ring 20313  df-oppr 20415  df-dvdsr 20435  df-unit 20436  df-invr 20466  df-nzr 20592  df-abv 20886  df-psmet 21479  df-xmet 21480  df-met 21481  df-bl 21482  df-mopn 21483  df-top 23016  df-topon 23033  df-topsp 23055  df-bases 23068  df-cn 23349  df-cnp 23350  df-xms 24442  df-ms 24443  df-nm 24704  df-ngp 24705  df-nrg 24707

This theorem is referenced by:  nrgtdrg  24815