Notation cored := own.cored.

(* Specifications: *)
Lemma cored_dup : forall P, P && cored |-- (P && cored) * (P && cored).
Lemma cored_duplicable : cored = cored * cored.
Lemma own_cored: forall {RA: Ghost} g a pp, join a a a -> own g a pp |-- cored.
Lemma cored_emp: cored |-- |==> emp.
Section Invariants.