reserve B,C,D for Category;

theorem
  for S1 being Functor of C,B, S2 being Contravariant_Functor of B,D
  holds S2*S1 is Contravariant_Functor of C,D
proof
  let S1 be Functor of C,B, S2 be Contravariant_Functor of B,D;
  *'S1 is Contravariant_Functor of C opp,B by Th55;
  then S2*(*'S1) is Functor of C opp,D by Th33;
  then /*(S2*(*'S1)) is Contravariant_Functor of C,D by Th32;
  then S2*(/*(*'S1)) is Contravariant_Functor of C,D by Lm18;
  hence thesis by Th45;
end;
