Require Export VST.concurrency.paco.src.paconotation VST.concurrency.paco.src.pacotac VST.concurrency.paco.src.pacodef VST.concurrency.paco.src.pacotacuser.
Set Implicit Arguments.
(** ** Predicates of Arity 1 *)
(** 1 Mutual Coinduction *)
Section Arg1_1.
Definition monotone1 T0 (gf: rel1 T0 -> rel1 T0) :=
forall x0 r r' (IN: gf r x0) (LE: r <1= r'), gf r' x0.
Variable T0 : Type.
Variable gf : rel1 T0 -> rel1 T0.
Implicit Arguments gf [].

Theorem paco1_mon: monotone1 (paco1 gf).