Concatenate enumeration

[Pablo <pablittto@gmail.com>]

Hi, I have a enumerate type and I have another one which I want to add
some enumerations.
So:
type Enumerate_Type is
  (
   NONE,
   READY
  );
for Enumerate_Type use
  (
   NONE  => 0,
   READY=> 1
  );
for Enumerate_Type'Size use 1;

and I want to create a new type Enumerate2_Type which could be the
form
type Enumerate_Type is
  (
   NONE,
   READY,
   OFF
  );
for Enumerate_Type use
  (
   NONE  => 0,
   READY=> 1,
   OFF     => 2
  );
for Enumerate_Type'Size use 2;

How to I do this without having to explicit clone the first one?
Thanks