max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

test: add hlist pattern match example

Browse source
This commit is contained in:
Leonardo de Moura 2022-03-13 09:15:43 -07:00
parent 30c153aa76
commit 672a889c83
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tests/lean/run/hlistOverload.lean
View file

@ -34,3 +34,17 @@ example : [10, true, 20.1].nth #2 = 20.1 := rfl
#eval [10, true, 20.1].nth #0
#eval [10, true, 20.1].nth #1
#eval [10, true, 20.1].nth #2
def HListPatternMatch (l : HList [Nat, String]) :=
match l with
| [1, "2"] => true
| [2, "1"] => true
| _ => false
#eval HListPatternMatch [1, "2"]
#eval HListPatternMatch [2, "1"]
#eval HListPatternMatch [3, "1"]
example : HListPatternMatch [1, "2"] := rfl
example : HListPatternMatch [2, "1"] := rfl
example : !HListPatternMatch [3, "1"] := rfl