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_acc: forall
l r (OBG: forall rr (INC: r <1= rr) (CIH: l <_paco_1= rr), l <_paco_1= paco1 gf rr),
l <1= paco1 gf r.