intro w_Cons
case mpr
γ : Program
ψ : Formula
W : Type
M : KripkeModel W
w : W
⊢ evaluate M w (dis (List.map (fun ℓ => Con (Xset γ ℓ ψ)) (allTP γ))) → evaluate M w (⌈γ⌉ψ)
case mpr
γ : Program
ψ : Formula
W : Type
M : KripkeModel W
w : W
w_Cons : evaluate M w (dis (List.map (fun ℓ => Con (Xset γ ℓ ψ)) (allTP γ)))
⊢ evaluate M w (⌈γ⌉ψ)