Remove last remaining assumption for correctness

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-05-10 21:30:56 -07:00
parent 04bafb2d55
commit 5f946de5e8
2 changed files with 4 additions and 2 deletions
--- a/Analysis/Forward.agda
+++ b/Analysis/Forward.agda
@@ -356,8 +356,6 @@ module WithProg (prog : Program) where
                    in
                        walkTrace ⟦joinForKey-s⟧ρ tr

-                postulate initialState-pred-∅ : incoming initialState ≡ []
-
                joinForKey-initialState-⊥ᵛ : joinForKey initialState result ≡ ⊥ᵛ
                joinForKey-initialState-⊥ᵛ = cong (λ ins → foldr _⊔ᵛ_ ⊥ᵛ (result [ ins ])) initialState-pred-∅