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