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