Parameter alpha : R.(*********************************************************)

Axiom prop_alpha : (0 < alpha)%R /\ (alpha < 1)%R.(*********************************************************)
(*           first and last                              *)
(*********************************************************)

(**********)
Definition frac_part_n_alpha (n : nat) : R := frac_part (INR n * alpha).(**********)
Definition ordre_total (n m : nat) :=
  (0 < alpha)%R /\ (alpha < 1)%R ->
  (frac_part_n_alpha n <= frac_part_n_alpha m)%R.

Lemma tech_total_order : forall n : nat, ordre_total n n.