theorem Th13:
  LoopMlt(f,g),LoopMlt(g,f) are_homotopic
  proof
    take HopfHomotopy(f,g);
    thus thesis by Lm3;
  end;
