let A be Ordinal; :: thesis: ( A <> {} & A is limit_ordinal implies for fi being Ordinal-Sequence st dom fi = A & ( for B being Ordinal st B in A holds
fi . B = exp {} ,B ) holds
{} is_limes_of fi )

assume A1: ( A <> {} & A is limit_ordinal ) ; :: thesis: for fi being Ordinal-Sequence st dom fi = A & ( for B being Ordinal st B in A holds
fi . B = exp {} ,B ) holds
{} is_limes_of fi

let fi be Ordinal-Sequence; :: thesis: ( dom fi = A & ( for B being Ordinal st B in A holds
fi . B = exp {} ,B ) implies {} is_limes_of fi )

assume A2: ( dom fi = A & ( for B being Ordinal st B in A holds
fi . B = exp {} ,B ) ) ; :: thesis: {} is_limes_of fi
per cases ( {} = {} or {} <> {} ) ;
:: according to ORDINAL2:def 13
case {} = {} ; :: thesis: ex b1 being set st
( b1 in dom fi & ( for b2 being set holds
( not b1 c= b2 or not b2 in dom fi or fi . b2 = {} ) ) )

take B = 1; :: thesis: ( B in dom fi & ( for b1 being set holds
( not B c= b1 or not b1 in dom fi or fi . b1 = {} ) ) )

{} in A by A1, ORDINAL3:10;
hence B in dom fi by A1, A2, Lm3, ORDINAL1:41; :: thesis: for b1 being set holds
( not B c= b1 or not b1 in dom fi or fi . b1 = {} )

let D be Ordinal; :: thesis: ( not B c= D or not D in dom fi or fi . D = {} )
assume ( B c= D & D in dom fi ) ; :: thesis: fi . D = {}
then ( D <> {} & exp {} ,D = fi . D ) by A2, Lm3, ORDINAL1:33;
hence fi . D = {} by Th20; :: thesis: verum
end;
case {} <> {} ; :: thesis: for b1, b2 being set holds
( not b1 in {} or not {} in b2 or ex b3 being set st
( b3 in dom fi & ( for b4 being set holds
( not b3 c= b4 or not b4 in dom fi or ( b1 in fi . b4 & fi . b4 in b2 ) ) ) ) )

thus for b1, b2 being set holds
( not b1 in {} or not {} in b2 or ex b3 being set st
( b3 in dom fi & ( for b4 being set holds
( not b3 c= b4 or not b4 in dom fi or ( b1 in fi . b4 & fi . b4 in b2 ) ) ) ) ) ; :: thesis: verum
end;
end;