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).

(* Specifications: *)
Lemma rseq_poly_map (x : nat) (ts : seq tF) : all (@rterm _) ts -> all rpoly (map (abstrX x) ts).
Lemma ex_elim_qf (x : nat) (pqs : seq tF * seq tF) : GRing.dnf_rterm pqs -> qf (ex_elim x pqs).
Lemma holds_ex_elim: GRing.valid_QE_proj ex_elim.
Qed.