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