theorem Th24:
  A |^ 0 = {<%>E}
proof
  ex concat being sequence of  bool (E^omega) st A |^ 0 = concat.0 &
  concat.0 = {<%>E} & for i holds concat.(i + 1) = concat.i ^^ A by Def2;
  hence thesis;
end;
