Canonical primeChar_vectType := VectType 'F_p R primeChar_vectMixin.

(* Specifications: *)
Lemma primeChar_dimf : \dim {:primeChar_vectType} = n.
Fact galLgen K :
{alpha | generator 'Gal({:L} / K) alpha & forall x, alpha x = x ^+ order K}.
Lemma finField_galois K E : (K <= E)%VS -> galois K E.
Lemma finField_galois_generator K E :
(K <= E)%VS ->
{alpha | generator 'Gal(E / K) alpha
& {in E, forall x, alpha x = x ^+ order K}}.