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

Fixes for Coq 8.18.

parent 2d97c5e3
No related branches found
No related tags found
No related merge requests found
Pipeline #92467 passed
...@@ -74,7 +74,7 @@ Definition to_offer_reg : offerReg -> offerRegR := fmap offerize. ...@@ -74,7 +74,7 @@ Definition to_offer_reg : offerReg -> offerRegR := fmap offerize.
Lemma to_offer_reg_valid N : to_offer_reg N. Lemma to_offer_reg_valid N : to_offer_reg N.
Proof. Proof.
intros l. rewrite lookup_fmap. case (N !! l); simpl; try done. intros l. rewrite lookup_fmap. case: (N !! l); simpl; try done.
intros [[v γ] k]; simpl. done. intros [[v γ] k]; simpl. done.
Qed. Qed.
......
...@@ -100,7 +100,7 @@ Definition to_offer_reg : offerReg -> offerRegR := fmap offerize. ...@@ -100,7 +100,7 @@ Definition to_offer_reg : offerReg -> offerRegR := fmap offerize.
Lemma to_offer_reg_valid N : to_offer_reg N. Lemma to_offer_reg_valid N : to_offer_reg N.
Proof. Proof.
intros l. rewrite lookup_fmap. case (N !! l); simpl; try done. intros l. rewrite lookup_fmap. case: (N !! l); simpl; try done.
intros [[v γ] k]; simpl. done. intros [[v γ] k]; simpl. done.
Qed. Qed.
......
...@@ -144,7 +144,7 @@ Section to_heap. ...@@ -144,7 +144,7 @@ Section to_heap.
Qed. Qed.
Lemma to_heap_valid σ : to_heap σ. Lemma to_heap_valid σ : to_heap σ.
Proof. intros l. rewrite lookup_fmap. by case (σ !! l). Qed. Proof. intros l. rewrite lookup_fmap. by case: (σ !! l). Qed.
End to_heap. End to_heap.
......
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