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

ff96075a · Jacques-Henri Jourdan · dc432a1f · ff96075a
Commit ff96075a authored Nov 24, 2016 by Jacques-Henri Jourdan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

base_logic/lib/boxes.v base_logic/lib/boxes.v +1 -3

No files found.
--- a/base_logic/lib/boxes.v
+++ b/base_logic/lib/boxes.v
@@ -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 //.
 Qed.

 Lemma box_fill_all E f P :