test(tests/lean/run/pickle1): add unpickle/pickle test
This commit is contained in:
parent
039f1de524
commit
f16eaf8f0f
1 changed files with 7 additions and 0 deletions
7
tests/lean/run/pickle1.lean
Normal file
7
tests/lean/run/pickle1.lean
Normal 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
|
Loading…
Reference in a new issue