let A be non empty AltCatStr ; :: thesis: for B, C being non empty reflexive AltCatStr
for F being feasible Covariant FunctorStr of A,B
for N being feasible Contravariant FunctorStr of B,C
for o1, o2 being object of A
for m being Morphism of o1,o2 st <^o1,o2^> <> {} holds
(N * F) . m = N . (F . m)
let B, C be non empty reflexive AltCatStr ; :: thesis: for F being feasible Covariant FunctorStr of A,B
for N being feasible Contravariant FunctorStr of B,C
for o1, o2 being object of A
for m being Morphism of o1,o2 st <^o1,o2^> <> {} holds
(N * F) . m = N . (F . m)
let F be feasible Covariant FunctorStr of A,B; :: thesis: for N being feasible Contravariant FunctorStr of B,C
for o1, o2 being object of A
for m being Morphism of o1,o2 st <^o1,o2^> <> {} holds
(N * F) . m = N . (F . m)
let N be feasible Contravariant FunctorStr of B,C; :: thesis: for o1, o2 being object of A
for m being Morphism of o1,o2 st <^o1,o2^> <> {} holds
(N * F) . m = N . (F . m)
let o1, o2 be object of A; :: thesis: for m being Morphism of o1,o2 st <^o1,o2^> <> {} holds
(N * F) . m = N . (F . m)
let m be Morphism of o1,o2; :: thesis: ( <^o1,o2^> <> {} implies (N * F) . m = N . (F . m) )
assume A1: <^o1,o2^> <> {} ; :: thesis: (N * F) . m = N . (F . m)
set I = the carrier of A;
reconsider s = the MorphMap of F . o1,o2 as Function ;
reconsider r = ((the MorphMap of N * the ObjectMap of F) ** the MorphMap of F) . o1,o2 as Function ;
reconsider t = (the MorphMap of N * the ObjectMap of F) . o1,o2 as Function ;
A2: <^(F . o1),(F . o2)^> <> {} by A1, FUNCTOR0:def 19;
then A3: dom (Morph-Map F,o1,o2) = <^o1,o2^> by FUNCT_2:def 1;
A4: dom ((the MorphMap of N * the ObjectMap of F) ** the MorphMap of F) = (dom (the MorphMap of N * the ObjectMap of F)) /\ (dom the MorphMap of F) by PBOOLE:def 24
.= [:the carrier of A,the carrier of A:] /\ (dom the MorphMap of F) by PARTFUN1:def 4
.= [:the carrier of A,the carrier of A:] /\ [:the carrier of A,the carrier of A:] by PARTFUN1:def 4
.= [:the carrier of A,the carrier of A:] ;
A5: dom the ObjectMap of F = [:the carrier of A,the carrier of A:] by FUNCT_2:def 1;
A6: ( (N * F) . o1 = N . (F . o1) & (N * F) . o2 = N . (F . o2) ) by FUNCTOR0:34;
A7: [o1,o2] in [:the carrier of A,the carrier of A:] by ZFMISC_1:def 2;
A8: <^(N . (F . o2)),(N . (F . o1))^> <> {} by A2, FUNCTOR0:def 20;
hence (N * F) . m = (Morph-Map (N * F),o1,o2) . m by A1, A6, FUNCTOR0:def 17
.= r . m by FUNCTOR0:def 37
.= (t * s) . m by A4, A7, PBOOLE:def 24
.= t . ((Morph-Map F,o1,o2) . m) by A1, A3, FUNCT_1:23
.= t . (F . m) by A1, A2, FUNCTOR0:def 16
.= (the MorphMap of N . (the ObjectMap of F . o1,o2)) . (F . m) by A5, A7, FUNCT_1:23
.= (Morph-Map N,(F . o1),(F . o2)) . (F . m) by FUNCTOR0:23
.= N . (F . m) by A2, A8, FUNCTOR0:def 17 ;
:: thesis: verum