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

Forward compatibility fix for stdpp!555

parent 2af07299
No related branches found
No related tags found
No related merge requests found
Pipeline #105294 passed
Stage: build
Hide whitespace changes
Inline Side-by-side
lifetime/model/primitive.v
+ 2
− 1
View file @ db2b13d2
...@@ -38,7 +38,8 @@ Lemma own_ilft_auth_agree (I : gmap lft lft_names) κ γs : ...@@ -38,7 +38,8 @@ Lemma own_ilft_auth_agree (I : gmap lft lft_names) κ γs :
Proof. Proof.
iIntros "HI Hκ". iDestruct (own_valid_2 with "HI Hκ") iIntros "HI Hκ". iDestruct (own_valid_2 with "HI Hκ")
as %[[? [Hl ?]]%singleton_included_l _]%auth_both_valid_discrete. as %[[? [Hl ?]]%singleton_included_l _]%auth_both_valid_discrete.
unfold to_ilftUR in *. simplify_map_eq. revert Hl. rewrite /to_ilftUR lookup_fmap.
case: (I !! _)=> [γs'|] Hl; first by eauto.
destruct (fmap_Some_equiv_1 _ _ _ Hl) as (?&?&?). eauto. destruct (fmap_Some_equiv_1 _ _ _ Hl) as (?&?&?). eauto.
Qed. Qed.
......
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