for seq being Complex_Sequence holds seq = (Re seq) + (<i> (#) (Im seq)) ;