End StratModel.
Local Open Scope nat_scope.
Module Type RMAPS.
Declare Module AV:ADR_VAL.
Parameter rmap : Type.

(* Specifications: *)
Axiom Join_rmap: Join rmap. Existing Instance Join_rmap.
Axiom Perm_rmap: Perm_alg rmap. Existing Instance Perm_rmap.
Axiom Sep_rmap: Sep_alg rmap. Existing Instance Sep_rmap.
Axiom ag_rmap: ageable rmap.  Existing Instance ag_rmap.
Axiom Age_rmap: Age_alg rmap.  Existing Instance Age_rmap.
Inductive preds : Type :=
SomeP : forall A : TypeTree,
(forall ts: list Type, dependent_type_functor_rec ts A (pred rmap)) -> preds.