theorem Th34:
  a c= X implies [id a,a] in TOL(X)
proof
  assume
A1: a c= X;
  then id a in Toler_on_subsets(X) by Th30;
  hence thesis by A1;
end;
