Corollary paco3_mult: forall r,
  paco3 gf (paco3 gf r) <3= paco3 gf r.

(* Specifications: *)
Theorem paco3_fold: forall r, gf (upaco3 gf r) <3= paco3 gf r.
Theorem paco3_unfold: forall (MON: monotone3 gf) r, paco3 gf r <3= gf (upaco3 gf r).