for C being non empty composable with_identities CategoryStr
for a, b being Object of C
for f being Morphism of a,b st Hom (a,b) <> {} holds
( f * (id- a) = f & (id- b) * f = f )