Corollary paco1_mult: forall r,
  paco1 gf (paco1 gf r) <1= paco1 gf r.

(* Specifications: *)
Theorem paco1_fold: forall r, gf (upaco1 gf r) <1= paco1 gf r.
Theorem paco1_unfold: forall (MON: monotone1 gf) r, paco1 gf r <1= gf (upaco1 gf r).