Skip to content
Snippets Groups Projects
Commit 57b5f2a3 authored by Ralf Jung's avatar Ralf Jung
Browse files

fix build with coq 8.5

parent c02b4e0a
No related branches found
No related tags found
No related merge requests found
Pipeline #
......@@ -226,10 +226,10 @@ Section heap.
rewrite -!min_assoc min_idempotent min_comm -min_assoc min_idempotent min_comm. done. }
iDestruct "Hown" as "[H Hown]". iDestruct "H" as %Hl. iExists (take ll vl1). iFrame.
destruct (min_spec (length vl1) (length vl2)) as [[Hne Heq]|[Hne Heq]].
+ iClear "HP2". rewrite firstn_all2; last first.
+ iClear "HP2". rewrite take_ge; last first.
{ rewrite -Heq /ll. done. }
rewrite drop_ge; first by rewrite app_nil_r. by rewrite -Heq.
+ iClear "HP1". rewrite Hl firstn_all2; last first.
+ iClear "HP1". rewrite Hl take_ge; last first.
{ rewrite -Heq /ll. done. }
rewrite drop_ge; first by rewrite app_nil_r. by rewrite -Heq.
Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment