simp at *
case val.a
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : evaluate M v (~⌈⌈[]⌉⌉ξ)
⊢ evaluate M v (~ξ)
case val.a
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : ¬evaluate M v ξ
⊢ ¬evaluate M v ξ