File:Homotopyforcompositewithinverse.png

This file was created using Wolfram Mathematica 8 with the following code:

Graphics[{Line[{{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}], Line[{{1/2, 0}, {0, 1}}], Line[{{1/2, 0}, {1, 1}}], Text["f", {0.25, 0.05}], Text["\!\(\*SuperscriptBox[\(f\), \(-1\)]\)", {0.75, 0.05}], Text["e", {0.5, 0.95}], Text["truncation", {0.1, 0.5}], Text["not a loop", {0.1, 0.6}], Text["truncation", {0.9, 0.5}], Text["not a loop", {0.9, 0.6}], Text["stays fixed at an intermediate point", {0.5, 0.5}]}]