let S1, S2 be non empty transitive strict SubCatStr of C; :: thesis: ( the carrier of S1 = the carrier of C & the Arrows of S1 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 S1 . o1,o2 iff ( <^o1,o2^> <> {} & m is mono ) ) ) & the carrier of S2 = the carrier of C & the Arrows of S2 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 S2 . o1,o2 iff ( <^o1,o2^> <> {} & m is mono ) ) ) implies S1 = S2 )
assume that
A49:
the carrier of S1 = the carrier of C
and
A50:
the Arrows of S1 cc= the Arrows of C
and
A51:
for o1, o2 being object of C
for m being Morphism of o1,o2 holds
( m in the Arrows of S1 . o1,o2 iff ( <^o1,o2^> <> {} & m is mono ) )
and
A52:
the carrier of S2 = the carrier of C
and
A53:
the Arrows of S2 cc= the Arrows of C
and
A54:
for o1, o2 being object of C
for m being Morphism of o1,o2 holds
( m in the Arrows of S2 . o1,o2 iff ( <^o1,o2^> <> {} & m is mono ) )
; :: thesis: S1 = S2
hence
S1 = S2
by A49, A52, ALTCAT_2:27, PBOOLE:3; :: thesis: verum