proposition: Lemma rclo1_mon_gen clo clo' r r' x0 (IN: @rclo1 clo r x0) (LEclo: clo <2= clo') (LEr: r <1= r') : @rclo1 clo' r' x0.
proof: Proof. induction IN; intros. - econstructor 1. apply LEr, IN. - econstructor 2; [intros; eapply H, PR|apply LEclo, IN]. Qed.
imports: Program.Basics Paco(paco1 pacotac)