theorem Th7:
  p in W & q in W & not p is_a_prefix_of q implies
  q in W with-replacement (p,W1)
proof
 not p is_a_prefix_of q implies not p is_a_proper_prefix_of q;
  hence thesis by TREES_1:def 9;
end;
