theorem Th4:
  a1 [= b1 implies f.a1 [= f.b1 by D1;
