Notation FinFieldExtType := FinVector.fieldExt_finFieldType.Notation FinSplittingFieldAxiom := (FinVector.finField_splittingField_axiom _).Notation FinSplittingFieldType F L :=
  (SplittingFieldType F L FinSplittingFieldAxiom).Local Notation R := (type _ charRp).Local Infix "%|" := dvdn.

Lemma primeChar_scaleDl x : {morph primeChar_scale^~ x: a b / a + b}.