theorem Th14:
  len(p^<*a*>) = len p + 1
proof
  len(p^<*a*>) = len p + len <*a*> by FINSEQ_1:22;
  hence thesis by FINSEQ_1:39;
end;
