rintro ⟨⟨Fs,δ⟩, ⟨Fδ_in, w_Con⟩⟩
case mp
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
⊢ (∃ Fδ ∈ H α, evaluate M w (Con (Yset Fδ (⌈β⌉ψ)))) → ∃ Fδ ∈ H (α;'β), evaluate M w (Con (Yset Fδ ψ))
case mp.intro.mk.intro
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
Fs : List Formula
δ : List Program
Fδ_in : (Fs, δ) ∈ H α
w_Con : evaluate M w (Con (Yset (Fs, δ) (⌈β⌉ψ)))
⊢ ∃ Fδ ∈ H (α;'β), evaluate M w (Con (Yset Fδ ψ))