reserve x,y,X,Y for set,
  k,l,n for Nat,
  i,i1,i2,i3,j for Integer,
  G for Group,
  a,b,c,d for Element of G,
  A,B,C for Subset of G,
  H,H1,H2, H3 for Subgroup of G,
  h for Element of H,
  F,F1,F2 for FinSequence of the carrier of G,
  I,I1,I2 for FinSequence of INT;

theorem
  F |^ (len F |-> @(1)) = F
proof
  defpred P[FinSequence of the carrier of G] means $1 |^ (len $1 |-> @(1)) =
  $1;
A1: for F,a st P[F] holds P[F ^ <* a *>]
  proof
    let F,a;
    set A = F ^ <* a *>;
    assume
A2: P[F];
A3: len<* a *> = 1 by FINSEQ_1:40;
A4: len<* @(1) *> = 1 & len(len F |-> @(1)) = len F by CARD_1:def 7;
    len A = len F + len<* a *> by FINSEQ_1:22;
    hence A |^ (len A |-> @(1)) = A |^ ((len F |-> @(1)) ^ <* @(1) *>) by A3,
FINSEQ_2:60
      .= (F |^ (len F |-> @(1))) ^ (<* a *> |^ <* @(1) *>) by A3,A4,Th19
      .= F ^ <* a |^ 1 *> by A2,Th22
      .= F ^ <* a *> by GROUP_1:26;
  end;
A5: P[<*> the carrier of G]
  proof
    set A = <*> the carrier of G;
    thus A |^ (len A |-> @(1)) = A |^ (0 |-> @(1)) .= A |^ (<*> INT)
      .= A by Th21;
  end;
  for F holds P[F] from FINSEQ_2:sch 2(A5,A1);
  hence thesis;
end;
