proposition: Lemma up_2_epsilon:forall eps, 0<eps-> (0< up (2/eps))%Z.
proof: Proof. intros eps H_eps. apply lt_O_IZR. apply Raxioms.Rlt_trans with (2 / eps)%R; auto. elim (Raxioms.archimed (2/eps)); auto. Qed.
imports: Reals QArithSternBrocot(R_addenda) Fourier