Theorem stdbdxmet 23871

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 1136	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 ∈ (∞Met‘𝑋))
2		xmetcl 23684	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ ℝ*)
3		xmetge0 23697	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 0 ≤ (𝑥𝐶𝑦))
4		elxrge0 13374	. . . . . . 7 ⊢ ((𝑥𝐶𝑦) ∈ (0[,]+∞) ↔ ((𝑥𝐶𝑦) ∈ ℝ* ∧ 0 ≤ (𝑥𝐶𝑦)))
5	2, 3, 4	sylanbrc 583	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
6	5	3expb 1120	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
7	1, 6	sylan 580	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ∈ (0[,]+∞))
8		xmetf 23682	. . . . . . 7 ⊢ (𝐶 ∈ (∞Met‘𝑋) → 𝐶:(𝑋 × 𝑋)⟶ℝ*)
9	8	3ad2ant1 1133	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶:(𝑋 × 𝑋)⟶ℝ*)
10	9	ffnd 6669	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 Fn (𝑋 × 𝑋))
11		fnov 7487	. . . . 5 ⊢ (𝐶 Fn (𝑋 × 𝑋) ↔ 𝐶 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (𝑥𝐶𝑦)))
12	10, 11	sylib 217	. . . 4 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐶 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ (𝑥𝐶𝑦)))
13		eqidd 2737	. . . 4 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) = (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)))
14		breq1 5108	. . . . 5 ⊢ (𝑧 = (𝑥𝐶𝑦) → (𝑧 ≤ 𝑅 ↔ (𝑥𝐶𝑦) ≤ 𝑅))
15		id 22	. . . . 5 ⊢ (𝑧 = (𝑥𝐶𝑦) → 𝑧 = (𝑥𝐶𝑦))
16	14, 15	ifbieq1d 4510	. . . 4 ⊢ (𝑧 = (𝑥𝐶𝑦) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
17	7, 12, 13, 16	fmpoco 8027	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅)))
18		stdbdmet.1	. . 3 ⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
19	17, 18	eqtr4di 2794	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) = 𝐷)
20		eliccxr 13352	. . . . 5 ⊢ (𝑧 ∈ (0[,]+∞) → 𝑧 ∈ ℝ*)
21		simp2 1137	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝑅 ∈ ℝ*)
22		ifcl 4531	. . . . 5 ⊢ ((𝑧 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) ∈ ℝ*)
23	20, 21, 22	syl2anr 597	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑧 ∈ (0[,]+∞)) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) ∈ ℝ*)
24	23	fmpttd 7063	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)):(0[,]+∞)⟶ℝ*)
25		id 22	. . . . . 6 ⊢ (𝑎 ∈ (0[,]+∞) → 𝑎 ∈ (0[,]+∞))
26		vex 3449	. . . . . . 7 ⊢ 𝑎 ∈ V
27		ifexg 4535	. . . . . . 7 ⊢ ((𝑎 ∈ V ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V)
28	26, 21, 27	sylancr 587	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V)
29		breq1 5108	. . . . . . . 8 ⊢ (𝑧 = 𝑎 → (𝑧 ≤ 𝑅 ↔ 𝑎 ≤ 𝑅))
30		id 22	. . . . . . . 8 ⊢ (𝑧 = 𝑎 → 𝑧 = 𝑎)
31	29, 30	ifbieq1d 4510	. . . . . . 7 ⊢ (𝑧 = 𝑎 → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
32		eqid 2736	. . . . . . 7 ⊢ (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) = (𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))
33	31, 32	fvmptg 6946	. . . . . 6 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
34	25, 28, 33	syl2anr 597	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
35	34	eqeq1d 2738	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
36		eqeq1 2740	. . . . . 6 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑎 = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
37	36	bibi1d 343	. . . . 5 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → ((𝑎 = 0 ↔ 𝑎 = 0) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0)))
38		eqeq1 2740	. . . . . 6 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑅 = 0 ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0))
39	38	bibi1d 343	. . . . 5 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → ((𝑅 = 0 ↔ 𝑎 = 0) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0)))
40		biidd 261	. . . . 5 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ 𝑎 ≤ 𝑅) → (𝑎 = 0 ↔ 𝑎 = 0))
41		simp3 1138	. . . . . . . . 9 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 0 < 𝑅)
42	41	gt0ne0d 11719	. . . . . . . 8 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝑅 ≠ 0)
43	42	neneqd 2948	. . . . . . 7 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ¬ 𝑅 = 0)
44	43	ad2antrr 724	. . . . . 6 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → ¬ 𝑅 = 0)
45		0xr 11202	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ*
46		xrltle 13068	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → (0 < 𝑅 → 0 ≤ 𝑅))
47	45, 21, 46	sylancr 587	. . . . . . . . . 10 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → (0 < 𝑅 → 0 ≤ 𝑅))
48	41, 47	mpd 15	. . . . . . . . 9 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 0 ≤ 𝑅)
49	48	adantr 481	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → 0 ≤ 𝑅)
50		breq1 5108	. . . . . . . 8 ⊢ (𝑎 = 0 → (𝑎 ≤ 𝑅 ↔ 0 ≤ 𝑅))
51	49, 50	syl5ibrcom 246	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (𝑎 = 0 → 𝑎 ≤ 𝑅))
52	51	con3dimp 409	. . . . . 6 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → ¬ 𝑎 = 0)
53	44, 52	2falsed 376	. . . . 5 ⊢ ((((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) ∧ ¬ 𝑎 ≤ 𝑅) → (𝑅 = 0 ↔ 𝑎 = 0))
54	37, 39, 40, 53	ifbothda 4524	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) = 0 ↔ 𝑎 = 0))
55	35, 54	bitrd 278	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ 𝑎 ∈ (0[,]+∞)) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = 0 ↔ 𝑎 = 0))
56		eliccxr 13352	. . . . . . . . 9 ⊢ (𝑎 ∈ (0[,]+∞) → 𝑎 ∈ ℝ*)
57	56	ad2antrl 726	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑎 ∈ ℝ*)
58	21	adantr 481	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ∈ ℝ*)
59		xrmin1 13096	. . . . . . . 8 ⊢ ((𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎)
60	57, 58, 59	syl2anc 584	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎)
61	57, 58	ifcld 4532	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ*)
62		eliccxr 13352	. . . . . . . . 9 ⊢ (𝑏 ∈ (0[,]+∞) → 𝑏 ∈ ℝ*)
63	62	ad2antll 727	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑏 ∈ ℝ*)
64		xrletr 13077	. . . . . . . 8 ⊢ ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ* ∧ 𝑎 ∈ ℝ* ∧ 𝑏 ∈ ℝ*) → ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎 ∧ 𝑎 ≤ 𝑏) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
65	61, 57, 63, 64	syl3anc 1371	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑎 ∧ 𝑎 ≤ 𝑏) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
66	60, 65	mpand 693	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏))
67		xrmin2 13097	. . . . . . 7 ⊢ ((𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)
68	57, 58, 67	syl2anc 584	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)
69	66, 68	jctird 527	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
70		xrlemin 13103	. . . . . 6 ⊢ ((if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ∈ ℝ* ∧ 𝑏 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
71	61, 63, 58, 70	syl3anc 1371	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ↔ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑏 ∧ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ 𝑅)))
72	69, 71	sylibrd 258	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
73	34	adantrr 715	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) = if(𝑎 ≤ 𝑅, 𝑎, 𝑅))
74		simpr 485	. . . . . 6 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞)) → 𝑏 ∈ (0[,]+∞))
75		vex 3449	. . . . . . 7 ⊢ 𝑏 ∈ V
76		ifexg 4535	. . . . . . 7 ⊢ ((𝑏 ∈ V ∧ 𝑅 ∈ ℝ*) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V)
77	75, 21, 76	sylancr 587	. . . . . 6 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V)
78		breq1 5108	. . . . . . . 8 ⊢ (𝑧 = 𝑏 → (𝑧 ≤ 𝑅 ↔ 𝑏 ≤ 𝑅))
79		id 22	. . . . . . . 8 ⊢ (𝑧 = 𝑏 → 𝑧 = 𝑏)
80	78, 79	ifbieq1d 4510	. . . . . . 7 ⊢ (𝑧 = 𝑏 → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
81	80, 32	fvmptg 6946	. . . . . 6 ⊢ ((𝑏 ∈ (0[,]+∞) ∧ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
82	74, 77, 81	syl2anr 597	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) = if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
83	73, 82	breq12d 5118	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) ≤ ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏) ↔ if(𝑎 ≤ 𝑅, 𝑎, 𝑅) ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
84	72, 83	sylibrd 258	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 ≤ 𝑏 → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) ≤ ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)))
85	57, 63	xaddcld 13220	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 +𝑒 𝑏) ∈ ℝ*)
86		xrmin1 13096	. . . . . . 7 ⊢ (((𝑎 +𝑒 𝑏) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏))
87	85, 58, 86	syl2anc 584	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏))
88	85, 58	ifcld 4532	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ ℝ*)
89	57, 58	xaddcld 13220	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑎 +𝑒 𝑅) ∈ ℝ*)
90		xrmin2 13097	. . . . . . . 8 ⊢ (((𝑎 +𝑒 𝑏) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ 𝑅)
91	85, 58, 90	syl2anc 584	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ 𝑅)
92		xaddid2 13161	. . . . . . . . 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 13374	. . . . . . . . . . 11 ⊢ (𝑎 ∈ (0[,]+∞) ↔ (𝑎 ∈ ℝ* ∧ 0 ≤ 𝑎))
96	95	simprbi 497	. . . . . . . . . 10 ⊢ (𝑎 ∈ (0[,]+∞) → 0 ≤ 𝑎)
97	96	ad2antrl 726	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑎)
98		xleadd1a 13172	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑎 ∈ ℝ* ∧ 𝑅 ∈ ℝ*) ∧ 0 ≤ 𝑎) → (0 +𝑒 𝑅) ≤ (𝑎 +𝑒 𝑅))
99	94, 57, 58, 97, 98	syl31anc 1373	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (0 +𝑒 𝑅) ≤ (𝑎 +𝑒 𝑅))
100	93, 99	eqbrtrrd 5129	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ≤ (𝑎 +𝑒 𝑅))
101	88, 58, 89, 91, 100	xrletrd 13081	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅))
102		oveq2 7365	. . . . . . . 8 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (𝑎 +𝑒 𝑏) = (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
103	102	breq2d 5117	. . . . . . 7 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
104		oveq2 7365	. . . . . . . 8 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (𝑎 +𝑒 𝑅) = (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
105	104	breq2d 5117	. . . . . . 7 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
106	103, 105	ifboth 4525	. . . . . 6 ⊢ ((if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑏) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 𝑅)) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
107	87, 101, 106	syl2anc 584	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
108	63, 58	ifcld 4532	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ ℝ*)
109	58, 108	xaddcld 13220	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ∈ ℝ*)
110	58	xaddid1d 13162	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 0) = 𝑅)
111		elxrge0 13374	. . . . . . . . . . 11 ⊢ (𝑏 ∈ (0[,]+∞) ↔ (𝑏 ∈ ℝ* ∧ 0 ≤ 𝑏))
112	111	simprbi 497	. . . . . . . . . 10 ⊢ (𝑏 ∈ (0[,]+∞) → 0 ≤ 𝑏)
113	112	ad2antll 727	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑏)
114	48	adantr 481	. . . . . . . . 9 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ 𝑅)
115		breq2 5109	. . . . . . . . . 10 ⊢ (𝑏 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (0 ≤ 𝑏 ↔ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
116		breq2 5109	. . . . . . . . . 10 ⊢ (𝑅 = if(𝑏 ≤ 𝑅, 𝑏, 𝑅) → (0 ≤ 𝑅 ↔ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
117	115, 116	ifboth 4525	. . . . . . . . 9 ⊢ ((0 ≤ 𝑏 ∧ 0 ≤ 𝑅) → 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
118	113, 114, 117	syl2anc 584	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅))
119		xleadd2a 13173	. . . . . . . 8 ⊢ (((0 ∈ ℝ* ∧ if(𝑏 ≤ 𝑅, 𝑏, 𝑅) ∈ ℝ* ∧ 𝑅 ∈ ℝ*) ∧ 0 ≤ if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) → (𝑅 +𝑒 0) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
120	94, 108, 58, 118, 119	syl31anc 1373	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (𝑅 +𝑒 0) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
121	110, 120	eqbrtrrd 5129	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → 𝑅 ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
122	88, 58, 109, 91, 121	xrletrd 13081	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
123		oveq1 7364	. . . . . . 7 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
124	123	breq2d 5117	. . . . . 6 ⊢ (𝑎 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
125		oveq1 7364	. . . . . . 7 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
126	125	breq2d 5117	. . . . . 6 ⊢ (𝑅 = if(𝑎 ≤ 𝑅, 𝑎, 𝑅) → (if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ↔ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))))
127	124, 126	ifboth 4525	. . . . 5 ⊢ ((if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑎 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (𝑅 +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
128	107, 122, 127	syl2anc 584	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ≤ (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
129		ge0xaddcl 13379	. . . . 5 ⊢ ((𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞)) → (𝑎 +𝑒 𝑏) ∈ (0[,]+∞))
130		ovex 7390	. . . . . 6 ⊢ (𝑎 +𝑒 𝑏) ∈ V
131		ifexg 4535	. . . . . 6 ⊢ (((𝑎 +𝑒 𝑏) ∈ V ∧ 𝑅 ∈ ℝ*) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V)
132	130, 21, 131	sylancr 587	. . . . 5 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V)
133		breq1 5108	. . . . . . 7 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → (𝑧 ≤ 𝑅 ↔ (𝑎 +𝑒 𝑏) ≤ 𝑅))
134		id 22	. . . . . . 7 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → 𝑧 = (𝑎 +𝑒 𝑏))
135	133, 134	ifbieq1d 4510	. . . . . 6 ⊢ (𝑧 = (𝑎 +𝑒 𝑏) → if(𝑧 ≤ 𝑅, 𝑧, 𝑅) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
136	135, 32	fvmptg 6946	. . . . 5 ⊢ (((𝑎 +𝑒 𝑏) ∈ (0[,]+∞) ∧ if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅) ∈ V) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
137	129, 132, 136	syl2anr 597	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) = if((𝑎 +𝑒 𝑏) ≤ 𝑅, (𝑎 +𝑒 𝑏), 𝑅))
138	73, 82	oveq12d 7375	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) +𝑒 ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)) = (if(𝑎 ≤ 𝑅, 𝑎, 𝑅) +𝑒 if(𝑏 ≤ 𝑅, 𝑏, 𝑅)))
139	128, 137, 138	3brtr4d 5137	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) ∧ (𝑎 ∈ (0[,]+∞) ∧ 𝑏 ∈ (0[,]+∞))) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘(𝑎 +𝑒 𝑏)) ≤ (((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑎) +𝑒 ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅))‘𝑏)))
140	1, 24, 55, 84, 139	comet 23869	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → ((𝑧 ∈ (0[,]+∞) ↦ if(𝑧 ≤ 𝑅, 𝑧, 𝑅)) ∘ 𝐶) ∈ (∞Met‘𝑋))
141	19, 140	eqeltrrd 2839	1 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 < 𝑅) → 𝐷 ∈ (∞Met‘𝑋))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  Vcvv 3445  ifcif 4486   class class class wbr 5105   ↦ cmpt 5188   × cxp 5631   ∘ ccom 5637   Fn wfn 6491  ⟶wf 6492  ‘cfv 6496  (class class class)co 7357   ∈ cmpo 7359  0cc0 11051  +∞cpnf 11186  ℝ^*cxr 11188   < clt 11189   ≤ cle 11190   +_𝑒 cxad 13031  [,]cicc 13267  ∞Metcxmet 20781

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-po 5545  df-so 5546  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-1st 7921  df-2nd 7922  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-2 12216  df-rp 12916  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-icc 13271  df-xmet 20789

This theorem is referenced by:  stdbdmet  23872  stdbdbl  23873  stdbdmopn  23874