theorem Th2:
  x <= y & y <= x implies x = y
by BCIALG_1:def 7;
