proposition: Fact pickR_ex (P : pred R) : (exists x : R, P x) -> exists n, pickR P n.
proof: Proof. by rewrite /pickR; move=> /(epsilon_spec inhR)->; exists 0%N. Qed.
imports: Rdefinitions Raxioms RIneq Rbasic_fun Zwf Epsilon FunctionalExtensionality Ranalysis1 Rsqrt_def Rtrigo1 Reals mathcomp(all_ssreflect ssralg poly mxpoly ssrnum) HB(structures)