let a, c be Real; :: thesis: for z being Element of COMPLEX st a <> 0 & (4 * a) * c <= 0 & Polynom a,0 ,c,0 ,z = 0 & not z = (sqrt (- ((4 * a) * c))) / (2 * a) & not z = (- (sqrt (- ((4 * a) * c)))) / (2 * a) holds
z = 0

let z be Element of COMPLEX ; :: thesis: ( a <> 0 & (4 * a) * c <= 0 & Polynom a,0 ,c,0 ,z = 0 & not z = (sqrt (- ((4 * a) * c))) / (2 * a) & not z = (- (sqrt (- ((4 * a) * c)))) / (2 * a) implies z = 0 )
assume A1: ( a <> 0 & (4 * a) * c <= 0 & Polynom a,0 ,c,0 ,z = 0 ) ; :: thesis: ( z = (sqrt (- ((4 * a) * c))) / (2 * a) or z = (- (sqrt (- ((4 * a) * c)))) / (2 * a) or z = 0 )
then ((a * (z ^2 )) + c) * z = 0 ;
then A2: ( Polynom a,0 ,c,z = 0 or z = 0 ) ;
( z = ((- 0 ) + (sqrt (delta a,0 ,c))) / (2 * a) or z = ((- 0 ) - (sqrt (delta a,0 ,c))) / (2 * a) or z = 0 or z = 0 / (2 * a) ) by A1, A2, Th4;
hence ( z = (sqrt (- ((4 * a) * c))) / (2 * a) or z = (- (sqrt (- ((4 * a) * c)))) / (2 * a) or z = 0 ) ; :: thesis: verum