specialize hyp v
case right
a : Program
X Y : Formula
W : Type
M : KripkeModel W
w : W
hyp : ∀ (v : W), relate M a w v → evaluate M v X ∧ evaluate M v Y
v : W
⊢ relate M a w v → evaluate M v Y
case right
a : Program
X Y : Formula
W : Type
M : KripkeModel W
w v : W
hyp : relate M a w v → evaluate M v X ∧ evaluate M v Y
⊢ relate M a w v → evaluate M v Y