Commit 7f18b955 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

removed superfluous split + run every provers

parent 1fb3abff
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
Author: Jean-Christophe Filliâtre *) Author: Jean-Christophe Filliâtre *)
(* (*
Iterative deletion in a binary search tree - 90 minutest Iterative deletion in a binary search tree - 90 minutes
VERIFICATION TASK VERIFICATION TASK
...@@ -141,9 +141,9 @@ module Treedel ...@@ -141,9 +141,9 @@ module Treedel
let ghost ppr = ref (right it) in let ghost ppr = ref (right it) in
let ghost subtree = ref (left it) in let ghost subtree = ref (left it) in
while !tt <> null do while !tt <> null do
invariant { !pp <> null /\ !mem[!pp].left = !p /\ invariant { !pp <> null /\ !mem[!pp].left = !p }
!p <> null /\ !mem[!p].left = !tt /\ invariant { !p <> null /\ !mem[!p].left = !tt }
let pt = Node !subtree !pp !ppr in invariant { let pt = Node !subtree !pp !ppr in
tree !mem !pp pt /\ zip pt !zipper = it } tree !mem !pp pt /\ zip pt !zipper = it }
assert { tree !mem !p !subtree }; assert { tree !mem !p !subtree };
ghost zipper := Left !zipper !pp !ppr; ghost zipper := Left !zipper !pp !ppr;
......
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