Commit d6eeab71 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

bellman-ford with ghost code

parent 83c63ee3
......@@ -174,7 +174,7 @@ module BellmanFord
forall v: vertex. not (negative_cycle v)
let relax (m: ref distmap) (u v: vertex) (pass: int)
(via: set (vertex, vertex))
(ghost via: set (vertex, vertex))
requires { 1 <= pass /\ mem (u, v) edges /\ not (mem (u, v) via) }
requires { inv1 !m pass via }
ensures { inv1 !m pass (add (u, v) via) }
......@@ -200,7 +200,7 @@ module BellmanFord
while not (S.is_empty es) do
invariant { subset !es edges /\ inv1 !m i (diff edges !es) }
variant { cardinal !es }
let via = diff edges !es in (* ghost *)
let ghost via = diff edges !es in
let (u, v) = S.pop es in
relax m u v i via
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment