have IHα := existsDiamondH hyp
W✝ : Type
M : KripkeModel W✝
v w : W✝
α β : Program
hyp : relate M α v w
⊢ ∃ a b, ((a, b) ∈ H α ∨ (a, b) ∈ H β) ∧ (∀ f ∈ a, evaluate M v f) ∧ relateSeq M b v w
W✝ : Type
M : KripkeModel W✝
v w : W✝
α β : Program
hyp : relate M α v w
IHα : ∃ Fδ ∈ H α, (M, v)⊨Fδ.1 ∧ relateSeq M Fδ.2 v w
⊢ ∃ a b, ((a, b) ∈ H α ∨ (a, b) ∈ H β) ∧ (∀ f ∈ a, evaluate M v f) ∧ relateSeq M b v w