fact: Definition ratR (a : rat) := if a \is a Qint then intR (numq a) else intR (numq a) / intR (denq a).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div order) mathcomp(ssralg ssrnum ssrint rat intdiv) Coq(Morphisms Setoid) fourcolor(real realsyntax)