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