13f0d4e09a
The idea is to generate a lemma based on the left-hand-side provided by the user. This feature is essential for supporting the derived inductive datatype constructors.
15 lines
420 B
Text
15 lines
420 B
Text
set_option new_elaborator true
|
|
|
|
definition g : list nat → list nat → nat
|
|
| [] (y::ys) := y
|
|
| [] ys := 0
|
|
| (x1::x2::xs) ys := g xs ys
|
|
| (x::xs) (y::ys) := g xs ys + y
|
|
| (x::xs) [] := g xs []
|
|
|
|
print g._main.equations.eqn_1
|
|
print g._main.equations.eqn_2
|
|
print g._main.equations.eqn_3
|
|
print g._main.equations.eqn_4
|
|
print g._main.equations.eqn_5
|
|
print g._main.equations.eqn_6
|