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