. exact iff_provable_list_conj.mp (conj₁'! id!) q (by apply List.mem_remove_iff.mpr; simp_all);
case neg
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 𝓢
q : F
hq : q ∈ Γ
e : ¬q = p
⊢ { ctx := [(List.remove p Γ).conj' ⋏ p] } ⊢! q
no goals