Theorem rrnmet 38167

Description: Euclidean space is a metric space. (Contributed by Jeff Madsen, 2-Sep-2009.) (Proof shortened by Mario Carneiro, 5-Jun-2014.)

Hypothesis

Ref	Expression
rrnval.1	⊢ 𝑋 = (ℝ ↑m 𝐼)

Assertion

Ref	Expression
rrnmet	⊢ (𝐼 ∈ Fin → (ℝn‘𝐼) ∈ (Met‘𝑋))

Proof of Theorem rrnmet

Dummy variables 𝑘 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 482	. . . . . . 7 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝐼 ∈ Fin)
2		simprl 771	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑋)
3		rrnval.1	. . . . . . . . . . . 12 ⊢ 𝑋 = (ℝ ↑m 𝐼)
4	2, 3	eleqtrdi 2847	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ (ℝ ↑m 𝐼))
5		elmapi 8790	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (ℝ ↑m 𝐼) → 𝑥:𝐼⟶ℝ)
6	4, 5	syl 17	. . . . . . . . . 10 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥:𝐼⟶ℝ)
7	6	ffvelcdmda 7031	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (𝑥‘𝑘) ∈ ℝ)
8		simprr 773	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
9	8, 3	eleqtrdi 2847	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ (ℝ ↑m 𝐼))
10		elmapi 8790	. . . . . . . . . . 11 ⊢ (𝑦 ∈ (ℝ ↑m 𝐼) → 𝑦:𝐼⟶ℝ)
11	9, 10	syl 17	. . . . . . . . . 10 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦:𝐼⟶ℝ)
12	11	ffvelcdmda 7031	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (𝑦‘𝑘) ∈ ℝ)
13	7, 12	resubcld 11572	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → ((𝑥‘𝑘) − (𝑦‘𝑘)) ∈ ℝ)
14	13	resqcld 14081	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) ∈ ℝ)
15	1, 14	fsumrecl 15690	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) ∈ ℝ)
16	13	sqge0d 14093	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → 0 ≤ (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))
17	1, 14, 16	fsumge0 15752	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 0 ≤ Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))
18	15, 17	resqrtcld 15374	. . . . 5 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) ∈ ℝ)
19	18	ralrimivva 3181	. . . 4 ⊢ (𝐼 ∈ Fin → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) ∈ ℝ)
20		eqid 2737	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)))
21	20	fmpo 8015	. . . 4 ⊢ (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) ∈ ℝ ↔ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))):(𝑋 × 𝑋)⟶ℝ)
22	19, 21	sylib 218	. . 3 ⊢ (𝐼 ∈ Fin → (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))):(𝑋 × 𝑋)⟶ℝ)
23	3	rrnval 38165	. . . 4 ⊢ (𝐼 ∈ Fin → (ℝn‘𝐼) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))))
24	23	feq1d 6645	. . 3 ⊢ (𝐼 ∈ Fin → ((ℝn‘𝐼):(𝑋 × 𝑋)⟶ℝ ↔ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))):(𝑋 × 𝑋)⟶ℝ))
25	22, 24	mpbird 257	. 2 ⊢ (𝐼 ∈ Fin → (ℝn‘𝐼):(𝑋 × 𝑋)⟶ℝ)
26		sqrt00 15219	. . . . . . . 8 ⊢ ((Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) ∈ ℝ ∧ 0 ≤ Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) → ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) = 0 ↔ Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0))
27	15, 17, 26	syl2anc 585	. . . . . . 7 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) = 0 ↔ Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0))
28	1, 14, 16	fsum00 15755	. . . . . . 7 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0 ↔ ∀𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0))
29	27, 28	bitrd 279	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) = 0 ↔ ∀𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0))
30	13	recnd 11167	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → ((𝑥‘𝑘) − (𝑦‘𝑘)) ∈ ℂ)
31		sqeq0 14076	. . . . . . . . 9 ⊢ (((𝑥‘𝑘) − (𝑦‘𝑘)) ∈ ℂ → ((((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0 ↔ ((𝑥‘𝑘) − (𝑦‘𝑘)) = 0))
32	30, 31	syl 17	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → ((((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0 ↔ ((𝑥‘𝑘) − (𝑦‘𝑘)) = 0))
33	7	recnd 11167	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (𝑥‘𝑘) ∈ ℂ)
34	12	recnd 11167	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (𝑦‘𝑘) ∈ ℂ)
35	33, 34	subeq0ad 11509	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → (((𝑥‘𝑘) − (𝑦‘𝑘)) = 0 ↔ (𝑥‘𝑘) = (𝑦‘𝑘)))
36	32, 35	bitrd 279	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑘 ∈ 𝐼) → ((((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0 ↔ (𝑥‘𝑘) = (𝑦‘𝑘)))
37	36	ralbidva 3159	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∀𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2) = 0 ↔ ∀𝑘 ∈ 𝐼 (𝑥‘𝑘) = (𝑦‘𝑘)))
38	29, 37	bitrd 279	. . . . 5 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) = 0 ↔ ∀𝑘 ∈ 𝐼 (𝑥‘𝑘) = (𝑦‘𝑘)))
39	3	rrnmval 38166	. . . . . . 7 ⊢ ((𝐼 ∈ Fin ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥(ℝn‘𝐼)𝑦) = (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)))
40	39	3expb 1121	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥(ℝn‘𝐼)𝑦) = (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)))
41	40	eqeq1d 2739	. . . . 5 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) = 0))
42	6	ffnd 6664	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 Fn 𝐼)
43	11	ffnd 6664	. . . . . 6 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 Fn 𝐼)
44		eqfnfv 6978	. . . . . 6 ⊢ ((𝑥 Fn 𝐼 ∧ 𝑦 Fn 𝐼) → (𝑥 = 𝑦 ↔ ∀𝑘 ∈ 𝐼 (𝑥‘𝑘) = (𝑦‘𝑘)))
45	42, 43, 44	syl2anc 585	. . . . 5 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥 = 𝑦 ↔ ∀𝑘 ∈ 𝐼 (𝑥‘𝑘) = (𝑦‘𝑘)))
46	38, 41, 45	3bitr4d 311	. . . 4 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ 𝑥 = 𝑦))
47		simpll 767	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → 𝐼 ∈ Fin)
48	7	adantlr 716	. . . . . . . . 9 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑥‘𝑘) ∈ ℝ)
49		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ 𝑋)
50	49, 3	eleqtrdi 2847	. . . . . . . . . . 11 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ (ℝ ↑m 𝐼))
51		elmapi 8790	. . . . . . . . . . 11 ⊢ (𝑧 ∈ (ℝ ↑m 𝐼) → 𝑧:𝐼⟶ℝ)
52	50, 51	syl 17	. . . . . . . . . 10 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → 𝑧:𝐼⟶ℝ)
53	52	ffvelcdmda 7031	. . . . . . . . 9 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑧‘𝑘) ∈ ℝ)
54	48, 53	resubcld 11572	. . . . . . . 8 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → ((𝑥‘𝑘) − (𝑧‘𝑘)) ∈ ℝ)
55	12	adantlr 716	. . . . . . . . 9 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑦‘𝑘) ∈ ℝ)
56	53, 55	resubcld 11572	. . . . . . . 8 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → ((𝑧‘𝑘) − (𝑦‘𝑘)) ∈ ℝ)
57	47, 54, 56	trirn 25380	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (√‘Σ𝑘 ∈ 𝐼 ((((𝑥‘𝑘) − (𝑧‘𝑘)) + ((𝑧‘𝑘) − (𝑦‘𝑘)))↑2)) ≤ ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑧‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
58	33	adantlr 716	. . . . . . . . . . 11 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑥‘𝑘) ∈ ℂ)
59	53	recnd 11167	. . . . . . . . . . 11 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑧‘𝑘) ∈ ℂ)
60	34	adantlr 716	. . . . . . . . . . 11 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (𝑦‘𝑘) ∈ ℂ)
61	58, 59, 60	npncand 11523	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (((𝑥‘𝑘) − (𝑧‘𝑘)) + ((𝑧‘𝑘) − (𝑦‘𝑘))) = ((𝑥‘𝑘) − (𝑦‘𝑘)))
62	61	oveq1d 7376	. . . . . . . . 9 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → ((((𝑥‘𝑘) − (𝑧‘𝑘)) + ((𝑧‘𝑘) − (𝑦‘𝑘)))↑2) = (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))
63	62	sumeq2dv 15658	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → Σ𝑘 ∈ 𝐼 ((((𝑥‘𝑘) − (𝑧‘𝑘)) + ((𝑧‘𝑘) − (𝑦‘𝑘)))↑2) = Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2))
64	63	fveq2d 6839	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (√‘Σ𝑘 ∈ 𝐼 ((((𝑥‘𝑘) − (𝑧‘𝑘)) + ((𝑧‘𝑘) − (𝑦‘𝑘)))↑2)) = (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)))
65		sqsubswap 14073	. . . . . . . . . . 11 ⊢ (((𝑥‘𝑘) ∈ ℂ ∧ (𝑧‘𝑘) ∈ ℂ) → (((𝑥‘𝑘) − (𝑧‘𝑘))↑2) = (((𝑧‘𝑘) − (𝑥‘𝑘))↑2))
66	58, 59, 65	syl2anc 585	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) ∧ 𝑘 ∈ 𝐼) → (((𝑥‘𝑘) − (𝑧‘𝑘))↑2) = (((𝑧‘𝑘) − (𝑥‘𝑘))↑2))
67	66	sumeq2dv 15658	. . . . . . . . 9 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑧‘𝑘))↑2) = Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2))
68	67	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑧‘𝑘))↑2)) = (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)))
69	68	oveq1d 7376	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → ((√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑧‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))) = ((√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
70	57, 64, 69	3brtr3d 5117	. . . . . 6 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)) ≤ ((√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
71	40	adantr 480	. . . . . 6 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (𝑥(ℝn‘𝐼)𝑦) = (√‘Σ𝑘 ∈ 𝐼 (((𝑥‘𝑘) − (𝑦‘𝑘))↑2)))
72	3	rrnmval 38166	. . . . . . . . . 10 ⊢ ((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋 ∧ 𝑥 ∈ 𝑋) → (𝑧(ℝn‘𝐼)𝑥) = (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)))
73	72	3adant3r 1183	. . . . . . . . 9 ⊢ ((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑧(ℝn‘𝐼)𝑥) = (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)))
74	3	rrnmval 38166	. . . . . . . . . 10 ⊢ ((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑧(ℝn‘𝐼)𝑦) = (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2)))
75	74	3adant3l 1182	. . . . . . . . 9 ⊢ ((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑧(ℝn‘𝐼)𝑦) = (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2)))
76	73, 75	oveq12d 7379	. . . . . . . 8 ⊢ ((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)) = ((√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
77	76	3expa 1119	. . . . . . 7 ⊢ (((𝐼 ∈ Fin ∧ 𝑧 ∈ 𝑋) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)) = ((√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
78	77	an32s 653	. . . . . 6 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)) = ((√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑥‘𝑘))↑2)) + (√‘Σ𝑘 ∈ 𝐼 (((𝑧‘𝑘) − (𝑦‘𝑘))↑2))))
79	70, 71, 78	3brtr4d 5118	. . . . 5 ⊢ (((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ 𝑧 ∈ 𝑋) → (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)))
80	79	ralrimiva 3130	. . . 4 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ∀𝑧 ∈ 𝑋 (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)))
81	46, 80	jca 511	. . 3 ⊢ ((𝐼 ∈ Fin ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ 𝑥 = 𝑦) ∧ ∀𝑧 ∈ 𝑋 (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦))))
82	81	ralrimivva 3181	. 2 ⊢ (𝐼 ∈ Fin → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ 𝑥 = 𝑦) ∧ ∀𝑧 ∈ 𝑋 (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦))))
83		ovex 7394	. . . 4 ⊢ (ℝ ↑m 𝐼) ∈ V
84	3, 83	eqeltri 2833	. . 3 ⊢ 𝑋 ∈ V
85		ismet 24301	. . 3 ⊢ (𝑋 ∈ V → ((ℝn‘𝐼) ∈ (Met‘𝑋) ↔ ((ℝn‘𝐼):(𝑋 × 𝑋)⟶ℝ ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ 𝑥 = 𝑦) ∧ ∀𝑧 ∈ 𝑋 (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦))))))
86	84, 85	ax-mp 5	. 2 ⊢ ((ℝn‘𝐼) ∈ (Met‘𝑋) ↔ ((ℝn‘𝐼):(𝑋 × 𝑋)⟶ℝ ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑋 (((𝑥(ℝn‘𝐼)𝑦) = 0 ↔ 𝑥 = 𝑦) ∧ ∀𝑧 ∈ 𝑋 (𝑥(ℝn‘𝐼)𝑦) ≤ ((𝑧(ℝn‘𝐼)𝑥) + (𝑧(ℝn‘𝐼)𝑦)))))
87	25, 82, 86	sylanbrc 584	1 ⊢ (𝐼 ∈ Fin → (ℝn‘𝐼) ∈ (Met‘𝑋))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∀wral 3052  Vcvv 3430   class class class wbr 5086   × cxp 5623   Fn wfn 6488  ⟶wf 6489  ‘cfv 6493  (class class class)co 7361   ∈ cmpo 7363   ↑_m cmap 8767  Fincfn 8887  ℂcc 11030  ℝcr 11031  0cc0 11032   + caddc 11035   ≤ cle 11174   − cmin 11371  2c2 12230  ↑cexp 14017  √csqrt 15189  Σcsu 15642  Metcmet 21333  ℝⁿcrrn 38163

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683  ax-inf2 9556  ax-cnex 11088  ax-resscn 11089  ax-1cn 11090  ax-icn 11091  ax-addcl 11092  ax-addrcl 11093  ax-mulcl 11094  ax-mulrcl 11095  ax-mulcom 11096  ax-addass 11097  ax-mulass 11098  ax-distr 11099  ax-i2m1 11100  ax-1ne0 11101  ax-1rid 11102  ax-rnegex 11103  ax-rrecex 11104  ax-cnre 11105  ax-pre-lttri 11106  ax-pre-lttrn 11107  ax-pre-ltadd 11108  ax-pre-mulgt0 11109  ax-pre-sup 11110

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7812  df-1st 7936  df-2nd 7937  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-sup 9349  df-oi 9419  df-card 9857  df-pnf 11175  df-mnf 11176  df-xr 11177  df-ltxr 11178  df-le 11179  df-sub 11373  df-neg 11374  df-div 11802  df-nn 12169  df-2 12238  df-3 12239  df-4 12240  df-n0 12432  df-z 12519  df-uz 12783  df-rp 12937  df-ico 13298  df-fz 13456  df-fzo 13603  df-seq 13958  df-exp 14018  df-hash 14287  df-cj 15055  df-re 15056  df-im 15057  df-sqrt 15191  df-abs 15192  df-clim 15444  df-sum 15643  df-met 21341  df-rrn 38164

This theorem is referenced by:  rrncmslem  38170  rrncms  38171  rrnequiv  38173  rrntotbnd  38174  rrnheibor  38175  ismrer1  38176  reheibor  38177