theorem Th18:
  for P, A, U, n, p, q st p in P & n = A.p & q in U^^n holds
      p^q in Polish-expression-layer(P, A, U)
proof
  let P, A, U, n, p, q;
  set r = p^q;
  assume that
  A1: p in P and
  A2: n = A.p and
  A3: q in U^^n;
  A4: q in P* by A3, Th14, TARSKI:def 3;
  p in P* by A1, Th9, TARSKI:def 3;
  then r in P* by A4, Th12;
  hence thesis by A1, A2, A3, Def6;
end;
