simp at ih_1
Δ : List Formula
F : Formula
X : PredName
D : Type
I : Interpretation D
V : VarAssignment D
E : Env
a✝ : ∀ H ∈ [], Holds D I V E H
ys_hd : VarName
ys_tl : List VarName
ih_1 : [].length = (ys_hd :: ys_tl).length
a1 : Holds D I V E (List.foldr and_ true_ (List.zipWith eq_ [] (ys_hd :: ys_tl)))
⊢ List.map V [] = List.map V (ys_hd :: ys_tl)
no goals