Section TraceAndNormField.
Variables K E : {subfield L}.
End TraceAndNormField.
Definition normalField U V := [forall x in kAEndf U, x @: V == V]%VS.
Arguments normalFieldP {K E}.
Definition galois U V := [&& (U <= V)%VS, separable U V & normalField U V].

Lemma splitting_galoisField K E :
reflect (exists p, [/\ p \is a polyOver K, separable_poly p
& splittingFieldFor K p E])
(galois K E).