case intro.mk
R : Type u_2
inst✝² : LinearOrderedCommRing R
M : Type u_1
inst✝¹ : AddCommGroup M
inst✝ : Module R M
v₂ : M
r : Rˣ
hr : 0 < ↑r
⊢ SameRay R (r • v₂) v₂
R : Type u_2
inst✝² : LinearOrderedCommRing R
M : Type u_1
inst✝¹ : AddCommGroup M
inst✝ : Module R M
v₁ v₂ : M
h : v₁ ∈ MulAction.orbit { x // x ∈ Units.posSubgroup R } v₂
⊢ SameRay R v₁ v₂
rcases h with ⟨⟨r, hr : 0 < r.1⟩, rfl : r • v₂ = v₁⟩
no goals
case intro.mk
R : Type u_2
inst✝² : LinearOrderedCommRing R
M : Type u_1
inst✝¹ : AddCommGroup M
inst✝ : Module R M
v₂ : M
r : Rˣ
hr : 0 < ↑r
⊢ SameRay R (r • v₂) v₂
exact SameRay.sameRay_pos_smul_left _ hr