Corollary paco2_mult: forall r,
  paco2 gf (paco2 gf r) <2= paco2 gf r.

(* Specifications: *)
Theorem paco2_fold: forall r, gf (upaco2 gf r) <2= paco2 gf r.
Theorem paco2_unfold: forall (MON: monotone2 gf) r, paco2 gf r <2= gf (upaco2 gf r).