apply witness.nil
case val
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : evaluate M v (~⌈⌈[]⌉⌉ξ)
⊢ witness M v [] ξ
case val.a
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : evaluate M v (~⌈⌈[]⌉⌉ξ)
⊢ evaluate M v (~ξ)