1.1 --- a/src/Tools/isac/BaseDefinitions/termC.sml	Wed Aug 18 11:35:24 2021 +0200
     1.2 +++ b/src/Tools/isac/BaseDefinitions/termC.sml	Wed Aug 18 16:03:08 2021 +0200
     1.3 @@ -41,7 +41,6 @@
     1.4  
     1.5    val is_atom: term -> bool
     1.6    val string_of_atom: term -> string
     1.7 -  val is_const: term -> bool
     1.8    val is_variable: term -> bool
     1.9    val is_bdv: string -> bool
    1.10    val is_bdv_subst: term -> bool
    1.11 @@ -290,7 +289,6 @@
    1.12  (* accomodate string-representation for int to term-orders *)
    1.13  fun to_string t = t |> num_of_term |> signed_string_of_int
    1.14  
    1.15 -fun is_const (Const _) = true | is_const _ = false;
    1.16  fun is_variable (t as Free _) = not (is_num t)
    1.17    | is_variable _ = false;
    1.18  fun is_Free (Free _) = true | is_Free _ = false;
    1.19 @@ -300,6 +298,7 @@
    1.20  fun is_f_x (f $ x) = is_fun_id f andalso is_Free x
    1.21    | is_f_x _ = false;
    1.22  (* precondition: TermC.is_atom v andalso TermC.is_atom c *)
    1.23 +fun is_const (Const _) = true | is_const _ = false;
    1.24  fun variable_constant_pair (v, c) =
    1.25    if (is_variable v andalso (is_const c orelse is_num c)) orelse
    1.26       (is_variable c andalso (is_const v orelse is_num v))