fact: Definition ChangesPoly ps : cps int := fun k => bind mps <- SeqMInfty ps; bind pps <- SeqPInfty ps; bind vm <- Changes mps; bind vp <- Changes pps; k (vm%:Z - vp%:Z).
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)