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.

(* Specifications: *)
Lemma primeChar_scaleA a b x : a *p: (b *p: x) = (a * b) *p: x.
Lemma primeChar_scale1 : left_id 1 primeChar_scale.
Lemma primeChar_scaleDl x : {morph primeChar_scale^~ x: a b / a + b}.