
theorem Th32:
  for A being non empty set for a being Object of EnsCat A
  holds the_carrier_of a = a
proof
  let A be non empty set;
  let a be Object of EnsCat A;
  thus the_carrier_of a = proj1 id a by Th31
    .= a;
end;
