
theorem Th38:
  for A,B being transitive with_units non empty AltCatStr,
  F being feasible FunctorStr over A,B st F is bijective Covariant
  holds F" is Covariant
proof
  let A,B be transitive with_units non empty AltCatStr,
  F be feasible FunctorStr over A,B;
  assume
A1: F is bijective Covariant;
  then F is injective;
  then F is one-to-one;
  then
A2: the ObjectMap of F is one-to-one;
  F is surjective by A1;
  then F is onto;
  then
A3: the ObjectMap of F is onto;
  the ObjectMap of F is Covariant by A1;
  then consider f being Function of the carrier of A, the carrier of B
  such that
A4: the ObjectMap of F = [:f,f:];
A5: f is one-to-one by A2,A4,Th7;
  then
A6: dom(f") = rng f by FUNCT_1:33;
A7: rng(f") = dom f by A5,FUNCT_1:33;
A8: rng[:f,f:] = [:the carrier of B,the carrier of B:] by A3,A4;
  rng[:f,f:] = [:rng f,rng f:] by FUNCT_3:67;
  then rng f = the carrier of B by A8,ZFMISC_1:92;
  then reconsider g = f" as Function of the carrier of B, the carrier of A
  by A6,A7,FUNCT_2:def 1,RELSET_1:4;
  take g;
  [:f,f:]" = [:g,g:] by A5,Th6;
  hence thesis by A1,A4,Def38;
end;
