theorem Th38:
  |(p,p <X> q)| = 0
  proof
    thus |(p,p <X> q)| = |{p,p,q}| by EUCLID_5:def 5
                 .= 0 by EUCLID_5:31;
  end;
