Theorem pstmfval 33862

Description: Function value of the metric induced by a pseudometric 𝐷 (Contributed by Thierry Arnoux, 11-Feb-2018.)

Hypothesis

Ref	Expression
pstmval.1	⊢ ∼ = (~Met‘𝐷)

Assertion

Ref	Expression
pstmfval	⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ([𝐴] ∼ (pstoMet‘𝐷)[𝐵] ∼ ) = (𝐴𝐷𝐵))

Proof of Theorem pstmfval

Dummy variables 𝑎 𝑏 𝑥 𝑦 𝑧 𝑒 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pstmval.1	. . . . 5 ⊢ ∼ = (~Met‘𝐷)
2	1	pstmval 33861	. . . 4 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (pstoMet‘𝐷) = (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)}))
3	2	3ad2ant1 1133	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (pstoMet‘𝐷) = (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)}))
4	3	oveqd 7370	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ([𝐴] ∼ (pstoMet‘𝐷)[𝐵] ∼ ) = ([𝐴] ∼ (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})[𝐵] ∼ ))
5	1	fvexi 6840	. . . . 5 ⊢ ∼ ∈ V
6	5	ecelqsi 8704	. . . 4 ⊢ (𝐴 ∈ 𝑋 → [𝐴] ∼ ∈ (𝑋 / ∼ ))
7	6	3ad2ant2 1134	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → [𝐴] ∼ ∈ (𝑋 / ∼ ))
8	5	ecelqsi 8704	. . . 4 ⊢ (𝐵 ∈ 𝑋 → [𝐵] ∼ ∈ (𝑋 / ∼ ))
9	8	3ad2ant3 1135	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → [𝐵] ∼ ∈ (𝑋 / ∼ ))
10		rexeq 3286	. . . . . 6 ⊢ (𝑥 = [𝐴] ∼ → (∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏) ↔ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)))
11	10	abbidv 2795	. . . . 5 ⊢ (𝑥 = [𝐴] ∼ → {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)} = {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})
12	11	unieqd 4874	. . . 4 ⊢ (𝑥 = [𝐴] ∼ → ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)} = ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})
13		rexeq 3286	. . . . . . 7 ⊢ (𝑦 = [𝐵] ∼ → (∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏) ↔ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)))
14	13	rexbidv 3153	. . . . . 6 ⊢ (𝑦 = [𝐵] ∼ → (∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏) ↔ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)))
15	14	abbidv 2795	. . . . 5 ⊢ (𝑦 = [𝐵] ∼ → {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)} = {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)})
16	15	unieqd 4874	. . . 4 ⊢ (𝑦 = [𝐵] ∼ → ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)} = ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)})
17		eqid 2729	. . . 4 ⊢ (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)}) = (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})
18		ecexg 8636	. . . . . . 7 ⊢ ( ∼ ∈ V → [𝐴] ∼ ∈ V)
19	5, 18	ax-mp 5	. . . . . 6 ⊢ [𝐴] ∼ ∈ V
20		ecexg 8636	. . . . . . 7 ⊢ ( ∼ ∈ V → [𝐵] ∼ ∈ V)
21	5, 20	ax-mp 5	. . . . . 6 ⊢ [𝐵] ∼ ∈ V
22	19, 21	ab2rexex 7921	. . . . 5 ⊢ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} ∈ V
23	22	uniex 7681	. . . 4 ⊢ ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} ∈ V
24	12, 16, 17, 23	ovmpo 7513	. . 3 ⊢ (([𝐴] ∼ ∈ (𝑋 / ∼ ) ∧ [𝐵] ∼ ∈ (𝑋 / ∼ )) → ([𝐴] ∼ (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})[𝐵] ∼ ) = ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)})
25	7, 9, 24	syl2anc 584	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ([𝐴] ∼ (𝑥 ∈ (𝑋 / ∼ ), 𝑦 ∈ (𝑋 / ∼ ) ↦ ∪ {𝑧 ∣ ∃𝑎 ∈ 𝑥 ∃𝑏 ∈ 𝑦 𝑧 = (𝑎𝐷𝑏)})[𝐵] ∼ ) = ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)})
26		simpr3 1197	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝑧 = (𝑒𝐷𝑓))
27		simpl1 1192	. . . . . . . . . . . 12 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝐷 ∈ (PsMet‘𝑋))
28		simpr1 1195	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝑒 ∈ [𝐴] ∼ )
29		metidss 33857	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (~Met‘𝐷) ⊆ (𝑋 × 𝑋))
30	1, 29	eqsstrid 3976	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐷 ∈ (PsMet‘𝑋) → ∼ ⊆ (𝑋 × 𝑋))
31		xpss 5639	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 × 𝑋) ⊆ (V × V)
32	30, 31	sstrdi 3950	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐷 ∈ (PsMet‘𝑋) → ∼ ⊆ (V × V))
33		df-rel 5630	. . . . . . . . . . . . . . . . . 18 ⊢ (Rel ∼ ↔ ∼ ⊆ (V × V))
34	32, 33	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ (𝐷 ∈ (PsMet‘𝑋) → Rel ∼ )
35	34	3ad2ant1 1133	. . . . . . . . . . . . . . . 16 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → Rel ∼ )
36	35	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → Rel ∼ )
37		relelec 8679	. . . . . . . . . . . . . . 15 ⊢ (Rel ∼ → (𝑒 ∈ [𝐴] ∼ ↔ 𝐴 ∼ 𝑒))
38	36, 37	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → (𝑒 ∈ [𝐴] ∼ ↔ 𝐴 ∼ 𝑒))
39	28, 38	mpbid 232	. . . . . . . . . . . . 13 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝐴 ∼ 𝑒)
40	1	breqi 5101	. . . . . . . . . . . . 13 ⊢ (𝐴 ∼ 𝑒 ↔ 𝐴(~Met‘𝐷)𝑒)
41	39, 40	sylib 218	. . . . . . . . . . . 12 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝐴(~Met‘𝐷)𝑒)
42		simpr2 1196	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝑓 ∈ [𝐵] ∼ )
43		relelec 8679	. . . . . . . . . . . . . . 15 ⊢ (Rel ∼ → (𝑓 ∈ [𝐵] ∼ ↔ 𝐵 ∼ 𝑓))
44	36, 43	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → (𝑓 ∈ [𝐵] ∼ ↔ 𝐵 ∼ 𝑓))
45	42, 44	mpbid 232	. . . . . . . . . . . . 13 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝐵 ∼ 𝑓)
46	1	breqi 5101	. . . . . . . . . . . . 13 ⊢ (𝐵 ∼ 𝑓 ↔ 𝐵(~Met‘𝐷)𝑓)
47	45, 46	sylib 218	. . . . . . . . . . . 12 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝐵(~Met‘𝐷)𝑓)
48		metideq 33859	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ (𝐴(~Met‘𝐷)𝑒 ∧ 𝐵(~Met‘𝐷)𝑓)) → (𝐴𝐷𝐵) = (𝑒𝐷𝑓))
49	27, 41, 47, 48	syl12anc 836	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → (𝐴𝐷𝐵) = (𝑒𝐷𝑓))
50	26, 49	eqtr4d 2767	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝑧 = (𝐴𝐷𝐵))
51	50	adantlr 715	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)) ∧ (𝑒 ∈ [𝐴] ∼ ∧ 𝑓 ∈ [𝐵] ∼ ∧ 𝑧 = (𝑒𝐷𝑓))) → 𝑧 = (𝐴𝐷𝐵))
52	51	3anassrs 1361	. . . . . . . 8 ⊢ ((((((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)) ∧ 𝑒 ∈ [𝐴] ∼ ) ∧ 𝑓 ∈ [𝐵] ∼ ) ∧ 𝑧 = (𝑒𝐷𝑓)) → 𝑧 = (𝐴𝐷𝐵))
53		oveq1 7360	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑒 → (𝑎𝐷𝑏) = (𝑒𝐷𝑏))
54	53	eqeq2d 2740	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑒 → (𝑧 = (𝑎𝐷𝑏) ↔ 𝑧 = (𝑒𝐷𝑏)))
55		oveq2 7361	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑓 → (𝑒𝐷𝑏) = (𝑒𝐷𝑓))
56	55	eqeq2d 2740	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑓 → (𝑧 = (𝑒𝐷𝑏) ↔ 𝑧 = (𝑒𝐷𝑓)))
57	54, 56	cbvrex2vw 3212	. . . . . . . . . 10 ⊢ (∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏) ↔ ∃𝑒 ∈ [ 𝐴] ∼ ∃𝑓 ∈ [ 𝐵] ∼ 𝑧 = (𝑒𝐷𝑓))
58	57	biimpi 216	. . . . . . . . 9 ⊢ (∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏) → ∃𝑒 ∈ [ 𝐴] ∼ ∃𝑓 ∈ [ 𝐵] ∼ 𝑧 = (𝑒𝐷𝑓))
59	58	adantl 481	. . . . . . . 8 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)) → ∃𝑒 ∈ [ 𝐴] ∼ ∃𝑓 ∈ [ 𝐵] ∼ 𝑧 = (𝑒𝐷𝑓))
60	52, 59	r19.29vva 3189	. . . . . . 7 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)) → 𝑧 = (𝐴𝐷𝐵))
61		simpl1 1192	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝐷 ∈ (PsMet‘𝑋))
62		simpl2 1193	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝐴 ∈ 𝑋)
63		psmet0 24212	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋) → (𝐴𝐷𝐴) = 0)
64	61, 62, 63	syl2anc 584	. . . . . . . . 9 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐴𝐷𝐴) = 0)
65		relelec 8679	. . . . . . . . . . 11 ⊢ (Rel ∼ → (𝐴 ∈ [𝐴] ∼ ↔ 𝐴 ∼ 𝐴))
66	61, 34, 65	3syl 18	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐴 ∈ [𝐴] ∼ ↔ 𝐴 ∼ 𝐴))
67	1	a1i 11	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → ∼ = (~Met‘𝐷))
68	67	breqd 5106	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐴 ∼ 𝐴 ↔ 𝐴(~Met‘𝐷)𝐴))
69		metidv 33858	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋)) → (𝐴(~Met‘𝐷)𝐴 ↔ (𝐴𝐷𝐴) = 0))
70	61, 62, 62, 69	syl12anc 836	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐴(~Met‘𝐷)𝐴 ↔ (𝐴𝐷𝐴) = 0))
71	66, 68, 70	3bitrd 305	. . . . . . . . 9 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐴 ∈ [𝐴] ∼ ↔ (𝐴𝐷𝐴) = 0))
72	64, 71	mpbird 257	. . . . . . . 8 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝐴 ∈ [𝐴] ∼ )
73		simpl3 1194	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝐵 ∈ 𝑋)
74		psmet0 24212	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐵 ∈ 𝑋) → (𝐵𝐷𝐵) = 0)
75	61, 73, 74	syl2anc 584	. . . . . . . . 9 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐵𝐷𝐵) = 0)
76		relelec 8679	. . . . . . . . . . 11 ⊢ (Rel ∼ → (𝐵 ∈ [𝐵] ∼ ↔ 𝐵 ∼ 𝐵))
77	61, 34, 76	3syl 18	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐵 ∈ [𝐵] ∼ ↔ 𝐵 ∼ 𝐵))
78	67	breqd 5106	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐵 ∼ 𝐵 ↔ 𝐵(~Met‘𝐷)𝐵))
79		metidv 33858	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ (𝐵 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (𝐵(~Met‘𝐷)𝐵 ↔ (𝐵𝐷𝐵) = 0))
80	61, 73, 73, 79	syl12anc 836	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐵(~Met‘𝐷)𝐵 ↔ (𝐵𝐷𝐵) = 0))
81	77, 78, 80	3bitrd 305	. . . . . . . . 9 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → (𝐵 ∈ [𝐵] ∼ ↔ (𝐵𝐷𝐵) = 0))
82	75, 81	mpbird 257	. . . . . . . 8 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝐵 ∈ [𝐵] ∼ )
83		simpr 484	. . . . . . . 8 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → 𝑧 = (𝐴𝐷𝐵))
84		rspceov 7402	. . . . . . . 8 ⊢ ((𝐴 ∈ [𝐴] ∼ ∧ 𝐵 ∈ [𝐵] ∼ ∧ 𝑧 = (𝐴𝐷𝐵)) → ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏))
85	72, 82, 83, 84	syl3anc 1373	. . . . . . 7 ⊢ (((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑧 = (𝐴𝐷𝐵)) → ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏))
86	60, 85	impbida 800	. . . . . 6 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏) ↔ 𝑧 = (𝐴𝐷𝐵)))
87	86	abbidv 2795	. . . . 5 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} = {𝑧 ∣ 𝑧 = (𝐴𝐷𝐵)})
88		df-sn 4580	. . . . 5 ⊢ {(𝐴𝐷𝐵)} = {𝑧 ∣ 𝑧 = (𝐴𝐷𝐵)}
89	87, 88	eqtr4di 2782	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} = {(𝐴𝐷𝐵)})
90	89	unieqd 4874	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} = ∪ {(𝐴𝐷𝐵)})
91		ovex 7386	. . . 4 ⊢ (𝐴𝐷𝐵) ∈ V
92	91	unisn 4880	. . 3 ⊢ ∪ {(𝐴𝐷𝐵)} = (𝐴𝐷𝐵)
93	90, 92	eqtrdi 2780	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ∪ {𝑧 ∣ ∃𝑎 ∈ [ 𝐴] ∼ ∃𝑏 ∈ [ 𝐵] ∼ 𝑧 = (𝑎𝐷𝑏)} = (𝐴𝐷𝐵))
94	4, 25, 93	3eqtrd 2768	1 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ([𝐴] ∼ (pstoMet‘𝐷)[𝐵] ∼ ) = (𝐴𝐷𝐵))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  {cab 2707  ∃wrex 3053  Vcvv 3438   ⊆ wss 3905  {csn 4579  ∪ cuni 4861   class class class wbr 5095   × cxp 5621  Rel wrel 5628  ‘cfv 6486  (class class class)co 7353   ∈ cmpo 7355  [cec 8630   / cqs 8631  0cc0 11028  PsMetcpsmet 21263  ~_Metcmetid 33852  pstoMetcpstm 33853

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4862  df-iun 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5518  df-po 5531  df-so 5532  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-ov 7356  df-oprab 7357  df-mpo 7358  df-1st 7931  df-2nd 7932  df-er 8632  df-ec 8634  df-qs 8638  df-map 8762  df-en 8880  df-dom 8881  df-sdom 8882  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-xadd 13033  df-psmet 21271  df-metid 33854  df-pstm 33855

This theorem is referenced by:  pstmxmet  33863