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

fix remaining warnings

parent 61853abe
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -309,7 +309,7 @@ Section CircBuffer. ...@@ -309,7 +309,7 @@ Section CircBuffer.
iSplitR "P"; last by iRight. iSplitR "P"; last by iRight.
iExists γ, i, j. iExists γ, i, j.
iFrame "pToks pW cR2". iPureIntro. iFrame "pToks pW cR2". iPureIntro.
eapply Zlt_le_trans; first exact H. by apply Zplus_le_compat_r, inj_le. eapply Z.lt_le_trans; first exact H. by apply Zplus_le_compat_r, inj_le.
- wp_if_false. - wp_if_false.
wp_bind ([_]_na <- _)%E. wp_op. wp_op. wp_bind ([_]_na <- _)%E. wp_op. wp_op.
......
...@@ -6,6 +6,8 @@ From igps Require Import persistor viewpred proofmode weakestpre protocols singl ...@@ -6,6 +6,8 @@ From igps Require Import persistor viewpred proofmode weakestpre protocols singl
invariants fork. invariants fork.
From igps.gps Require Import shared plain recursive. From igps.gps Require Import shared plain recursive.
From igps.examples Require Import abs_hashtable snapshot hist_protocol repeat for_loop list_lemmas. From igps.examples Require Import abs_hashtable snapshot hist_protocol repeat for_loop list_lemmas.
Require Recdef.
Import uPred lang.base. Import uPred lang.base.
Section kvnode. Section kvnode.
...@@ -287,7 +289,7 @@ Section proof. ...@@ -287,7 +289,7 @@ Section proof.
rewrite !is_Some_alt; destruct (m !! n'); done. rewrite !is_Some_alt; destruct (m !! n'); done.
Qed. Qed.
Require Import Recdef. Import Recdef.
Function make_log {A} (n : nat) (d : A) { measure id n } : gmap nat A := Function make_log {A} (n : nat) (d : A) { measure id n } : gmap nat A :=
<[n := d]>match n with O => | _ => (make_log (n - 2) d) end. <[n := d]>match n with O => | _ => (make_log (n - 2) d) end.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment