α : Type u_1
β : Type ?u.10362
r : Setoid α
⊢ sInf {s | ∀ ⦃x y : α⦄, Setoid.r x y → Rel s x y} ≤ r
α : Type u_1
β : Type ?u.10362
r : Setoid α
⊢ EqvGen.Setoid Setoid.r ≤ r
rw [eqvGen_eq]
no goals
α : Type u_1
β : Type ?u.10362
r : Setoid α
⊢ sInf {s | ∀ ⦃x y : α⦄, Setoid.r x y → Rel s x y} ≤ r
exact sInf_le fun _ _ => id