proposition: Lemma eval_Mods e p q k k' : (forall sp, qf_eval e (k sp) = k' (map (eval_poly e) sp)) -> qf_eval e (Mods p q k) = k' (mods (eval_poly e p) (eval_poly e q)).
proof: Proof. by move=> Pk; rewrite !eval_Size; apply: eval_ModsAux. Qed.
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)