| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | subrgsubg 20578 | . . 3
⊢ (𝐴 ∈ (SubRing‘𝑅) → 𝐴 ∈ (SubGrp‘𝑅)) | 
| 2 |  | issubrg2.o | . . . 4
⊢  1 =
(1r‘𝑅) | 
| 3 | 2 | subrg1cl 20581 | . . 3
⊢ (𝐴 ∈ (SubRing‘𝑅) → 1 ∈ 𝐴) | 
| 4 |  | issubrg2.t | . . . . . 6
⊢  · =
(.r‘𝑅) | 
| 5 | 4 | subrgmcl 20585 | . . . . 5
⊢ ((𝐴 ∈ (SubRing‘𝑅) ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → (𝑥 · 𝑦) ∈ 𝐴) | 
| 6 | 5 | 3expb 1120 | . . . 4
⊢ ((𝐴 ∈ (SubRing‘𝑅) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥 · 𝑦) ∈ 𝐴) | 
| 7 | 6 | ralrimivva 3201 | . . 3
⊢ (𝐴 ∈ (SubRing‘𝑅) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴) | 
| 8 | 1, 3, 7 | 3jca 1128 | . 2
⊢ (𝐴 ∈ (SubRing‘𝑅) → (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) | 
| 9 |  | simpl 482 | . . . 4
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 𝑅 ∈ Ring) | 
| 10 |  | simpr1 1194 | . . . . . 6
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 𝐴 ∈ (SubGrp‘𝑅)) | 
| 11 |  | eqid 2736 | . . . . . . 7
⊢ (𝑅 ↾s 𝐴) = (𝑅 ↾s 𝐴) | 
| 12 | 11 | subgbas 19149 | . . . . . 6
⊢ (𝐴 ∈ (SubGrp‘𝑅) → 𝐴 = (Base‘(𝑅 ↾s 𝐴))) | 
| 13 | 10, 12 | syl 17 | . . . . 5
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 𝐴 = (Base‘(𝑅 ↾s 𝐴))) | 
| 14 |  | eqid 2736 | . . . . . . 7
⊢
(+g‘𝑅) = (+g‘𝑅) | 
| 15 | 11, 14 | ressplusg 17335 | . . . . . 6
⊢ (𝐴 ∈ (SubGrp‘𝑅) →
(+g‘𝑅) =
(+g‘(𝑅
↾s 𝐴))) | 
| 16 | 10, 15 | syl 17 | . . . . 5
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (+g‘𝑅) = (+g‘(𝑅 ↾s 𝐴))) | 
| 17 | 11, 4 | ressmulr 17352 | . . . . . 6
⊢ (𝐴 ∈ (SubGrp‘𝑅) → · =
(.r‘(𝑅
↾s 𝐴))) | 
| 18 | 10, 17 | syl 17 | . . . . 5
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → · =
(.r‘(𝑅
↾s 𝐴))) | 
| 19 | 11 | subggrp 19148 | . . . . . 6
⊢ (𝐴 ∈ (SubGrp‘𝑅) → (𝑅 ↾s 𝐴) ∈ Grp) | 
| 20 | 10, 19 | syl 17 | . . . . 5
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝑅 ↾s 𝐴) ∈ Grp) | 
| 21 |  | simpr3 1196 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴) | 
| 22 |  | oveq1 7439 | . . . . . . . . 9
⊢ (𝑥 = 𝑢 → (𝑥 · 𝑦) = (𝑢 · 𝑦)) | 
| 23 | 22 | eleq1d 2825 | . . . . . . . 8
⊢ (𝑥 = 𝑢 → ((𝑥 · 𝑦) ∈ 𝐴 ↔ (𝑢 · 𝑦) ∈ 𝐴)) | 
| 24 |  | oveq2 7440 | . . . . . . . . 9
⊢ (𝑦 = 𝑣 → (𝑢 · 𝑦) = (𝑢 · 𝑣)) | 
| 25 | 24 | eleq1d 2825 | . . . . . . . 8
⊢ (𝑦 = 𝑣 → ((𝑢 · 𝑦) ∈ 𝐴 ↔ (𝑢 · 𝑣) ∈ 𝐴)) | 
| 26 | 23, 25 | rspc2v 3632 | . . . . . . 7
⊢ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴 → (𝑢 · 𝑣) ∈ 𝐴)) | 
| 27 | 21, 26 | syl5com 31 | . . . . . 6
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) → (𝑢 · 𝑣) ∈ 𝐴)) | 
| 28 | 27 | 3impib 1116 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) → (𝑢 · 𝑣) ∈ 𝐴) | 
| 29 |  | issubrg2.b | . . . . . . . . . . 11
⊢ 𝐵 = (Base‘𝑅) | 
| 30 | 29 | subgss 19146 | . . . . . . . . . 10
⊢ (𝐴 ∈ (SubGrp‘𝑅) → 𝐴 ⊆ 𝐵) | 
| 31 | 10, 30 | syl 17 | . . . . . . . . 9
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 𝐴 ⊆ 𝐵) | 
| 32 | 31 | sseld 3981 | . . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝑢 ∈ 𝐴 → 𝑢 ∈ 𝐵)) | 
| 33 | 31 | sseld 3981 | . . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝑣 ∈ 𝐴 → 𝑣 ∈ 𝐵)) | 
| 34 | 31 | sseld 3981 | . . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝑤 ∈ 𝐴 → 𝑤 ∈ 𝐵)) | 
| 35 | 32, 33, 34 | 3anim123d 1444 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴 ∧ 𝑤 ∈ 𝐴) → (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵))) | 
| 36 | 35 | imp 406 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴 ∧ 𝑤 ∈ 𝐴)) → (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) | 
| 37 | 29, 4 | ringass 20251 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢 · 𝑣) · 𝑤) = (𝑢 · (𝑣 · 𝑤))) | 
| 38 | 37 | adantlr 715 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢 · 𝑣) · 𝑤) = (𝑢 · (𝑣 · 𝑤))) | 
| 39 | 36, 38 | syldan 591 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴 ∧ 𝑤 ∈ 𝐴)) → ((𝑢 · 𝑣) · 𝑤) = (𝑢 · (𝑣 · 𝑤))) | 
| 40 | 29, 14, 4 | ringdi 20259 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢 · (𝑣(+g‘𝑅)𝑤)) = ((𝑢 · 𝑣)(+g‘𝑅)(𝑢 · 𝑤))) | 
| 41 | 40 | adantlr 715 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢 · (𝑣(+g‘𝑅)𝑤)) = ((𝑢 · 𝑣)(+g‘𝑅)(𝑢 · 𝑤))) | 
| 42 | 36, 41 | syldan 591 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴 ∧ 𝑤 ∈ 𝐴)) → (𝑢 · (𝑣(+g‘𝑅)𝑤)) = ((𝑢 · 𝑣)(+g‘𝑅)(𝑢 · 𝑤))) | 
| 43 | 29, 14, 4 | ringdir 20260 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝑅)𝑣) · 𝑤) = ((𝑢 · 𝑤)(+g‘𝑅)(𝑣 · 𝑤))) | 
| 44 | 43 | adantlr 715 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝑅)𝑣) · 𝑤) = ((𝑢 · 𝑤)(+g‘𝑅)(𝑣 · 𝑤))) | 
| 45 | 36, 44 | syldan 591 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴 ∧ 𝑤 ∈ 𝐴)) → ((𝑢(+g‘𝑅)𝑣) · 𝑤) = ((𝑢 · 𝑤)(+g‘𝑅)(𝑣 · 𝑤))) | 
| 46 |  | simpr2 1195 | . . . . 5
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 1 ∈ 𝐴) | 
| 47 | 32 | imp 406 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐴) → 𝑢 ∈ 𝐵) | 
| 48 | 29, 4, 2 | ringlidm 20267 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ 𝑢 ∈ 𝐵) → ( 1 · 𝑢) = 𝑢) | 
| 49 | 48 | adantlr 715 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐵) → ( 1 · 𝑢) = 𝑢) | 
| 50 | 47, 49 | syldan 591 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐴) → ( 1 · 𝑢) = 𝑢) | 
| 51 | 29, 4, 2 | ringridm 20268 | . . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ 𝑢 ∈ 𝐵) → (𝑢 · 1 ) = 𝑢) | 
| 52 | 51 | adantlr 715 | . . . . . 6
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐵) → (𝑢 · 1 ) = 𝑢) | 
| 53 | 47, 52 | syldan 591 | . . . . 5
⊢ (((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) ∧ 𝑢 ∈ 𝐴) → (𝑢 · 1 ) = 𝑢) | 
| 54 | 13, 16, 18, 20, 28, 39, 42, 45, 46, 50, 53 | isringd 20289 | . . . 4
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝑅 ↾s 𝐴) ∈ Ring) | 
| 55 | 31, 46 | jca 511 | . . . 4
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)) | 
| 56 | 29, 2 | issubrg 20572 | . . . 4
⊢ (𝐴 ∈ (SubRing‘𝑅) ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴))) | 
| 57 | 9, 54, 55, 56 | syl21anbrc 1344 | . . 3
⊢ ((𝑅 ∈ Ring ∧ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴)) → 𝐴 ∈ (SubRing‘𝑅)) | 
| 58 | 57 | ex 412 | . 2
⊢ (𝑅 ∈ Ring → ((𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴) → 𝐴 ∈ (SubRing‘𝑅))) | 
| 59 | 8, 58 | impbid2 226 | 1
⊢ (𝑅 ∈ Ring → (𝐴 ∈ (SubRing‘𝑅) ↔ (𝐴 ∈ (SubGrp‘𝑅) ∧ 1 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 · 𝑦) ∈ 𝐴))) |