8 lines
137 B
Text
8 lines
137 B
Text
open tactic
|
|
|
|
example : true :=
|
|
by do
|
|
let op : expr := `((+) : nat → nat → nat),
|
|
trace op,
|
|
trace_algebra_info op,
|
|
constructor
|