Metamath Proof Explorer


Theorem subrguss

Description: A unit of a subring is a unit of the parent ring. (Contributed by Mario Carneiro, 4-Dec-2014)

Ref Expression
Hypotheses subrguss.1 S = R 𝑠 A
subrguss.2 U = Unit R
subrguss.3 V = Unit S
Assertion subrguss A SubRing R V U

Proof

Step Hyp Ref Expression
1 subrguss.1 S = R 𝑠 A
2 subrguss.2 U = Unit R
3 subrguss.3 V = Unit S
4 eqid 1 S = 1 S
5 eqid r S = r S
6 eqid opp r S = opp r S
7 eqid r opp r S = r opp r S
8 3 4 5 6 7 isunit x V x r S 1 S x r opp r S 1 S
9 8 bilani A SubRing R x V x r S 1 S x r opp r S 1 S
10 9 simpld A SubRing R x V x r S 1 S
11 eqid 1 R = 1 R
12 1 11 subrg1 A SubRing R 1 R = 1 S
13 12 adantr A SubRing R x V 1 R = 1 S
14 10 13 breqtrrd A SubRing R x V x r S 1 R
15 eqid r R = r R
16 1 15 5 subrgdvds A SubRing R r S r R
17 16 adantr A SubRing R x V r S r R
18 17 ssbrd A SubRing R x V x r S 1 R x r R 1 R
19 14 18 mpd A SubRing R x V x r R 1 R
20 1 subrgbas A SubRing R A = Base S
21 20 adantr A SubRing R x V A = Base S
22 eqid Base R = Base R
23 22 subrgss A SubRing R A Base R
24 23 adantr A SubRing R x V A Base R
25 21 24 eqsstrrd A SubRing R x V Base S Base R
26 eqid Base S = Base S
27 26 3 unitcl x V x Base S
28 27 adantl A SubRing R x V x Base S
29 25 28 sseldd A SubRing R x V x Base R
30 1 subrgring A SubRing R S Ring
31 eqid inv r S = inv r S
32 3 31 26 ringinvcl S Ring x V inv r S x Base S
33 30 32 sylan A SubRing R x V inv r S x Base S
34 25 33 sseldd A SubRing R x V inv r S x Base R
35 eqid opp r R = opp r R
36 35 22 opprbas Base R = Base opp r R
37 eqid r opp r R = r opp r R
38 eqid opp r R = opp r R
39 36 37 38 dvdsrmul x Base R inv r S x Base R x r opp r R inv r S x opp r R x
40 29 34 39 syl2anc A SubRing R x V x r opp r R inv r S x opp r R x
41 eqid R = R
42 22 41 35 38 opprmul inv r S x opp r R x = x R inv r S x
43 eqid S = S
44 3 31 43 4 unitrinv S Ring x V x S inv r S x = 1 S
45 30 44 sylan A SubRing R x V x S inv r S x = 1 S
46 1 41 ressmulr A SubRing R R = S
47 46 adantr A SubRing R x V R = S
48 47 oveqd A SubRing R x V x R inv r S x = x S inv r S x
49 45 48 13 3eqtr4d A SubRing R x V x R inv r S x = 1 R
50 42 49 eqtrid A SubRing R x V inv r S x opp r R x = 1 R
51 40 50 breqtrd A SubRing R x V x r opp r R 1 R
52 2 11 15 35 37 isunit x U x r R 1 R x r opp r R 1 R
53 19 51 52 sylanbrc A SubRing R x V x U
54 53 ex A SubRing R x V x U
55 54 ssrdv A SubRing R V U