Commit 13e7b1b5 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

FP update for auth without fragment.

parent e059aa12
...@@ -191,11 +191,17 @@ Proof. ...@@ -191,11 +191,17 @@ Proof.
exists bf2. rewrite -assoc. exists bf2. rewrite -assoc.
apply (Hab' _ (Some _)); auto. by rewrite /= assoc. apply (Hab' _ (Some _)); auto. by rewrite /= assoc.
Qed. Qed.
Lemma auth_update_no_frame a b : a ~l~> b @ Some a a ~~> b b. Lemma auth_update_no_frame a b : a ~l~> b @ Some a a ~~> b b.
Proof. Proof.
intros. rewrite -{1}(right_id _ _ a) -{1}(right_id _ _ b). intros. rewrite -{1}(right_id _ _ a) -{1}(right_id _ _ b).
by apply auth_update. by apply auth_update.
Qed. Qed.
Lemma auth_update_no_frag af b : ~l~> b @ Some af af ~~> (b af) b.
Proof.
intros. rewrite -{1}(left_id _ _ af) -{1}(right_id _ _ ( _)).
by apply auth_update.
Qed.
End cmra. End cmra.
Arguments authR : clear implicits. Arguments authR : clear implicits.
......
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