Section ExtendDerivation.
Variable D : 'End(L).
Let Dx E := - (map_poly D (minPoly E x)).[x] / ((minPoly E x)^`()).[x].
Fact extendDerivation_subproof E (adjEx := Fadjoin_poly E x) :
let body y (p := adjEx y) := (map_poly D p).[x] + p^`().[x] * Dx E in
linear body.
Definition extendDerivation E : 'End(L) :=
linfun (Linear (extendDerivation_subproof E)).
Hypothesis derD : Derivation K D.
End ExtendDerivation.
End SeparableElement.
Arguments separable_elementP {K x}.

Lemma separable_exponent K x :
exists n, [char L].-nat n && separable_element K (x ^+ n).