theorem
  Hom(C) c= V implies hom??(V,C)-?a = hom-?(V,a)
proof
  assume
A1: Hom(C) c= V;
  hence hom??(V,C)-?a = (curry' hom??(C)).(id a) by Def26
    .= hom-?(a) by Th56
    .= hom-?(V,a) by A1,Def25;
end;
