GeometricScene[{{A.,B.,C.,D.,E.,F.,G.,H.,I.,M.},{}},{{C.Midpoint[Style[Line[{A.,B.}],Blue]],Parallelogram[{A.,B.,D.,E.}],F.Midpoint[Line[{D.,E.}]],Line[{C.,F.}]},{Line[{B.,G.,F.}]},{H.∈Line[{B.,D.}],GeometricAssertion[{Line[{G.,H.}],Line[{B.,C.}]},"Parallel"]},{I.∈Line[{B.,C.}],GeometricAssertion[{Line[{G.,I.}],Line[{B.,D.}]},"Parallel"]},{Line[{H.,G.,M.}],Line[{A.,M.,E.}]},{Style[Polygon[{A.,C.,F.,E.}],Pink],Style[Polygon[{A.,I.,G.,M.}],Green]}},{Area[Polygon[{A.,C.,F.,E.}]]>Area[Polygon[{A.,I.,G.,M.}]],GeometricAssertion[{Polygon[{I.,B.,H.,G.}],Polygon[{A.,C.,F.,E.}]},"Similar"]}]
