Theorem: RingQuot.Rel.star
File: Mathlib/Algebra/RingQuot.lean

tactic: induction h with
| of h          => exact Rel.of (hr _ _ h)
| add_left _ h  => rw [star_add, star_add]
                   exact Rel.add_left h
| mul_left _ h  => rw [star_mul, star_mul]
                   exact Rel.mul_right h
| mul_right _ h => rw [star_mul, star_mul]
                   exact Rel.mul_left h
state_before: R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b : R
h : Rel r a b
⊢ Rel r (Star.star a) (Star.star b)

tactic: exact Rel.of (hr _ _ h)
state_before: case of
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b x✝ y✝ : R
h : r x✝ y✝
⊢ Rel r (Star.star x✝) (Star.star y✝)

tactic: rw [star_add, star_add]
state_before: case add_left
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r a✝¹ b✝
h : Rel r (Star.star a✝¹) (Star.star b✝)
⊢ Rel r (Star.star (a✝¹ + c✝)) (Star.star (b✝ + c✝))

tactic: exact Rel.add_left h
state_before: case add_left
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r a✝¹ b✝
h : Rel r (Star.star a✝¹) (Star.star b✝)
⊢ Rel r (Star.star a✝¹ + Star.star c✝) (Star.star b✝ + Star.star c✝)

tactic: rw [star_mul, star_mul]
state_before: case mul_left
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r a✝¹ b✝
h : Rel r (Star.star a✝¹) (Star.star b✝)
⊢ Rel r (Star.star (a✝¹ * c✝)) (Star.star (b✝ * c✝))

tactic: exact Rel.mul_right h
state_before: case mul_left
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r a✝¹ b✝
h : Rel r (Star.star a✝¹) (Star.star b✝)
⊢ Rel r (Star.star c✝ * Star.star a✝¹) (Star.star c✝ * Star.star b✝)

tactic: rw [star_mul, star_mul]
state_before: case mul_right
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r b✝ c✝
h : Rel r (Star.star b✝) (Star.star c✝)
⊢ Rel r (Star.star (a✝¹ * b✝)) (Star.star (a✝¹ * c✝))

tactic: exact Rel.mul_left h
state_before: case mul_right
R : Type u₁
inst✝⁵ : Semiring R
S : Type u₂
inst✝⁴ : CommSemiring S
A : Type u₃
inst✝³ : Semiring A
inst✝² : Algebra S A
r : R → R → Prop
T : Type u₄
inst✝¹ : Semiring T
inst✝ : StarRing R
hr : ∀ (a b : R), r a b → r (Star.star a) (Star.star b)
a b a✝¹ b✝ c✝ : R
a✝ : Rel r b✝ c✝
h : Rel r (Star.star b✝) (Star.star c✝)
⊢ Rel r (Star.star b✝ * Star.star a✝¹) (Star.star c✝ * Star.star a✝¹)