theorem simpmainhelp: :: FIELD_14:75
for F being Field
for K being b1 -finite FieldExtension of F
for E being b1 -extending b1 -finite FieldExtension of F
for a being b2 -algebraic Element of E st E == FAdj (F,{a}) holds
( E == FAdj (K,{a}) & K == FAdj (F,(Coeff (MinPoly (a,K)))) )