theorem Th41:
  the_sort_of t = s implies (x-term)-sub(t) = t
  proof assume the_sort_of t = s;
    hence (x-term)-sub(t) = (x-term,[x,s])<-t by SUB .= t;
  end;
