let V be non empty set ; :: thesis: for m1, m2 being Element of Maps V st dom m2 = cod m1 holds
( (m2 * m1) `2 = (m2 `2) * (m1 `2) & dom (m2 * m1) = dom m1 & cod (m2 * m1) = cod m2 )
let m1, m2 be Element of Maps V; :: thesis: ( dom m2 = cod m1 implies ( (m2 * m1) `2 = (m2 `2) * (m1 `2) & dom (m2 * m1) = dom m1 & cod (m2 * m1) = cod m2 ) )
assume dom m2 = cod m1 ; :: thesis: ( (m2 * m1) `2 = (m2 `2) * (m1 `2) & dom (m2 * m1) = dom m1 & cod (m2 * m1) = cod m2 )
then [[(dom m1),(cod m2)],((m2 `2) * (m1 `2))] = m2 * m1 by Def6
.= [[(dom (m2 * m1)),(cod (m2 * m1))],((m2 * m1) `2)] by Th8 ;
hence ( (m2 * m1) `2 = (m2 `2) * (m1 `2) & dom (m2 * m1) = dom m1 & cod (m2 * m1) = cod m2 ) by Lm1, XTUPLE_0:1; :: thesis: verum