theorem Th7:
  p [= q iff p% <= q%
by FILTER_1:31;
