use ⟨∅, ε⟩
case inl.refl
W✝ : Type
M : KripkeModel W✝
v : W✝
β : Program
v_γ_w : Relation.ReflTransGen (relate M β) v v
⊢ ∃ Fδ ∈ H (∗β), (M, v)⊨Fδ.1 ∧ relateSeq M Fδ.2 v v
case h
W✝ : Type
M : KripkeModel W✝
v : W✝
β : Program
v_γ_w : Relation.ReflTransGen (relate M β) v v
⊢ (∅, ε) ∈ H (∗β) ∧ (M, v)⊨(∅, ε).1 ∧ relateSeq M (∅, ε).2 v v