simp_all [conEval, F, modelCanSemImplyForm, evaluatePoint]
W✝ : Type
M : KripkeModel W✝
v w : W✝
α β : Program
ℓ : TP (α;'β)
v_conF : (M, v)⊨Con (F (α;'β) ℓ)
u : W✝
v_α_u : relate M α v u
u_β_w : relate M β u w
⊢ evaluate M v (Con (F α fun τ => ℓ ⟨↑τ, ⋯⟩))
no goals