64 lines
906 B
Text
64 lines
906 B
Text
/--
|
|
Documentation for x
|
|
|
|
```
|
|
eval x + x
|
|
```
|
|
Testing...
|
|
-/
|
|
def x := 10 + 20
|
|
|
|
def y := "alo"
|
|
|
|
open tactic
|
|
|
|
run_command do
|
|
d ← doc_string `x,
|
|
trace d
|
|
|
|
run_command add_doc_string `y "testing simple doc"
|
|
|
|
run_command do
|
|
d ← doc_string `y,
|
|
trace d
|
|
|
|
/-- Documentation for foo -/
|
|
namespace foo
|
|
/-- Documentation for bla -/
|
|
namespace bla
|
|
/--
|
|
Documentation for single
|
|
testing...
|
|
hello
|
|
world
|
|
-/
|
|
inductive single
|
|
| unit
|
|
|
|
end bla
|
|
end foo
|
|
|
|
run_command do
|
|
trace "--------",
|
|
namespace_doc_string `foo >>= trace,
|
|
trace "--------",
|
|
namespace_doc_string `foo.bla >>= trace,
|
|
trace "--------",
|
|
doc_string `foo.bla.single >>= trace
|
|
|
|
|
|
/-- Documentation for constant A
|
|
foo -/
|
|
constant A : Type
|
|
|
|
run_command doc_string `A >>= trace
|
|
|
|
/--Documentation for point
|
|
test
|
|
|
|
-/
|
|
structure point :=
|
|
(x : nat) (y : nat)
|
|
|
|
run_command doc_string `point >>= trace
|
|
print "----------"
|