constructor <;> intros h
α β γ : Sinf
Δ : Ctx Sinf
⊢ Δ ⋁ α ∨ₛ β ∨ₛ γ ↔ Δ ⋁ α ∨ₛ (β ∨ₛ γ)
case mp
α β γ : Sinf
Δ : Ctx Sinf
h : Δ ⋁ α ∨ₛ β ∨ₛ γ
⊢ Δ ⋁ α ∨ₛ (β ∨ₛ γ)

case mpr
α β γ : Sinf
Δ : Ctx Sinf
h : Δ ⋁ α ∨ₛ (β ∨ₛ γ)
⊢ Δ ⋁ α ∨ₛ β ∨ₛ γ