Section Test.
Variable environ: Type.
Variables (rmap : Type)
(Join_rmap: Join rmap) (Perm_rmap: @Perm_alg rmap Join_rmap)
(Sep_rmap: @Sep_alg rmap Join_rmap)
(Canc_rmap: @Canc_alg rmap Join_rmap)
(Disj_rmap: @Disj_alg rmap Join_rmap)
(ag_rmap: ageable rmap)
(Age_rmap: @Age_alg rmap Join_rmap ag_rmap).
Existing Instance  Join_rmap.
Existing Instance  Perm_rmap.
Existing Instance  Sep_rmap.
Existing Instance  Canc_rmap.
Existing Instance  Disj_rmap.
Existing Instance  ag_rmap.
Existing Instance  Age_rmap.

Lemma test1: forall (P : environ -> pred rmap) (Q: pred rmap),
P * Emp |-- P.