theorem Th33:
  F1 is_naturally_transformable_to F2 implies (id B)*s = s
proof
  assume
A1: F1 is_naturally_transformable_to F2;
A2: (id B)*F1 = F1 by FUNCT_2:17;
  then reconsider t = (id B)*s as natural_transformation of F1,F2 by FUNCT_2:17
;
A3: (id B)*F2 = F2 by FUNCT_2:17;
  now
    let a be Object of A;
A4: Hom(F1.a,F2.a) <> {} by A1,Th23;
    thus t.a = (id B)/.(s.a) by A1,A2,A3,Th21
      .= (id B).(s.a qua Morphism of B) by A4,CAT_3:def 10
      .= s.a by FUNCT_1:18;
  end;
  hence thesis by A1,Th24;
end;
