Instance Disj_resource: Disj_alg resource.

(* Specifications: *)
Lemma identity_resource : forall r,
identity r <-> (r = NO) \/ (exists k, exists pds, r = PURE k pds).
Lemma same_valid : forall f1 f2, (forall x, f1 x = f2 x) -> AV.valid f1 -> AV.valid f2.
Lemma rmapj_valid_core: forall x : address -> resource, valid x -> valid (core x).
Lemma rmapj_valid_join : forall (x y z : address -> resource),
join x y z ->
valid x -> valid y -> valid z.