theorem Th4:
  len u = 1 implies ex e st <%e%> = u & e = u.0
proof
  assume len u = 1;
  then len u = 0 + 1;
  then consider v, e such that
A1: len v = 0 and
A2: u = v^<%e%> by FLANG_1:7;
  take e;
 v = <%>E by A1;
  then u = {}^<%e%> by A2;
  then u = <%e%>;
  hence thesis;
end;
