(**********)
Definition M (N : nat) := first N + last N.

Lemma tech_suc_M1 : forall N n : nat, N - first N <= n -> n < last N -> forall k : nat, ~ (0 < k /\ k < N /\ (frac_part_n_alpha n < frac_part_n_alpha k)%R /\ (frac_part_n_alpha k < frac_part_n_alpha (n + first N - last N))%R).