theorem
  p in D implies (.p.> c= (.D.>
proof
  <.p.:.) = (.p.> & <.D.:.) = (.D.> by Th29,Th36;
  hence thesis by FILTER_0:23;
end;
