Metamath Proof Explorer


Theorem dvrcan1

Description: A cancellation law for division. ( divcan1 analog.) (Contributed by Mario Carneiro, 2-Jul-2014) (Revised by Mario Carneiro, 2-Dec-2014)

Ref Expression
Hypotheses dvrass.b B = Base R
dvrass.o U = Unit R
dvrass.d × ˙ = / r R
dvrass.t · ˙ = R
Assertion dvrcan1 R Ring X B Y U X × ˙ Y · ˙ Y = X

Proof

Step Hyp Ref Expression
1 dvrass.b B = Base R
2 dvrass.o U = Unit R
3 dvrass.d × ˙ = / r R
4 dvrass.t · ˙ = R
5 eqid inv r R = inv r R
6 1 4 2 5 3 dvrval X B Y U X × ˙ Y = X · ˙ inv r R Y
7 6 3adant1 R Ring X B Y U X × ˙ Y = X · ˙ inv r R Y
8 7 oveq1d R Ring X B Y U X × ˙ Y · ˙ Y = X · ˙ inv r R Y · ˙ Y
9 simp1 R Ring X B Y U R Ring
10 simp2 R Ring X B Y U X B
11 2 5 1 ringinvcl R Ring Y U inv r R Y B
12 11 3adant2 R Ring X B Y U inv r R Y B
13 1 2 unitcl Y U Y B
14 13 3ad2ant3 R Ring X B Y U Y B
15 1 4 ringass R Ring X B inv r R Y B Y B X · ˙ inv r R Y · ˙ Y = X · ˙ inv r R Y · ˙ Y
16 9 10 12 14 15 syl13anc R Ring X B Y U X · ˙ inv r R Y · ˙ Y = X · ˙ inv r R Y · ˙ Y
17 eqid 1 R = 1 R
18 2 5 4 17 unitlinv R Ring Y U inv r R Y · ˙ Y = 1 R
19 18 3adant2 R Ring X B Y U inv r R Y · ˙ Y = 1 R
20 19 oveq2d R Ring X B Y U X · ˙ inv r R Y · ˙ Y = X · ˙ 1 R
21 1 4 17 ringridm R Ring X B X · ˙ 1 R = X
22 21 3adant3 R Ring X B Y U X · ˙ 1 R = X
23 20 22 eqtrd R Ring X B Y U X · ˙ inv r R Y · ˙ Y = X
24 16 23 eqtrd R Ring X B Y U X · ˙ inv r R Y · ˙ Y = X
25 8 24 eqtrd R Ring X B Y U X × ˙ Y · ˙ Y = X