Step | Hyp | Ref
| Expression |
1 | | subrgsubg 13286 |
. . 3
β’ (π΄ β (SubRingβπ
) β π΄ β (SubGrpβπ
)) |
2 | | issubrg2.o |
. . . 4
β’ 1 =
(1rβπ
) |
3 | 2 | subrg1cl 13288 |
. . 3
β’ (π΄ β (SubRingβπ
) β 1 β π΄) |
4 | | issubrg2.t |
. . . . . 6
β’ Β· =
(.rβπ
) |
5 | 4 | subrgmcl 13292 |
. . . . 5
β’ ((π΄ β (SubRingβπ
) β§ π₯ β π΄ β§ π¦ β π΄) β (π₯ Β· π¦) β π΄) |
6 | 5 | 3expb 1204 |
. . . 4
β’ ((π΄ β (SubRingβπ
) β§ (π₯ β π΄ β§ π¦ β π΄)) β (π₯ Β· π¦) β π΄) |
7 | 6 | ralrimivva 2559 |
. . 3
β’ (π΄ β (SubRingβπ
) β βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄) |
8 | 1, 3, 7 | 3jca 1177 |
. 2
β’ (π΄ β (SubRingβπ
) β (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) |
9 | | simpl 109 |
. . . 4
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β π
β Ring) |
10 | | simpr1 1003 |
. . . . . 6
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β π΄ β (SubGrpβπ
)) |
11 | | eqid 2177 |
. . . . . . 7
β’ (π
βΎs π΄) = (π
βΎs π΄) |
12 | 11 | subgbas 12969 |
. . . . . 6
β’ (π΄ β (SubGrpβπ
) β π΄ = (Baseβ(π
βΎs π΄))) |
13 | 10, 12 | syl 14 |
. . . . 5
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β π΄ = (Baseβ(π
βΎs π΄))) |
14 | | eqidd 2178 |
. . . . . . 7
β’ (π΄ β (SubGrpβπ
) β (π
βΎs π΄) = (π
βΎs π΄)) |
15 | | eqidd 2178 |
. . . . . . 7
β’ (π΄ β (SubGrpβπ
) β
(+gβπ
) =
(+gβπ
)) |
16 | | id 19 |
. . . . . . 7
β’ (π΄ β (SubGrpβπ
) β π΄ β (SubGrpβπ
)) |
17 | | subgrcl 12970 |
. . . . . . 7
β’ (π΄ β (SubGrpβπ
) β π
β Grp) |
18 | 14, 15, 16, 17 | ressplusgd 12579 |
. . . . . 6
β’ (π΄ β (SubGrpβπ
) β
(+gβπ
) =
(+gβ(π
βΎs π΄))) |
19 | 10, 18 | syl 14 |
. . . . 5
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (+gβπ
) = (+gβ(π
βΎs π΄))) |
20 | 11, 4 | ressmulrg 12595 |
. . . . . 6
β’ ((π΄ β (SubGrpβπ
) β§ π
β Grp) β Β· =
(.rβ(π
βΎs π΄))) |
21 | 10, 17, 20 | syl2anc2 412 |
. . . . 5
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β Β· =
(.rβ(π
βΎs π΄))) |
22 | 11 | subggrp 12968 |
. . . . . 6
β’ (π΄ β (SubGrpβπ
) β (π
βΎs π΄) β Grp) |
23 | 10, 22 | syl 14 |
. . . . 5
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π
βΎs π΄) β Grp) |
24 | | simpr3 1005 |
. . . . . . 7
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄) |
25 | | oveq1 5879 |
. . . . . . . . 9
β’ (π₯ = π’ β (π₯ Β· π¦) = (π’ Β· π¦)) |
26 | 25 | eleq1d 2246 |
. . . . . . . 8
β’ (π₯ = π’ β ((π₯ Β· π¦) β π΄ β (π’ Β· π¦) β π΄)) |
27 | | oveq2 5880 |
. . . . . . . . 9
β’ (π¦ = π£ β (π’ Β· π¦) = (π’ Β· π£)) |
28 | 27 | eleq1d 2246 |
. . . . . . . 8
β’ (π¦ = π£ β ((π’ Β· π¦) β π΄ β (π’ Β· π£) β π΄)) |
29 | 26, 28 | rspc2v 2854 |
. . . . . . 7
β’ ((π’ β π΄ β§ π£ β π΄) β (βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄ β (π’ Β· π£) β π΄)) |
30 | 24, 29 | syl5com 29 |
. . . . . 6
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β ((π’ β π΄ β§ π£ β π΄) β (π’ Β· π£) β π΄)) |
31 | 30 | 3impib 1201 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΄ β§ π£ β π΄) β (π’ Β· π£) β π΄) |
32 | | issubrg2.b |
. . . . . . . . . . 11
β’ π΅ = (Baseβπ
) |
33 | 32 | subgss 12965 |
. . . . . . . . . 10
β’ (π΄ β (SubGrpβπ
) β π΄ β π΅) |
34 | 10, 33 | syl 14 |
. . . . . . . . 9
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β π΄ β π΅) |
35 | 34 | sseld 3154 |
. . . . . . . 8
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π’ β π΄ β π’ β π΅)) |
36 | 34 | sseld 3154 |
. . . . . . . 8
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π£ β π΄ β π£ β π΅)) |
37 | 34 | sseld 3154 |
. . . . . . . 8
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π€ β π΄ β π€ β π΅)) |
38 | 35, 36, 37 | 3anim123d 1319 |
. . . . . . 7
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β ((π’ β π΄ β§ π£ β π΄ β§ π€ β π΄) β (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅))) |
39 | 38 | imp 124 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΄ β§ π£ β π΄ β§ π€ β π΄)) β (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) |
40 | 32, 4 | ringass 13130 |
. . . . . . 7
β’ ((π
β Ring β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β ((π’ Β· π£) Β· π€) = (π’ Β· (π£ Β· π€))) |
41 | 40 | adantlr 477 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β ((π’ Β· π£) Β· π€) = (π’ Β· (π£ Β· π€))) |
42 | 39, 41 | syldan 282 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΄ β§ π£ β π΄ β§ π€ β π΄)) β ((π’ Β· π£) Β· π€) = (π’ Β· (π£ Β· π€))) |
43 | | eqid 2177 |
. . . . . . . 8
β’
(+gβπ
) = (+gβπ
) |
44 | 32, 43, 4 | ringdi 13132 |
. . . . . . 7
β’ ((π
β Ring β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β (π’ Β· (π£(+gβπ
)π€)) = ((π’ Β· π£)(+gβπ
)(π’ Β· π€))) |
45 | 44 | adantlr 477 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β (π’ Β· (π£(+gβπ
)π€)) = ((π’ Β· π£)(+gβπ
)(π’ Β· π€))) |
46 | 39, 45 | syldan 282 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΄ β§ π£ β π΄ β§ π€ β π΄)) β (π’ Β· (π£(+gβπ
)π€)) = ((π’ Β· π£)(+gβπ
)(π’ Β· π€))) |
47 | 32, 43, 4 | ringdir 13133 |
. . . . . . 7
β’ ((π
β Ring β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β ((π’(+gβπ
)π£) Β· π€) = ((π’ Β· π€)(+gβπ
)(π£ Β· π€))) |
48 | 47 | adantlr 477 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΅ β§ π£ β π΅ β§ π€ β π΅)) β ((π’(+gβπ
)π£) Β· π€) = ((π’ Β· π€)(+gβπ
)(π£ Β· π€))) |
49 | 39, 48 | syldan 282 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ (π’ β π΄ β§ π£ β π΄ β§ π€ β π΄)) β ((π’(+gβπ
)π£) Β· π€) = ((π’ Β· π€)(+gβπ
)(π£ Β· π€))) |
50 | | simpr2 1004 |
. . . . 5
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β 1 β π΄) |
51 | 35 | imp 124 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΄) β π’ β π΅) |
52 | 32, 4, 2 | ringlidm 13137 |
. . . . . . 7
β’ ((π
β Ring β§ π’ β π΅) β ( 1 Β· π’) = π’) |
53 | 52 | adantlr 477 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΅) β ( 1 Β· π’) = π’) |
54 | 51, 53 | syldan 282 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΄) β ( 1 Β· π’) = π’) |
55 | 32, 4, 2 | ringridm 13138 |
. . . . . . 7
β’ ((π
β Ring β§ π’ β π΅) β (π’ Β· 1 ) = π’) |
56 | 55 | adantlr 477 |
. . . . . 6
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΅) β (π’ Β· 1 ) = π’) |
57 | 51, 56 | syldan 282 |
. . . . 5
β’ (((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β§ π’ β π΄) β (π’ Β· 1 ) = π’) |
58 | 13, 19, 21, 23, 31, 42, 46, 49, 50, 54, 57 | isringd 13151 |
. . . 4
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π
βΎs π΄) β Ring) |
59 | 34, 50 | jca 306 |
. . . 4
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β (π΄ β π΅ β§ 1 β π΄)) |
60 | 32, 2 | issubrg 13280 |
. . . 4
β’ (π΄ β (SubRingβπ
) β ((π
β Ring β§ (π
βΎs π΄) β Ring) β§ (π΄ β π΅ β§ 1 β π΄))) |
61 | 9, 58, 59, 60 | syl21anbrc 1182 |
. . 3
β’ ((π
β Ring β§ (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄)) β π΄ β (SubRingβπ
)) |
62 | 61 | ex 115 |
. 2
β’ (π
β Ring β ((π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄) β π΄ β (SubRingβπ
))) |
63 | 8, 62 | impbid2 143 |
1
β’ (π
β Ring β (π΄ β (SubRingβπ
) β (π΄ β (SubGrpβπ
) β§ 1 β π΄ β§ βπ₯ β π΄ βπ¦ β π΄ (π₯ Β· π¦) β π΄))) |