theorem Th5: ::proposition 1.4.1
  x<=a implies x in A
proof
  assume x<=a;
  then x\a = 0.X;
  then x\a in A by BCIALG_1:def 18;
  hence thesis by BCIALG_1:def 18;
end;
