Theorem nrginvrcn 24886

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 24857	. . . 4 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ Ring)
2		nrginvrcn.u	. . . . 5 ⊢ 𝑈 = (Unit‘𝑅)
3		eqid 2766	. . . . 5 ⊢ ((mulGrp‘𝑅) ↾s 𝑈) = ((mulGrp‘𝑅) ↾s 𝑈)
4	2, 3	unitgrp 20498	. . . 4 ⊢ (𝑅 ∈ Ring → ((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp)
5	2, 3	unitgrpbas 20497	. . . . 5 ⊢ 𝑈 = (Base‘((mulGrp‘𝑅) ↾s 𝑈))
6		nrginvrcn.i	. . . . . 6 ⊢ 𝐼 = (invr‘𝑅)
7	2, 3, 6	invrfval 20504	. . . . 5 ⊢ 𝐼 = (invg‘((mulGrp‘𝑅) ↾s 𝑈))
8	5, 7	grpinvf 19084	. . . 4 ⊢ (((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp → 𝐼:𝑈⟶𝑈)
9	1, 4, 8	3syl 19	. . 3 ⊢ (𝑅 ∈ NrmRing → 𝐼:𝑈⟶𝑈)
10		1rp 13038	. . . . . . . 8 ⊢ 1 ∈ ℝ+
11	10	ne0ii 4300	. . . . . . 7 ⊢ ℝ+ ≠ ∅
12	1	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ Ring)
13		nrginvrcn.x	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = (Base‘𝑅)
14	13, 2	unitss 20491	. . . . . . . . . . . . . . 15 ⊢ 𝑈 ⊆ 𝑋
15		simplrl 789	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑈)
16	14, 15	sselid 3938	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑥 ∈ 𝑋)
17		simpr 490	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑈)
18	14, 17	sselid 3938	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑋)
19		eqid 2766	. . . . . . . . . . . . . . 15 ⊢ (1r‘𝑅) = (1r‘𝑅)
20		eqid 2766	. . . . . . . . . . . . . . 15 ⊢ (0g‘𝑅) = (0g‘𝑅)
21	13, 19, 20	ring1eq0 20414	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
22	12, 16, 18, 21	syl3anc 1398	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → 𝑥 = 𝑦))
23		eqid 2766	. . . . . . . . . . . . . . . 16 ⊢ (𝐼‘𝑦) = (𝐼‘𝑦)
24		nrgngp 24856	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ NrmGrp)
25		ngpms 24794	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ NrmGrp → 𝑅 ∈ MetSp)
26		msxms 24648	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ MetSp → 𝑅 ∈ ∞MetSp)
27	24, 25, 26	3syl 19	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑅 ∈ NrmRing → 𝑅 ∈ ∞MetSp)
28	27	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑅 ∈ ∞MetSp)
29	9	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → 𝐼:𝑈⟶𝑈)
30	29	ffvelcdmda 7086	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑈)
31	14, 30	sselid 3938	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑦) ∈ 𝑋)
32		eqid 2766	. . . . . . . . . . . . . . . . . 18 ⊢ (dist‘𝑅) = (dist‘𝑅)
33	13, 32	xmseq0 24658	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ ∞MetSp ∧ (𝐼‘𝑦) ∈ 𝑋 ∧ (𝐼‘𝑦) ∈ 𝑋) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
34	28, 31, 31, 33	syl3anc 1398	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0 ↔ (𝐼‘𝑦) = (𝐼‘𝑦)))
35	23, 34	mpbiri 261	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) = 0)
36		simplrr 790	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 𝑟 ∈ ℝ+)
37	36	rpgt0d 13081	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → 0 < 𝑟)
38	35, 37	eqbrtrd 5138	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
39		fveq2 6888	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑦 → (𝐼‘𝑥) = (𝐼‘𝑦))
40	39	oveq1d 7438	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) = ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)))
41	40	breq1d 5124	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑦 → (((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑦)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
42	38, 41	syl5ibrcom 250	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥 = 𝑦 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
43	22, 42	syld 48	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((1r‘𝑅) = (0g‘𝑅) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
44	43	imp 412	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) ∧ (1r‘𝑅) = (0g‘𝑅)) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
45	44	an32s 665	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)
46	45	a1d 26	. . . . . . . . 9 ⊢ ((((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) ∧ 𝑦 ∈ 𝑈) → ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
47	46	ralrimiva 3160	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
48	47	ralrimivw 3164	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
49		r19.2z 4465	. . . . . . 7 ⊢ ((ℝ+ ≠ ∅ ∧ ∀𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
50	11, 48, 49	sylancr 599	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) = (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
51		eqid 2766	. . . . . . 7 ⊢ (norm‘𝑅) = (norm‘𝑅)
52		simpll 779	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NrmRing)
53	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ Ring)
54		simpr 490	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → (1r‘𝑅) ≠ (0g‘𝑅))
55	19, 20	isnzr 20648	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing ↔ (𝑅 ∈ Ring ∧ (1r‘𝑅) ≠ (0g‘𝑅)))
56	53, 54, 55	sylanbrc 595	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑅 ∈ NzRing)
57		simplrl 789	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑥 ∈ 𝑈)
58		simplrr 790	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → 𝑟 ∈ ℝ+)
59		eqid 2766	. . . . . . 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 24885	. . . . . 6 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ (1r‘𝑅) ≠ (0g‘𝑅)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
61	50, 60	pm2.61dane 3048	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
62	15, 17	ovresd 7590	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) = (𝑥(dist‘𝑅)𝑦))
63	62	breq1d 5124	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 ↔ (𝑥(dist‘𝑅)𝑦) < 𝑠))
64		simpl 488	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+) → 𝑥 ∈ 𝑈)
65		ffvelcdm 7083	. . . . . . . . . . . 12 ⊢ ((𝐼:𝑈⟶𝑈 ∧ 𝑥 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
66	9, 64, 65	syl2an 608	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (𝐼‘𝑥) ∈ 𝑈)
67	66	adantr 486	. . . . . . . . . 10 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (𝐼‘𝑥) ∈ 𝑈)
68	67, 30	ovresd 7590	. . . . . . . . 9 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) = ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)))
69	68	breq1d 5124	. . . . . . . 8 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟 ↔ ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟))
70	63, 69	imbi12d 347	. . . . . . 7 ⊢ (((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑈) → (((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
71	70	ralbidva 3189	. . . . . 6 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
72	71	rexbidv 3192	. . . . 5 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → (∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟) ↔ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥(dist‘𝑅)𝑦) < 𝑠 → ((𝐼‘𝑥)(dist‘𝑅)(𝐼‘𝑦)) < 𝑟)))
73	61, 72	mpbird 260	. . . 4 ⊢ ((𝑅 ∈ NrmRing ∧ (𝑥 ∈ 𝑈 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
74	73	ralrimivva 3211	. . 3 ⊢ (𝑅 ∈ NrmRing → ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))
75		xpss12 5681	. . . . . . 7 ⊢ ((𝑈 ⊆ 𝑋 ∧ 𝑈 ⊆ 𝑋) → (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋))
76	14, 14, 75	mp2an 705	. . . . . 6 ⊢ (𝑈 × 𝑈) ⊆ (𝑋 × 𝑋)
77		resabs1 6010	. . . . . 6 ⊢ ((𝑈 × 𝑈) ⊆ (𝑋 × 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈)))
78	76, 77	ax-mp 5	. . . . 5 ⊢ (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) = ((dist‘𝑅) ↾ (𝑈 × 𝑈))
79		eqid 2766	. . . . . . . 8 ⊢ ((dist‘𝑅) ↾ (𝑋 × 𝑋)) = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
80	13, 79	xmsxmet 24650	. . . . . . 7 ⊢ (𝑅 ∈ ∞MetSp → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
81	24, 25, 26, 80	4syl 20	. . . . . 6 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋))
82		xmetres2 24555	. . . . . 6 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
83	81, 14, 82	sylancl 598	. . . . 5 ⊢ (𝑅 ∈ NrmRing → (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
84	78, 83	eqeltrrid 2871	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈))
85		eqid 2766	. . . . 5 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))
86	85, 85	metcn 24737	. . . 4 ⊢ ((((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈) ∧ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) ∈ (∞Met‘𝑈)) → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
87	84, 84, 86	syl2anc 596	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))) ↔ (𝐼:𝑈⟶𝑈 ∧ ∀𝑥 ∈ 𝑈 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑦 ∈ 𝑈 ((𝑥((dist‘𝑅) ↾ (𝑈 × 𝑈))𝑦) < 𝑠 → ((𝐼‘𝑥)((dist‘𝑅) ↾ (𝑈 × 𝑈))(𝐼‘𝑦)) < 𝑟))))
88	9, 74, 87	mpbir2and 726	. 2 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
89		nrginvrcn.j	. . . . . . 7 ⊢ 𝐽 = (TopOpen‘𝑅)
90	89, 13, 79	mstopn 24646	. . . . . 6 ⊢ (𝑅 ∈ MetSp → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
91	24, 25, 90	3syl 19	. . . . 5 ⊢ (𝑅 ∈ NrmRing → 𝐽 = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))))
92	91	oveq1d 7438	. . . 4 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈))
93	78	eqcomi 2775	. . . . . 6 ⊢ ((dist‘𝑅) ↾ (𝑈 × 𝑈)) = (((dist‘𝑅) ↾ (𝑋 × 𝑋)) ↾ (𝑈 × 𝑈))
94		eqid 2766	. . . . . 6 ⊢ (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) = (MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋)))
95	93, 94, 85	metrest 24718	. . . . 5 ⊢ ((((dist‘𝑅) ↾ (𝑋 × 𝑋)) ∈ (∞Met‘𝑋) ∧ 𝑈 ⊆ 𝑋) → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
96	81, 14, 95	sylancl 598	. . . 4 ⊢ (𝑅 ∈ NrmRing → ((MetOpen‘((dist‘𝑅) ↾ (𝑋 × 𝑋))) ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
97	92, 96	eqtrd 2801	. . 3 ⊢ (𝑅 ∈ NrmRing → (𝐽 ↾t 𝑈) = (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))))
98	97, 97	oveq12d 7441	. 2 ⊢ (𝑅 ∈ NrmRing → ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)) = ((MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈))) Cn (MetOpen‘((dist‘𝑅) ↾ (𝑈 × 𝑈)))))
99	88, 98	eleqtrrd 2869	1 ⊢ (𝑅 ∈ NrmRing → 𝐼 ∈ ((𝐽 ↾t 𝑈) Cn (𝐽 ↾t 𝑈)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ≠ wne 2961  ∀wral 3082  ∃wrex 3092   ⊆ wss 3908  ∅c0 4289  ifcif 4492   class class class wbr 5114   × cxp 5664   ↾ cres 5668  ⟶wf 6539  ‘cfv 6543  (class class class)co 7423  0cc0 11118  1c1 11119   · cmul 11123   < clt 11261   ≤ cle 11262   / cdiv 11889  2c2 12313  ℝ⁺crp 13034  Basecbs 17294   ↾_s cress 17315  distcds 17344   ↾_t crest 17498  TopOpenctopn 17499  0_gc0g 17517  Grpcgrp 19031  mulGrpcmgp 20247  1_rcur 20294  Ringcrg 20346  Unitcui 20470  inv_rcinvr 20502  NzRingcnzr 20646  ∞Metcxmet 21544  MetOpencmopn 21549   Cn ccn 23418  ∞MetSpcxms 24511  MetSpcms 24512  normcnm 24770  NrmGrpcngp 24771  NrmRingcnrg 24773

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195  ax-pre-sup 11196

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 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-tpos 8231  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8703  df-map 8835  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-sup 9412  df-inf 9413  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12523  df-z 12610  df-dec 12730  df-uz 12881  df-q 12991  df-rp 13035  df-xneg 13155  df-xadd 13156  df-xmul 13157  df-fz 13554  df-seq 14058  df-exp 14118  df-cj 15176  df-re 15177  df-im 15178  df-sqrt 15312  df-abs 15313  df-struct 17232  df-sets 17249  df-slot 17267  df-ndx 17279  df-base 17295  df-ress 17316  df-plusg 17348  df-mulr 17349  df-tset 17354  df-ple 17355  df-ds 17357  df-rest 17500  df-0g 17519  df-topgen 17521  df-xrs 17581  df-mgm 18723  df-sgrp 18806  df-mnd 18822  df-grp 19034  df-minusg 19035  df-sbg 19036  df-cmn 19883  df-abl 19884  df-mgp 20248  df-rng 20262  df-ur 20295  df-ring 20348  df-oppr 20452  df-dvdsr 20472  df-unit 20473  df-invr 20503  df-nzr 20647  df-abv 20949  df-psmet 21551  df-xmet 21552  df-met 21553  df-bl 21554  df-mopn 21555  df-top 23088  df-topon 23105  df-topsp 23127  df-bases 23140  df-cn 23421  df-cnp 23422  df-xms 24514  df-ms 24515  df-nm 24776  df-ngp 24777  df-nrg 24779

This theorem is used by:  nrgtdrg  24887