rw [conEval] at w_φ
case mpr.intro.intro.intro.intro
γ : Program
ψ : Formula
W : Type
M : KripkeModel W
w : W
ℓ : TP γ
ℓ_in : ℓ ∈ allTP γ
w_φ : evaluate M w (Con (Xset γ ℓ ψ))
⊢ evaluate M w (⌈γ⌉ψ)
case mpr.intro.intro.intro.intro
γ : Program
ψ : Formula
W : Type
M : KripkeModel W
w : W
ℓ : TP γ
ℓ_in : ℓ ∈ allTP γ
w_φ : ∀ f ∈ Xset γ ℓ ψ, evaluate M w f
⊢ evaluate M w (⌈γ⌉ψ)