have : evaluate M w (~⌈α;'β⌉ψ) ↔ evaluate M w (~⌈α⌉⌈β⌉ψ) := by aesop
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
⊢ evaluate M w (~⌈α;'β⌉ψ) ↔ evaluate M w (dis (List.map (fun Fδ => Con (Yset Fδ ψ)) (H (α;'β))))
ψ : Formula
W : Type
M : KripkeModel W
w : W
α β : Program
this : evaluate M w (~⌈α;'β⌉ψ) ↔ evaluate M w (~⌈α⌉⌈β⌉ψ)
⊢ evaluate M w (~⌈α;'β⌉ψ) ↔ evaluate M w (dis (List.map (fun Fδ => Con (Yset Fδ ψ)) (H (α;'β))))