theorem Th33:
  (for a,b st a in B & b in B & a c= b holds a = b) implies B in
  Normal_forms_on A;
