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

theorem Th36:
  (A |^ (m, n)) ^^ A = A ^^ (A |^ (m, n))
proof
  thus (A |^ (m, n)) ^^ A = (A |^ (m, n)) ^^ (A |^ 1) by FLANG_1:25
    .= (A |^ 1) ^^ (A |^ (m, n)) by Th35
    .= A ^^ (A |^ (m, n)) by FLANG_1:25;
end;
