reserve i,j,n,k,m for Nat,
     a,b,x,y,z for object,
     F,G for FinSequence-yielding FinSequence,
     f,g,p,q for FinSequence,
     X,Y for set,
     D for non empty set;
reserve
  B,A,M for BinOp of D,
  F,G for D* -valued FinSequence,
  f for FinSequence of D,
  d,d1,d2 for Element of D;

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;
