intro v δ ξ wit def_n
W : Type
M : KripkeModel W
n : ℕ
IH : ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n → evaluate M v (~⌈⌈δ⌉⌉ξ)
⊢ ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n + 1 → evaluate M v (~⌈⌈δ⌉⌉ξ)
W : Type
M : KripkeModel W
n : ℕ
IH : ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n → evaluate M v (~⌈⌈δ⌉⌉ξ)
v : W
δ : List Program
ξ : Formula
wit : witness M v δ ξ
def_n : wit.length = n + 1
⊢ evaluate M v (~⌈⌈δ⌉⌉ξ)