sorry
case h.right
W : Type
M : KripkeModel W
n : ℕ
v : W
ξ : Formula
α : Program
Fs : List Formula
v1 : W
ηs γs : List Program
a : ℕ
Fsaηs_in_Hα : (Fs, (·a) :: ηs) ∈ H α
v_a_v1 : M.Rel a v v1
four : evaluate M v (Con Fs)
wit_v1_ηγs : witness M v1 (ηs ++ γs) ξ
def_n : 1 + wit_v1_ηγs.length = n + 1
IH : ¬evaluate M v1 (⌈⌈ηs ++ γs⌉⌉ξ)
⊢ ¬evaluate M v1 (⌈⌈γs⌉⌉ξ)
no goals