A5:
for a, b being object of F1() st F3(a) = F3(b) holds
a = b
by A2;
A6:
for a, b being object of F1() st <^a,b^> <> {} holds
for f, g being Morphism of a,b st F4(a,b,f) = F4(a,b,g) holds
f = g
by A3;
A7:
for a, b being object of F2() st <^a,b^> <> {} holds
for f being Morphism of a,b ex c, d being object of F1() ex g being Morphism of c,d st
( a = F3(c) & b = F3(d) & <^c,d^> <> {} & f = F4(c,d,g) )
by A4;
consider F being covariant Functor of F1(),F2() such that
A8:
for a being object of F1() holds F . a = F3(a)
and
A9:
for a, b being object of F1() st <^a,b^> <> {} holds
for f being Morphism of a,b holds F . f = F4(a,b,f)
by A1;
take
F
; :: according to FUNCTOR0:def 40 :: thesis: ( F is bijective & F is covariant )
thus
F is bijective
from YELLOW18:sch 10(A8, A9, A5, A6, A7); :: thesis: F is covariant
thus
F is covariant
; :: thesis: verum