apply forall_congr'
α : Type u_1
β : Type u_2
inst✝ : CompleteLattice β
f : α → β
s : Set α
b : β
⊢ (∀ (b_1 : β), (∀ (i : α), b_1 ≤ ⨅ (_ : i ∈ s), f i) → b_1 ≤ b) ↔ ∀ (b' : β), (∀ x ∈ s, b' ≤ f x) → b' ≤ b
case h
α : Type u_1
β : Type u_2
inst✝ : CompleteLattice β
f : α → β
s : Set α
b : β
⊢ ∀ (a : β), (∀ (i : α), a ≤ ⨅ (_ : i ∈ s), f i) → a ≤ b ↔ (∀ x ∈ s, a ≤ f x) → a ≤ b