let F be Field; :: thesis: for p being non constant Element of the carrier of (Polynom-Ring F) holds
( p is separable iff for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 )

let p be non constant Element of the carrier of (Polynom-Ring F); :: thesis: ( p is separable iff for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 )
set E = the SplittingField of p;
A: now :: thesis: ( p is separable implies for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 )end;
now :: thesis: ( ( for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 ) implies p is separable )
assume B: for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 ; :: thesis: p is separable
now :: thesis: for a being Element of the SplittingField of p st a is_a_root_of p, the SplittingField of p holds
multiplicity (p,a) = 1
let a be Element of the SplittingField of p; :: thesis: ( a is_a_root_of p, the SplittingField of p implies multiplicity (p,a) = 1 )
assume a is_a_root_of p, the SplittingField of p ; :: thesis: multiplicity (p,a) = 1
then C: multiplicity (p,a) >= 1 by mulzero;
multiplicity (p,a) <= 1 by B;
hence multiplicity (p,a) = 1 by C, XXREAL_0:1; :: thesis: verum
end;
hence p is separable ; :: thesis: verum
end;
hence ( p is separable iff for a being Element of the SplittingField of p holds multiplicity (p,a) <= 1 ) by A; :: thesis: verum