no goals
R : Type u_1
M : Type u_2
M₂ : Type ?u.100895
M₃ : Type ?u.100898
inst✝⁶ : Ring R
inst✝⁵ : AddCommGroup M
inst✝⁴ : AddCommGroup M₂
inst✝³ : AddCommGroup M₃
inst✝² : Module R M
inst✝¹ : Module R M₂
inst✝ : Module R M₃
f : M →ₗ[R] M₂
p p' : Submodule R M
x : { x // x ∈ p ⊔ p' }
hx : ↑x ∈ p
⊢ Submodule.Quotient.mk x = ↑(quotientInfEquivSupQuotient p p') (Submodule.Quotient.mk { val := ↑x, property := hx })
rw [quotientInfEquivSupQuotient_apply_mk, ofLe_apply]