A5:
for a, b being object of st F3(a) = F3(b) holds
a = b
by A2;
A6:
for a, b being object of st <^a,b^> <> {} holds
for f, g being Morphism of , st F4(a,b,f) = F4(a,b,g) holds
f = g
by A3;
A7:
for a, b being object of st <^a,b^> <> {} holds
for f being Morphism of , ex c, d being object of ex g being Morphism of , 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 holds F . a = F3(a)
and
A9:
for a, b being object of st <^a,b^> <> {} holds
for f being Morphism of , holds F . f = F4(a,b,f)
by A1;
take
F
; FUNCTOR0:def 40 ( F is bijective & F is covariant )
thus
F is bijective
from YELLOW18:sch 10(A8, A9, A5, A6, A7); F is covariant
thus
F is covariant
; verum