VARIABLES T P E FIX_VARIABLES SUBTYPE P My SUBTYPE Int T SUBTYPE Successor P