1.1 --- a/src/Tools/isac/BaseDefinitions/termC.sml	Mon Sep 13 15:42:43 2021 +0200
     1.2 +++ b/src/Tools/isac/BaseDefinitions/termC.sml	Mon Sep 13 16:01:48 2021 +0200
     1.3 @@ -308,7 +308,7 @@
     1.4  fun is_f_x (f $ x) = is_fun_id f andalso is_Free x
     1.5    | is_f_x _ = false;
     1.6  (* precondition: TermC.is_atom v andalso TermC.is_atom c *)
     1.7 -fun is_const (Const _) = true | is_const _ = false; (*TOODOO kept for strange code below*)
     1.8 +fun is_const (Const _) = true | is_const _ = false;
     1.9  fun variable_constant_pair (v, c) =
    1.10    if (is_variable v andalso (is_const c orelse is_num c)) orelse
    1.11       (is_variable c andalso (is_const v orelse is_num v))