Commit 1a0c5860 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add lemma `meta_token_difference`.

parent 78d3d724
......@@ -267,6 +267,13 @@ Section gen_heap.
iIntros "[Hm1 Hm2]". by iApply (meta_token_union_2 with "Hm1 Hm2").
Lemma meta_token_difference l E1 E2 :
E1 E2 meta_token l E2 meta_token l E1 meta_token l (E2 E1).
intros. rewrite {1}(union_difference_L E1 E2) //.
by rewrite meta_token_union; last set_solver.
Lemma meta_agree `{Countable A} l i (x1 x2 : A) :
meta l i x1 - meta l i x2 - x1 = x2.
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