File:Homotopyleftofcomposition.png

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

Graphics[{Pink, EdgeForm[White], Polygon[{{1, 1}, {1, 0}, {0, 0}, {0, 1}}], Black, Line[{{1, 0}, {0, 0}, {0, 1}, {1, 1}}], Dashed, Line[{{1, 1}, {1, 0}}], Text["\!\(\*SubscriptBox[\(F\), \(1\)]\)", {0.5, 0.5}], Text["\!\(\*SubscriptBox[\(f\), \(1\)]\)", {0.5, 0.05}], Text["\!\(\*SubscriptBox[\(g\), \(1\)]\)", {0.5, 0.95}]}]