Step | Hyp | Ref
| Expression |
1 | | subgmulg.h |
. . . . . 6
โข ๐ป = (๐บ โพs ๐) |
2 | | eqid 2733 |
. . . . . 6
โข
(0gโ๐บ) = (0gโ๐บ) |
3 | 1, 2 | subg0 19007 |
. . . . 5
โข (๐ โ (SubGrpโ๐บ) โ
(0gโ๐บ) =
(0gโ๐ป)) |
4 | 3 | 3ad2ant1 1134 |
. . . 4
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (0gโ๐บ) = (0gโ๐ป)) |
5 | 4 | ifeq1d 4547 |
. . 3
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ if(๐ = 0, (0gโ๐บ), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)))) = if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))))) |
6 | | eqid 2733 |
. . . . . . . . . . 11
โข
(+gโ๐บ) = (+gโ๐บ) |
7 | 1, 6 | ressplusg 17232 |
. . . . . . . . . 10
โข (๐ โ (SubGrpโ๐บ) โ
(+gโ๐บ) =
(+gโ๐ป)) |
8 | 7 | 3ad2ant1 1134 |
. . . . . . . . 9
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (+gโ๐บ) = (+gโ๐ป)) |
9 | 8 | seqeq2d 13970 |
. . . . . . . 8
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ seq1((+gโ๐บ), (โ ร {๐})) =
seq1((+gโ๐ป), (โ ร {๐}))) |
10 | 9 | adantr 482 |
. . . . . . 7
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โ seq1((+gโ๐บ), (โ ร {๐})) =
seq1((+gโ๐ป), (โ ร {๐}))) |
11 | 10 | fveq1d 6891 |
. . . . . 6
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โ
(seq1((+gโ๐บ), (โ ร {๐}))โ๐) = (seq1((+gโ๐ป), (โ ร {๐}))โ๐)) |
12 | 11 | ifeq1d 4547 |
. . . . 5
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โ if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) = if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)))) |
13 | | simp2 1138 |
. . . . . . . . . . . . 13
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ โค) |
14 | 13 | zred 12663 |
. . . . . . . . . . . 12
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ โ) |
15 | | 0re 11213 |
. . . . . . . . . . . 12
โข 0 โ
โ |
16 | | axlttri 11282 |
. . . . . . . . . . . 12
โข ((๐ โ โ โง 0 โ
โ) โ (๐ < 0
โ ยฌ (๐ = 0 โจ 0
< ๐))) |
17 | 14, 15, 16 | sylancl 587 |
. . . . . . . . . . 11
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ < 0 โ ยฌ (๐ = 0 โจ 0 < ๐))) |
18 | | ioran 983 |
. . . . . . . . . . 11
โข (ยฌ
(๐ = 0 โจ 0 < ๐) โ (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) |
19 | 17, 18 | bitrdi 287 |
. . . . . . . . . 10
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ < 0 โ (ยฌ ๐ = 0 โง ยฌ 0 < ๐))) |
20 | 19 | biimpar 479 |
. . . . . . . . 9
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ ๐ < 0) |
21 | | simpl1 1192 |
. . . . . . . . . 10
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ ๐ โ (SubGrpโ๐บ)) |
22 | 13 | adantr 482 |
. . . . . . . . . . . . . 14
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ ๐ โ โค) |
23 | 22 | znegcld 12665 |
. . . . . . . . . . . . 13
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ -๐ โ โค) |
24 | 14 | lt0neg1d 11780 |
. . . . . . . . . . . . . 14
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ < 0 โ 0 < -๐)) |
25 | 24 | biimpa 478 |
. . . . . . . . . . . . 13
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ 0 < -๐) |
26 | | elnnz 12565 |
. . . . . . . . . . . . 13
โข (-๐ โ โ โ (-๐ โ โค โง 0 <
-๐)) |
27 | 23, 25, 26 | sylanbrc 584 |
. . . . . . . . . . . 12
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ -๐ โ โ) |
28 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
โข
(Baseโ๐บ) =
(Baseโ๐บ) |
29 | 28 | subgss 19002 |
. . . . . . . . . . . . . . 15
โข (๐ โ (SubGrpโ๐บ) โ ๐ โ (Baseโ๐บ)) |
30 | 29 | 3ad2ant1 1134 |
. . . . . . . . . . . . . 14
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ (Baseโ๐บ)) |
31 | | simp3 1139 |
. . . . . . . . . . . . . 14
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ ๐) |
32 | 30, 31 | sseldd 3983 |
. . . . . . . . . . . . 13
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ (Baseโ๐บ)) |
33 | 32 | adantr 482 |
. . . . . . . . . . . 12
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ ๐ โ (Baseโ๐บ)) |
34 | | subgmulgcl.t |
. . . . . . . . . . . . 13
โข ยท =
(.gโ๐บ) |
35 | | eqid 2733 |
. . . . . . . . . . . . 13
โข
seq1((+gโ๐บ), (โ ร {๐})) = seq1((+gโ๐บ), (โ ร {๐})) |
36 | 28, 6, 34, 35 | mulgnn 18953 |
. . . . . . . . . . . 12
โข ((-๐ โ โ โง ๐ โ (Baseโ๐บ)) โ (-๐ ยท ๐) = (seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) |
37 | 27, 33, 36 | syl2anc 585 |
. . . . . . . . . . 11
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ (-๐ ยท ๐) = (seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) |
38 | 31 | adantr 482 |
. . . . . . . . . . . 12
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ ๐ โ ๐) |
39 | 34 | subgmulgcl 19014 |
. . . . . . . . . . . 12
โข ((๐ โ (SubGrpโ๐บ) โง -๐ โ โค โง ๐ โ ๐) โ (-๐ ยท ๐) โ ๐) |
40 | 21, 23, 38, 39 | syl3anc 1372 |
. . . . . . . . . . 11
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ (-๐ ยท ๐) โ ๐) |
41 | 37, 40 | eqeltrrd 2835 |
. . . . . . . . . 10
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ
(seq1((+gโ๐บ), (โ ร {๐}))โ-๐) โ ๐) |
42 | | eqid 2733 |
. . . . . . . . . . 11
โข
(invgโ๐บ) = (invgโ๐บ) |
43 | | eqid 2733 |
. . . . . . . . . . 11
โข
(invgโ๐ป) = (invgโ๐ป) |
44 | 1, 42, 43 | subginv 19008 |
. . . . . . . . . 10
โข ((๐ โ (SubGrpโ๐บ) โง
(seq1((+gโ๐บ), (โ ร {๐}))โ-๐) โ ๐) โ ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) |
45 | 21, 41, 44 | syl2anc 585 |
. . . . . . . . 9
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ๐ < 0) โ
((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) |
46 | 20, 45 | syldan 592 |
. . . . . . . 8
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) |
47 | 9 | adantr 482 |
. . . . . . . . . 10
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ seq1((+gโ๐บ), (โ ร {๐})) =
seq1((+gโ๐ป), (โ ร {๐}))) |
48 | 47 | fveq1d 6891 |
. . . . . . . . 9
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ (seq1((+gโ๐บ), (โ ร {๐}))โ-๐) = (seq1((+gโ๐ป), (โ ร {๐}))โ-๐)) |
49 | 48 | fveq2d 6893 |
. . . . . . . 8
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ ((invgโ๐ป)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))) |
50 | 46, 49 | eqtrd 2773 |
. . . . . . 7
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง (ยฌ ๐ = 0 โง ยฌ 0 < ๐)) โ ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))) |
51 | 50 | anassrs 469 |
. . . . . 6
โข ((((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โง ยฌ 0 < ๐) โ ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)) = ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))) |
52 | 51 | ifeq2da 4560 |
. . . . 5
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โ if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) = if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐)))) |
53 | 12, 52 | eqtrd 2773 |
. . . 4
โข (((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โง ยฌ ๐ = 0) โ if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))) = if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐)))) |
54 | 53 | ifeq2da 4560 |
. . 3
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)))) = if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))))) |
55 | 5, 54 | eqtrd 2773 |
. 2
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ if(๐ = 0, (0gโ๐บ), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐)))) = if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))))) |
56 | 28, 6, 2, 42, 34, 35 | mulgval 18949 |
. . 3
โข ((๐ โ โค โง ๐ โ (Baseโ๐บ)) โ (๐ ยท ๐) = if(๐ = 0, (0gโ๐บ), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))))) |
57 | 13, 32, 56 | syl2anc 585 |
. 2
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ ยท ๐) = if(๐ = 0, (0gโ๐บ), if(0 < ๐, (seq1((+gโ๐บ), (โ ร {๐}))โ๐), ((invgโ๐บ)โ(seq1((+gโ๐บ), (โ ร {๐}))โ-๐))))) |
58 | 1 | subgbas 19005 |
. . . . 5
โข (๐ โ (SubGrpโ๐บ) โ ๐ = (Baseโ๐ป)) |
59 | 58 | 3ad2ant1 1134 |
. . . 4
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ = (Baseโ๐ป)) |
60 | 31, 59 | eleqtrd 2836 |
. . 3
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ ๐ โ (Baseโ๐ป)) |
61 | | eqid 2733 |
. . . 4
โข
(Baseโ๐ป) =
(Baseโ๐ป) |
62 | | eqid 2733 |
. . . 4
โข
(+gโ๐ป) = (+gโ๐ป) |
63 | | eqid 2733 |
. . . 4
โข
(0gโ๐ป) = (0gโ๐ป) |
64 | | subgmulg.t |
. . . 4
โข โ =
(.gโ๐ป) |
65 | | eqid 2733 |
. . . 4
โข
seq1((+gโ๐ป), (โ ร {๐})) = seq1((+gโ๐ป), (โ ร {๐})) |
66 | 61, 62, 63, 43, 64, 65 | mulgval 18949 |
. . 3
โข ((๐ โ โค โง ๐ โ (Baseโ๐ป)) โ (๐ โ ๐) = if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))))) |
67 | 13, 60, 66 | syl2anc 585 |
. 2
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ โ ๐) = if(๐ = 0, (0gโ๐ป), if(0 < ๐, (seq1((+gโ๐ป), (โ ร {๐}))โ๐), ((invgโ๐ป)โ(seq1((+gโ๐ป), (โ ร {๐}))โ-๐))))) |
68 | 55, 57, 67 | 3eqtr4d 2783 |
1
โข ((๐ โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ โ ๐) โ (๐ ยท ๐) = (๐ โ ๐)) |