theorem
  f is retraction iff f opp is coretraction
proof
  thus f is retraction implies f opp is coretraction
  proof
   assume
A1: Hom(a,b) <> {} & Hom(b,a) <> {};
   given i being Morphism of b,a such that
A2: f*i = id b;
   thus Hom(b opp,a opp) <> {} & Hom(a opp,b opp) <> {} by A1,OPPCAT_1:5;
   take i opp;
   thus (i opp)*(f opp) = id b by A1,A2,OPPCAT_1:70
       .= id (b opp) by OPPCAT_1:71;
  end;
   assume
A3: Hom(b opp,a opp) <> {} & Hom(a opp,b opp) <> {};
  given i being Morphism of a opp, b opp such that
A4: i*(f opp) = id(b opp);
  thus
A5: Hom(a,b) <> {} & Hom(b,a) <> {} by A3,OPPCAT_1:5;
  take opp i;
A6: (opp i) opp = opp i by A5,OPPCAT_1:def 6
       .= i by A3,OPPCAT_1:def 7;
  thus f*(opp i) = id(b opp) by A4,A6,A5,OPPCAT_1:70
       .= id b by OPPCAT_1:71;
end;
