(* This is an overwrite -- is there any point in what I have? *)
(* ------------------------------------------------------------------------- *)
-let is_type = can get_type_arity;;
+(*let is_type = can get_type_arity;;*)
(* ------------------------------------------------------------------------- *)
(* I suppose this is also useful. *)