fact: Definition Rtoint (x : R) : int := if insub x : {? x | x \is a Rint} is Some Px then xchoose (asboolP _ (tagged Px)) else 0.
imports: HB(structures) mathcomp(all_ssreflect all_algebra) mathcomp(mathcomp_extra boolp classical_sets set_interval) Setoid