test(tests/lean/run/pickle1): add unpickle/pickle test

This commit is contained in:
Leonardo de Moura 2015-04-14 21:32:07 -07:00
parent 039f1de524
commit f16eaf8f0f

View file

@ -0,0 +1,7 @@
import data.countable
open countable decidable bool prod list nat option
variable l : list (nat × bool)
check pickle l
eval pickle [2, 1]
example : unpickle (list nat) (pickle [1, 1]) = some [1, 1] :=
rfl