simp only [formulaHSat_def, List.all_eq_true, decide_eq_true_eq]
n : Nat
f : DefaultFormula n
c : DefaultClause n
p : PosFin n → Bool
⊢ p ⊨ f.insert c → p ⊨ f
n : Nat
f : DefaultFormula n
c : DefaultClause n
p : PosFin n → Bool
⊢ (∀ (x : DefaultClause n), x ∈ (f.insert c).toList → p ⊨ x) → ∀ (x : DefaultClause n), x ∈ f.toList → p ⊨ x