fact: Definition NextMod (p q : polyF) : cps polyF := fun k => bind lq <- LeadCoef q; bind spq <- Rscal p q; bind rpq <- Rmod p q; k (- lq ^+ spq *: rpq)%qfT.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(finfun path matrix) mathcomp(bigop order ssralg poly polydiv ssrnum zmodp div ssrint) mathcomp(polyorder polyrcf interval polyXY) mathcomp(qe_rcf_th ordered_qelim mxtens)