fact: Fixpoint ModsAux (p q : polyF) n : cps (seq polyF) := fun k => if n is m.+1 then bind p_eq0 <- Isnull p; if p_eq0 then k [::] else bind npq <- NextMod p q; bind ps <- ModsAux q npq m; k (p :: ps) else k [::].
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)