have ⟨s₁,h₂,prf₁⟩ := BProof.compactness h₁
Γ : Ctx
f g : Form
h₁ : BProof (insert f Γ) g
⊢ (l : List Form) × (_ : { x | x ∈ l } ⊆ Γ) ×' BProof {Form.conjoinList f l} g
Γ : Ctx
f g : Form
h₁ : BProof (insert f Γ) g
s₁ : Finset Form
h₂ : ↑s₁ ⊆ insert f Γ
prf₁ : BProof (↑s₁) g
⊢ (l : List Form) × (_ : { x | x ∈ l } ⊆ Γ) ×' BProof {Form.conjoinList f l} g