| Step | Hyp | Ref
| Expression |
| 1 | | lringnzr 20514 |
. . 3
⊢ (𝑅 ∈ LRing → 𝑅 ∈ NzRing) |
| 2 | | dflring2.1 |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
| 3 | 2 | a1i 11 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝐵 = (Base‘𝑅)) |
| 4 | | dflring2.2 |
. . . . . 6
⊢ 𝑈 = (Unit‘𝑅) |
| 5 | 4 | a1i 11 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝑈 = (Unit‘𝑅)) |
| 6 | | eqidd 2740 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → (+g‘𝑅) = (+g‘𝑅)) |
| 7 | | simpl 483 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝑅 ∈ LRing) |
| 8 | | lringring 20515 |
. . . . . . . . 9
⊢ (𝑅 ∈ LRing → 𝑅 ∈ Ring) |
| 9 | 8 | ringabld 20256 |
. . . . . . . 8
⊢ (𝑅 ∈ LRing → 𝑅 ∈ Abel) |
| 10 | 9 | adantr 481 |
. . . . . . 7
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝑅 ∈ Abel) |
| 11 | | simpr 485 |
. . . . . . 7
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝑥 ∈ 𝐵) |
| 12 | | dflring2.3 |
. . . . . . . . 9
⊢ 1 =
(1r‘𝑅) |
| 13 | 2, 12, 8 | ringidcld 20239 |
. . . . . . . 8
⊢ (𝑅 ∈ LRing → 1 ∈ 𝐵) |
| 14 | 13 | adantr 481 |
. . . . . . 7
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 1 ∈ 𝐵) |
| 15 | | eqid 2739 |
. . . . . . . 8
⊢
(+g‘𝑅) = (+g‘𝑅) |
| 16 | | dflring2.4 |
. . . . . . . 8
⊢ − =
(-g‘𝑅) |
| 17 | 2, 15, 16 | ablpncan3 19783 |
. . . . . . 7
⊢ ((𝑅 ∈ Abel ∧ (𝑥 ∈ 𝐵 ∧ 1 ∈ 𝐵)) → (𝑥(+g‘𝑅)( 1 − 𝑥)) = 1 ) |
| 18 | 10, 11, 14, 17 | syl12anc 842 |
. . . . . 6
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → (𝑥(+g‘𝑅)( 1 − 𝑥)) = 1 ) |
| 19 | 4, 12 | 1unit 20346 |
. . . . . . . 8
⊢ (𝑅 ∈ Ring → 1 ∈ 𝑈) |
| 20 | 8, 19 | syl 17 |
. . . . . . 7
⊢ (𝑅 ∈ LRing → 1 ∈ 𝑈) |
| 21 | 20 | adantr 481 |
. . . . . 6
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 1 ∈ 𝑈) |
| 22 | 18, 21 | eqeltrd 2839 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → (𝑥(+g‘𝑅)( 1 − 𝑥)) ∈ 𝑈) |
| 23 | 8 | ringgrpd 20215 |
. . . . . . 7
⊢ (𝑅 ∈ LRing → 𝑅 ∈ Grp) |
| 24 | 23 | adantr 481 |
. . . . . 6
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → 𝑅 ∈ Grp) |
| 25 | 2, 16, 24, 14, 11 | grpsubcld 33122 |
. . . . 5
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → ( 1 − 𝑥) ∈ 𝐵) |
| 26 | 3, 5, 6, 7, 22, 11, 25 | lringuplu 20517 |
. . . 4
⊢ ((𝑅 ∈ LRing ∧ 𝑥 ∈ 𝐵) → (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) |
| 27 | 26 | ralrimiva 3131 |
. . 3
⊢ (𝑅 ∈ LRing →
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) |
| 28 | 1, 27 | jca 516 |
. 2
⊢ (𝑅 ∈ LRing → (𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈))) |
| 29 | | simpl 483 |
. . 3
⊢ ((𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) → 𝑅 ∈ NzRing) |
| 30 | | simpr 485 |
. . . . . . . . 9
⊢
((((((𝑅 ∈
NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) ∧ 𝑥 ∈ 𝑈) → 𝑥 ∈ 𝑈) |
| 31 | | nzrring 20489 |
. . . . . . . . . . . . . . 15
⊢ (𝑅 ∈ NzRing → 𝑅 ∈ Ring) |
| 32 | 31 | ringgrpd 20215 |
. . . . . . . . . . . . . 14
⊢ (𝑅 ∈ NzRing → 𝑅 ∈ Grp) |
| 33 | 32 | ad4antr 738 |
. . . . . . . . . . . . 13
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 𝑅 ∈ Grp) |
| 34 | 2, 12, 31 | ringidcld 20239 |
. . . . . . . . . . . . . . 15
⊢ (𝑅 ∈ NzRing → 1 ∈ 𝐵) |
| 35 | 34 | ad4antr 738 |
. . . . . . . . . . . . . 14
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 1 ∈ 𝐵) |
| 36 | | simp-4r 789 |
. . . . . . . . . . . . . 14
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 𝑥 ∈ 𝐵) |
| 37 | | simplr 774 |
. . . . . . . . . . . . . 14
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 𝑦 ∈ 𝐵) |
| 38 | 35, 36, 37 | 3jca 1134 |
. . . . . . . . . . . . 13
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → ( 1 ∈ 𝐵 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) |
| 39 | 31 | ringabld 20256 |
. . . . . . . . . . . . . . . 16
⊢ (𝑅 ∈ NzRing → 𝑅 ∈ Abel) |
| 40 | 39 | ad4antr 738 |
. . . . . . . . . . . . . . 15
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 𝑅 ∈ Abel) |
| 41 | 2, 15, 40, 37, 36 | ablcomd 33127 |
. . . . . . . . . . . . . 14
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → (𝑦(+g‘𝑅)𝑥) = (𝑥(+g‘𝑅)𝑦)) |
| 42 | | simpr 485 |
. . . . . . . . . . . . . 14
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → (𝑥(+g‘𝑅)𝑦) = 1 ) |
| 43 | 41, 42 | eqtrd 2774 |
. . . . . . . . . . . . 13
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → (𝑦(+g‘𝑅)𝑥) = 1 ) |
| 44 | 2, 15, 16 | grpsubadd 18996 |
. . . . . . . . . . . . . 14
⊢ ((𝑅 ∈ Grp ∧ ( 1 ∈ 𝐵 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (( 1 − 𝑥) = 𝑦 ↔ (𝑦(+g‘𝑅)𝑥) = 1 )) |
| 45 | 44 | biimpar 478 |
. . . . . . . . . . . . 13
⊢ (((𝑅 ∈ Grp ∧ ( 1 ∈ 𝐵 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ (𝑦(+g‘𝑅)𝑥) = 1 ) → ( 1 − 𝑥) = 𝑦) |
| 46 | 33, 38, 43, 45 | syl21anc 843 |
. . . . . . . . . . . 12
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → ( 1 − 𝑥) = 𝑦) |
| 47 | 46 | eqcomd 2745 |
. . . . . . . . . . 11
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → 𝑦 = ( 1 − 𝑥)) |
| 48 | 47 | adantr 481 |
. . . . . . . . . 10
⊢
((((((𝑅 ∈
NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) ∧ ( 1 − 𝑥) ∈ 𝑈) → 𝑦 = ( 1 − 𝑥)) |
| 49 | | simpr 485 |
. . . . . . . . . 10
⊢
((((((𝑅 ∈
NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) ∧ ( 1 − 𝑥) ∈ 𝑈) → ( 1 − 𝑥) ∈ 𝑈) |
| 50 | 48, 49 | eqeltrd 2839 |
. . . . . . . . 9
⊢
((((((𝑅 ∈
NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) ∧ ( 1 − 𝑥) ∈ 𝑈) → 𝑦 ∈ 𝑈) |
| 51 | | simpllr 781 |
. . . . . . . . 9
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) |
| 52 | 30, 50, 51 | orim12da 32546 |
. . . . . . . 8
⊢
(((((𝑅 ∈ NzRing
∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) ∧ (𝑥(+g‘𝑅)𝑦) = 1 ) → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈)) |
| 53 | 52 | ex 413 |
. . . . . . 7
⊢ ((((𝑅 ∈ NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) ∧ 𝑦 ∈ 𝐵) → ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈))) |
| 54 | 53 | ralrimiva 3131 |
. . . . . 6
⊢ (((𝑅 ∈ NzRing ∧ 𝑥 ∈ 𝐵) ∧ (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) → ∀𝑦 ∈ 𝐵 ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈))) |
| 55 | 54 | ex 413 |
. . . . 5
⊢ ((𝑅 ∈ NzRing ∧ 𝑥 ∈ 𝐵) → ((𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈) → ∀𝑦 ∈ 𝐵 ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈)))) |
| 56 | 55 | ralimdva 3151 |
. . . 4
⊢ (𝑅 ∈ NzRing →
(∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈)))) |
| 57 | 56 | imp 407 |
. . 3
⊢ ((𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈))) |
| 58 | 2, 15, 12, 4 | islring 20513 |
. . 3
⊢ (𝑅 ∈ LRing ↔ (𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥(+g‘𝑅)𝑦) = 1 → (𝑥 ∈ 𝑈 ∨ 𝑦 ∈ 𝑈)))) |
| 59 | 29, 57, 58 | sylanbrc 589 |
. 2
⊢ ((𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈)) → 𝑅 ∈ LRing) |
| 60 | 28, 59 | impbii 210 |
1
⊢ (𝑅 ∈ LRing ↔ (𝑅 ∈ NzRing ∧
∀𝑥 ∈ 𝐵 (𝑥 ∈ 𝑈 ∨ ( 1 − 𝑥) ∈ 𝑈))) |