proposition: Lemma rclo14_mon_gen clo clo' r r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 (IN: @rclo14 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13) (LEclo: clo <15= clo') (LEr: r <14= r') : @rclo14 clo' r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13.
proof: Proof. induction IN; intros. - econstructor 1. apply LEr, IN. - econstructor 2; [intros; eapply H, PR|apply LEclo, IN]. Qed.
imports: Program.Basics Paco(paco14 pacotac)