subst_eqs
W✝ : Type
M : KripkeModel W✝
v w : W✝
β : Program
v_γ_w : Relation.ReflTransGen (relate M β) v w
left✝ : ¬v = w
v1 : W✝
v_neq_v1 : ¬v = v1
v_β_v1 : relate M β v v1
v1_βS_w : Relation.ReflTransGen (relate M β) v1 w
Fs : List Formula
δ : List Program
Fδ_in : (Fs, δ) ∈ H β
v_Fs : ∀ f ∈ Fs, evaluate M v f
v_δ_v1 : relateSeq M δ v v1
hyp : δ = ε
⊢ False
case refl
W✝ : Type
M : KripkeModel W✝
v w : W✝
β : Program
v_γ_w : Relation.ReflTransGen (relate M β) v w
left✝ : ¬v = w
v1 : W✝
v_neq_v1 : ¬v = v1
v_β_v1 : relate M β v v1
v1_βS_w : Relation.ReflTransGen (relate M β) v1 w
Fs : List Formula
v_Fs : ∀ f ∈ Fs, evaluate M v f
Fδ_in : (Fs, ε) ∈ H β
v_δ_v1 : relateSeq M ε v v1
⊢ False