Notation fF := (@GRing.formula F).Notation tF := (@GRing.term F).Notation qf f := (GRing.qf_form f && GRing.rformula f).Definition polyF := seq tF.

Lemma qf_simpl (f : fF) : (qf f -> GRing.qf_form f) * (qf f -> GRing.rformula f).