fact: Fixpoint Changes (s : seq tF) : cps nat := fun k => if s is a :: q then bind v <- Changes q; If (Lt (a * head 0 q) 0)%qfT Then k (1 + v)%N Else k v 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)