(** * Results in the opposite direction *)

(* Specifications: *)
Lemma unage_YES'_1 {phi phi' l rsh sh k P} :
age1 phi' = Some phi ->
phi @ l = YES rsh sh k P ->
(exists P, phi' @ l = YES rsh sh k P).
Lemma unage_YES'_2 {phi phi' l rsh sh k P} :
age1 phi' = Some phi ->
phi' @ l = YES rsh sh k P ->
(exists P, phi @ l = YES rsh sh k P).
Lemma unage_PURE_2 {phi phi' l k P} :
age1 phi' = Some phi ->
phi' @ l = PURE k P ->
(exists P, phi @ l = PURE k P).
Lemma contents_cohere_unage m : hereditary unage (contents_cohere m).
Lemma access_cohere_unage m : hereditary unage (access_cohere m).
Lemma max_access_cohere_unage m : hereditary unage (max_access_cohere m).
Lemma alloc_cohere_unage m : hereditary unage (alloc_cohere m).
Lemma juicy_mem_unage jm' : { jm | age jm jm' }.