theorem Th31:
  p = <%x%> iff len p = 1 & p.0 = x by Def4;
