theorem Fsuba: :: FIELD_12:54
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)) holds F is Subfield of unionField (S,f,E)