subst_eqs
case h.right.intro
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
Fs : List Formula
δ : List Program
w_Con : evaluate M w (Con (Yset (Fs, δ) ψ))
Gs : List Formula
Gγ_in : (Gs, ε) ∈ H α
aaa : List Formula
bbb : List Program
_in_Hβ : (aaa, bbb) ∈ H β
left✝ : Fs = Gs ∪ aaa
right✝ : δ = bbb
⊢ evaluate M w (Con (Yset (Gs, ε) (⌈β⌉ψ)))
case h.right.intro.refl.refl
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
δ : List Program
Gs : List Formula
Gγ_in : (Gs, ε) ∈ H α
aaa : List Formula
w_Con : evaluate M w (Con (Yset (Gs ∪ aaa, δ) ψ))
_in_Hβ : (aaa, δ) ∈ H β
⊢ evaluate M w (Con (Yset (Gs, ε) (⌈β⌉ψ)))