Step | Hyp | Ref
| Expression |
1 | | fveq2 5527 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (mulGrp‘𝑟) = (mulGrp‘𝑅)) |
2 | | isrng.g |
. . . . . 6
⊢ 𝐺 = (mulGrp‘𝑅) |
3 | 1, 2 | eqtr4di 2238 |
. . . . 5
⊢ (𝑟 = 𝑅 → (mulGrp‘𝑟) = 𝐺) |
4 | 3 | eleq1d 2256 |
. . . 4
⊢ (𝑟 = 𝑅 → ((mulGrp‘𝑟) ∈ Smgrp ↔ 𝐺 ∈ Smgrp)) |
5 | | basfn 12534 |
. . . . . . 7
⊢ Base Fn
V |
6 | | vex 2752 |
. . . . . . 7
⊢ 𝑟 ∈ V |
7 | | funfvex 5544 |
. . . . . . . 8
⊢ ((Fun
Base ∧ 𝑟 ∈ dom
Base) → (Base‘𝑟)
∈ V) |
8 | 7 | funfni 5328 |
. . . . . . 7
⊢ ((Base Fn
V ∧ 𝑟 ∈ V) →
(Base‘𝑟) ∈
V) |
9 | 5, 6, 8 | mp2an 426 |
. . . . . 6
⊢
(Base‘𝑟)
∈ V |
10 | 9 | a1i 9 |
. . . . 5
⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V) |
11 | | fveq2 5527 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅)) |
12 | | isrng.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
13 | 11, 12 | eqtr4di 2238 |
. . . . 5
⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵) |
14 | | plusgslid 12586 |
. . . . . . . . 9
⊢
(+g = Slot (+g‘ndx) ∧
(+g‘ndx) ∈ ℕ) |
15 | 14 | slotex 12503 |
. . . . . . . 8
⊢ (𝑟 ∈ V →
(+g‘𝑟)
∈ V) |
16 | 15 | elv 2753 |
. . . . . . 7
⊢
(+g‘𝑟) ∈ V |
17 | 16 | a1i 9 |
. . . . . 6
⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (+g‘𝑟) ∈ V) |
18 | | fveq2 5527 |
. . . . . . . 8
⊢ (𝑟 = 𝑅 → (+g‘𝑟) = (+g‘𝑅)) |
19 | 18 | adantr 276 |
. . . . . . 7
⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (+g‘𝑟) = (+g‘𝑅)) |
20 | | isrng.p |
. . . . . . 7
⊢ + =
(+g‘𝑅) |
21 | 19, 20 | eqtr4di 2238 |
. . . . . 6
⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (+g‘𝑟) = + ) |
22 | | mulrslid 12605 |
. . . . . . . . . 10
⊢
(.r = Slot (.r‘ndx) ∧
(.r‘ndx) ∈ ℕ) |
23 | 22 | slotex 12503 |
. . . . . . . . 9
⊢ (𝑟 ∈ V →
(.r‘𝑟)
∈ V) |
24 | 23 | elv 2753 |
. . . . . . . 8
⊢
(.r‘𝑟) ∈ V |
25 | 24 | a1i 9 |
. . . . . . 7
⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) →
(.r‘𝑟)
∈ V) |
26 | | fveq2 5527 |
. . . . . . . . . 10
⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅)) |
27 | 26 | adantr 276 |
. . . . . . . . 9
⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (.r‘𝑟) = (.r‘𝑅)) |
28 | 27 | adantr 276 |
. . . . . . . 8
⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) →
(.r‘𝑟) =
(.r‘𝑅)) |
29 | | isrng.t |
. . . . . . . 8
⊢ · =
(.r‘𝑅) |
30 | 28, 29 | eqtr4di 2238 |
. . . . . . 7
⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) →
(.r‘𝑟) =
·
) |
31 | | simpllr 534 |
. . . . . . . 8
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 𝑏 = 𝐵) |
32 | | simpr 110 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 𝑡 = · ) |
33 | | eqidd 2188 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 𝑥 = 𝑥) |
34 | | oveq 5894 |
. . . . . . . . . . . . . 14
⊢ (𝑝 = + → (𝑦𝑝𝑧) = (𝑦 + 𝑧)) |
35 | 34 | ad2antlr 489 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑦𝑝𝑧) = (𝑦 + 𝑧)) |
36 | 32, 33, 35 | oveq123d 5909 |
. . . . . . . . . . . 12
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑥𝑡(𝑦𝑝𝑧)) = (𝑥 · (𝑦 + 𝑧))) |
37 | | simpr 110 |
. . . . . . . . . . . . . 14
⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) → 𝑝 = + ) |
38 | 37 | adantr 276 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 𝑝 = + ) |
39 | | oveq 5894 |
. . . . . . . . . . . . . 14
⊢ (𝑡 = · → (𝑥𝑡𝑦) = (𝑥 · 𝑦)) |
40 | 39 | adantl 277 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑥𝑡𝑦) = (𝑥 · 𝑦)) |
41 | | oveq 5894 |
. . . . . . . . . . . . . 14
⊢ (𝑡 = · → (𝑥𝑡𝑧) = (𝑥 · 𝑧)) |
42 | 41 | adantl 277 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑥𝑡𝑧) = (𝑥 · 𝑧)) |
43 | 38, 40, 42 | oveq123d 5909 |
. . . . . . . . . . . 12
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧))) |
44 | 36, 43 | eqeq12d 2202 |
. . . . . . . . . . 11
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ↔ (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))) |
45 | | oveq 5894 |
. . . . . . . . . . . . . 14
⊢ (𝑝 = + → (𝑥𝑝𝑦) = (𝑥 + 𝑦)) |
46 | 45 | ad2antlr 489 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑥𝑝𝑦) = (𝑥 + 𝑦)) |
47 | | eqidd 2188 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → 𝑧 = 𝑧) |
48 | 32, 46, 47 | oveq123d 5909 |
. . . . . . . . . . . 12
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥 + 𝑦) · 𝑧)) |
49 | | oveq 5894 |
. . . . . . . . . . . . . 14
⊢ (𝑡 = · → (𝑦𝑡𝑧) = (𝑦 · 𝑧)) |
50 | 49 | adantl 277 |
. . . . . . . . . . . . 13
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (𝑦𝑡𝑧) = (𝑦 · 𝑧)) |
51 | 38, 42, 50 | oveq123d 5909 |
. . . . . . . . . . . 12
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))) |
52 | 48, 51 | eqeq12d 2202 |
. . . . . . . . . . 11
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)) ↔ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))) |
53 | 44, 52 | anbi12d 473 |
. . . . . . . . . 10
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) → (((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
54 | 31, 53 | raleqbidv 2695 |
. . . . . . . . 9
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) →
(∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
55 | 31, 54 | raleqbidv 2695 |
. . . . . . . 8
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) →
(∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
56 | 31, 55 | raleqbidv 2695 |
. . . . . . 7
⊢ ((((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) ∧ 𝑡 = · ) →
(∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
57 | 25, 30, 56 | sbcied2 3012 |
. . . . . 6
⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑝 = + ) →
([(.r‘𝑟) / 𝑡]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
58 | 17, 21, 57 | sbcied2 3012 |
. . . . 5
⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → ([(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
59 | 10, 13, 58 | sbcied2 3012 |
. . . 4
⊢ (𝑟 = 𝑅 → ([(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |
60 | 4, 59 | anbi12d 473 |
. . 3
⊢ (𝑟 = 𝑅 → (((mulGrp‘𝑟) ∈ Smgrp ∧
[(Base‘𝑟) /
𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧)))) ↔ (𝐺 ∈ Smgrp ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))) |
61 | | df-rng 13242 |
. . 3
⊢ Rng =
{𝑟 ∈ Abel ∣
((mulGrp‘𝑟) ∈
Smgrp ∧ [(Base‘𝑟) / 𝑏][(+g‘𝑟) / 𝑝][(.r‘𝑟) / 𝑡]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ((𝑥𝑡(𝑦𝑝𝑧)) = ((𝑥𝑡𝑦)𝑝(𝑥𝑡𝑧)) ∧ ((𝑥𝑝𝑦)𝑡𝑧) = ((𝑥𝑡𝑧)𝑝(𝑦𝑡𝑧))))} |
62 | 60, 61 | elrab2 2908 |
. 2
⊢ (𝑅 ∈ Rng ↔ (𝑅 ∈ Abel ∧ (𝐺 ∈ Smgrp ∧
∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))) |
63 | | 3anass 983 |
. 2
⊢ ((𝑅 ∈ Abel ∧ 𝐺 ∈ Smgrp ∧
∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))) ↔ (𝑅 ∈ Abel ∧ (𝐺 ∈ Smgrp ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))))) |
64 | 62, 63 | bitr4i 187 |
1
⊢ (𝑅 ∈ Rng ↔ (𝑅 ∈ Abel ∧ 𝐺 ∈ Smgrp ∧
∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ((𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)) ∧ ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧))))) |