fact: CoInductive edivn_spec_right : nat -> nat -> nat * nat -> Type := EdivnSpec_right m d q r of m = q * d + r & (d > 0) ==> (r < d) : edivn_spec_right m d (q, r).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat div)