Step | Hyp | Ref
| Expression |
1 | | isdrngd.r |
. . 3
⊢ (𝜑 → 𝑅 ∈ Ring) |
2 | | difss 4066 |
. . . . . 6
⊢ (𝐵 ∖ { 0 }) ⊆ 𝐵 |
3 | | isdrngd.b |
. . . . . 6
⊢ (𝜑 → 𝐵 = (Base‘𝑅)) |
4 | 2, 3 | sseqtrid 3973 |
. . . . 5
⊢ (𝜑 → (𝐵 ∖ { 0 }) ⊆
(Base‘𝑅)) |
5 | | eqid 2738 |
. . . . . 6
⊢
((mulGrp‘𝑅)
↾s (𝐵
∖ { 0 })) = ((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })) |
6 | | eqid 2738 |
. . . . . . 7
⊢
(mulGrp‘𝑅) =
(mulGrp‘𝑅) |
7 | | eqid 2738 |
. . . . . . 7
⊢
(Base‘𝑅) =
(Base‘𝑅) |
8 | 6, 7 | mgpbas 19726 |
. . . . . 6
⊢
(Base‘𝑅) =
(Base‘(mulGrp‘𝑅)) |
9 | 5, 8 | ressbas2 16949 |
. . . . 5
⊢ ((𝐵 ∖ { 0 }) ⊆
(Base‘𝑅) →
(𝐵 ∖ { 0 }) =
(Base‘((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })))) |
10 | 4, 9 | syl 17 |
. . . 4
⊢ (𝜑 → (𝐵 ∖ { 0 }) =
(Base‘((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })))) |
11 | | isdrngd.t |
. . . . 5
⊢ (𝜑 → · =
(.r‘𝑅)) |
12 | | fvex 6787 |
. . . . . . 7
⊢
(Base‘𝑅)
∈ V |
13 | 3, 12 | eqeltrdi 2847 |
. . . . . 6
⊢ (𝜑 → 𝐵 ∈ V) |
14 | | difexg 5251 |
. . . . . 6
⊢ (𝐵 ∈ V → (𝐵 ∖ { 0 }) ∈
V) |
15 | | eqid 2738 |
. . . . . . . 8
⊢
(.r‘𝑅) = (.r‘𝑅) |
16 | 6, 15 | mgpplusg 19724 |
. . . . . . 7
⊢
(.r‘𝑅) = (+g‘(mulGrp‘𝑅)) |
17 | 5, 16 | ressplusg 17000 |
. . . . . 6
⊢ ((𝐵 ∖ { 0 }) ∈ V →
(.r‘𝑅) =
(+g‘((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })))) |
18 | 13, 14, 17 | 3syl 18 |
. . . . 5
⊢ (𝜑 → (.r‘𝑅) =
(+g‘((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })))) |
19 | 11, 18 | eqtrd 2778 |
. . . 4
⊢ (𝜑 → · =
(+g‘((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })))) |
20 | | eldifsn 4720 |
. . . . 5
⊢ (𝑥 ∈ (𝐵 ∖ { 0 }) ↔ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) |
21 | | eldifsn 4720 |
. . . . . 6
⊢ (𝑦 ∈ (𝐵 ∖ { 0 }) ↔ (𝑦 ∈ 𝐵 ∧ 𝑦 ≠ 0 )) |
22 | 7, 15 | ringcl 19800 |
. . . . . . . . . . . . 13
⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅)) |
23 | 1, 22 | syl3an1 1162 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅)) |
24 | 23 | 3expib 1121 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅))) |
25 | 3 | eleq2d 2824 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (Base‘𝑅))) |
26 | 3 | eleq2d 2824 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ (Base‘𝑅))) |
27 | 25, 26 | anbi12d 631 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ↔ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)))) |
28 | 11 | oveqd 7292 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑥 · 𝑦) = (𝑥(.r‘𝑅)𝑦)) |
29 | 28, 3 | eleq12d 2833 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑥 · 𝑦) ∈ 𝐵 ↔ (𝑥(.r‘𝑅)𝑦) ∈ (Base‘𝑅))) |
30 | 24, 27, 29 | 3imtr4d 294 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 · 𝑦) ∈ 𝐵)) |
31 | 30 | 3impib 1115 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 · 𝑦) ∈ 𝐵) |
32 | 31 | 3adant2r 1178 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 ) ∧ 𝑦 ∈ 𝐵) → (𝑥 · 𝑦) ∈ 𝐵) |
33 | 32 | 3adant3r 1180 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 ) ∧ (𝑦 ∈ 𝐵 ∧ 𝑦 ≠ 0 )) → (𝑥 · 𝑦) ∈ 𝐵) |
34 | | isdrngd.n |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 ) ∧ (𝑦 ∈ 𝐵 ∧ 𝑦 ≠ 0 )) → (𝑥 · 𝑦) ≠ 0 ) |
35 | | eldifsn 4720 |
. . . . . . 7
⊢ ((𝑥 · 𝑦) ∈ (𝐵 ∖ { 0 }) ↔ ((𝑥 · 𝑦) ∈ 𝐵 ∧ (𝑥 · 𝑦) ≠ 0 )) |
36 | 33, 34, 35 | sylanbrc 583 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 ) ∧ (𝑦 ∈ 𝐵 ∧ 𝑦 ≠ 0 )) → (𝑥 · 𝑦) ∈ (𝐵 ∖ { 0 })) |
37 | 21, 36 | syl3an3b 1404 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 ) ∧ 𝑦 ∈ (𝐵 ∖ { 0 })) → (𝑥 · 𝑦) ∈ (𝐵 ∖ { 0 })) |
38 | 20, 37 | syl3an2b 1403 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐵 ∖ { 0 }) ∧ 𝑦 ∈ (𝐵 ∖ { 0 })) → (𝑥 · 𝑦) ∈ (𝐵 ∖ { 0 })) |
39 | 7, 15 | ringass 19803 |
. . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧))) |
40 | 39 | ex 413 |
. . . . . . 7
⊢ (𝑅 ∈ Ring → ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅)) → ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧)))) |
41 | 1, 40 | syl 17 |
. . . . . 6
⊢ (𝜑 → ((𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅)) → ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧)))) |
42 | 3 | eleq2d 2824 |
. . . . . . 7
⊢ (𝜑 → (𝑧 ∈ 𝐵 ↔ 𝑧 ∈ (Base‘𝑅))) |
43 | 25, 26, 42 | 3anbi123d 1435 |
. . . . . 6
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵) ↔ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅)))) |
44 | | eqidd 2739 |
. . . . . . . 8
⊢ (𝜑 → 𝑧 = 𝑧) |
45 | 11, 28, 44 | oveq123d 7296 |
. . . . . . 7
⊢ (𝜑 → ((𝑥 · 𝑦) · 𝑧) = ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧)) |
46 | | eqidd 2739 |
. . . . . . . 8
⊢ (𝜑 → 𝑥 = 𝑥) |
47 | 11 | oveqd 7292 |
. . . . . . . 8
⊢ (𝜑 → (𝑦 · 𝑧) = (𝑦(.r‘𝑅)𝑧)) |
48 | 11, 46, 47 | oveq123d 7296 |
. . . . . . 7
⊢ (𝜑 → (𝑥 · (𝑦 · 𝑧)) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧))) |
49 | 45, 48 | eqeq12d 2754 |
. . . . . 6
⊢ (𝜑 → (((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)) ↔ ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧)))) |
50 | 41, 43, 49 | 3imtr4d 294 |
. . . . 5
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))) |
51 | | eldifi 4061 |
. . . . . 6
⊢ (𝑥 ∈ (𝐵 ∖ { 0 }) → 𝑥 ∈ 𝐵) |
52 | | eldifi 4061 |
. . . . . 6
⊢ (𝑦 ∈ (𝐵 ∖ { 0 }) → 𝑦 ∈ 𝐵) |
53 | | eldifi 4061 |
. . . . . 6
⊢ (𝑧 ∈ (𝐵 ∖ { 0 }) → 𝑧 ∈ 𝐵) |
54 | 51, 52, 53 | 3anim123i 1150 |
. . . . 5
⊢ ((𝑥 ∈ (𝐵 ∖ { 0 }) ∧ 𝑦 ∈ (𝐵 ∖ { 0 }) ∧ 𝑧 ∈ (𝐵 ∖ { 0 })) → (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵)) |
55 | 50, 54 | impel 506 |
. . . 4
⊢ ((𝜑 ∧ (𝑥 ∈ (𝐵 ∖ { 0 }) ∧ 𝑦 ∈ (𝐵 ∖ { 0 }) ∧ 𝑧 ∈ (𝐵 ∖ { 0 }))) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧))) |
56 | | eqid 2738 |
. . . . . . . 8
⊢
(1r‘𝑅) = (1r‘𝑅) |
57 | 7, 56 | ringidcl 19807 |
. . . . . . 7
⊢ (𝑅 ∈ Ring →
(1r‘𝑅)
∈ (Base‘𝑅)) |
58 | 1, 57 | syl 17 |
. . . . . 6
⊢ (𝜑 → (1r‘𝑅) ∈ (Base‘𝑅)) |
59 | | isdrngd.u |
. . . . . 6
⊢ (𝜑 → 1 =
(1r‘𝑅)) |
60 | 58, 59, 3 | 3eltr4d 2854 |
. . . . 5
⊢ (𝜑 → 1 ∈ 𝐵) |
61 | | isdrngd.o |
. . . . 5
⊢ (𝜑 → 1 ≠ 0 ) |
62 | | eldifsn 4720 |
. . . . 5
⊢ ( 1 ∈ (𝐵 ∖ { 0 }) ↔ ( 1 ∈ 𝐵 ∧ 1 ≠ 0 )) |
63 | 60, 61, 62 | sylanbrc 583 |
. . . 4
⊢ (𝜑 → 1 ∈ (𝐵 ∖ { 0 })) |
64 | 7, 15, 56 | ringlidm 19810 |
. . . . . . . . . 10
⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) →
((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥) |
65 | 64 | ex 413 |
. . . . . . . . 9
⊢ (𝑅 ∈ Ring → (𝑥 ∈ (Base‘𝑅) →
((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥)) |
66 | 1, 65 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → (𝑥 ∈ (Base‘𝑅) → ((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥)) |
67 | 11, 59, 46 | oveq123d 7296 |
. . . . . . . . 9
⊢ (𝜑 → ( 1 · 𝑥) = ((1r‘𝑅)(.r‘𝑅)𝑥)) |
68 | 67 | eqeq1d 2740 |
. . . . . . . 8
⊢ (𝜑 → (( 1 · 𝑥) = 𝑥 ↔ ((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥)) |
69 | 66, 25, 68 | 3imtr4d 294 |
. . . . . . 7
⊢ (𝜑 → (𝑥 ∈ 𝐵 → ( 1 · 𝑥) = 𝑥)) |
70 | 69 | imp 407 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 1 · 𝑥) = 𝑥) |
71 | 70 | adantrr 714 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) → ( 1 · 𝑥) = 𝑥) |
72 | 20, 71 | sylan2b 594 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐵 ∖ { 0 })) → ( 1 · 𝑥) = 𝑥) |
73 | | isdrngd.i |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) → 𝐼 ∈ 𝐵) |
74 | | isdrngd.j |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) → 𝐼 ≠ 0 ) |
75 | | eldifsn 4720 |
. . . . . 6
⊢ (𝐼 ∈ (𝐵 ∖ { 0 }) ↔ (𝐼 ∈ 𝐵 ∧ 𝐼 ≠ 0 )) |
76 | 73, 74, 75 | sylanbrc 583 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) → 𝐼 ∈ (𝐵 ∖ { 0 })) |
77 | 20, 76 | sylan2b 594 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐵 ∖ { 0 })) → 𝐼 ∈ (𝐵 ∖ { 0 })) |
78 | | isdrngd.k |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≠ 0 )) → (𝐼 · 𝑥) = 1 ) |
79 | 20, 78 | sylan2b 594 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐵 ∖ { 0 })) → (𝐼 · 𝑥) = 1 ) |
80 | 10, 19, 38, 55, 63, 72, 77, 79 | isgrpd 18601 |
. . 3
⊢ (𝜑 → ((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })) ∈
Grp) |
81 | | isdrngd.z |
. . . . . . . 8
⊢ (𝜑 → 0 =
(0g‘𝑅)) |
82 | 81 | sneqd 4573 |
. . . . . . 7
⊢ (𝜑 → { 0 } =
{(0g‘𝑅)}) |
83 | 3, 82 | difeq12d 4058 |
. . . . . 6
⊢ (𝜑 → (𝐵 ∖ { 0 }) = ((Base‘𝑅) ∖
{(0g‘𝑅)})) |
84 | 83 | oveq2d 7291 |
. . . . 5
⊢ (𝜑 → ((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })) = ((mulGrp‘𝑅) ↾s
((Base‘𝑅) ∖
{(0g‘𝑅)}))) |
85 | 84 | eleq1d 2823 |
. . . 4
⊢ (𝜑 → (((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })) ∈ Grp ↔
((mulGrp‘𝑅)
↾s ((Base‘𝑅) ∖ {(0g‘𝑅)})) ∈
Grp)) |
86 | 85 | anbi2d 629 |
. . 3
⊢ (𝜑 → ((𝑅 ∈ Ring ∧ ((mulGrp‘𝑅) ↾s (𝐵 ∖ { 0 })) ∈ Grp) ↔
(𝑅 ∈ Ring ∧
((mulGrp‘𝑅)
↾s ((Base‘𝑅) ∖ {(0g‘𝑅)})) ∈
Grp))) |
87 | 1, 80, 86 | mpbi2and 709 |
. 2
⊢ (𝜑 → (𝑅 ∈ Ring ∧ ((mulGrp‘𝑅) ↾s
((Base‘𝑅) ∖
{(0g‘𝑅)}))
∈ Grp)) |
88 | | eqid 2738 |
. . 3
⊢
(0g‘𝑅) = (0g‘𝑅) |
89 | | eqid 2738 |
. . 3
⊢
((mulGrp‘𝑅)
↾s ((Base‘𝑅) ∖ {(0g‘𝑅)})) = ((mulGrp‘𝑅) ↾s
((Base‘𝑅) ∖
{(0g‘𝑅)})) |
90 | 7, 88, 89 | isdrng2 20001 |
. 2
⊢ (𝑅 ∈ DivRing ↔ (𝑅 ∈ Ring ∧
((mulGrp‘𝑅)
↾s ((Base‘𝑅) ∖ {(0g‘𝑅)})) ∈
Grp)) |
91 | 87, 90 | sylibr 233 |
1
⊢ (𝜑 → 𝑅 ∈ DivRing) |