Proof of Theorem ogrpinvlt
Step | Hyp | Ref
| Expression |
1 | | simp1l 1195 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐺 ∈ oGrp) |
2 | | simp2 1135 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋 ∈ 𝐵) |
3 | | simp3 1136 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌 ∈ 𝐵) |
4 | | ogrpgrp 31231 |
. . . . . 6
⊢ (𝐺 ∈ oGrp → 𝐺 ∈ Grp) |
5 | 1, 4 | syl 17 |
. . . . 5
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐺 ∈ Grp) |
6 | | ogrpinvlt.0 |
. . . . . 6
⊢ 𝐵 = (Base‘𝐺) |
7 | | ogrpinvlt.2 |
. . . . . 6
⊢ 𝐼 = (invg‘𝐺) |
8 | 6, 7 | grpinvcl 18542 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝑌 ∈ 𝐵) → (𝐼‘𝑌) ∈ 𝐵) |
9 | 5, 3, 8 | syl2anc 583 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝐼‘𝑌) ∈ 𝐵) |
10 | | ogrpinvlt.1 |
. . . . 5
⊢ < =
(lt‘𝐺) |
11 | | eqid 2738 |
. . . . 5
⊢
(+g‘𝐺) = (+g‘𝐺) |
12 | 6, 10, 11 | ogrpaddltbi 31246 |
. . . 4
⊢ ((𝐺 ∈ oGrp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ (𝐼‘𝑌) ∈ 𝐵)) → (𝑋 < 𝑌 ↔ (𝑋(+g‘𝐺)(𝐼‘𝑌)) < (𝑌(+g‘𝐺)(𝐼‘𝑌)))) |
13 | 1, 2, 3, 9, 12 | syl13anc 1370 |
. . 3
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 < 𝑌 ↔ (𝑋(+g‘𝐺)(𝐼‘𝑌)) < (𝑌(+g‘𝐺)(𝐼‘𝑌)))) |
14 | | eqid 2738 |
. . . . . 6
⊢
(0g‘𝐺) = (0g‘𝐺) |
15 | 6, 11, 14, 7 | grprinv 18544 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝑌 ∈ 𝐵) → (𝑌(+g‘𝐺)(𝐼‘𝑌)) = (0g‘𝐺)) |
16 | 5, 3, 15 | syl2anc 583 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑌(+g‘𝐺)(𝐼‘𝑌)) = (0g‘𝐺)) |
17 | 16 | breq2d 5082 |
. . 3
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋(+g‘𝐺)(𝐼‘𝑌)) < (𝑌(+g‘𝐺)(𝐼‘𝑌)) ↔ (𝑋(+g‘𝐺)(𝐼‘𝑌)) <
(0g‘𝐺))) |
18 | | simp1r 1196 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (oppg‘𝐺) ∈ oGrp) |
19 | 6, 11 | grpcl 18500 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵 ∧ (𝐼‘𝑌) ∈ 𝐵) → (𝑋(+g‘𝐺)(𝐼‘𝑌)) ∈ 𝐵) |
20 | 5, 2, 9, 19 | syl3anc 1369 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(+g‘𝐺)(𝐼‘𝑌)) ∈ 𝐵) |
21 | 6, 14 | grpidcl 18522 |
. . . . 5
⊢ (𝐺 ∈ Grp →
(0g‘𝐺)
∈ 𝐵) |
22 | 1, 4, 21 | 3syl 18 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (0g‘𝐺) ∈ 𝐵) |
23 | 6, 7 | grpinvcl 18542 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (𝐼‘𝑋) ∈ 𝐵) |
24 | 5, 2, 23 | syl2anc 583 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝐼‘𝑋) ∈ 𝐵) |
25 | 6, 10, 11, 1, 18, 20, 22, 24 | ogrpaddltrbid 31248 |
. . 3
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋(+g‘𝐺)(𝐼‘𝑌)) <
(0g‘𝐺)
↔ ((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌))) < ((𝐼‘𝑋)(+g‘𝐺)(0g‘𝐺)))) |
26 | 13, 17, 25 | 3bitrd 304 |
. 2
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 < 𝑌 ↔ ((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌))) < ((𝐼‘𝑋)(+g‘𝐺)(0g‘𝐺)))) |
27 | 6, 11, 14, 7 | grplinv 18543 |
. . . . . 6
⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → ((𝐼‘𝑋)(+g‘𝐺)𝑋) = (0g‘𝐺)) |
28 | 5, 2, 27 | syl2anc 583 |
. . . . 5
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐼‘𝑋)(+g‘𝐺)𝑋) = (0g‘𝐺)) |
29 | 28 | oveq1d 7270 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝐼‘𝑋)(+g‘𝐺)𝑋)(+g‘𝐺)(𝐼‘𝑌)) = ((0g‘𝐺)(+g‘𝐺)(𝐼‘𝑌))) |
30 | 6, 11 | grpass 18501 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ ((𝐼‘𝑋) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ (𝐼‘𝑌) ∈ 𝐵)) → (((𝐼‘𝑋)(+g‘𝐺)𝑋)(+g‘𝐺)(𝐼‘𝑌)) = ((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌)))) |
31 | 5, 24, 2, 9, 30 | syl13anc 1370 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝐼‘𝑋)(+g‘𝐺)𝑋)(+g‘𝐺)(𝐼‘𝑌)) = ((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌)))) |
32 | 6, 11, 14 | grplid 18524 |
. . . . 5
⊢ ((𝐺 ∈ Grp ∧ (𝐼‘𝑌) ∈ 𝐵) → ((0g‘𝐺)(+g‘𝐺)(𝐼‘𝑌)) = (𝐼‘𝑌)) |
33 | 5, 9, 32 | syl2anc 583 |
. . . 4
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((0g‘𝐺)(+g‘𝐺)(𝐼‘𝑌)) = (𝐼‘𝑌)) |
34 | 29, 31, 33 | 3eqtr3d 2786 |
. . 3
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌))) = (𝐼‘𝑌)) |
35 | 6, 11, 14 | grprid 18525 |
. . . 4
⊢ ((𝐺 ∈ Grp ∧ (𝐼‘𝑋) ∈ 𝐵) → ((𝐼‘𝑋)(+g‘𝐺)(0g‘𝐺)) = (𝐼‘𝑋)) |
36 | 5, 24, 35 | syl2anc 583 |
. . 3
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐼‘𝑋)(+g‘𝐺)(0g‘𝐺)) = (𝐼‘𝑋)) |
37 | 34, 36 | breq12d 5083 |
. 2
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (((𝐼‘𝑋)(+g‘𝐺)(𝑋(+g‘𝐺)(𝐼‘𝑌))) < ((𝐼‘𝑋)(+g‘𝐺)(0g‘𝐺)) ↔ (𝐼‘𝑌) < (𝐼‘𝑋))) |
38 | 26, 37 | bitrd 278 |
1
⊢ (((𝐺 ∈ oGrp ∧
(oppg‘𝐺) ∈ oGrp) ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 < 𝑌 ↔ (𝐼‘𝑌) < (𝐼‘𝑋))) |