simp only [evaluate]
case right
a b : Program
X : Formula
W : Type
M : KripkeModel W
w : W
⊢ evaluate M w (~(⌈a⋓b⌉X)⋀(~⌈a⋓b⌉X))
case right
a b : Program
X : Formula
W : Type
M : KripkeModel W
w : W
⊢ ¬((∀ (v : W), relate M (a⋓b) w v → evaluate M v X) ∧ ¬∀ (v : W), relate M (a⋓b) w v → evaluate M v X)