Commit ff96075a authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Next time I will think about committing something that works...

parent dc432a1f
......@@ -185,9 +185,7 @@ Proof.
iMod (box_empty with "[$Hslice $Hbox]") as "[$ Hbox]"; try done.
iMod (box_delete_empty with "[$Hslice $Hbox]") as (P') "[Heq Hbox]".
done. by apply lookup_insert.
iExists P'. rewrite delete_insert. iFrame.
iMod (box_fill with "[$Hslice $HQ $Hbox]"). done.
by rewrite insert_insert.
iExists P'. iFrame. rewrite -insert_delete delete_insert ?lookup_delete //.
Lemma box_fill_all E f P :
Supports Markdown
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