fixed 'disc_iff' tactic in the case where different equations use different variable names for the function arguments
theory ToyList_Test
imports Datatype
begin
ML {* (* FIXME somewhat non-standard, fragile *)
let
val texts =
map (File.read o Path.append (Thy_Load.master_directory @{theory}) o Path.explode)
["ToyList1", "ToyList2"];
val trs = Outer_Syntax.parse Position.start (implode texts);
val end_state = fold (Toplevel.command_exception false) trs Toplevel.toplevel;
in @{assert} (Toplevel.is_toplevel end_state) end;
*}
end