exact ⟨fun b hab ↦ hs hab hx, fun b hab ↦ ht (hab.trans_le sdiff_le) hy⟩
case intro.intro.intro.intro.intro
α : Type u_1
inst✝ : BooleanAlgebra α
s t u : Finset α
a : α
hs : IsUpperSet ↑s
ht : IsUpperSet ↑t
x : α
hx : x ∈ s
y : α
hy : y ∈ t
hxy : Disjoint x y
ha : x ⊔ y ∈ s ○ t
⊢ (∀ ⦃b : α⦄, x ≤ b → b ∈ s) ∧ ∀ ⦃b : α⦄, y = b \ x → b ∈ t
no goals