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

Merge branch 'ralf/option-local-update' into 'master'

Add option_local_update_None

See merge request iris/iris!653
parents 730f24ec 593a7a89
No related branches found
No related tags found
No related merge requests found
......@@ -172,6 +172,17 @@ Proof.
split; first done. destruct mz as [?|]; constructor; auto.
Qed.
Lemma option_local_update_None {A: ucmra} (x x' y': A):
(x, ε) ~l~> (x', y') ->
(Some x, None) ~l~> (Some x', Some y').
Proof.
intros Hup. apply local_update_unital=> n mz.
rewrite left_id=> ? <-.
destruct (Hup n (Some x)); simpl in *; first done.
- by rewrite left_id.
- split; first done. rewrite -Some_op. by constructor.
Qed.
Lemma alloc_option_local_update {A : cmra} (x : A) y :
x
(None, y) ~l~> (Some x, Some x).
......
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