lib: remove duplicate definition of `find`

This commit is contained in:
Gerwin Klein 2016-04-18 22:21:42 +02:00
parent 2a6df7a9a3
commit 6ca877b661
1 changed files with 0 additions and 6 deletions

View File

@ -91,12 +91,6 @@ where
"delete y [] = []"
| "delete y (x#xs) = (if y=x then xs else x # delete y xs)"
primrec
find :: "('a \<Rightarrow> bool) \<Rightarrow> 'a list \<Rightarrow> 'a option"
where
"find f [] = None"
| "find f (x # xs) = (if f x then Some x else find f xs)"
definition
"swp f \<equiv> \<lambda>x y. f y x"