theorem
  (id A)\f = id A
proof
  thus (id A)\f = f*f" by FUNCT_2:17
    .= id A by FUNCT_2:61;
end;
