consider F being contravariant Functor of F1(),F2() such that
A5:
for a being Object of F1() holds F . a = F3(a)
and
A6:
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;
A7:
for a, b being Object of F1() st F3(a) = F3(b) holds
a = b
by A2;
A8:
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;
A9:
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
( b = F3(c) & a = F3(d) & <^c,d^> <> {} & f = F4(c,d,g) )
by A4;
take
F
; FUNCTOR0:def 40 ( F is bijective & F is contravariant )
thus
F is bijective
from YELLOW18:sch 12(A5, A6, A7, A8, A9); F is contravariant
thus
F is contravariant
; verum