(** * Results in the opposite direction *)

Definition unage {A} {_:ageable A} x y := age y x.

(* Specifications: *)
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' }.