Skip to content
Snippets Groups Projects
Commit 3fd9f9e3 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix exercises.

parent fffa5267
No related branches found
No related tags found
No related merge requests found
Pipeline #81736 passed
...@@ -56,7 +56,7 @@ Section symbol_ghost. ...@@ -56,7 +56,7 @@ Section symbol_ghost.
Lemma symbol_obs γ s n : counter γ n -∗ symbol γ s -∗ (s < n)%nat⌝. Lemma symbol_obs γ s n : counter γ n -∗ symbol γ s -∗ (s < n)%nat⌝.
Proof. Proof.
iIntros "Hc Hs". iIntros "Hc Hs".
iDestruct (own_valid_2 with "Hc Hs") as %[?%max_nat_included _]%auth_both_valid_discrete. iCombine "Hc Hs" gives %[?%max_nat_included _]%auth_both_valid_discrete.
iPureIntro. simpl in *. lia. iPureIntro. simpl in *. lia.
Qed. Qed.
End symbol_ghost. End symbol_ghost.
......
...@@ -54,7 +54,7 @@ Section two_state_ghost. ...@@ -54,7 +54,7 @@ Section two_state_ghost.
two_state_auth γ b -∗ two_state_final γ -∗ b = true⌝. two_state_auth γ b -∗ two_state_final γ -∗ b = true⌝.
Proof. Proof.
iIntros "H1 H2". iIntros "H1 H2".
iDestruct (own_valid_2 with "H1 H2") as %[Hinc _]%auth_both_valid_discrete. iCombine "H1 H2" gives %[Hinc _]%auth_both_valid_discrete.
apply option_included in Hinc as [|([]&[]&_&?&_)]; apply option_included in Hinc as [|([]&[]&_&?&_)];
destruct b; naive_solver. destruct b; naive_solver.
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment