Implicit Types tx ty : tF.Notation abstrX_bigmul := (big_morph _ (abstrX_mulM _) (abstrX1 _)).Notation eval_bigmul := (big_morph _ (eval_poly_mulM _) (eval_poly1 _)).Notation bigmap_id := (big_map _ (fun _ => true) id).

Lemma rseq_poly_map (x : nat) (ts : seq tF) : all (@rterm _) ts -> all rpoly (map (abstrX x) ts).