1.1 --- a/src/Tools/isac/BaseDefinitions/termC.sml Wed Aug 18 16:03:08 2021 +0200
1.2 +++ b/src/Tools/isac/BaseDefinitions/termC.sml Wed Aug 18 16:46:22 2021 +0200
1.3 @@ -41,6 +41,7 @@
1.4
1.5 val is_atom: term -> bool
1.6 val string_of_atom: term -> string
1.7 + val is_const: term -> bool (* re-establish intermed.TOODOO *)
1.8 val is_variable: term -> bool
1.9 val is_bdv: string -> bool
1.10 val is_bdv_subst: term -> bool
1.11 @@ -298,7 +299,7 @@
1.12 fun is_f_x (f $ x) = is_fun_id f andalso is_Free x
1.13 | is_f_x _ = false;
1.14 (* precondition: TermC.is_atom v andalso TermC.is_atom c *)
1.15 -fun is_const (Const _) = true | is_const _ = false;
1.16 +fun is_const (Const _) = true | is_const _ = false; (*TOODOO kept for strange code below*)
1.17 fun variable_constant_pair (v, c) =
1.18 if (is_variable v andalso (is_const c orelse is_num c)) orelse
1.19 (is_variable c andalso (is_const v orelse is_num v))