proposition: Lemma RS'_delta2_delta4 : forall m : nat, delta [/]FourNZ[<]P _ (sep__part_h_bnd (S m))[-]P _ (sep__part_h_bnd m) or P _ (sep__part_h_bnd (S m))[-]P _ (sep__part_h_bnd m)[<]delta [/]TwoNZ.
proof: Proof. intro; apply less_cotransitive_unfolded. rstepl ((delta [/]TwoNZ) [/]TwoNZ). apply pos_div_two'; apply pos_div_two; exact RS'_delta_pos. Qed.
imports: CoRN.ftc.COrdLemmas CoRN.ftc.Partitions Coq(Lia)