:: deftheorem dufe defines unionExt FIELD_12:def 23 :
for F being Field
for E being FieldExtension of F
for L being b1 -monomorphic Field
for f being Monomorphism of F,L
for S being non empty ascending Subset of (Ext_Set (f,E))
for b6 being Function of (unionField (S,f,E)),L holds
( b6 = unionExt (S,f,E) iff for p being Element of S holds b6 | the carrier of (p `1) = p `2 );