Definition rmap' := ((address->resource) * ghost)%type.Definition preds_fmap (f g:(pred rmap)->(pred rmap)) (x:preds) : preds :=
    match x with SomeP A ls => SomeP A (fmap (fpi _) f g ls) end.

Lemma preds_fmap_id : preds_fmap (id (pred rmap)) (id (pred rmap)) = id preds.