by_contra hyp
case left
a b : Program
X : Formula
W : Type
M : KripkeModel W
w : W
⊢ evaluate M w (~(⌈a⋓b⌉X)⋀(~(⌈a⌉X)⋀⌈b⌉X))
case left
a b : Program
X : Formula
W : Type
M : KripkeModel W
w : W
hyp : ¬evaluate M w (~(⌈a⋓b⌉X)⋀(~(⌈a⌉X)⋀⌈b⌉X))
⊢ False