theorem Th6:
  p`1 = q`1 & p`2 = q`2 implies p=q
proof
  assume p`1 = q`1 & p`2 = q`2;
  hence p=|[q`1,q`2]| by EUCLID:53
    .= q by EUCLID:53;
end;
