reserve E, x, y, X for set;
reserve A, B, C for Subset of E^omega;
reserve a, a1, a2, b for Element of E^omega;
reserve i, k, l, m, n for Nat;

theorem Th22:
  A |^.. (n + k) = (A |^.. n) ^^ (A |^ k)
proof
  defpred P[Nat] means A |^.. (n + $1) = (A |^.. n) ^^ (A |^ $1);
A1: now
    let k be Nat;
    assume
A2: P[k];
    A |^.. (n + (k + 1)) = (A |^.. (n + k + 1))
      .= (A |^.. n) ^^ (A |^ k) ^^ A by A2,Th16
      .= (A |^.. n) ^^ ((A |^ k) ^^ A) by FLANG_1:18
      .= (A |^.. n) ^^ (A |^ (k + 1)) by FLANG_1:23;
    hence P[k + 1];
  end;
  A |^.. (n + 0) = (A |^.. n) ^^ {<%>E} by FLANG_1:13
    .= (A |^.. n) ^^ (A |^ 0) by FLANG_1:24;
  then
A3: P[0];
  for k being Nat holds P[k] from NAT_1:sch 2(A3, A1);
  hence thesis;
end;
