fact: Definition pos_to_rat (x : pos) : rat := (val x)%:R.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq zmodp) mathcomp(path choice fintype tuple finset bigop order) mathcomp(ssralg ssrint ssrnum rat) CoqEAL(hrel param refinements pos)