File:Homotopyrightofcomposition.png

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

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