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 Th53:
  A* = {<%>E} \/ (A+)
proof
  thus A* = {<%>E} \/ ((A*) ^^ A) by FLANG_1:56
    .= {<%>E} \/ (A+) by Th52;
end;
