Skip to content

GitLab

Commit 9bad5ed7 authored by Ralf Jung's avatar Ralf Jung
Browse files

fix building with coq 8.6.1

parent 90d27fc2
Pipeline #5935 passed with stage
in 10 minutes and 12 seconds
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 8 deletions
theories/logrel/F_mu_ref_conc/examples/counter.v
View file @ 9bad5ed7
......@@ -126,8 +126,8 @@ Section CG_Counter.
iIntros (HNE) "[#Hspec [Hx [Hl Hj]]]".
iMod (steps_with_lock
_ _ j K _ _ _ _ UnitV UnitV _ _ with "[Hj Hx Hl]") as "Hj"; last done.
- iIntros (K') "[#Hspec [Hx Hj]]".
iApply steps_CG_increment; first done. iFrame. iSplitR; trivial.
- iIntros (K') "[#Hspec Hxj]".
iApply steps_CG_increment; first done. iFrame. trivial.
- by iFrame "Hspec Hj Hx".
Unshelve. all: trivial.
Qed.
......
theories/logrel/F_mu_ref_conc/examples/stack/CG_stack.v
View file @ 9bad5ed7
......@@ -138,8 +138,8 @@ Section CG_Stack.
intros HNE. iIntros "[#Hspec [Hx [Hl Hj]]]". unfold CG_locked_push.
iMod (steps_with_lock
_ _ j K _ _ _ _ UnitV _ _ _ with "[Hj Hx Hl]") as "Hj"; last done.
- iIntros (K') "[#Hspec [Hx Hj]]".
iApply steps_CG_push; first done. iFrame. iSplitR; trivial.
- iIntros (K') "[#Hspec Hxj]".
iApply steps_CG_push; first done. iFrame. trivial.
- iFrame "Hspec Hj Hx"; trivial.
Unshelve. all: trivial.
Qed.
......@@ -272,8 +272,8 @@ Section CG_Stack.
iIntros (HNE) "[#Hspec [Hx [Hl Hj]]]". unfold CG_locked_pop.
iMod (steps_with_lock _ _ j K _ _ _ _ (InjRV w) UnitV _ _
with "[Hj Hx Hl]") as "Hj"; last done.
- iIntros (K') "[#Hspec [Hx Hj]]".
iApply steps_CG_pop_suc; first done. iFrame. by iSplitR.
- iIntros (K') "[#Hspec Hxj]".
iApply steps_CG_pop_suc; first done. by iFrame.
- iFrame "Hspec Hj Hx"; trivial.
Unshelve. all: trivial.
Qed.
......@@ -287,8 +287,8 @@ Section CG_Stack.
iIntros (HNE) "[#Hspec [Hx [Hl Hj]]]". unfold CG_locked_pop.
iMod (steps_with_lock _ _ j K _ _ _ _ (InjLV UnitV) UnitV _ _
with "[Hj Hx Hl]") as "Hj"; last done.
- iIntros (K') "[#Hspec [Hx Hj]] /=".
iApply steps_CG_pop_fail; first done. iFrame. by iSplitR.
- iIntros (K') "[#Hspec Hxj] /=".
iApply steps_CG_pop_fail; first done. by iFrame.
- iFrame "Hspec Hj Hx"; trivial.
Unshelve. all: trivial.
Qed.
......
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