Theorem rrxmvallem 24009

Description: Support of the function used for building the distance . (Contributed by Thierry Arnoux, 30-Jun-2019.)

Hypothesis

Ref	Expression
rrxmval.1	⊢ 𝑋 = {ℎ ∈ (ℝ ↑m 𝐼) ∣ ℎ finSupp 0}

Assertion

Ref	Expression
rrxmvallem	⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) supp 0) ⊆ ((𝐹 supp 0) ∪ (𝐺 supp 0)))

Distinct variable groups:   ℎ,𝐹,𝑘   ℎ,𝐺,𝑘   ℎ,𝐼,𝑘   ℎ,𝑉,𝑘   𝑘,𝑋

Allowed substitution hint:   𝑋(ℎ)

Proof of Theorem rrxmvallem

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simprl 769	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → (𝐹‘𝑥) = 0)
2		0cn 10635	. . . . . . . . . 10 ⊢ 0 ∈ ℂ
3	1, 2	eqeltrdi 2923	. . . . . . . . 9 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → (𝐹‘𝑥) ∈ ℂ)
4		simprr 771	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → (𝐺‘𝑥) = 0)
5	1, 4	eqtr4d 2861	. . . . . . . . 9 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → (𝐹‘𝑥) = (𝐺‘𝑥))
6	3, 5	subeq0bd 11068	. . . . . . . 8 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → ((𝐹‘𝑥) − (𝐺‘𝑥)) = 0)
7	6	sq0id 13560	. . . . . . 7 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)) → (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) = 0)
8	7	ex 415	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0) → (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) = 0))
9		ioran 980	. . . . . . . 8 ⊢ (¬ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0) ↔ (¬ (𝐹‘𝑥) ≠ 0 ∧ ¬ (𝐺‘𝑥) ≠ 0))
10		nne 3022	. . . . . . . . 9 ⊢ (¬ (𝐹‘𝑥) ≠ 0 ↔ (𝐹‘𝑥) = 0)
11		nne 3022	. . . . . . . . 9 ⊢ (¬ (𝐺‘𝑥) ≠ 0 ↔ (𝐺‘𝑥) = 0)
12	10, 11	anbi12i 628	. . . . . . . 8 ⊢ ((¬ (𝐹‘𝑥) ≠ 0 ∧ ¬ (𝐺‘𝑥) ≠ 0) ↔ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0))
13	9, 12	bitri 277	. . . . . . 7 ⊢ (¬ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0) ↔ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0))
14	13	a1i 11	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (¬ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0) ↔ ((𝐹‘𝑥) = 0 ∧ (𝐺‘𝑥) = 0)))
15		eqidd 2824	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) = (𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)))
16		simpr 487	. . . . . . . . . . . . 13 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 = 𝑥) → 𝑘 = 𝑥)
17	16	fveq2d 6676	. . . . . . . . . . . 12 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 = 𝑥) → (𝐹‘𝑘) = (𝐹‘𝑥))
18	16	fveq2d 6676	. . . . . . . . . . . 12 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 = 𝑥) → (𝐺‘𝑘) = (𝐺‘𝑥))
19	17, 18	oveq12d 7176	. . . . . . . . . . 11 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 = 𝑥) → ((𝐹‘𝑘) − (𝐺‘𝑘)) = ((𝐹‘𝑥) − (𝐺‘𝑥)))
20	19	oveq1d 7173	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 = 𝑥) → (((𝐹‘𝑘) − (𝐺‘𝑘))↑2) = (((𝐹‘𝑥) − (𝐺‘𝑥))↑2))
21		simpr 487	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → 𝑥 ∈ 𝐼)
22		ovex 7191	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) ∈ V
23	22	a1i 11	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) ∈ V)
24	15, 20, 21, 23	fvmptd 6777	. . . . . . . . 9 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) = (((𝐹‘𝑥) − (𝐺‘𝑥))↑2))
25	24	neeq1d 3077	. . . . . . . 8 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0 ↔ (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) ≠ 0))
26	25	bicomd 225	. . . . . . 7 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → ((((𝐹‘𝑥) − (𝐺‘𝑥))↑2) ≠ 0 ↔ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0))
27	26	necon1bbid 3057	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (¬ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0 ↔ (((𝐹‘𝑥) − (𝐺‘𝑥))↑2) = 0))
28	8, 14, 27	3imtr4d 296	. . . . 5 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (¬ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0) → ¬ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0))
29	28	con4d 115	. . . 4 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) ∧ 𝑥 ∈ 𝐼) → (((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0 → ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0)))
30	29	ss2rabdv 4054	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → {𝑥 ∈ 𝐼 ∣ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0} ⊆ {𝑥 ∈ 𝐼 ∣ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0)})
31		unrab 4276	. . 3 ⊢ ({𝑥 ∈ 𝐼 ∣ (𝐹‘𝑥) ≠ 0} ∪ {𝑥 ∈ 𝐼 ∣ (𝐺‘𝑥) ≠ 0}) = {𝑥 ∈ 𝐼 ∣ ((𝐹‘𝑥) ≠ 0 ∨ (𝐺‘𝑥) ≠ 0)}
32	30, 31	sseqtrrdi 4020	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → {𝑥 ∈ 𝐼 ∣ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0} ⊆ ({𝑥 ∈ 𝐼 ∣ (𝐹‘𝑥) ≠ 0} ∪ {𝑥 ∈ 𝐼 ∣ (𝐺‘𝑥) ≠ 0}))
33		simp1 1132	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → 𝐼 ∈ 𝑉)
34		ovex 7191	. . . . 5 ⊢ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2) ∈ V
35		eqid 2823	. . . . 5 ⊢ (𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) = (𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))
36	34, 35	fnmpti 6493	. . . 4 ⊢ (𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) Fn 𝐼
37		suppvalfn 7839	. . . 4 ⊢ (((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) Fn 𝐼 ∧ 𝐼 ∈ 𝑉 ∧ 0 ∈ ℂ) → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) supp 0) = {𝑥 ∈ 𝐼 ∣ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0})
38	36, 2, 37	mp3an13 1448	. . 3 ⊢ (𝐼 ∈ 𝑉 → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) supp 0) = {𝑥 ∈ 𝐼 ∣ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0})
39	33, 38	syl 17	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) supp 0) = {𝑥 ∈ 𝐼 ∣ ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2))‘𝑥) ≠ 0})
40		elrabi 3677	. . . . . . 7 ⊢ (𝐹 ∈ {ℎ ∈ (ℝ ↑m 𝐼) ∣ ℎ finSupp 0} → 𝐹 ∈ (ℝ ↑m 𝐼))
41		rrxmval.1	. . . . . . 7 ⊢ 𝑋 = {ℎ ∈ (ℝ ↑m 𝐼) ∣ ℎ finSupp 0}
42	40, 41	eleq2s 2933	. . . . . 6 ⊢ (𝐹 ∈ 𝑋 → 𝐹 ∈ (ℝ ↑m 𝐼))
43		elmapi 8430	. . . . . 6 ⊢ (𝐹 ∈ (ℝ ↑m 𝐼) → 𝐹:𝐼⟶ℝ)
44		ffn 6516	. . . . . 6 ⊢ (𝐹:𝐼⟶ℝ → 𝐹 Fn 𝐼)
45	42, 43, 44	3syl 18	. . . . 5 ⊢ (𝐹 ∈ 𝑋 → 𝐹 Fn 𝐼)
46	45	3ad2ant2 1130	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → 𝐹 Fn 𝐼)
47	2	a1i 11	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → 0 ∈ ℂ)
48		suppvalfn 7839	. . . 4 ⊢ ((𝐹 Fn 𝐼 ∧ 𝐼 ∈ 𝑉 ∧ 0 ∈ ℂ) → (𝐹 supp 0) = {𝑥 ∈ 𝐼 ∣ (𝐹‘𝑥) ≠ 0})
49	46, 33, 47, 48	syl3anc 1367	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → (𝐹 supp 0) = {𝑥 ∈ 𝐼 ∣ (𝐹‘𝑥) ≠ 0})
50		elrabi 3677	. . . . . . 7 ⊢ (𝐺 ∈ {ℎ ∈ (ℝ ↑m 𝐼) ∣ ℎ finSupp 0} → 𝐺 ∈ (ℝ ↑m 𝐼))
51	50, 41	eleq2s 2933	. . . . . 6 ⊢ (𝐺 ∈ 𝑋 → 𝐺 ∈ (ℝ ↑m 𝐼))
52		elmapi 8430	. . . . . 6 ⊢ (𝐺 ∈ (ℝ ↑m 𝐼) → 𝐺:𝐼⟶ℝ)
53		ffn 6516	. . . . . 6 ⊢ (𝐺:𝐼⟶ℝ → 𝐺 Fn 𝐼)
54	51, 52, 53	3syl 18	. . . . 5 ⊢ (𝐺 ∈ 𝑋 → 𝐺 Fn 𝐼)
55	54	3ad2ant3 1131	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → 𝐺 Fn 𝐼)
56		suppvalfn 7839	. . . 4 ⊢ ((𝐺 Fn 𝐼 ∧ 𝐼 ∈ 𝑉 ∧ 0 ∈ ℂ) → (𝐺 supp 0) = {𝑥 ∈ 𝐼 ∣ (𝐺‘𝑥) ≠ 0})
57	55, 33, 47, 56	syl3anc 1367	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → (𝐺 supp 0) = {𝑥 ∈ 𝐼 ∣ (𝐺‘𝑥) ≠ 0})
58	49, 57	uneq12d 4142	. 2 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → ((𝐹 supp 0) ∪ (𝐺 supp 0)) = ({𝑥 ∈ 𝐼 ∣ (𝐹‘𝑥) ≠ 0} ∪ {𝑥 ∈ 𝐼 ∣ (𝐺‘𝑥) ≠ 0}))
59	32, 39, 58	3sstr4d 4016	1 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐹 ∈ 𝑋 ∧ 𝐺 ∈ 𝑋) → ((𝑘 ∈ 𝐼 ↦ (((𝐹‘𝑘) − (𝐺‘𝑘))↑2)) supp 0) ⊆ ((𝐹 supp 0) ∪ (𝐺 supp 0)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114   ≠ wne 3018  {crab 3144  Vcvv 3496   ∪ cun 3936   ⊆ wss 3938   class class class wbr 5068   ↦ cmpt 5148   Fn wfn 6352  ⟶wf 6353  ‘cfv 6357  (class class class)co 7158   supp csupp 7832   ↑_m cmap 8408   finSupp cfsupp 8835  ℂcc 10537  ℝcr 10538  0cc0 10539   − cmin 10872  2c2 11695  ↑cexp 13432

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-er 8291  df-map 8410  df-en 8512  df-dom 8513  df-sdom 8514  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-n0 11901  df-z 11985  df-uz 12247  df-seq 13373  df-exp 13433

This theorem is referenced by:  rrxmval  24010