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 ˙