Commit 2d1fb3d0 authored by Ralf Jung's avatar Ralf Jung
Browse files

add singleton_mono

parent 4884e2e9
......@@ -349,6 +349,9 @@ Proof.
apply Some_included. by rewrite Hi.
- intros ?. exists y. by rewrite lookup_insert Some_included.
Qed.
Lemma singleton_mono i x y :
x y {[ i := x ]} ({[ i := y ]} : gmap K A).
Proof. intros Hincl. apply singleton_included. right. done. Qed.
Global Instance singleton_cancelable i x :
Cancelable (Some x) Cancelable {[ i := 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