Enumeration type "importation" problem

Enumeration type "importation" problem

["EDWARD CRAGG"]

I am looking for a simple way to make an enumeration type which is
declared in one package an integral part of a second package as
follows: 


package SYSTEM_INTERFACE_TO_BE_HIDDEN_FROM_AVERAGE_USER is
type SYS_STATUS is ( OK, SOME_ERROR );
    .     .     .
end SYSTEM_INTERFACE_TO_BE_HIDDEN_FROM_AVERAGE_USER;


with SYSTEM_INTERFACE_TO_BE_HIDDEN_FROM_AVERAGE_USER;
package AVERAGE_USER_INTERFACE is
-- somehow I would like to declare STATUS such that
--     1) OK and SOME_ERROR are the values for status
--     2) = and /= are visible without needing to with and use
--        SYSTEM_INTERFACE_TO_BE_HIDDEN_FROM_AVERAGE_USER
--     3) there is a simple way to convert between STATUS and SYS_STATUS
--        (note, since in real life there are several hundred 
--         enumeration values for SYS_STATUS, I do not regard a CASE
--         conversion to be 'simple'
--
--     SUBTYPE and RENAMES satisfy 1 and 3 but not 2,
--     declaring a separate type and writing my own conversion 
--     functions satisfy 1 and 2 but not 3.
end AVERAGE_USER_INTERFACE;

Does anyone have any thoughts?


 ............................................................
Edward E Cragg                Bitnet:   ECRAGG@GMUVAX
                              Internet: ECRAGG@GMUVAX.GMU.EDU