linarith
W : Type
M : KripkeModel W
n : ℕ
v : W
ξ : Formula
a : ℕ
v1 : W
γs : List Program
v0_a_v1 : M.Rel a v v1
wit_v1_γs : witness M v1 γs ξ
def_n : 1 + wit_v1_γs.length = n + 1
IH : ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n → ¬evaluate M v (⌈⌈δ⌉⌉ξ)
⊢ wit_v1_γs.length = n
no goals