Theorem stdbdxmet 24471

Description: The standard bounded metric is an extended metric given an extended metric and a positive extended real cutoff. (Contributed by Mario Carneiro, 26-Aug-2015.)

Hypothesis

Ref	Expression
stdbdmet.1	⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))

Assertion

Ref	Expression
stdbdxmet	⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐷 ∈ (∞Met‘𝑋))

Distinct variable groups:   𝑥,𝑦,𝐶   𝑥,𝑅,𝑦   𝑥,𝑋,𝑦

Allowed substitution hints:   𝐷(𝑥,𝑦)

Proof of Theorem stdbdxmet

Dummy variables 𝑎 𝑏 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simp1 1137	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 ∈ (∞Met‘𝑋))
2		xmetcl 24287	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ ℝ*)
3		xmetge0 24300	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 0 ≤ (𝑥𝐶𝑦))
4		elxrge0 13385	. . . . . . 7 ⊢ ((𝑥𝐶𝑦) ∈ (0[,]+∞) ↔ ((𝑥𝐶𝑦) ∈ ℝ* ∧ 0 ≤ (𝑥𝐶𝑦)))
5	2, 3, 4	sylanbrc 584	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
6	5	3expb 1121	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
7	1, 6	sylan 581	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
8		xmetf 24285	. . . . . . 7 ⊢ (𝐶 ∈ (∞Met‘𝑋) → 𝐶:(𝑋 × 𝑋)⟶ℝ*)
9	8	3ad2ant1 1134	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶:(𝑋 × 𝑋)⟶ℝ*)
10	9	ffnd 6671	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 Fn (𝑋 × 𝑋))
11		fnov 7499	. . . . 5 ⊢ (𝐶 Fn (𝑋 × 𝑋) ↔ 𝐶 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (𝑥𝐶𝑦)))
12	10, 11	sylib 218	. . . 4 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (𝑥𝐶𝑦)))
13		eqidd 2738	. . . 4 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) = (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)))
14		breq1 5103	. . . . 5 ⊢ (𝑧 = (𝑥𝐶𝑦) → (𝑧 ≤ 𝑅 ↔ (𝑥𝐶𝑦) ≤ 𝑅))
15		id 22	. . . . 5 ⊢ (𝑧 = (𝑥𝐶𝑦) → 𝑧 = (𝑥𝐶𝑦))
16	14, 15	ifbieq1d 4506	. . . 4 ⊢ (𝑧 = (𝑥𝐶𝑦) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
17	7, 12, 13, 16	fmpoco 8047	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅)))
18		stdbdmet.1	. . 3 ⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
19	17, 18	eqtr4di 2790	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) = 𝐷)
20		eliccxr 13363	. . . . 5 ⊢ (𝑧 ∈ (0[,]+∞) → 𝑧 ∈ ℝ*)
21		simp2 1138	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝑅 ∈ ℝ*)
22		ifcl 4527	. . . . 5 ⊢ ((𝑧 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) ∈ ℝ*)
23	20, 21, 22	syl2anr 598	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑧 ∈ (0[,]+∞)) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) ∈ ℝ*)
24	23	fmpttd 7069	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)):(0[,]+∞)⟶ℝ*)
25		id 22	. . . . . 6 ⊢ (𝑎 ∈ (0[,]+∞) → 𝑎 ∈ (0[,]+∞))
26		vex 3446	. . . . . . 7 ⊢ 𝑎 ∈ V
27		ifexg 4531	. . . . . . 7 ⊢ ((𝑎 ∈ V ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V)
28	26, 21, 27	sylancr 588	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V)
29		breq1 5103	. . . . . . . 8 ⊢ (𝑧 = 𝑎 → (𝑧 ≤ 𝑅 ↔ 𝑎 ≤ 𝑅))
30		id 22	. . . . . . . 8 ⊢ (𝑧 = 𝑎 → 𝑧 = 𝑎)
31	29, 30	ifbieq1d 4506	. . . . . . 7 ⊢ (𝑧 = 𝑎 → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
32		eqid 2737	. . . . . . 7 ⊢ (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) = (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))
33	31, 32	fvmptg 6947	. . . . . 6 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
34	25, 28, 33	syl2anr 598	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
35	34	eqeq1d 2739	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
36		eqeq1 2741	. . . . . 6 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑎 = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
37	36	bibi1d 343	. . . . 5 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → ((𝑎 = 0 ↔ 𝑎 = 0) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0)))
38		eqeq1 2741	. . . . . 6 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑅 = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
39	38	bibi1d 343	. . . . 5 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → ((𝑅 = 0 ↔ 𝑎 = 0) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0)))
40		biidd 262	. . . . 5 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ 𝑎 ≤ 𝑅) → (𝑎 = 0 ↔ 𝑎 = 0))
41		simp3 1139	. . . . . . . . 9 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 0 < 𝑅)
42	41	gt0ne0d 11713	. . . . . . . 8 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝑅 ≠ 0)
43	42	neneqd 2938	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ¬ 𝑅 = 0)
44	43	ad2antrr 727	. . . . . 6 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → ¬ 𝑅 = 0)
45		0xr 11191	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ*
46		xrltle 13075	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → (0 < 𝑅 → 0 ≤ 𝑅))
47	45, 21, 46	sylancr 588	. . . . . . . . . 10 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (0 < 𝑅 → 0 ≤ 𝑅))
48	41, 47	mpd 15	. . . . . . . . 9 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 0 ≤ 𝑅)
49	48	adantr 480	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → 0 ≤ 𝑅)
50		breq1 5103	. . . . . . . 8 ⊢ (𝑎 = 0 → (𝑎 ≤ 𝑅 ↔ 0 ≤ 𝑅))
51	49, 50	syl5ibrcom 247	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (𝑎 = 0 → 𝑎 ≤ 𝑅))
52	51	con3dimp 408	. . . . . 6 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → ¬ 𝑎 = 0)
53	44, 52	2falsed 376	. . . . 5 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → (𝑅 = 0 ↔ 𝑎 = 0))
54	37, 39, 40, 53	ifbothda 4520	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0))
55	35, 54	bitrd 279	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = 0 ↔ 𝑎 = 0))
56		eliccxr 13363	. . . . . . . . 9 ⊢ (𝑎 ∈ (0[,]+∞) → 𝑎 ∈ ℝ*)
57	56	ad2antrl 729	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑎 ∈ ℝ*)
58	21	adantr 480	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ∈ ℝ*)
59		xrmin1 13104	. . . . . . . 8 ⊢ ((𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎)
60	57, 58, 59	syl2anc 585	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎)
61	57, 58	ifcld 4528	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ*)
62		eliccxr 13363	. . . . . . . . 9 ⊢ (𝑏 ∈ (0[,]+∞) → 𝑏 ∈ ℝ*)
63	62	ad2antll 730	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑏 ∈ ℝ*)
64		xrletr 13084	. . . . . . . 8 ⊢ ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ* ∧ 𝑎 ∈ ℝ* ∧ 𝑏 ∈ ℝ*) → ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎 ∧ 𝑎 ≤ 𝑏) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
65	61, 57, 63, 64	syl3anc 1374	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎 ∧ 𝑎 ≤ 𝑏) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
66	60, 65	mpand 696	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
67		xrmin2 13105	. . . . . . 7 ⊢ ((𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)
68	57, 58, 67	syl2anc 585	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)
69	66, 68	jctird 526	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
70		xrlemin 13111	. . . . . 6 ⊢ ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ* ∧ 𝑏 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
71	61, 63, 58, 70	syl3anc 1374	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
72	69, 71	sylibrd 259	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
73	34	adantrr 718	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
74		simpr 484	. . . . . 6 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞)) → 𝑏 ∈ (0[,]+∞))
75		vex 3446	. . . . . . 7 ⊢ 𝑏 ∈ V
76		ifexg 4531	. . . . . . 7 ⊢ ((𝑏 ∈ V ∧ 𝑅 ∈ ℝ*) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V)
77	75, 21, 76	sylancr 588	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V)
78		breq1 5103	. . . . . . . 8 ⊢ (𝑧 = 𝑏 → (𝑧 ≤ 𝑅 ↔ 𝑏 ≤ 𝑅))
79		id 22	. . . . . . . 8 ⊢ (𝑧 = 𝑏 → 𝑧 = 𝑏)
80	78, 79	ifbieq1d 4506	. . . . . . 7 ⊢ (𝑧 = 𝑏 → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
81	80, 32	fvmptg 6947	. . . . . 6 ⊢ ((𝑏 ∈ (0[,]+∞) ∧ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
82	74, 77, 81	syl2anr 598	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
83	73, 82	breq12d 5113	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) ≤ ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
84	72, 83	sylibrd 259	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) ≤ ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)))
85	57, 63	xaddcld 13228	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 +𝑒 𝑏) ∈ ℝ*)
86		xrmin1 13104	. . . . . . 7 ⊢ (((𝑎 +𝑒 𝑏) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏))
87	85, 58, 86	syl2anc 585	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏))
88	85, 58	ifcld 4528	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ ℝ*)
89	57, 58	xaddcld 13228	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 +𝑒 𝑅) ∈ ℝ*)
90		xrmin2 13105	. . . . . . . 8 ⊢ (((𝑎 +𝑒 𝑏) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ 𝑅)
91	85, 58, 90	syl2anc 585	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ 𝑅)
92		xaddlid 13169	. . . . . . . . 9 ⊢ (𝑅 ∈ ℝ* → (0 +𝑒 𝑅) = 𝑅)
93	58, 92	syl 17	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (0 +𝑒 𝑅) = 𝑅)
94	45	a1i 11	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ∈ ℝ*)
95		elxrge0 13385	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (0[,]+∞) ↔ (𝑎 ∈ ℝ* ∧ 0 ≤ 𝑎))
96	95	simprbi 497	. . . . . . . . . 10 ⊢ (𝑎 ∈ (0[,]+∞) → 0 ≤ 𝑎)
97	96	ad2antrl 729	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑎)
98		xleadd1a 13180	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) ∧ 0 ≤ 𝑎) → (0 +𝑒 𝑅) ≤ (𝑎 +𝑒 𝑅))
99	94, 57, 58, 97, 98	syl31anc 1376	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (0 +𝑒 𝑅) ≤ (𝑎 +𝑒 𝑅))
100	93, 99	eqbrtrrd 5124	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ≤ (𝑎 +𝑒 𝑅))
101	88, 58, 89, 91, 100	xrletrd 13088	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅))
102		oveq2 7376	. . . . . . . 8 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (𝑎 +𝑒 𝑏) = (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
103	102	breq2d 5112	. . . . . . 7 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
104		oveq2 7376	. . . . . . . 8 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (𝑎 +𝑒 𝑅) = (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
105	104	breq2d 5112	. . . . . . 7 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
106	103, 105	ifboth 4521	. . . . . 6 ⊢ ((if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅)) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
107	87, 101, 106	syl2anc 585	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
108	63, 58	ifcld 4528	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ ℝ*)
109	58, 108	xaddcld 13228	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ∈ ℝ*)
110	58	xaddridd 13170	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 0) = 𝑅)
111		elxrge0 13385	. . . . . . . . . . 11 ⊢ (𝑏 ∈ (0[,]+∞) ↔ (𝑏 ∈ ℝ* ∧ 0 ≤ 𝑏))
112	111	simprbi 497	. . . . . . . . . 10 ⊢ (𝑏 ∈ (0[,]+∞) → 0 ≤ 𝑏)
113	112	ad2antll 730	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑏)
114	48	adantr 480	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑅)
115		breq2 5104	. . . . . . . . . 10 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (0 ≤ 𝑏 ↔ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
116		breq2 5104	. . . . . . . . . 10 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (0 ≤ 𝑅 ↔ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
117	115, 116	ifboth 4521	. . . . . . . . 9 ⊢ ((0 ≤ 𝑏 ∧ 0 ≤ 𝑅) → 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
118	113, 114, 117	syl2anc 585	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
119		xleadd2a 13181	. . . . . . . 8 ⊢ (((0 ∈ ℝ* ∧ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) ∧ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) → (𝑅 +𝑒 0) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
120	94, 108, 58, 118, 119	syl31anc 1376	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 0) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
121	110, 120	eqbrtrrd 5124	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
122	88, 58, 109, 91, 121	xrletrd 13088	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
123		oveq1 7375	. . . . . . 7 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
124	123	breq2d 5112	. . . . . 6 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
125		oveq1 7375	. . . . . . 7 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
126	125	breq2d 5112	. . . . . 6 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
127	124, 126	ifboth 4521	. . . . 5 ⊢ ((if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
128	107, 122, 127	syl2anc 585	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
129		ge0xaddcl 13390	. . . . 5 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞)) → (𝑎 +𝑒 𝑏) ∈ (0[,]+∞))
130		ovex 7401	. . . . . 6 ⊢ (𝑎 +𝑒 𝑏) ∈ V
131		ifexg 4531	. . . . . 6 ⊢ (((𝑎 +𝑒 𝑏) ∈ V ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V)
132	130, 21, 131	sylancr 588	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V)
133		breq1 5103	. . . . . . 7 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → (𝑧 ≤ 𝑅 ↔ (𝑎 +𝑒 𝑏) ≤ 𝑅))
134		id 22	. . . . . . 7 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → 𝑧 = (𝑎 +𝑒 𝑏))
135	133, 134	ifbieq1d 4506	. . . . . 6 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
136	135, 32	fvmptg 6947	. . . . 5 ⊢ (((𝑎 +𝑒 𝑏) ∈ (0[,]+∞) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
137	129, 132, 136	syl2anr 598	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
138	73, 82	oveq12d 7386	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) +𝑒 ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
139	128, 137, 138	3brtr4d 5132	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) ≤ (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) +𝑒 ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)))
140	1, 24, 55, 84, 139	comet 24469	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) ∈ (∞Met‘𝑋))
141	19, 140	eqeltrrd 2838	1 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐷 ∈ (∞Met‘𝑋))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  Vcvv 3442  ifcif 4481   class class class wbr 5100   ↦ cmpt 5181   × cxp 5630   ∘ ccom 5636   Fn wfn 6495  ⟶wf 6496  ‘cfv 6500  (class class class)co 7368   ∈ cmpo 7370  0cc0 11038  +∞cpnf 11175  ℝ^*cxr 11177   < clt 11178   ≤ cle 11179   +_𝑒 cxad 13036  [,]cicc 13276  ∞Metcxmet 21306

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-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

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 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-po 5540  df-so 5541  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-er 8645  df-map 8777  df-en 8896  df-dom 8897  df-sdom 8898  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-2 12220  df-rp 12918  df-xneg 13038  df-xadd 13039  df-xmul 13040  df-icc 13280  df-xmet 21314

This theorem is referenced by:  stdbdmet  24472  stdbdbl  24473  stdbdmopn  24474