theorem
  D = {p} implies (.D.> = (.p.>
proof
  <.p.:.) = (.p.> & <.D.:.) = (.D.> by Th29,Th36;
  hence thesis by FILTER_0:24;
end;
