1.1 --- a/src/Tools/isac/ProgLang/ListC.thy	Tue Jul 20 14:37:56 2021 +0200
     1.2 +++ b/src/Tools/isac/ProgLang/ListC.thy	Tue Jul 27 11:21:14 2021 +0200
     1.3 @@ -25,8 +25,8 @@
     1.4  
     1.5  ML \<open>
     1.6  \<close> ML \<open>
     1.7 -val UniversalList = TermC.parseNEW'' @{theory} "UniversalList";
     1.8 -val EmptyList = TermC.parseNEW'' @{theory} "[]::bool list";     
     1.9 +val UniversalList = (Thm.term_of o the o (TermC.parse @{theory})) "UniversalList";
    1.10 +val EmptyList = (Thm.term_of o the o (TermC.parse @{theory}))  "[]::bool list";     
    1.11  \<close> ML \<open>
    1.12  \<close>
    1.13