| Step | Hyp | Ref
| Expression |
| 1 | | angmgmlem.g |
. . . . 5
⊢ (𝜑 → 𝐺 ∈ TarskiG) |
| 2 | | angmgmval.p |
. . . . . 6
⊢ 𝑃 = (Base‘𝐺) |
| 3 | | angmgmval.a |
. . . . . 6
⊢ 𝐴 = {𝑑 ∈ (𝑃 ↑m (0..^3)) ∣ ((𝑑‘0) ≠ (𝑑‘1) ∧ (𝑑‘1) ≠ (𝑑‘2))} |
| 4 | | angmgmval.i |
. . . . . 6
⊢ 𝐼 = (Itv‘𝐺) |
| 5 | | angmgmval.d |
. . . . . 6
⊢ − =
(dist‘𝐺) |
| 6 | | angmgmval.c |
. . . . . 6
⊢ ∼ =
(cgrA‘𝐺) |
| 7 | | angmgmval.l |
. . . . . 6
⊢ 𝐿 = (LineG‘𝐺) |
| 8 | | angmgmval.o |
. . . . . 6
⊢ + = (𝑒 ∈ 𝐴, 𝑓 ∈ 𝐴 ↦ if((𝑒‘0) ∈ ((𝑒‘1)𝐿(𝑒‘2)), 〈“(𝑓‘0)(𝑓‘1)(℩𝑠 ∈ 𝑃 (〈“(𝑓‘2)(𝑓‘1)𝑠”〉 ∼ 𝑒 ∧ ((𝑓‘1) − 𝑠) = ((𝑒‘1) − (𝑒‘0))))”〉,
〈“(𝑒‘0)(𝑒‘1)(℩𝑠 ∈ 𝑃 (〈“(𝑒‘2)(𝑒‘1)𝑠”〉 ∼ 𝑓 ∧ ((𝑒‘1) − 𝑠) = ((𝑓‘1) − (𝑓‘0)) ∧ (((𝑒‘1)𝐿(𝑒‘2)) ∩ (𝑠𝐼(𝑒‘0))) ≠
∅))”〉)) |
| 9 | | angmgmval.j |
. . . . . 6
⊢ 𝐽 = (AngMgm‘𝐺) |
| 10 | | eqid 2762 |
. . . . . 6
⊢
(≤∠‘𝐺) = (≤∠‘𝐺) |
| 11 | 2, 3, 4, 5, 6, 7, 8, 9, 10 | angmgmval 29274 |
. . . . 5
⊢ (𝐺 ∈ TarskiG → 𝐽 = ({〈(Base‘ndx),
𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} /s ∼
)) |
| 12 | 1, 11 | syl 18 |
. . . 4
⊢ (𝜑 → 𝐽 = ({〈(Base‘ndx), 𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} /s ∼
)) |
| 13 | | ovex 7449 |
. . . . . 6
⊢ (𝑃 ↑m (0..^3))
∈ V |
| 14 | 3, 13 | rabex2 5309 |
. . . . 5
⊢ 𝐴 ∈ V |
| 15 | | 1nn 12271 |
. . . . . . 7
⊢ 1 ∈
ℕ |
| 16 | | basendx 17314 |
. . . . . . 7
⊢
(Base‘ndx) = 1 |
| 17 | | 1lt2 12440 |
. . . . . . 7
⊢ 1 <
2 |
| 18 | | 2nn 12341 |
. . . . . . 7
⊢ 2 ∈
ℕ |
| 19 | | plusgndx 17372 |
. . . . . . 7
⊢
(+g‘ndx) = 2 |
| 20 | | 2lt10 12883 |
. . . . . . 7
⊢ 2 <
;10 |
| 21 | | 10nn 12759 |
. . . . . . 7
⊢ ;10 ∈ ℕ |
| 22 | | plendx 17455 |
. . . . . . 7
⊢
(le‘ndx) = ;10 |
| 23 | 15, 16, 17, 18, 19, 20, 21, 22 | strle3 17256 |
. . . . . 6
⊢
{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} Struct 〈1, ;10〉 |
| 24 | | baseid 17308 |
. . . . . 6
⊢ Base =
Slot (Base‘ndx) |
| 25 | | snsstp1 4780 |
. . . . . 6
⊢
{〈(Base‘ndx), 𝐴〉} ⊆ {〈(Base‘ndx),
𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} |
| 26 | 23, 24, 25 | strfv 17299 |
. . . . 5
⊢ (𝐴 ∈ V → 𝐴 =
(Base‘{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉})) |
| 27 | 14, 26 | mp1i 14 |
. . . 4
⊢ (𝜑 → 𝐴 = (Base‘{〈(Base‘ndx),
𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉})) |
| 28 | 6 | fvexi 6896 |
. . . . 5
⊢ ∼ ∈
V |
| 29 | 28 | a1i 11 |
. . . 4
⊢ (𝜑 → ∼ ∈
V) |
| 30 | | tpex 7750 |
. . . . 5
⊢
{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} ∈ V |
| 31 | 30 | a1i 11 |
. . . 4
⊢ (𝜑 → {〈(Base‘ndx),
𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} ∈ V) |
| 32 | 2, 3, 6, 1 | cgrabasimass 29258 |
. . . 4
⊢ (𝜑 → ( ∼ “ 𝐴) ⊆ 𝐴) |
| 33 | 12, 27, 29, 31, 32 | qusin 17634 |
. . 3
⊢ (𝜑 → 𝐽 = ({〈(Base‘ndx), 𝐴〉,
〈(+g‘ndx), + 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} /s ( ∼ ∩
(𝐴 × 𝐴)))) |
| 34 | 14, 14 | mpoex 8081 |
. . . . 5
⊢ (𝑒 ∈ 𝐴, 𝑓 ∈ 𝐴 ↦ if((𝑒‘0) ∈ ((𝑒‘1)𝐿(𝑒‘2)), 〈“(𝑓‘0)(𝑓‘1)(℩𝑠 ∈ 𝑃 (〈“(𝑓‘2)(𝑓‘1)𝑠”〉 ∼ 𝑒 ∧ ((𝑓‘1) − 𝑠) = ((𝑒‘1) − (𝑒‘0))))”〉,
〈“(𝑒‘0)(𝑒‘1)(℩𝑠 ∈ 𝑃 (〈“(𝑒‘2)(𝑒‘1)𝑠”〉 ∼ 𝑓 ∧ ((𝑒‘1) − 𝑠) = ((𝑓‘1) − (𝑓‘0)) ∧ (((𝑒‘1)𝐿(𝑒‘2)) ∩ (𝑠𝐼(𝑒‘0))) ≠ ∅))”〉))
∈ V |
| 35 | 8, 34 | eqeltri 2858 |
. . . 4
⊢ + ∈
V |
| 36 | | plusgid 17373 |
. . . . 5
⊢
+g = Slot (+g‘ndx) |
| 37 | | snsstp2 4781 |
. . . . 5
⊢
{〈(+g‘ndx), + 〉} ⊆
{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉} |
| 38 | 23, 36, 37 | strfv 17299 |
. . . 4
⊢ ( + ∈ V
→ +
= (+g‘{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉})) |
| 39 | 35, 38 | ax-mp 5 |
. . 3
⊢ + =
(+g‘{〈(Base‘ndx), 𝐴〉, 〈(+g‘ndx),
+ 〉,
〈(le‘ndx), (≤∠‘𝐺)〉}) |
| 40 | 2, 3, 6, 1 | cgraer 29257 |
. . 3
⊢ (𝜑 → ( ∼ ∩ (𝐴 × 𝐴)) Er 𝐴) |
| 41 | 1 | ad2antrr 739 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝐺 ∈ TarskiG) |
| 42 | | brinxp2 5737 |
. . . . . . . . 9
⊢ (𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝 ↔ ((𝑎 ∈ 𝐴 ∧ 𝑝 ∈ 𝐴) ∧ 𝑎 ∼ 𝑝)) |
| 43 | 42 | biimpi 219 |
. . . . . . . 8
⊢ (𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝 → ((𝑎 ∈ 𝐴 ∧ 𝑝 ∈ 𝐴) ∧ 𝑎 ∼ 𝑝)) |
| 44 | 43 | ad2antlr 740 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → ((𝑎 ∈ 𝐴 ∧ 𝑝 ∈ 𝐴) ∧ 𝑎 ∼ 𝑝)) |
| 45 | 44 | simplld 780 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑎 ∈ 𝐴) |
| 46 | | brinxp2 5737 |
. . . . . . . 8
⊢ (𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞 ↔ ((𝑏 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑏 ∼ 𝑞)) |
| 47 | 46 | bilani 510 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → ((𝑏 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑏 ∼ 𝑞)) |
| 48 | 47 | simplld 780 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑏 ∈ 𝐴) |
| 49 | 2, 3, 4, 5, 6, 7, 41, 8, 45, 48 | angmgmaddcl 29271 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → (𝑎 + 𝑏) ∈ 𝐴) |
| 50 | 44 | simplrd 782 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑝 ∈ 𝐴) |
| 51 | 47 | simplrd 782 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑞 ∈ 𝐴) |
| 52 | 2, 3, 4, 5, 6, 7, 41, 8, 50, 51 | angmgmaddcl 29271 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → (𝑝 + 𝑞) ∈ 𝐴) |
| 53 | 44 | simprd 501 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑎 ∼ 𝑝) |
| 54 | 47 | simprd 501 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → 𝑏 ∼ 𝑞) |
| 55 | 2, 3, 4, 5, 6, 7, 41, 8, 50, 51, 45, 48, 53, 54 | angmgmaddcpbl 29270 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → (𝑎 + 𝑏) ∼ (𝑝 + 𝑞)) |
| 56 | | brinxp2 5737 |
. . . . 5
⊢ ((𝑎 + 𝑏)( ∼ ∩ (𝐴 × 𝐴))(𝑝 + 𝑞) ↔ (((𝑎 + 𝑏) ∈ 𝐴 ∧ (𝑝 + 𝑞) ∈ 𝐴) ∧ (𝑎 + 𝑏) ∼ (𝑝 + 𝑞))) |
| 57 | 49, 52, 55, 56 | syl21anbrc 1363 |
. . . 4
⊢ (((𝜑 ∧ 𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝) ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → (𝑎 + 𝑏)( ∼ ∩ (𝐴 × 𝐴))(𝑝 + 𝑞)) |
| 58 | 57 | expl 463 |
. . 3
⊢ (𝜑 → ((𝑎( ∼ ∩ (𝐴 × 𝐴))𝑝 ∧ 𝑏( ∼ ∩ (𝐴 × 𝐴))𝑞) → (𝑎 + 𝑏)( ∼ ∩ (𝐴 × 𝐴))(𝑝 + 𝑞))) |
| 59 | 1 | 3ad2ant1 1151 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴 ∧ 𝑗 ∈ 𝐴) → 𝐺 ∈ TarskiG) |
| 60 | | simp2 1155 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴 ∧ 𝑗 ∈ 𝐴) → 𝑖 ∈ 𝐴) |
| 61 | | simp3 1156 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴 ∧ 𝑗 ∈ 𝐴) → 𝑗 ∈ 𝐴) |
| 62 | 2, 3, 4, 5, 6, 7, 59, 8, 60, 61 | angmgmaddcl 29271 |
. . 3
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴 ∧ 𝑗 ∈ 𝐴) → (𝑖 + 𝑗) ∈ 𝐴) |
| 63 | 2 | fvexi 6896 |
. . . . 5
⊢ 𝑃 ∈ V |
| 64 | 63 | a1i 11 |
. . . 4
⊢ (𝜑 → 𝑃 ∈ V) |
| 65 | | angmgmlem.x |
. . . 4
⊢ (𝜑 → 𝑋 ∈ 𝑃) |
| 66 | | angmgmlem.y |
. . . . 5
⊢ (𝜑 → 𝑌 ∈ (𝑃 ∖ {𝑋})) |
| 67 | 66 | eldifad 3914 |
. . . 4
⊢ (𝜑 → 𝑌 ∈ 𝑃) |
| 68 | 66 | eldifsnbd 4752 |
. . . . 5
⊢ (𝜑 → 𝑌 ≠ 𝑋) |
| 69 | 68 | necomd 3012 |
. . . 4
⊢ (𝜑 → 𝑋 ≠ 𝑌) |
| 70 | 3, 64, 65, 67, 65, 69, 68 | elcgrabasrd 29256 |
. . 3
⊢ (𝜑 → 〈“𝑋𝑌𝑋”〉 ∈ 𝐴) |
| 71 | 1 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → 𝐺 ∈ TarskiG) |
| 72 | 70 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → 〈“𝑋𝑌𝑋”〉 ∈ 𝐴) |
| 73 | | simpr 490 |
. . . . 5
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → 𝑖 ∈ 𝐴) |
| 74 | 2, 3, 4, 5, 6, 7, 71, 8, 72, 73 | angmgmaddcl 29271 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (〈“𝑋𝑌𝑋”〉 + 𝑖) ∈ 𝐴) |
| 75 | 65 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → 𝑋 ∈ 𝑃) |
| 76 | 66 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → 𝑌 ∈ (𝑃 ∖ {𝑋})) |
| 77 | 2, 3, 4, 5, 6, 7, 71, 8, 75, 76, 73 | angmgmaddlid 29272 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (〈“𝑋𝑌𝑋”〉 + 𝑖) ∼ 𝑖) |
| 78 | | brinxp2 5737 |
. . . 4
⊢
((〈“𝑋𝑌𝑋”〉 + 𝑖)( ∼ ∩ (𝐴 × 𝐴))𝑖 ↔ (((〈“𝑋𝑌𝑋”〉 + 𝑖) ∈ 𝐴 ∧ 𝑖 ∈ 𝐴) ∧ (〈“𝑋𝑌𝑋”〉 + 𝑖) ∼ 𝑖)) |
| 79 | 74, 73, 77, 78 | syl21anbrc 1363 |
. . 3
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (〈“𝑋𝑌𝑋”〉 + 𝑖)( ∼ ∩ (𝐴 × 𝐴))𝑖) |
| 80 | 2, 3, 4, 5, 6, 7, 71, 8, 73, 72 | angmgmaddcl 29271 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (𝑖 + 〈“𝑋𝑌𝑋”〉) ∈ 𝐴) |
| 81 | 2, 3, 4, 5, 6, 7, 71, 8, 75, 76, 73 | angmgmaddrid 29273 |
. . . 4
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (𝑖 + 〈“𝑋𝑌𝑋”〉) ∼ 𝑖) |
| 82 | | brinxp2 5737 |
. . . 4
⊢ ((𝑖 + 〈“𝑋𝑌𝑋”〉)( ∼ ∩ (𝐴 × 𝐴))𝑖 ↔ (((𝑖 + 〈“𝑋𝑌𝑋”〉) ∈ 𝐴 ∧ 𝑖 ∈ 𝐴) ∧ (𝑖 + 〈“𝑋𝑌𝑋”〉) ∼ 𝑖)) |
| 83 | 80, 73, 81, 82 | syl21anbrc 1363 |
. . 3
⊢ ((𝜑 ∧ 𝑖 ∈ 𝐴) → (𝑖 + 〈“𝑋𝑌𝑋”〉)( ∼ ∩ (𝐴 × 𝐴))𝑖) |
| 84 | 33, 27, 39, 40, 31, 58, 62, 70, 79, 83 | qusmgm 18781 |
. 2
⊢ (𝜑 → (𝐽 ∈ Mgm ∧ [〈“𝑋𝑌𝑋”〉]( ∼ ∩ (𝐴 × 𝐴)) = (0g‘𝐽))) |
| 85 | | ecinxp 8795 |
. . . . 5
⊢ ((( ∼
“ 𝐴) ⊆ 𝐴 ∧ 〈“𝑋𝑌𝑋”〉 ∈ 𝐴) → [〈“𝑋𝑌𝑋”〉] ∼ =
[〈“𝑋𝑌𝑋”〉]( ∼ ∩ (𝐴 × 𝐴))) |
| 86 | 32, 70, 85 | syl2anc 596 |
. . . 4
⊢ (𝜑 → [〈“𝑋𝑌𝑋”〉] ∼ =
[〈“𝑋𝑌𝑋”〉]( ∼ ∩ (𝐴 × 𝐴))) |
| 87 | 86 | eqeq1d 2764 |
. . 3
⊢ (𝜑 → ([〈“𝑋𝑌𝑋”〉] ∼ =
(0g‘𝐽)
↔ [〈“𝑋𝑌𝑋”〉]( ∼ ∩ (𝐴 × 𝐴)) = (0g‘𝐽))) |
| 88 | 87 | anbi2d 642 |
. 2
⊢ (𝜑 → ((𝐽 ∈ Mgm ∧ [〈“𝑋𝑌𝑋”〉] ∼ =
(0g‘𝐽))
↔ (𝐽 ∈ Mgm ∧
[〈“𝑋𝑌𝑋”〉]( ∼ ∩ (𝐴 × 𝐴)) = (0g‘𝐽)))) |
| 89 | 84, 88 | mpbird 260 |
1
⊢ (𝜑 → (𝐽 ∈ Mgm ∧ [〈“𝑋𝑌𝑋”〉] ∼ =
(0g‘𝐽))) |