no goals
R : Type u
ι : Type ?u.240143
inst✝¹ : CommSemiring R
I J K L : Ideal R
inst✝ : IsDomain R
x : R
hx : x ≠ 0
⊢ span {x} * I = span {x} * J ↔ I = J
simp only [le_antisymm_iff, span_singleton_mul_right_mono hx]