fact: Fixpoint abstrX (i : nat) (t : tF) : polyF := (match t with | 'X_n => if n == i then [::0; 1] else [::t] | - x => -- abstrX i x | x + y => abstrX i x ++ abstrX i y | x * y => abstrX i x ** abstrX i y | x *+ n => n +** abstrX i x | x ^+ n => abstrX i x ^^+ n | _ => [::t] end)%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)