Definition Perm_pre_rmap (A: Type): Perm_alg (pre_rmap A) :=
Perm_prop _ _ (Perm_fun address _ _ _) _ (pre_rmap_sa_valid_join _).
Definition Sep_pre_rmap (A: Type): Sep_alg (pre_rmap A) :=
Sep_prop _ _ (Perm_fun address _ _ _) _ (pre_rmap_sa_valid_join _)  _ (pre_rmap_sa_valid_core _).
Definition Canc_pre_rmap (A: Type): Canc_alg (pre_rmap A) :=
@Canc_prop _ _ _ (Canc_fun address _ _ _).
Definition Disj_pre_rmap (A: Type): Disj_alg (pre_rmap A) :=
@Disj_prop _ _ _ (Disj_fun address _ _ _).
End StratModel.
Open Local Scope nat_scope.
Module Type RMAPS.
Declare Module AV:ADR_VAL.
Parameter rmap : Type.

Axiom Age_rmap: Age_alg rmap.  Existing Instance Age_rmap.
Inductive preds : Type :=
SomeP : forall A : list Type, (listprod A -> pred rmap) -> preds.