theorem lembascard: :: FIELD_6:66
for F being Field
for E being FieldExtension of F
for a being b1 -algebraic Element of E holds card (Base a) = deg (MinPoly (a,F))