theorem Th62:
  A "**" <*f*> = <* A "**" f *>
proof
A1: len (A"**"<*f*>)=len <*f*>=1 by CARD_1:def 7;
  then 1 in dom <*f*> & <*f*>.1 = f by FINSEQ_3:25;
  then (A"**"<*f*>).1= A"**" f by Def10;
  hence thesis by FINSEQ_1:40,A1;
end;
