exact (iff_provable_list_conj.mp $ conj₁'! h) p hp₁
case mpr.inl
F : Type u_1
inst✝⁴ : LogicalConnective F
inst✝³ : DecidableEq F
S : Type u_2
inst✝² : System F S
𝓢 : S
inst✝¹ : Minimal 𝓢
p✝ q r : F
Γ Δ : List F
inst✝ : System.NegationEquiv 𝓢
h : 𝓢 ⊢! Γ.conj' ⋏ Δ.conj'
p : F
hp₁ : p ∈ Γ
⊢ 𝓢 ⊢! p
no goals