Skip to content

GitLab

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

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