fact: Fixpoint mods_aux (p q : {poly F}) (n : nat) : seq {poly F} := if n is m.+1 then if p == 0 then [::] else p :: (mods_aux q (next_mod p q) m) else [::].
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)