1.1 --- a/test/Tools/isac/Specify/input-descript.sml	Wed Jan 11 09:23:18 2023 +0100
     1.2 +++ b/test/Tools/isac/Specify/input-descript.sml	Wed Jan 11 11:38:01 2023 +0100
     1.3 @@ -18,7 +18,7 @@
     1.4  val t as Const (\<^const_name>\<open>Input_Descript.relations\<close>, 
     1.5    Type (\<^type_name>\<open>fun\<close>, [Type (\<^type_name>\<open>list\<close>, [Type (\<^type_name>\<open>bool\<close>,[])]), 
     1.6      Type e(\<^type_name>\<open>una\<close>, [])])) = @{term "relations"};
     1.7 -atomtyp (type_of t);
     1.8 +TermC.atom_typ @{context} (type_of t);
     1.9  if Input_Descript.for_bool_list t then () else error "Input_Descript.for_bool_list changed";
    1.10  "----- fun Input_Descript.for_real -----";
    1.11  if not (Input_Descript.for_real t) then () else error "Input_Descript.for_real changed";