theorem Th7:
  p <==> q & q <==> r implies p <==> r
by Th4;
