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

Add lemma `binder_delete_empty`.

parent 50efdf9c
No related branches found
No related tags found
No related merge requests found
Pipeline #22975 passed
...@@ -82,6 +82,9 @@ Section binder_delete_insert. ...@@ -82,6 +82,9 @@ Section binder_delete_insert.
Proper (() ==> () ==> (≡@{M A})) (binder_insert b). Proper (() ==> () ==> (≡@{M A})) (binder_insert b).
Proof. destruct b; solve_proper. Qed. Proof. destruct b; solve_proper. Qed.
Lemma binder_delete_empty {A} b : binder_delete b =@{M A} ∅.
Proof. destruct b; simpl; auto using delete_empty. Qed.
Lemma lookup_binder_delete_None {A} (m : M A) b s : Lemma lookup_binder_delete_None {A} (m : M A) b s :
binder_delete b m !! s = None b = BNamed s m !! s = None. binder_delete b m !! s = None b = BNamed s m !! s = None.
Proof. destruct b; simpl; by rewrite ?lookup_delete_None; naive_solver. Qed. Proof. destruct b; simpl; by rewrite ?lookup_delete_None; naive_solver. Qed.
......
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