Skip to content
Snippets Groups Projects
Commit 9370e668 authored by Dmitry Khalanskiy's avatar Dmitry Khalanskiy Committed by Ralf Jung
Browse files

Add option_local_update_None

parent 730f24ec
No related branches found
No related tags found
No related merge requests found
......@@ -172,6 +172,16 @@ 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. intros ? ?.
rewrite ucmra_unit_left_id => HValid HEq. rewrite -HEq.
destruct (HUp n (Some x)); rewrite /= //.
- by rewrite ucmra_unit_left_id.
- simpl in *. split; try 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