rfl
W✝ : Type
M : KripkeModel W✝
v w : W✝
α β : Program
u : W✝
v_α_u : relate M α v u
u_β_w : relate M β u w
Fs : List Formula
δ : List Program
Fδ_in : (Fs, δ) ∈ H α
u_Fs : ∀ f ∈ Fs, evaluate M v f
v_δ_u : relateSeq M δ v u
hyp : ¬δ = []
⊢ (if δ = [] then (List.map (fun x => [(Fs ∪ x.1, x.2)]) (H β)).join else [(Fs, δ ++ [β])]) = ?m.1382731
no goals