theorem
  x is Element of <NAT,+,0> iff x is Element of NAT
proof
  carr(<NAT,+,0>) = carr(<NAT,+>) by Th18
    .= NAT by Def27;
  hence thesis;
end;
