fact: Fixpoint ProdPoly T (s : seq T) (f : T -> cps polyF) : cps polyF := fun k => if s is a :: s then bind fa <- f a; bind fs <- ProdPoly s f; k (fa ** fs)%qfT else k [::1%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)