:: deftheorem defDCm defines Discriminant FIELD_9:def 10 :
for R being non degenerated Ring
for p being monic quadratic Polynomial of R
for b3 being Element of R holds
( b3 = Discriminant p iff ex b, c being Element of R st
( p = <%c,b,(1. R)%> & b3 = (b ^2) - (4 '*' c) ) );