2014-11-24 07:00:59 +00:00
|
|
|
import data.nat data.int
|
|
|
|
|
open nat
|
|
|
|
|
|
|
|
|
|
find_decl _ < succ _, +imp, -le
|
|
|
|
|
|
|
|
|
|
find_decl _ < _ + _
|
|
|
|
|
|
|
|
|
|
find_decl _ = succ _
|
|
|
|
|
|
|
|
|
|
find_decl _ < succ _, +pos
|
|
|
|
|
|
2014-11-24 08:16:10 +00:00
|
|
|
find_decl zero < succ _, pos
|
|
|
|
|
|
|
|
|
|
set_option find_decl.expensive true
|
|
|
|
|
-- Now, nat.zero will match 0 (i.e., (of_num num.zero))
|
|
|
|
|
find_decl zero < succ _, pos
|
