Corollary paco4_mult: forall r,
  paco4 gf (paco4 gf r) <4= paco4 gf r.

(* Specifications: *)
Theorem paco4_fold: forall r, gf (upaco4 gf r) <4= paco4 gf r.
Theorem paco4_unfold: forall (MON: monotone4 gf) r, paco4 gf r <4= gf (upaco4 gf r).