| author | wenzelm |
| Sun, 02 Nov 2014 16:47:45 +0100 | |
| changeset 58872 | f0f623005324 |
| parent 58856 | 4fced55fc5b7 |
| child 58926 | baf5a3c28f0c |
| permissions | -rw-r--r-- |
| 53376 | 1 |
theory ToyList_Test |
|
58372
bfd497f2f4c2
moved 'old_datatype' out of 'Main' (but put it in 'HOL-Proofs' because of the inductive realizer)
blanchet
parents:
58112
diff
changeset
|
2 |
imports BNF_Least_Fixpoint |
| 53376 | 3 |
begin |
4 |
||
| 57626 | 5 |
ML {*
|
| 58856 | 6 |
let val text = |
7 |
map (File.read o Path.append (Resources.master_directory @{theory}) o Path.explode)
|
|
8 |
["ToyList1.txt", "ToyList2.txt"] |
|
9 |
|> implode |
|
10 |
in Thy_Info.script_thy Position.start text @{theory BNF_Least_Fixpoint} end
|
|
| 53376 | 11 |
*} |
12 |
||
13 |
end |