16 lines
229 B
Text
16 lines
229 B
Text
import system.io
|
|
|
|
section
|
|
|
|
|
|
def tst_io : io string :=
|
|
do b ← io.fs.read_file "tactic_io.lean",
|
|
return b^.to_string
|
|
end
|
|
|
|
open tactic
|
|
meta def tac : tactic unit :=
|
|
do s ← tactic.unsafe_run_io tst_io,
|
|
trace s
|
|
|
|
run_cmd tac
|