induction n
W : Type
M : KripkeModel W
n : ℕ
⊢ ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n → evaluate M v (~⌈⌈δ⌉⌉ξ)
case zero
W : Type
M : KripkeModel W
⊢ ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = 0 → evaluate M v (~⌈⌈δ⌉⌉ξ)

case succ
W : Type
M : KripkeModel W
n✝ : ℕ
a✝ : ∀ (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 (~⌈⌈δ⌉⌉ξ)