Metamath Proof Explorer


Theorem isdrng3lem1

Description: Lemma for isdrng3 (for the left to right implication). Formerly part of proof for isdrng3 . (Contributed by Jeff Madsen, 8-Jun-2010) (Revised by AV, 22-Jul-2026)

Ref Expression
Hypotheses isdrng3.b ⊢ B = Base R
isdrng3.0 ⊢ 0 ˙ = 0 R
isdrng3.1 ⊢ 1 ˙ = 1 R
isdrng3.t ⊢ · ˙ = ⋅ R
Assertion isdrng3lem1 ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → ∀ x ∈ B ∖ 0 ˙ ∃ y ∈ B ∖ 0 ˙ y · ˙ x = 1 ˙

Proof

Step Hyp Ref Expression
1 isdrng3.b ⊢ B = Base R
2 isdrng3.0 ⊢ 0 ˙ = 0 R
3 isdrng3.1 ⊢ 1 ˙ = 1 R
4 isdrng3.t ⊢ · ˙ = ⋅ R
5 1 isdrng3lem0 ⊢ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ = B ∖ 0 ˙
6 5 eqcomi ⊢ B ∖ 0 ˙ = Base mulGrp R ↾ 𝑠 B ∖ 0 ˙
7 6 eleq2i ⊢ x ∈ B ∖ 0 ˙ ↔ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙
8 oveq1 ⊢ y = inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x → y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x
9 8 eqeq1d ⊢ y = inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x → y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙ ↔ inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙
10 eqid ⊢ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ = Base mulGrp R ↾ 𝑠 B ∖ 0 ˙
11 eqid ⊢ inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ = inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙
12 10 11 grpinvcl ⊢ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙
13 12 adantll ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙
14 eqid ⊢ + mulGrp R ↾ 𝑠 B ∖ 0 ˙ = + mulGrp R ↾ 𝑠 B ∖ 0 ˙
15 eqid ⊢ 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙ = 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙
16 10 14 15 11 grplinv ⊢ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙
17 16 adantll ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙
18 eqid ⊢ mulGrp R = mulGrp R
19 18 ringmgp ⊢ R ∈ Ring → mulGrp R ∈ Mnd
20 19 adantr ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → mulGrp R ∈ Mnd
21 1 3 ringidcl ⊢ R ∈ Ring → 1 ˙ ∈ B
22 21 adantr ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → 1 ˙ ∈ B
23 eqid ⊢ mulGrp R ↾ 𝑠 B ∖ 0 ˙ = mulGrp R ↾ 𝑠 B ∖ 0 ˙
24 1 2 23 isdrng2 ⊢ R ∈ DivRing ↔ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp
25 2 3 drngunz ⊢ R ∈ DivRing → 1 ˙ ≠ 0 ˙
26 24 25 sylbir ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → 1 ˙ ≠ 0 ˙
27 22 26 eldifsnd ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → 1 ˙ ∈ B ∖ 0 ˙
28 difssd ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → B ∖ 0 ˙ ⊆ B
29 18 1 mgpbas ⊢ B = Base mulGrp R
30 18 3 ringidval ⊢ 1 ˙ = 0 mulGrp R
31 23 29 30 ress0g ⊢ mulGrp R ∈ Mnd ∧ 1 ˙ ∈ B ∖ 0 ˙ ∧ B ∖ 0 ˙ ⊆ B → 1 ˙ = 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙
32 31 eqcomd ⊢ mulGrp R ∈ Mnd ∧ 1 ˙ ∈ B ∖ 0 ˙ ∧ B ∖ 0 ˙ ⊆ B → 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙ = 1 ˙
33 20 27 28 32 syl3anc ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙ = 1 ˙
34 33 adantr ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → 0 mulGrp R ↾ 𝑠 B ∖ 0 ˙ = 1 ˙
35 17 34 eqtrd ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → inv g ⁡ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ⁡ x + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙
36 9 13 35 rspcedvdw ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ → ∃ y ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙
37 7 36 sylan2b ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ B ∖ 0 ˙ → ∃ y ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙
38 5 a1i ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ B ∖ 0 ˙ → Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ = B ∖ 0 ˙
39 38 rexeqdv ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ B ∖ 0 ˙ → ∃ y ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙ ↔ ∃ y ∈ B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙
40 18 4 mgpplusg ⊢ · ˙ = + mulGrp R
41 1 fvexi ⊢ B ∈ V
42 41 difexi ⊢ B ∖ 0 ˙ ∈ V
43 eqid ⊢ + mulGrp R = + mulGrp R
44 23 43 ressplusg ⊢ B ∖ 0 ˙ ∈ V → + mulGrp R = + mulGrp R ↾ 𝑠 B ∖ 0 ˙
45 42 44 ax-mp ⊢ + mulGrp R = + mulGrp R ↾ 𝑠 B ∖ 0 ˙
46 40 45 eqtr2i ⊢ + mulGrp R ↾ 𝑠 B ∖ 0 ˙ = · ˙
47 46 oveqi ⊢ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = y · ˙ x
48 47 eqeq1i ⊢ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙ ↔ y · ˙ x = 1 ˙
49 48 rexbii ⊢ ∃ y ∈ B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙ ↔ ∃ y ∈ B ∖ 0 ˙ y · ˙ x = 1 ˙
50 39 49 bitrdi ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ B ∖ 0 ˙ → ∃ y ∈ Base mulGrp R ↾ 𝑠 B ∖ 0 ˙ y + mulGrp R ↾ 𝑠 B ∖ 0 ˙ x = 1 ˙ ↔ ∃ y ∈ B ∖ 0 ˙ y · ˙ x = 1 ˙
51 37 50 mpbid ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp ∧ x ∈ B ∖ 0 ˙ → ∃ y ∈ B ∖ 0 ˙ y · ˙ x = 1 ˙
52 51 ralrimiva ⊢ R ∈ Ring ∧ mulGrp R ↾ 𝑠 B ∖ 0 ˙ ∈ Grp → ∀ x ∈ B ∖ 0 ˙ ∃ y ∈ B ∖ 0 ˙ y · ˙ x = 1 ˙