subst_eqs
case intro
ψ : Formula
β : Program
ρ : Formula := dis (List.map (fun Fδ => Con (Yset Fδ ψ)) (H (∗β)))
W : Type
M : KripkeModel W
w : W
Fs : List Formula
δ : List Program
w_Con : ∀ f ∈ Yset (Fs, δ) ψ, evaluate M w f
left✝ : Fs = []
right✝ : δ = []
⊢ evaluate M w (~⌈∗β⌉ψ)
case intro.refl.refl
ψ : Formula
β : Program
ρ : Formula := dis (List.map (fun Fδ => Con (Yset Fδ ψ)) (H (∗β)))
W : Type
M : KripkeModel W
w : W
w_Con : ∀ f ∈ Yset ([], []) ψ, evaluate M w f
⊢ evaluate M w (~⌈∗β⌉ψ)