Proof of Theorem ringid
| Step | Hyp | Ref
| Expression |
| 1 | | opreq1 3974 |
. . . . . . 7
⊢ (y = A →
(yHx) = (AHx)) |
| 2 | | id 59 |
. . . . . . 7
⊢ (y = A →
y = A) |
| 3 | 1, 2 | eqeq12d 1492 |
. . . . . 6
⊢ (y = A →
((yHx) = y ↔ (AHx) = A)) |
| 4 | | opreq2 3975 |
. . . . . . 7
⊢ (y = A →
(xHy) = (xHA)) |
| 5 | 4, 2 | eqeq12d 1492 |
. . . . . 6
⊢ (y = A →
((xHy) = y ↔ (xHA) = A)) |
| 6 | 3, 5 | anbi12d 630 |
. . . . 5
⊢ (y = A →
(((yHx) = y ⋀ (xHy) = y) ↔
((AHx) = A ⋀ (xHA) = A))) |
| 7 | 6 | rexbidv 1667 |
. . . 4
⊢ (y = A →
(∃x
∈ X
((yHx) = y ⋀ (xHy) = y) ↔
∃x ∈ X ((AHx) = A ⋀ (xHA) = A))) |
| 8 | 7 | imbi2d 614 |
. . 3
⊢ (y = A →
((R ∈
Ring → ∃x ∈ X ((yHx) = y ⋀ (xHy) = y)) ↔
(R ∈ Ring
→ ∃x ∈ X ((AHx) = A ⋀ (xHA) = A)))) |
| 9 | | ringid.1 |
. . . . . . . 8
⊢ G = (1st ‘R) |
| 10 | | ringid.2 |
. . . . . . . 8
⊢ H = (2nd ‘R) |
| 11 | | ringid.3 |
. . . . . . . 8
⊢ X = ran G |
| 12 | 9, 10, 11 | ringi 8138 |
. . . . . . 7
⊢ (R ∈ Ring →
((G ∈
Abel ⋀ H:(X ×
X)–→X) ⋀ (∀x ∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) ⋀ ∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y)))) |
| 13 | 12 | pm3.27d 325 |
. . . . . 6
⊢ (R ∈ Ring →
(∀x
∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) ⋀ ∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y))) |
| 14 | 13 | pm3.27d 325 |
. . . . 5
⊢ (R ∈ Ring →
∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y)) |
| 15 | | r19.12 1743 |
. . . . 5
⊢ (∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y) → ∀y ∈ X ∃x ∈ X ((yHx) = y ⋀ (xHy) = y)) |
| 16 | | ra4 1697 |
. . . . 5
⊢ (∀y ∈ X ∃x ∈ X ((yHx) = y ⋀ (xHy) = y) → (y
∈ X
→ ∃x ∈ X ((yHx) = y ⋀ (xHy) = y))) |
| 17 | 14, 15, 16 | 3syl 20 |
. . . 4
⊢ (R ∈ Ring →
(y ∈
X → ∃x ∈ X ((yHx) = y ⋀ (xHy) = y))) |
| 18 | 17 | com12 11 |
. . 3
⊢ (y ∈ X → (R
∈ Ring → ∃x ∈ X ((yHx) = y ⋀ (xHy) = y))) |
| 19 | 8, 18 | vtoclga 1855 |
. 2
⊢ (A ∈ X → (R
∈ Ring → ∃x ∈ X ((AHx) = A ⋀ (xHA) = A))) |
| 20 | 19 | impcom 351 |
1
⊢ ((R ∈ Ring ⋀ A ∈ X) →
∃x ∈ X ((AHx) = A ⋀ (xHA) = A)) |