Metamath Proof Explorer


Theorem ercgrg

Description: The shape congruence relation is an equivalence relation. Statement 4.4 of Schwabhauser p. 35. (Contributed by Thierry Arnoux, 9-Apr-2019)

Ref Expression
Hypothesis ercgrg.p P=BaseG
Assertion ercgrg G𝒢Tarski𝒢GErP𝑝𝑚

Proof

Step Hyp Ref Expression
1 ercgrg.p P=BaseG
2 df-cgrg 𝒢=gVab|aBaseg𝑝𝑚bBaseg𝑝𝑚doma=dombidomajdomaaidistgaj=bidistgbj
3 2 relmptopab Rel𝒢G
4 3 a1i G𝒢TarskiRel𝒢G
5 eqid distG=distG
6 eqid 𝒢G=𝒢G
7 1 5 6 iscgrg G𝒢Tarskix𝒢GyxP𝑝𝑚yP𝑝𝑚domx=domyidomxjdomxxidistGxj=yidistGyj
8 7 biimpa G𝒢Tarskix𝒢GyxP𝑝𝑚yP𝑝𝑚domx=domyidomxjdomxxidistGxj=yidistGyj
9 8 simpld G𝒢Tarskix𝒢GyxP𝑝𝑚yP𝑝𝑚
10 9 ancomd G𝒢Tarskix𝒢GyyP𝑝𝑚xP𝑝𝑚
11 8 simprd G𝒢Tarskix𝒢Gydomx=domyidomxjdomxxidistGxj=yidistGyj
12 11 simpld G𝒢Tarskix𝒢Gydomx=domy
13 12 eqcomd G𝒢Tarskix𝒢Gydomy=domx
14 simpl G𝒢Tarskix𝒢GyidomyjdomyG𝒢Tarskix𝒢Gy
15 simprl G𝒢Tarskix𝒢Gyidomyjdomyidomy
16 12 adantr G𝒢Tarskix𝒢Gyidomyjdomydomx=domy
17 15 16 eleqtrrd G𝒢Tarskix𝒢Gyidomyjdomyidomx
18 simprr G𝒢Tarskix𝒢Gyidomyjdomyjdomy
19 18 16 eleqtrrd G𝒢Tarskix𝒢Gyidomyjdomyjdomx
20 11 simprd G𝒢Tarskix𝒢GyidomxjdomxxidistGxj=yidistGyj
21 20 r19.21bi G𝒢Tarskix𝒢GyidomxjdomxxidistGxj=yidistGyj
22 21 r19.21bi G𝒢Tarskix𝒢GyidomxjdomxxidistGxj=yidistGyj
23 14 17 19 22 syl21anc G𝒢Tarskix𝒢GyidomyjdomyxidistGxj=yidistGyj
24 23 eqcomd G𝒢Tarskix𝒢GyidomyjdomyyidistGyj=xidistGxj
25 24 ralrimivva G𝒢Tarskix𝒢GyidomyjdomyyidistGyj=xidistGxj
26 13 25 jca G𝒢Tarskix𝒢Gydomy=domxidomyjdomyyidistGyj=xidistGxj
27 1 5 6 iscgrg G𝒢Tarskiy𝒢GxyP𝑝𝑚xP𝑝𝑚domy=domxidomyjdomyyidistGyj=xidistGxj
28 27 adantr G𝒢Tarskix𝒢Gyy𝒢GxyP𝑝𝑚xP𝑝𝑚domy=domxidomyjdomyyidistGyj=xidistGxj
29 10 26 28 mpbir2and G𝒢Tarskix𝒢Gyy𝒢Gx
30 9 simpld G𝒢Tarskix𝒢GyxP𝑝𝑚
31 30 adantrr G𝒢Tarskix𝒢Gyy𝒢GzxP𝑝𝑚
32 1 5 6 iscgrg G𝒢Tarskiy𝒢GzyP𝑝𝑚zP𝑝𝑚domy=domzidomyjdomyyidistGyj=zidistGzj
33 32 biimpa G𝒢Tarskiy𝒢GzyP𝑝𝑚zP𝑝𝑚domy=domzidomyjdomyyidistGyj=zidistGzj
34 33 adantrl G𝒢Tarskix𝒢Gyy𝒢GzyP𝑝𝑚zP𝑝𝑚domy=domzidomyjdomyyidistGyj=zidistGzj
35 34 simpld G𝒢Tarskix𝒢Gyy𝒢GzyP𝑝𝑚zP𝑝𝑚
36 35 simprd G𝒢Tarskix𝒢Gyy𝒢GzzP𝑝𝑚
37 31 36 jca G𝒢Tarskix𝒢Gyy𝒢GzxP𝑝𝑚zP𝑝𝑚
38 8 adantrr G𝒢Tarskix𝒢Gyy𝒢GzxP𝑝𝑚yP𝑝𝑚domx=domyidomxjdomxxidistGxj=yidistGyj
39 38 simprd G𝒢Tarskix𝒢Gyy𝒢Gzdomx=domyidomxjdomxxidistGxj=yidistGyj
40 39 simpld G𝒢Tarskix𝒢Gyy𝒢Gzdomx=domy
41 34 simprd G𝒢Tarskix𝒢Gyy𝒢Gzdomy=domzidomyjdomyyidistGyj=zidistGzj
42 41 simpld G𝒢Tarskix𝒢Gyy𝒢Gzdomy=domz
43 40 42 eqtrd G𝒢Tarskix𝒢Gyy𝒢Gzdomx=domz
44 39 simprd G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=yidistGyj
45 44 r19.21bi G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=yidistGyj
46 45 r19.21bi G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=yidistGyj
47 46 anasss G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=yidistGyj
48 simpl G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxG𝒢Tarskix𝒢Gyy𝒢Gz
49 simprl G𝒢Tarskix𝒢Gyy𝒢Gzidomxjdomxidomx
50 40 adantr G𝒢Tarskix𝒢Gyy𝒢Gzidomxjdomxdomx=domy
51 49 50 eleqtrd G𝒢Tarskix𝒢Gyy𝒢Gzidomxjdomxidomy
52 simprr G𝒢Tarskix𝒢Gyy𝒢Gzidomxjdomxjdomx
53 52 50 eleqtrd G𝒢Tarskix𝒢Gyy𝒢Gzidomxjdomxjdomy
54 41 simprd G𝒢Tarskix𝒢Gyy𝒢GzidomyjdomyyidistGyj=zidistGzj
55 54 r19.21bi G𝒢Tarskix𝒢Gyy𝒢GzidomyjdomyyidistGyj=zidistGzj
56 55 r19.21bi G𝒢Tarskix𝒢Gyy𝒢GzidomyjdomyyidistGyj=zidistGzj
57 48 51 53 56 syl21anc G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxyidistGyj=zidistGzj
58 47 57 eqtrd G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=zidistGzj
59 58 ralrimivva G𝒢Tarskix𝒢Gyy𝒢GzidomxjdomxxidistGxj=zidistGzj
60 43 59 jca G𝒢Tarskix𝒢Gyy𝒢Gzdomx=domzidomxjdomxxidistGxj=zidistGzj
61 1 5 6 iscgrg G𝒢Tarskix𝒢GzxP𝑝𝑚zP𝑝𝑚domx=domzidomxjdomxxidistGxj=zidistGzj
62 61 adantr G𝒢Tarskix𝒢Gyy𝒢Gzx𝒢GzxP𝑝𝑚zP𝑝𝑚domx=domzidomxjdomxxidistGxj=zidistGzj
63 37 60 62 mpbir2and G𝒢Tarskix𝒢Gyy𝒢Gzx𝒢Gz
64 pm4.24 xP𝑝𝑚xP𝑝𝑚xP𝑝𝑚
65 eqid domx=domx
66 eqidd idomxjdomxxidistGxj=xidistGxj
67 66 rgen2 idomxjdomxxidistGxj=xidistGxj
68 65 67 pm3.2i domx=domxidomxjdomxxidistGxj=xidistGxj
69 68 biantru xP𝑝𝑚xP𝑝𝑚xP𝑝𝑚xP𝑝𝑚domx=domxidomxjdomxxidistGxj=xidistGxj
70 64 69 bitri xP𝑝𝑚xP𝑝𝑚xP𝑝𝑚domx=domxidomxjdomxxidistGxj=xidistGxj
71 1 5 6 iscgrg G𝒢Tarskix𝒢GxxP𝑝𝑚xP𝑝𝑚domx=domxidomxjdomxxidistGxj=xidistGxj
72 70 71 bitr4id G𝒢TarskixP𝑝𝑚x𝒢Gx
73 4 29 63 72 iserd G𝒢Tarski𝒢GErP𝑝𝑚