
   TYPE
     cmt$device_access = (cmc$read, cmc$write),

     cmt$element_access = set of cmt$device_access;
