sorry
case h.left
W : Type
M : KripkeModel W
n : ℕ
v : W
ξ : Formula
α : Program
γs : List Program
Fs : List Formula
Fε_in_Hα : (Fs, ε) ∈ H α
v_Fs : evaluate M v (Con Fs)
wit_γs : witness M v γs ξ
def_n : 1 + wit_γs.length = n + 1
IH : ∀ (v : W) (δ : List Program) (ξ : Formula) (wit : witness M v δ ξ), wit.length = n → ¬evaluate M v (⌈⌈δ⌉⌉ξ)
⊢ relate M α v v
no goals