Cleaned up deprecated code

parent 1e938dbf
Pipeline #9884 failed with stages
in 0 seconds
......@@ -530,7 +530,7 @@ Implicit Types p i : K.
Implicit Types x y : gmap K A.
Implicit Types v : A.
Definition insert2 m p i v :=
Definition insert2 `{Countable K} {A : Type} (p i:K) (m: gmap K (gmap K A)) (v: A) :=
match m !! p with
| None => <[p := {[ i := v ]}]>m
| Some(m') => <[p:= <[ i := v ]>m']>m
......@@ -542,7 +542,7 @@ Definition delete2 `{Countable K} {A : Type} (p i:K) (m: gmap K (gmap K A)) :=
| Some(m') => <[p := delete i m']>m
end.
Lemma delete_something_update m1 m2 p i x y :
Lemma dealloc2_local_update m1 m2 p i x y :
m1 !! p = Some x
m2 !! p = Some y
(x, y) ~l~> (delete i x, )
......@@ -554,61 +554,7 @@ Proof.
apply insert_local_update with x y => //.
Qed.
(* Lemma delete_something_update m1 m2 p i v : *)
(* m2 !! p = Some {[ i := v ]} → *)
(* (m1, m2) ~l~> (delete2 p i m1, <[ p := ∅ ]>m2 ). *)
(* Proof. *)
(* intros. *)
(* apply local_update_unital=> n mf Hmv Hm. *)
(* assert (m1 !! p ≡{n}≡ Some {[ i := v ]} ) by admit. *)
(* split. *)
(* - admit. *)
(* - unfold delete2. *)
(* destruct (m1 !! p). *)
(* inversion H1. *)
(* rewrite H4. *)
(* rewrite delete_insert. *)
(* rewrite Hm. *)
(* SearchAbout op. *)
(* rewrite -insert_opN. *)
(* rewrite -(insert_idN). *)
(* eapply insert_local_update. *)
(* Lemma delete_something_update m1 m2 p i x y: *)
(* m1 !! p = Some x → *)
(* m2 !! p = Some y → *)
(* (x, y) ~l~> (delete i x, ∅) → *)
(* (m1, m2) ~l~> (delete2 p i m1, <[ p := ∅ ]>m2 ). *)
(* Proof. *)
(* intros. *)
(* apply local_update_unital=> n mf Hmv Hm. *)
(* assert (m !! p ≡{n}≡ Some {[ i := x ]} ) by admit. *)
(* split. *)
(* - unfold delete2. *)
(* destruct (m !! p). inversion H0. rewrite H3. apply insert_validN =>//. rewrite delete_insert => //. apply Hmv. *)
(* - rewrite left_id. *)
(* assert (m !! p ≡{n}≡ Some {[ i := x ]} ) by admit. *)
(* assert (mf !! p ≡{n}≡ None \/ (∃ mf', mf !! p ≡{n}≡ Some (mf') /\ mf !! i ≡{n}≡ None)) by admit. *)
(* split. *)
(* - unfold delete2. *)
(* destruct (m !! p). inversion H0. rewrite H4. apply insert_validN =>//. rewrite delete_insert => //. apply Hmv. *)
(* - unfold delete2. *)
(* destruct (m !! p). *)
(* inversion H0. *)
(* rewrite H4. *)
(* rewrite left_id. *)
(* rewrite Hm. *)
(* destruct H1. *)
(* + subst. rewrite -insert_singleton_op => //. *)
(* apply delete_notin. *)
(* rewrite -insert_opN. *)
(* Admitted. *)
End nested_gmap_properties.
Print delete_something_update.
(** Functor *)
Instance gmap_fmap_ne `{Countable K} {A B : ofeT} (f : A B) n :
......
This diff is collapsed.
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