fact: Definition CcountWeak (p : polyF) (sq : seq polyF) : cps tF := fun k => let fix aux s (i : nat) k := if i is i'.+1 then bind x <- TaqsR p sq i'; aux (x * (Coefs (size sq) i') + s)%qfT i' k else k s in aux 0%qfT (3 ^ size sq)%N 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)