let fi be Ordinal-Sequence; :: thesis: for C being Ordinal st C <> {} & ( for A being Ordinal st A in dom fi holds
fi . A = A *^ C ) holds
fi is increasing

let C be Ordinal; :: thesis: ( C <> {} & ( for A being Ordinal st A in dom fi holds
fi . A = A *^ C ) implies fi is increasing )

assume that
A1: C <> {} and
A2: for A being Ordinal st A in dom fi holds
fi . A = A *^ C ; :: thesis: fi is increasing
let A be Ordinal; :: according to ORDINAL2:def 16 :: thesis: for b1 being set holds
( not A in b1 or not b1 in dom fi or fi . A in fi . b1 )

let B be Ordinal; :: thesis: ( not A in B or not B in dom fi or fi . A in fi . B )
assume A3: ( A in B & B in dom fi ) ; :: thesis: fi . A in fi . B
then ( fi . A = A *^ C & fi . B = B *^ C ) by A2, ORDINAL1:19;
hence fi . A in fi . B by A1, A3, ORDINAL2:57; :: thesis: verum