reserve C for CatStr;
reserve f,g for Morphism of C;
reserve C for non void non empty CatStr,
  f,g for Morphism of C,
  a,b,c,d for Object of C;
reserve o,m for set;
reserve B,C,D for Category;
reserve a,b,c,d for Object of C;
reserve f,f1,f2,g,g1,g2 for Morphism of C;
reserve f,f1,f2 for Morphism of a,b;
reserve f9 for Morphism of b,a;
reserve g for Morphism of b,c;
reserve h,h1,h2 for Morphism of c,d;

theorem Th69:
  id the carrier' of C is Functor of C,C
proof
  set F = id the carrier of C;
  set T = id the carrier' of C;
   (for c being Object of C holds T.(id c) = id(F.c)) &
   (for f being Morphism of C holds F.(dom f) = dom (T.f) & F.(cod f) =
    cod (T.f)) &
    for f,g being Morphism of C st  dom g = cod f
     holds T.(g(*)f) = (T.g)(*)(T.f);
  hence thesis by Th60;
end;
