reserve A for non empty AltCatStr,
  B, C for non empty reflexive AltCatStr,
  F for feasible Covariant FunctorStr over A, B,
  G for feasible Covariant FunctorStr over B, C,
  M for feasible Contravariant FunctorStr over A, B,
  N for feasible Contravariant FunctorStr over B, C,
  o1, o2 for Object of A,
  m for Morphism of o1, o2;
reserve A, B, C, D for transitive with_units non empty AltCatStr,
  F1, F2, F3 for covariant Functor of A, B,
  G1, G2, G3 for covariant Functor of B, C,
  H1, H2 for covariant Functor of C, D,
  p for transformation of F1, F2,
  p1 for transformation of F2, F3,
  q for transformation of G1, G2,
  q1 for transformation of G2, G3,
  r for transformation of H1, H2;
reserve A, B, C, D for category,
  F1, F2, F3 for covariant Functor of A, B,
  G1, G2, G3 for covariant Functor of B, C;
reserve t for natural_transformation of F1, F2,
  s for natural_transformation of G1, G2,
  s1 for natural_transformation of G2, G3;

theorem Th28:
  F1 is_naturally_transformable_to F2 implies G1*t is
  natural_transformation of G1*F1, G1*F2
proof
  assume
A1: F1 is_naturally_transformable_to F2;
  then
A2: F1 is_transformable_to F2;
  thus G1*F1 is_naturally_transformable_to G1*F2 by A1,Lm2;
  let a, b be Object of A such that
A3: <^a,b^> <> {};
A4: (G1*F1).b = G1.(F1.b) & <^F1.a,F1.b^> <> {} by A3,FUNCTOR0:33,def 18;
A5: <^F1.b,F2.b^> <> {} by A2;
A6: <^F1.a,F2.a^> <> {} by A2;
  reconsider G1ta = G1.(t!a) as Morphism of G1.(F1.a), (G1*F2).a by FUNCTOR0:33
;
  reconsider G1tb = G1.(t!b) as Morphism of (G1*F1).b, G1.(F2.b) by FUNCTOR0:33
;
  let f be Morphism of a, b;
A7: (G1*F2).a = G1.(F2.a) by FUNCTOR0:33;
A8: <^F2.a,F2.b^> <> {} by A3,FUNCTOR0:def 18;
A9: (G1*F1).a = G1.(F1.a) by FUNCTOR0:33;
  then reconsider G1F1f = G1.(F1.f) as Morphism of (G1*F1).a, (G1*F1).b by
FUNCTOR0:33;
A10: (G1*F2).b = G1.(F2.b) by FUNCTOR0:33;
  hence (G1*t)!b*(G1*F1).f = G1tb*((G1*F1).f) by A2,Th11
    .= G1tb*G1F1f by A3,Th6
    .= G1.(t!b*F1.f) by A9,A4,A5,FUNCTOR0:def 23
    .= G1.(F2.f*(t!a)) by A1,A3,FUNCTOR2:def 7
    .= G1.(F2.f)*G1.(t!a) by A6,A8,FUNCTOR0:def 23
    .= (G1*F2).f*G1ta by A3,A7,A10,Th6
    .= (G1*F2).f*((G1*t)!a) by A2,A9,Th11;
end;
