diff -r 50fca2d3abd9 -r 8ba9ec4bae50 stage3/datatype_functions.hh
--- a/stage3/datatype_functions.hh	Thu Oct 04 13:12:19 2012 +0100
+++ b/stage3/datatype_functions.hh	Thu Oct 04 14:30:51 2012 +0100
@@ -161,54 +161,6 @@
 
 
 
-/* A helper function... */
-bool is_ANY_ELEMENTARY_type                (symbol_c *type_symbol);
-bool is_ANY_SAFEELEMENTARY_type            (symbol_c *type_symbol);
-bool is_ANY_ELEMENTARY_compatible          (symbol_c *type_symbol);
-
-bool is_ANY_MAGNITUDE_type                 (symbol_c *type_symbol);
-bool is_ANY_SAFEMAGNITUDE_type             (symbol_c *type_symbol);
-bool is_ANY_MAGNITUDE_compatible           (symbol_c *type_symbol);
-
-bool is_ANY_signed_MAGNITUDE_type          (symbol_c *type_symbol);
-bool is_ANY_signed_SAFEMAGNITUDE_type      (symbol_c *type_symbol);
-bool is_ANY_signed_MAGNITUDE_compatible    (symbol_c *type_symbol);
-
-bool is_ANY_DATE_type                      (symbol_c *type_symbol);
-bool is_ANY_SAFEDATE_type                  (symbol_c *type_symbol);
-bool is_ANY_DATE_compatible                (symbol_c *type_symbol);
-
-bool is_ANY_STRING_type                    (symbol_c *type_symbol);
-bool is_ANY_SAFESTRING_type                (symbol_c *type_symbol);
-bool is_ANY_STRING_compatible              (symbol_c *type_symbol);
-
-bool is_ANY_INT_type                       (symbol_c *type_symbol);
-bool is_ANY_SAFEINT_type                   (symbol_c *type_symbol);
-bool is_ANY_INT_compatible                 (symbol_c *type_symbol);
-
-bool is_ANY_signed_INT_type                (symbol_c *type_symbol);
-bool is_ANY_signed_SAFEINT_type            (symbol_c *type_symbol);
-bool is_ANY_signed_INT_compatible          (symbol_c *type_symbol);
-
-bool is_ANY_REAL_type                      (symbol_c *type_symbol);
-bool is_ANY_SAFEREAL_type                  (symbol_c *type_symbol);
-bool is_ANY_REAL_compatible                (symbol_c *type_symbol);
-
-bool is_ANY_NUM_type                       (symbol_c *type_symbol);
-bool is_ANY_SAFENUM_type                   (symbol_c *type_symbol);
-bool is_ANY_NUM_compatible                 (symbol_c *type_symbol);
-
-bool is_ANY_signed_NUM_type                (symbol_c *type_symbol);
-bool is_ANY_signed_SAFENUM_type            (symbol_c *type_symbol);
-bool is_ANY_signed_NUM_compatible          (symbol_c *type_symbol);
-
-bool is_ANY_BIT_type                       (symbol_c *type_symbol);
-bool is_ANY_SAFEBIT_type                   (symbol_c *type_symbol);
-bool is_ANY_BIT_compatible                 (symbol_c *type_symbol);
-
-bool is_BOOL_type                          (symbol_c *type_symbol);
-bool is_SAFEBOOL_type                      (symbol_c *type_symbol);
-bool is_ANY_BOOL_compatible                (symbol_c *type_symbol);
 
 
 bool is_type_equal(symbol_c *first_type, symbol_c *second_type);