have : ⊢¹ (∃' p) :: Δ := Derivation.ex t (by simpa using b)
case intro.intro.inl.intro
μ : Type ?u.546030
L : Language
inst✝⁶ : (k : ℕ) → DecidableEq (L.Func k)
inst✝⁵ : (k : ℕ) → DecidableEq (L.Rel k)
inst✝⁴ : (k : ℕ) → Primcodable (L.Func k)
inst✝³ : (k : ℕ) → Primcodable (L.Rel k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : UniformlyPrimcodable L.Rel
inst✝ : Primcodable μ
p : SyntacticSemiformula L 1
t : SyntacticTerm L
l : List (Code L × List (SyntacticFormula L))
Δ : List (SyntacticFormula L)
hl : isProper l = true
hp : [→ t].hom p :: Δ ∈ sequents l
H : ∃' p ∈ Δ
b :  ⊢¹ [→ t].hom p :: Δ
⊢ Nonempty ( ⊢¹ Δ)
case intro.intro.inl.intro
μ : Type ?u.546030
L : Language
inst✝⁶ : (k : ℕ) → DecidableEq (L.Func k)
inst✝⁵ : (k : ℕ) → DecidableEq (L.Rel k)
inst✝⁴ : (k : ℕ) → Primcodable (L.Func k)
inst✝³ : (k : ℕ) → Primcodable (L.Rel k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : UniformlyPrimcodable L.Rel
inst✝ : Primcodable μ
p : SyntacticSemiformula L 1
t : SyntacticTerm L
l : List (Code L × List (SyntacticFormula L))
Δ : List (SyntacticFormula L)
hl : isProper l = true
hp : [→ t].hom p :: Δ ∈ sequents l
H : ∃' p ∈ Δ
b :  ⊢¹ [→ t].hom p :: Δ
this :  ⊢¹ (∃' p) :: Δ
⊢ Nonempty ( ⊢¹ Δ)