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

chore(tools/super/utils): remove duplicate partition def

Browse source
This commit is contained in:
Mario Carneiro 2017-05-06 03:00:43 -04:00 • committed by Leonardo de Moura
parent 6b28499e47
commit 422820243d
1 changed files with 0 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
library/tools/super/utils.lean
View file

@ -72,10 +72,6 @@ private def zip_with_index' {A} : ℕ → list A → list (A × ℕ)
def zip_with_index {A} : list A → list (A × ℕ) :=
zip_with_index' 0
def partition {A} (pred : A → Prop) [decidable_pred pred] : list A → list A × list A
| (x::xs) := match partition xs with (ts,fs) := if pred x then (x::ts, fs) else (ts, x::fs) end
| [] := ([],[])
meta def merge_sorted {A} [has_ordering A] : list A → list A → list A
| [] ys := ys
| xs [] := xs