End StratModel.
Local Open 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 : TypeTree,
(forall ts: list Type, dependent_type_functor_rec ts A (pred rmap)) -> preds.