theorem Th64:
  for S for p, q being Element of S for r being Element of S^^2 st r = p^q
    holds decomp(S, 2, r) = <*p, q*>
proof
  let S;
  let p, q be Element of S;
  let r be Element of S^^2;
  assume A1: r = p^q;
  set w = decomp(S, 2, r);
  1 in Seg 2 by FINSEQ_1:2, TARSKI:def 2;
  then consider k such that
    A2: 1 = k+1 and
    A3: w.1 = S-head((S^^k)-tail r) by Def32;
  A5: w.1 = S-head r by A2, A3, Th58
      .= p by A1;
  2 in Seg 2 by FINSEQ_1:2, TARSKI:def 2;
  then consider m such that
    A7: 2 = m+1 and
    A8: w.2 = S-head((S^^m)-tail r) by Def32;
  thus thesis by A1, A5, A7, A8, Th62, FINSEQ_1:44;
end;
