intro W M w hyp
a : Program
X Y : Formula
⊢ ∀ (W : Type) (M : KripkeModel W) (w : W),
    (∀ (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 X) ∧ ∀ (x : W), relate M a w x → evaluate M x Y
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 X) ∧ ∀ (x : W), relate M a w x → evaluate M x Y