diff --git a/opam b/opam index 99972c63a69ca93c4748be863fa574ced2608a56..29acab3b04db589aa4824dce6b1fd8bdab6cf68f 100644 --- a/opam +++ b/opam @@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"] install: [make "install"] remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/reloc"] depends: [ - "coq-iris" { (= "dev.2020-04-04.3.9b2ad256") | (= "dev") } + "coq-iris" { (= "dev.2020-04-07.7.64bed0ca") | (= "dev") } "coq-autosubst" { = "dev.coq86" } ] diff --git a/theories/logic/spec_ra.v b/theories/logic/spec_ra.v index ef586ca870027cbfcdce3e790e7996bf74d14ad8..ce4370c1abfc9abe8baa505ea46bab9d6aa651ae 100644 --- a/theories/logic/spec_ra.v +++ b/theories/logic/spec_ra.v @@ -127,7 +127,7 @@ Section mapsto. Global Instance mapsto_fractional l v : Fractional (λ q, l ↦ₛ{q} v)%I. Proof. intros p q. rewrite heapS_mapsto_eq -own_op -auth_frag_op. - by rewrite -pair_op op_singleton -pair_op agree_idemp right_id. + by rewrite -pair_op singleton_op -pair_op agree_idemp right_id. Qed. Global Instance mapsto_as_fractional l q v : AsFractional (l ↦ₛ{q} v) (λ q, l ↦ₛ{q} v)%I q. @@ -138,7 +138,7 @@ Section mapsto. apply bi.wand_intro_r. rewrite heapS_mapsto_eq -own_op -auth_frag_op own_valid uPred.discrete_valid. f_equiv=> /=. - rewrite -pair_op op_singleton right_id -pair_op. + rewrite -pair_op singleton_op right_id -pair_op. move=> [_ Hv]. move:Hv => /=. rewrite singleton_valid. by intros [_ ?%agree_op_invL'].