src/Doc/Tutorial/ToyList/ToyList_Test.thy
author wenzelm
Thu, 27 Jun 2024 22:39:20 +0200
changeset 80430 89cd8fedefa7
parent 69597 ff784d5a5bfb
permissions -rw-r--r--
more robust: prefer tail-recursive traversal;

theory ToyList_Test
imports Main
begin

ML \<open>
  let val text =
    map (File.read o Path.append \<^master_dir>) [\<^path>\<open>ToyList1.txt\<close>, \<^path>\<open>ToyList2.txt\<close>]
    |> implode
  in Thy_Info.script_thy Position.start text \<^theory> end
\<close>

end