no goals
α : Type u_1
β : Type ?u.88936
inst✝² : LE α
inst✝¹ : CommMonoid α
inst✝ : CovariantClass α α (fun x x_1 => x * x_1) fun x x_1 => x ≤ x_1
a b : α
ha : MulLECancellable a
⊢ b * a ≤ a ↔ b ≤ 1
rw [mul_comm, ha.mul_le_iff_le_one_right]