Metamath Proof Explorer


Theorem iseqlg

Description: Property of a triangle being equilateral. (Contributed by Thierry Arnoux, 5-Oct-2020)

Ref Expression
Hypotheses iseqlg.p P=BaseG
iseqlg.m -˙=distG
iseqlg.i I=ItvG
iseqlg.l L=Line𝒢G
iseqlg.g φG𝒢Tarski
iseqlg.a φAP
iseqlg.b φBP
iseqlg.c φCP
Assertion iseqlg φ⟨“ABC”⟩Equilaterals𝒢G⟨“ABC”⟩𝒢G⟨“BCA”⟩

Proof

Step Hyp Ref Expression
1 iseqlg.p P=BaseG
2 iseqlg.m -˙=distG
3 iseqlg.i I=ItvG
4 iseqlg.l L=Line𝒢G
5 iseqlg.g φG𝒢Tarski
6 iseqlg.a φAP
7 iseqlg.b φBP
8 iseqlg.c φCP
9 elex G𝒢TarskiGV
10 fveq2 g=GBaseg=BaseG
11 10 1 eqtr4di g=GBaseg=P
12 11 oveq1d g=GBaseg0..^3=P0..^3
13 fveq2 g=G𝒢g=𝒢G
14 13 breqd g=Gx𝒢g⟨“x1x2x0”⟩x𝒢G⟨“x1x2x0”⟩
15 12 14 rabeqbidv g=GxBaseg0..^3|x𝒢g⟨“x1x2x0”⟩=xP0..^3|x𝒢G⟨“x1x2x0”⟩
16 df-eqlg Equilaterals𝒢=gVxBaseg0..^3|x𝒢g⟨“x1x2x0”⟩
17 ovex P0..^3V
18 17 rabex xP0..^3|x𝒢G⟨“x1x2x0”⟩V
19 15 16 18 fvmpt GVEquilaterals𝒢G=xP0..^3|x𝒢G⟨“x1x2x0”⟩
20 5 9 19 3syl φEquilaterals𝒢G=xP0..^3|x𝒢G⟨“x1x2x0”⟩
21 20 eleq2d φ⟨“ABC”⟩Equilaterals𝒢G⟨“ABC”⟩xP0..^3|x𝒢G⟨“x1x2x0”⟩
22 id x=⟨“ABC”⟩x=⟨“ABC”⟩
23 fveq1 x=⟨“ABC”⟩x1=⟨“ABC”⟩1
24 fveq1 x=⟨“ABC”⟩x2=⟨“ABC”⟩2
25 fveq1 x=⟨“ABC”⟩x0=⟨“ABC”⟩0
26 23 24 25 s3eqd x=⟨“ABC”⟩⟨“x1x2x0”⟩=⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩
27 22 26 breq12d x=⟨“ABC”⟩x𝒢G⟨“x1x2x0”⟩⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩
28 27 elrab ⟨“ABC”⟩xP0..^3|x𝒢G⟨“x1x2x0”⟩⟨“ABC”⟩P0..^3⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩
29 28 a1i φ⟨“ABC”⟩xP0..^3|x𝒢G⟨“x1x2x0”⟩⟨“ABC”⟩P0..^3⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩
30 6 7 8 s3cld φ⟨“ABC”⟩WordP
31 s3len ⟨“ABC”⟩=3
32 1 fvexi PV
33 3nn0 30
34 wrdmap PV30⟨“ABC”⟩WordP⟨“ABC”⟩=3⟨“ABC”⟩P0..^3
35 32 33 34 mp2an ⟨“ABC”⟩WordP⟨“ABC”⟩=3⟨“ABC”⟩P0..^3
36 30 31 35 sylanblc φ⟨“ABC”⟩P0..^3
37 36 biantrurd φ⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩⟨“ABC”⟩P0..^3⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩
38 s3fv1 BP⟨“ABC”⟩1=B
39 7 38 syl φ⟨“ABC”⟩1=B
40 s3fv2 CP⟨“ABC”⟩2=C
41 8 40 syl φ⟨“ABC”⟩2=C
42 s3fv0 AP⟨“ABC”⟩0=A
43 6 42 syl φ⟨“ABC”⟩0=A
44 39 41 43 s3eqd φ⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩=⟨“BCA”⟩
45 44 breq2d φ⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩⟨“ABC”⟩𝒢G⟨“BCA”⟩
46 37 45 bitr3d φ⟨“ABC”⟩P0..^3⟨“ABC”⟩𝒢G⟨“⟨“ABC”⟩1⟨“ABC”⟩2⟨“ABC”⟩0”⟩⟨“ABC”⟩𝒢G⟨“BCA”⟩
47 21 29 46 3bitrd φ⟨“ABC”⟩Equilaterals𝒢G⟨“ABC”⟩𝒢G⟨“BCA”⟩