reserve C for CategoryStr;
reserve f,f1,f2,f3 for morphism of C;
reserve g1,g2 for morphism of C opp;

theorem Th27:
  for C being composable with_identities CategoryStr, f,f1 being morphism of C
  st f1 |> f & f1 is identity holds cod f = f1
  proof
    let C be composable with_identities CategoryStr;
    let f,f1 be morphism of C;
    assume
A1: f1 |> f & f1 is identity;
    then
A2: C is non empty;
    then reconsider o = f1 as Object of C by A1,Th22;
    ex f11 being morphism of C st o = f11 & f11 |> f & f11 is identity by A1;
    hence cod f = f1 by A2,Def19;
  end;
