constructor
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : evaluate M v (~⌈⌈[]⌉⌉ξ)
⊢ Nonempty (witness M v [] ξ)
case val
W : Type
M : KripkeModel W
ξ : Formula
v : W
v_ξ : evaluate M v (~⌈⌈[]⌉⌉ξ)
⊢ witness M v [] ξ