fact: Fixpoint Size (p : polyF) : cps nat := fun k => if p is c :: q then bind n <- Size q; if n is m.+1 then k m.+2 else If c == 0 Then k 0%N Else k 1%N else k 0%N.
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)