16 lines
246 B
Text
16 lines
246 B
Text
import system.io
|
|
|
|
section
|
|
variable [io.interface]
|
|
|
|
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.run_io @tst_io,
|
|
trace s
|
|
|
|
run_cmd tac
|