fact: Fixpoint SeqPInfty (ps : seq polyF) : cps (seq tF) := fun k => if ps is p :: ps then bind lp <- LeadCoef p; bind lps <- SeqPInfty ps; k (lp :: lps) 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)