Commit 9370e668 authored by Dmitry Khalanskiy's avatar Dmitry Khalanskiy Committed by Ralf Jung
Browse files

Add option_local_update_None

parent 730f24ec
......@@ -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).
......
Supports Markdown
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