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 charf_n_separable K x n :
[char L].-nat n -> 1 < n -> separable_element K x = (x \in <<K; x ^+ n>>%VS).