:: deftheorem Def1 defines AllMono ALTCAT_4:def 1 :
for C being category
for b2 being non empty transitive strict SubCatStr of C holds
( b2 = AllMono C iff ( the carrier of b2 = the carrier of C & the Arrows of b2 cc= the Arrows of C & ( for o1, o2 being Object of C
for m being Morphism of o1,o2 holds
( m in the Arrows of b2 . (o1,o2) iff ( <^o1,o2^> <> {} & m is mono ) ) ) ) );