test(tests/lean/run): add test for equation compiler
This commit is contained in:
parent
0b2c3659cf
commit
2354341c58
1 changed files with 21 additions and 0 deletions
21
tests/lean/run/def_ite_value.lean
Normal file
21
tests/lean/run/def_ite_value.lean
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
set_option new_elaborator true
|
||||
|
||||
inductive bv : nat → Type
|
||||
| nil : bv 0
|
||||
| cons : Π n, bool → bv n → bv (n+1)
|
||||
|
||||
open bv
|
||||
|
||||
definition f : ∀ n : nat, bv n → nat → nat
|
||||
| (n+1) (cons .n b v) 1000000 := f n v 0
|
||||
| (n+1) (cons .n b v) x := f n v (x + 1)
|
||||
| _ _ _ := 1
|
||||
|
||||
set_option pp.binder_types true
|
||||
|
||||
check @f._main.equations.eqn_1
|
||||
check @f._main.equations.eqn_2
|
||||
check @f._main.equations.eqn_3
|
||||
|
||||
example (n : nat) (b : bool) (v : bv n) (x : nat) : x ≠ 1000000 → f (n+1) (cons n b v) x = f n v (x + 1) :=
|
||||
assume H, f._main.equations.eqn_3 n b v x H
|
||||
Loading…
Add table
Reference in a new issue