theorem
  addnat = addreal||NAT & addnat = addint||NAT
proof
  carr(<NAT,+>) = NAT by Def27;
  hence thesis by Th24,GR_CY_1:def 3;
end;
