12 lines
208 B
Text
12 lines
208 B
Text
inductive tree
|
|
| leaf : tree
|
|
| node (left : tree) (val : nat) (right : tree) : tree
|
|
|
|
constant foo : tree → tree
|
|
|
|
example (a : tree) : foo a = a :=
|
|
begin
|
|
induction a,
|
|
trace_state,
|
|
repeat { admit }
|
|
end
|