proposition: Lemma tech_single_z_r_R1_depr : forall r (n:Z), r < IZR n -> IZR n <= r + 1 -> (exists s : Z, s <> n /\ r < IZR s /\ IZR s <= r + 1) -> False.
proof: Proof. now intros r z H1 H2 [s [H3 [H4 H5]]]; apply H3, (one_IZR_r_R1 r). Qed.
imports: RelationClasses Raxioms Rpow_def ZArith ZArithRing RealField