Metamath Proof Explorer


Theorem metider

Description: The metric identification is an equivalence relation. (Contributed by Thierry Arnoux, 11-Feb-2018)

Ref Expression
Assertion metider DPsMetX~MetDErX

Proof

Step Hyp Ref Expression
1 metidss DPsMetX~MetDX×X
2 xpss X×XV×V
3 1 2 sstrdi DPsMetX~MetDV×V
4 df-rel Rel~MetD~MetDV×V
5 3 4 sylibr DPsMetXRel~MetD
6 1 ssbrd DPsMetXx~MetDyxX×Xy
7 6 imp DPsMetXx~MetDyxX×Xy
8 brxp xX×XyxXyX
9 7 8 sylib DPsMetXx~MetDyxXyX
10 psmetsym DPsMetXxXyXxDy=yDx
11 10 3expb DPsMetXxXyXxDy=yDx
12 11 eqeq1d DPsMetXxXyXxDy=0yDx=0
13 metidv DPsMetXxXyXx~MetDyxDy=0
14 metidv DPsMetXyXxXy~MetDxyDx=0
15 14 ancom2s DPsMetXxXyXy~MetDxyDx=0
16 12 13 15 3bitr4d DPsMetXxXyXx~MetDyy~MetDx
17 16 biimpd DPsMetXxXyXx~MetDyy~MetDx
18 17 impancom DPsMetXx~MetDyxXyXy~MetDx
19 9 18 mpd DPsMetXx~MetDyy~MetDx
20 simpl DPsMetXx~MetDyy~MetDzDPsMetX
21 simprr DPsMetXx~MetDyy~MetDzy~MetDz
22 1 ssbrd DPsMetXy~MetDzyX×Xz
23 22 imp DPsMetXy~MetDzyX×Xz
24 brxp yX×XzyXzX
25 23 24 sylib DPsMetXy~MetDzyXzX
26 21 25 syldan DPsMetXx~MetDyy~MetDzyXzX
27 26 simpld DPsMetXx~MetDyy~MetDzyX
28 simprl DPsMetXx~MetDyy~MetDzx~MetDy
29 28 9 syldan DPsMetXx~MetDyy~MetDzxXyX
30 29 simpld DPsMetXx~MetDyy~MetDzxX
31 26 simprd DPsMetXx~MetDyy~MetDzzX
32 psmettri2 DPsMetXyXxXzXxDzyDx+𝑒yDz
33 20 27 30 31 32 syl13anc DPsMetXx~MetDyy~MetDzxDzyDx+𝑒yDz
34 29 11 syldan DPsMetXx~MetDyy~MetDzxDy=yDx
35 29 13 syldan DPsMetXx~MetDyy~MetDzx~MetDyxDy=0
36 28 35 mpbid DPsMetXx~MetDyy~MetDzxDy=0
37 34 36 eqtr3d DPsMetXx~MetDyy~MetDzyDx=0
38 metidv DPsMetXyXzXy~MetDzyDz=0
39 26 38 syldan DPsMetXx~MetDyy~MetDzy~MetDzyDz=0
40 21 39 mpbid DPsMetXx~MetDyy~MetDzyDz=0
41 37 40 oveq12d DPsMetXx~MetDyy~MetDzyDx+𝑒yDz=0+𝑒0
42 0xr 0*
43 xaddrid 0*0+𝑒0=0
44 42 43 ax-mp 0+𝑒0=0
45 41 44 eqtrdi DPsMetXx~MetDyy~MetDzyDx+𝑒yDz=0
46 33 45 breqtrd DPsMetXx~MetDyy~MetDzxDz0
47 psmetge0 DPsMetXxXzX0xDz
48 20 30 31 47 syl3anc DPsMetXx~MetDyy~MetDz0xDz
49 psmetcl DPsMetXxXzXxDz*
50 20 30 31 49 syl3anc DPsMetXx~MetDyy~MetDzxDz*
51 xrletri3 xDz*0*xDz=0xDz00xDz
52 50 42 51 sylancl DPsMetXx~MetDyy~MetDzxDz=0xDz00xDz
53 46 48 52 mpbir2and DPsMetXx~MetDyy~MetDzxDz=0
54 metidv DPsMetXxXzXx~MetDzxDz=0
55 20 30 31 54 syl12anc DPsMetXx~MetDyy~MetDzx~MetDzxDz=0
56 53 55 mpbird DPsMetXx~MetDyy~MetDzx~MetDz
57 psmet0 DPsMetXxXxDx=0
58 metidv DPsMetXxXxXx~MetDxxDx=0
59 58 anabsan2 DPsMetXxXx~MetDxxDx=0
60 57 59 mpbird DPsMetXxXx~MetDx
61 1 ssbrd DPsMetXx~MetDxxX×Xx
62 61 imp DPsMetXx~MetDxxX×Xx
63 brxp xX×XxxXxX
64 62 63 sylib DPsMetXx~MetDxxXxX
65 64 simpld DPsMetXx~MetDxxX
66 60 65 impbida DPsMetXxXx~MetDx
67 5 19 56 66 iserd DPsMetX~MetDErX