Metamath Proof Explorer


Theorem angmgmlem

Description: Lemma for angmgm . (Contributed by Thierry Arnoux, 31-Aug-2026)

Ref Expression
Hypotheses angmgmval.p P = Base G
angmgmval.a A = d P 0 ..^ 3 | d 0 d 1 d 1 d 2
angmgmval.i I = Itv G
angmgmval.d - ˙ = dist G
angmgmval.c ˙ = 𝒢 G
angmgmval.l L = Line 𝒢 G
angmgmval.o + ˙ = e A , f A if e 0 e 1 L e 2 ⟨“ f 0 f 1 ι s P | ⟨“ f 2 f 1 s ”⟩ ˙ e f 1 - ˙ s = e 1 - ˙ e 0 ”⟩ ⟨“ e 0 e 1 ι s P | ⟨“ e 2 e 1 s ”⟩ ˙ f e 1 - ˙ s = f 1 - ˙ f 0 e 1 L e 2 s I e 0 ”⟩
angmgmval.j No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
angmgmlem.g φ G 𝒢 Tarski
angmgmlem.x φ X P
angmgmlem.y φ Y P X
Assertion angmgmlem φ J Mgm ⟨“ XYX ”⟩ ˙ = 0 J

Proof

Step Hyp Ref Expression
1 angmgmval.p P = Base G
2 angmgmval.a A = d P 0 ..^ 3 | d 0 d 1 d 1 d 2
3 angmgmval.i I = Itv G
4 angmgmval.d - ˙ = dist G
5 angmgmval.c ˙ = 𝒢 G
6 angmgmval.l L = Line 𝒢 G
7 angmgmval.o + ˙ = e A , f A if e 0 e 1 L e 2 ⟨“ f 0 f 1 ι s P | ⟨“ f 2 f 1 s ”⟩ ˙ e f 1 - ˙ s = e 1 - ˙ e 0 ”⟩ ⟨“ e 0 e 1 ι s P | ⟨“ e 2 e 1 s ”⟩ ˙ f e 1 - ˙ s = f 1 - ˙ f 0 e 1 L e 2 s I e 0 ”⟩
8 angmgmval.j Could not format J = ( AngMgm ` G ) : No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
9 angmgmlem.g φ G 𝒢 Tarski
10 angmgmlem.x φ X P
11 angmgmlem.y φ Y P X
12 eqid 𝒢 G = 𝒢 G
13 1 2 3 4 5 6 7 8 12 angmgmval G 𝒢 Tarski J = Base ndx A + ndx + ˙ ndx 𝒢 G / 𝑠 ˙
14 9 13 syl φ J = Base ndx A + ndx + ˙ ndx 𝒢 G / 𝑠 ˙
15 ovex P 0 ..^ 3 V
16 2 15 rabex2 A V
17 1nn 1
18 basendx Base ndx = 1
19 1lt2 1 < 2
20 2nn 2
21 plusgndx + ndx = 2
22 2lt10 2 < 10
23 10nn 10
24 plendx ndx = 10
25 17 18 19 20 21 22 23 24 strle3 Base ndx A + ndx + ˙ ndx 𝒢 G Struct 1 10
26 baseid Base = Slot Base ndx
27 snsstp1 Base ndx A Base ndx A + ndx + ˙ ndx 𝒢 G
28 25 26 27 strfv A V A = Base Base ndx A + ndx + ˙ ndx 𝒢 G
29 16 28 mp1i φ A = Base Base ndx A + ndx + ˙ ndx 𝒢 G
30 5 fvexi ˙ V
31 30 a1i φ ˙ V
32 tpex Base ndx A + ndx + ˙ ndx 𝒢 G V
33 32 a1i φ Base ndx A + ndx + ˙ ndx 𝒢 G V
34 1 2 5 9 cgrabasimass φ ˙ A A
35 14 29 31 33 34 qusin φ J = Base ndx A + ndx + ˙ ndx 𝒢 G / 𝑠 ˙ A × A
36 16 16 mpoex e A , f A if e 0 e 1 L e 2 ⟨“ f 0 f 1 ι s P | ⟨“ f 2 f 1 s ”⟩ ˙ e f 1 - ˙ s = e 1 - ˙ e 0 ”⟩ ⟨“ e 0 e 1 ι s P | ⟨“ e 2 e 1 s ”⟩ ˙ f e 1 - ˙ s = f 1 - ˙ f 0 e 1 L e 2 s I e 0 ”⟩ V
37 7 36 eqeltri + ˙ V
38 plusgid + 𝑔 = Slot + ndx
39 snsstp2 + ndx + ˙ Base ndx A + ndx + ˙ ndx 𝒢 G
40 25 38 39 strfv + ˙ V + ˙ = + Base ndx A + ndx + ˙ ndx 𝒢 G
41 37 40 ax-mp + ˙ = + Base ndx A + ndx + ˙ ndx 𝒢 G
42 1 2 5 9 cgraer φ ˙ A × A Er A
43 9 ad2antrr φ a ˙ A × A p b ˙ A × A q G 𝒢 Tarski
44 brinxp2 a ˙ A × A p a A p A a ˙ p
45 44 biimpi a ˙ A × A p a A p A a ˙ p
46 45 ad2antlr φ a ˙ A × A p b ˙ A × A q a A p A a ˙ p
47 46 simplld φ a ˙ A × A p b ˙ A × A q a A
48 brinxp2 b ˙ A × A q b A q A b ˙ q
49 48 bilani φ a ˙ A × A p b ˙ A × A q b A q A b ˙ q
50 49 simplld φ a ˙ A × A p b ˙ A × A q b A
51 1 2 3 4 5 6 43 7 47 50 angmgmaddcl φ a ˙ A × A p b ˙ A × A q a + ˙ b A
52 46 simplrd φ a ˙ A × A p b ˙ A × A q p A
53 49 simplrd φ a ˙ A × A p b ˙ A × A q q A
54 1 2 3 4 5 6 43 7 52 53 angmgmaddcl φ a ˙ A × A p b ˙ A × A q p + ˙ q A
55 46 simprd φ a ˙ A × A p b ˙ A × A q a ˙ p
56 49 simprd φ a ˙ A × A p b ˙ A × A q b ˙ q
57 1 2 3 4 5 6 43 7 52 53 47 50 55 56 angmgmaddcpbl φ a ˙ A × A p b ˙ A × A q a + ˙ b ˙ p + ˙ q
58 brinxp2 a + ˙ b ˙ A × A p + ˙ q a + ˙ b A p + ˙ q A a + ˙ b ˙ p + ˙ q
59 51 54 57 58 syl21anbrc φ a ˙ A × A p b ˙ A × A q a + ˙ b ˙ A × A p + ˙ q
60 59 expl φ a ˙ A × A p b ˙ A × A q a + ˙ b ˙ A × A p + ˙ q
61 9 3ad2ant1 φ i A j A G 𝒢 Tarski
62 simp2 φ i A j A i A
63 simp3 φ i A j A j A
64 1 2 3 4 5 6 61 7 62 63 angmgmaddcl φ i A j A i + ˙ j A
65 1 fvexi P V
66 65 a1i φ P V
67 11 eldifad φ Y P
68 11 eldifsnbd φ Y X
69 68 necomd φ X Y
70 2 66 10 67 10 69 68 elcgrabasrd φ ⟨“ XYX ”⟩ A
71 9 adantr φ i A G 𝒢 Tarski
72 70 adantr φ i A ⟨“ XYX ”⟩ A
73 simpr φ i A i A
74 1 2 3 4 5 6 71 7 72 73 angmgmaddcl φ i A ⟨“ XYX ”⟩ + ˙ i A
75 10 adantr φ i A X P
76 11 adantr φ i A Y P X
77 1 2 3 4 5 6 71 7 75 76 73 angmgmaddlid φ i A ⟨“ XYX ”⟩ + ˙ i ˙ i
78 brinxp2 ⟨“ XYX ”⟩ + ˙ i ˙ A × A i ⟨“ XYX ”⟩ + ˙ i A i A ⟨“ XYX ”⟩ + ˙ i ˙ i
79 74 73 77 78 syl21anbrc φ i A ⟨“ XYX ”⟩ + ˙ i ˙ A × A i
80 1 2 3 4 5 6 71 7 73 72 angmgmaddcl φ i A i + ˙ ⟨“ XYX ”⟩ A
81 1 2 3 4 5 6 71 7 75 76 73 angmgmaddrid φ i A i + ˙ ⟨“ XYX ”⟩ ˙ i
82 brinxp2 i + ˙ ⟨“ XYX ”⟩ ˙ A × A i i + ˙ ⟨“ XYX ”⟩ A i A i + ˙ ⟨“ XYX ”⟩ ˙ i
83 80 73 81 82 syl21anbrc φ i A i + ˙ ⟨“ XYX ”⟩ ˙ A × A i
84 35 29 41 42 33 60 64 70 79 83 qusmgm φ J Mgm ⟨“ XYX ”⟩ ˙ A × A = 0 J
85 ecinxp ˙ A A ⟨“ XYX ”⟩ A ⟨“ XYX ”⟩ ˙ = ⟨“ XYX ”⟩ ˙ A × A
86 34 70 85 syl2anc φ ⟨“ XYX ”⟩ ˙ = ⟨“ XYX ”⟩ ˙ A × A
87 86 eqeq1d φ ⟨“ XYX ”⟩ ˙ = 0 J ⟨“ XYX ”⟩ ˙ A × A = 0 J
88 87 anbi2d φ J Mgm ⟨“ XYX ”⟩ ˙ = 0 J J Mgm ⟨“ XYX ”⟩ ˙ A × A = 0 J
89 84 88 mpbird φ J Mgm ⟨“ XYX ”⟩ ˙ = 0 J