Proof of Theorem idomcanl
| Step | Hyp | Ref
| Expression |
| 1 | | isidom3.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
| 2 | | isidom3.t |
. . . . . 6
⊢ · =
(.r‘𝑅) |
| 3 | | eqid 2761 |
. . . . . 6
⊢
(-g‘𝑅) = (-g‘𝑅) |
| 4 | | isidom 20808 |
. . . . . . . 8
⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn)) |
| 5 | | crngring 20326 |
. . . . . . . . 9
⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring) |
| 6 | 5 | adantr 485 |
. . . . . . . 8
⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ Domn) → 𝑅 ∈ Ring) |
| 7 | 4, 6 | sylbi 220 |
. . . . . . 7
⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Ring) |
| 8 | 7 | adantr 485 |
. . . . . 6
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑅 ∈ Ring) |
| 9 | | simpr1 1211 |
. . . . . 6
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑋 ∈ 𝐵) |
| 10 | | simpr2 1212 |
. . . . . 6
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ 𝐵) |
| 11 | | simpr3 1213 |
. . . . . 6
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ 𝐵) |
| 12 | 1, 2, 3, 8, 9, 10,
11 | ringsubdi 20389 |
. . . . 5
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 · (𝑌(-g‘𝑅)𝑍)) = ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍))) |
| 13 | 12 | adantr 485 |
. . . 4
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → (𝑋 · (𝑌(-g‘𝑅)𝑍)) = ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍))) |
| 14 | 13 | eqeq1d 2763 |
. . 3
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 ↔ ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 )) |
| 15 | 7 | ringgrpd 20323 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Grp) |
| 16 | 1, 3 | grpsubcl 19085 |
. . . . . . . . . . . 12
⊢ ((𝑅 ∈ Grp ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝑌(-g‘𝑅)𝑍) ∈ 𝐵) |
| 17 | 16 | 3expb 1136 |
. . . . . . . . . . 11
⊢ ((𝑅 ∈ Grp ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌(-g‘𝑅)𝑍) ∈ 𝐵) |
| 18 | 15, 17 | sylan 591 |
. . . . . . . . . 10
⊢ ((𝑅 ∈ IDomn ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌(-g‘𝑅)𝑍) ∈ 𝐵) |
| 19 | 18 | adantlr 727 |
. . . . . . . . 9
⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵) ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌(-g‘𝑅)𝑍) ∈ 𝐵) |
| 20 | | isidom3.0 |
. . . . . . . . . . . 12
⊢ 0 =
(0g‘𝑅) |
| 21 | 1, 2, 20 | idomnzd 49056 |
. . . . . . . . . . 11
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ (𝑌(-g‘𝑅)𝑍) ∈ 𝐵 ∧ (𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 )) → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 22 | 21 | 3exp2 1371 |
. . . . . . . . . 10
⊢ (𝑅 ∈ IDomn → (𝑋 ∈ 𝐵 → ((𝑌(-g‘𝑅)𝑍) ∈ 𝐵 → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 ))))) |
| 23 | 22 | imp31 422 |
. . . . . . . . 9
⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵) ∧ (𝑌(-g‘𝑅)𝑍) ∈ 𝐵) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 ))) |
| 24 | 19, 23 | syldan 602 |
. . . . . . . 8
⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵) ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 ))) |
| 25 | 24 | exp43 441 |
. . . . . . 7
⊢ (𝑅 ∈ IDomn → (𝑋 ∈ 𝐵 → (𝑌 ∈ 𝐵 → (𝑍 ∈ 𝐵 → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 )))))) |
| 26 | 25 | 3imp2 1366 |
. . . . . 6
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 ))) |
| 27 | | neor 3048 |
. . . . . 6
⊢ ((𝑋 = 0 ∨ (𝑌(-g‘𝑅)𝑍) = 0 ) ↔ (𝑋 ≠ 0 → (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 28 | 26, 27 | imbitrdi 254 |
. . . . 5
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑋 ≠ 0 → (𝑌(-g‘𝑅)𝑍) = 0 ))) |
| 29 | 28 | com23 87 |
. . . 4
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 ≠ 0 → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑌(-g‘𝑅)𝑍) = 0 ))) |
| 30 | 29 | imp 411 |
. . 3
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → ((𝑋 · (𝑌(-g‘𝑅)𝑍)) = 0 → (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 31 | 14, 30 | sylbird 263 |
. 2
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → (((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 → (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 32 | 15 | adantr 485 |
. . . 4
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑅 ∈ Grp) |
| 33 | 1, 2, 8, 9, 10 | ringcld 20341 |
. . . 4
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 · 𝑌) ∈ 𝐵) |
| 34 | 1, 2, 8, 9, 11 | ringcld 20341 |
. . . 4
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑋 · 𝑍) ∈ 𝐵) |
| 35 | 1, 20, 3 | grpsubeq0 19091 |
. . . . 5
⊢ ((𝑅 ∈ Grp ∧ (𝑋 · 𝑌) ∈ 𝐵 ∧ (𝑋 · 𝑍) ∈ 𝐵) → (((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 ↔ (𝑋 · 𝑌) = (𝑋 · 𝑍))) |
| 36 | 35 | bicomd 226 |
. . . 4
⊢ ((𝑅 ∈ Grp ∧ (𝑋 · 𝑌) ∈ 𝐵 ∧ (𝑋 · 𝑍) ∈ 𝐵) → ((𝑋 · 𝑌) = (𝑋 · 𝑍) ↔ ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 )) |
| 37 | 32, 33, 34, 36 | syl3anc 1396 |
. . 3
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · 𝑌) = (𝑋 · 𝑍) ↔ ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 )) |
| 38 | 37 | adantr 485 |
. 2
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → ((𝑋 · 𝑌) = (𝑋 · 𝑍) ↔ ((𝑋 · 𝑌)(-g‘𝑅)(𝑋 · 𝑍)) = 0 )) |
| 39 | 1, 20, 3 | grpsubeq0 19091 |
. . . . . . 7
⊢ ((𝑅 ∈ Grp ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((𝑌(-g‘𝑅)𝑍) = 0 ↔ 𝑌 = 𝑍)) |
| 40 | 39 | bicomd 226 |
. . . . . 6
⊢ ((𝑅 ∈ Grp ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝑌 = 𝑍 ↔ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 41 | 40 | 3expb 1136 |
. . . . 5
⊢ ((𝑅 ∈ Grp ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌 = 𝑍 ↔ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 42 | 15, 41 | sylan 591 |
. . . 4
⊢ ((𝑅 ∈ IDomn ∧ (𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌 = 𝑍 ↔ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 43 | 42 | 3adantr1 1186 |
. . 3
⊢ ((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (𝑌 = 𝑍 ↔ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 44 | 43 | adantr 485 |
. 2
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → (𝑌 = 𝑍 ↔ (𝑌(-g‘𝑅)𝑍) = 0 )) |
| 45 | 31, 38, 44 | 3imtr4d 297 |
1
⊢ (((𝑅 ∈ IDomn ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ 𝑋 ≠ 0 ) → ((𝑋 · 𝑌) = (𝑋 · 𝑍) → 𝑌 = 𝑍)) |