Definitions on lists

This file contains various definitions on lists. It does not contain proofs about these definitions, those are contained in other files in Data.List

instance List.instSDiffList {α : Type u_1} [DecidableEq α] : SDiff (List α)

Equations

• List.instSDiffList = { sdiff := List.diff }

def List.getI {α : Type u_1} [Inhabited α] (l : List α) (n : ℕ) : α

"Inhabited" get function: returns default instead of none in the case that the index is out of bounds.

Equations

• List.getI l n = List.getD l n default

def List.takeI {α : Type u_1} [Inhabited α] (n : ℕ) (l : List α) : List α

"Inhabited" take function: Take n elements from a list l. If l has less than n elements, append n - length l elements default.

Equations

• List.takeI n l = List.takeD n l default

def List.findM {α : Type u} {m : Type u → Type v} [Alternative m] (tac : α → m PUnit.{u + 1} ) : List α → m α

findM tac l returns the first element of l on which tac succeeds, and fails otherwise.

Equations

• List.findM tac = List.firstM fun (a : α) => tac a $> a

def List.findM?' {m : Type u → Type v} [Monad m] {α : Type u} (p : α → m (ULift.{u, 0} Bool)) : List α → m (Option α)

findM? p l returns the first element a of l for which p a returns true. findM? short-circuits, so p is not necessarily run on every a in l. This is a monadic version of List.find.

Equations

• List.findM?' p [] = pure none
• List.findM?' p (x_1 :: xs) = do let __discr ← p x_1 match __discr with | { down := px } => if px = true then pure (some x_1) else List.findM?' p xs

def List.orM {m : Type → Type v} [Monad m] : List (m Bool) → m Bool

orM xs runs the actions in xs, returning true if any of them returns true. orM short-circuits, so if an action returns true, later actions are not run.

Equations

• List.orM = List.anyM id

def List.andM {m : Type → Type v} [Monad m] : List (m Bool) → m Bool

andM xs runs the actions in xs, returning true if all of them return true. andM short-circuits, so if an action returns false, later actions are not run.

Equations

• List.andM = List.allM id

def List.foldlIdxM {m : Type v → Type w} [Monad m] {α : Type u_7} {β : Type v} (f : ℕ → β → α → m β) (b : β) (as : List α) : m β

Monadic variant of foldlIdx.

Equations

• List.foldlIdxM f b as = List.foldlIdx (fun (i : ℕ) (ma : m β) (b : α) => do let a ← ma f i a b) (pure b) as

def List.foldrIdxM {m : Type v → Type w} [Monad m] {α : Type u_7} {β : Type v} (f : ℕ → α → β → m β) (b : β) (as : List α) : m β

Monadic variant of foldrIdx.

Equations

• List.foldrIdxM f b as = List.foldrIdx (fun (i : ℕ) (a : α) (mb : m β) => do let b ← mb f i a b) (pure b) as

def List.mapIdxMAux' {m : Type v → Type w} [Monad m] {α : Type u_7} (f : ℕ → α → m PUnit.{v + 1} ) : ℕ → List α → m PUnit.{v + 1}

Auxiliary definition for mapIdxM'.

Equations

• List.mapIdxMAux' f x [] = pure PUnit.unit
• List.mapIdxMAux' f x (a :: as) = SeqRight.seqRight (f x a) fun (x_1 : Unit) => List.mapIdxMAux' f (x + 1) as

def List.mapIdxM' {m : Type v → Type w} [Monad m] {α : Type u_7} (f : ℕ → α → m PUnit.{v + 1} ) (as : List α) : m PUnit.{v + 1}

A variant of mapIdxM specialised to applicative actions which return Unit.

Equations

• List.mapIdxM' f as = List.mapIdxMAux' f 0 as

def List.Forall {α : Type u_1} (p : α → Prop) : List α → Prop

l.Forall p is equivalent to ∀ a ∈ l, p a, but unfolds directly to a conjunction, i.e. List.Forall p [0, 1, 2] = p 0 ∧ p 1 ∧ p 2.

Equations

• List.Forall p [] = True
• List.Forall p [x_1] = p x_1
• List.Forall p (x_1 :: l) = (p x_1 ∧ List.Forall p l)

def List.permutationsAux2 {α : Type u_1} {β : Type u_2} (t : α) (ts : List α) (r : List β) : List α → (List α → β) → List α × List β

An auxiliary function for defining permutations. permutationsAux2 t ts r ys f is equal to (ys ++ ts, (insert_left ys t ts).map f ++ r), where insert_left ys t ts (not explicitly defined) is the list of lists of the form insert_nth n t (ys ++ ts) for 0 ≤ n < length ys.

permutations_aux2 10 [4, 5, 6] [] [1, 2, 3] id =
  ([1, 2, 3, 4, 5, 6],
   [[10, 1, 2, 3, 4, 5, 6],
    [1, 10, 2, 3, 4, 5, 6],
    [1, 2, 10, 3, 4, 5, 6]]) 

Equations

• List.permutationsAux2 t ts r [] x = (ts, r)
• List.permutationsAux2 t ts r (y :: ys) x = match List.permutationsAux2 t ts r ys fun (x_1 : List α) => x (y :: x_1) with | (us, zs) => (y :: us, x (t :: y :: us) :: zs)

def List.permutationsAux.rec {α : Type u_1} {C : List α → List α → Sort v} (H0 : (is : List α) → C [] is) (H1 : (t : α) → (ts is : List α) → C ts (t :: is) → C is [] → C (t :: ts) is) (l₁ : List α) (l₂ : List α) : C l₁ l₂

A recursor for pairs of lists. To have C l₁ l₂ for all l₁, l₂, it suffices to have it for l₂ = [] and to be able to pour the elements of l₁ into l₂.

Equations

• List.permutationsAux.rec H0 H1 [] x = H0 x
• List.permutationsAux.rec H0 H1 (t :: ts) x = H1 t ts x (List.permutationsAux.rec H0 H1 ts (t :: x)) (List.permutationsAux.rec H0 H1 x [])

def List.permutationsAux {α : Type u_1} : List α → List α → List (List α)

An auxiliary function for defining permutations. permutationsAux ts is is the set of all permutations of is ++ ts that do not fix ts.

Equations

• One or more equations did not get rendered due to their size.

def List.permutations {α : Type u_1} (l : List α) : List (List α)

List of all permutations of l.

permutations [1, 2, 3] = [[1, 2, 3], [2, 1, 3], [3, 2, 1], [2, 3, 1], [3, 1, 2], [1, 3, 2]]

Equations

• List.permutations l = l :: List.permutationsAux l []

def List.permutations'Aux {α : Type u_1} (t : α) : List α → List (List α)

permutations'Aux t ts inserts t into every position in ts, including the last. This function is intended for use in specifications, so it is simpler than permutationsAux2, which plays roughly the same role in permutations.

Note that (permutationsAux2 t [] [] ts id).2 is similar to this function, but skips the last position:

permutations'Aux 10 [1, 2, 3] =
  [[10, 1, 2, 3], [1, 10, 2, 3], [1, 2, 10, 3], [1, 2, 3, 10]]
(permutationsAux2 10 [] [] [1, 2, 3] id).2 =
  [[10, 1, 2, 3], [1, 10, 2, 3], [1, 2, 10, 3]] 

Equations

• List.permutations'Aux t [] = [[t]]
• List.permutations'Aux t (x_1 :: xs) = (t :: x_1 :: xs) :: List.map (List.cons x_1) (List.permutations'Aux t xs)

def List.permutations' {α : Type u_1} : List α → List (List α)

List of all permutations of l. This version of permutations is less efficient but has simpler definitional equations. The permutations are in a different order, but are equal up to permutation, as shown by List.permutations_perm_permutations'.

 permutations [1, 2, 3] =
   [[1, 2, 3], [2, 1, 3], [2, 3, 1],
    [1, 3, 2], [3, 1, 2], [3, 2, 1]] 

Equations

• List.permutations' [] = [[]]
• List.permutations' (x_1 :: xs) = List.bind (List.permutations' xs) (List.permutations'Aux x_1)

def List.extractp {α : Type u_1} (p : α → Prop) [DecidablePred p] : List α → Option α × List α

extractp p l returns a pair of an element a of l satisfying the predicate p, and l, with a removed. If there is no such element a it returns (none, l).

Equations

• List.extractp p [] = (none, [])
• List.extractp p (x_1 :: xs) = if p x_1 then (some x_1, xs) else match List.extractp p xs with | (a', l') => (a', x_1 :: l')

instance List.instSProd {α : Type u_1} {β : Type u_2} : SProd (List α) (List β) (List (α × β))

Notation for calculating the product of a List

Equations

• List.instSProd = { sprod := List.product }

instance List.decidableChain {α : Type u_1} {R : α → α → Prop} [DecidableRel R] (a : α) (l : List α) : Decidable (List.Chain R a l)

Equations

• One or more equations did not get rendered due to their size.

instance List.decidableChain' {α : Type u_1} {R : α → α → Prop} [DecidableRel R] (l : List α) : Decidable (List.Chain' R l)

Equations

• One or more equations did not get rendered due to their size.

def List.dedup {α : Type u_1} [DecidableEq α] : List α → List α

dedup l removes duplicates from l (taking only the last occurrence). Defined as pwFilter (≠).

dedup [1, 0, 2, 2, 1] = [0, 2, 1]

Equations

• List.dedup = List.pwFilter fun (x x_1 : α) => x ≠ x_1

def List.destutter' {α : Type u_1} (R : α → α → Prop) [DecidableRel R] : α → List α → List α

Greedily create a sublist of a :: l such that, for every two adjacent elements a, b, R a b holds. Mostly used with ≠; for example, destutter' (≠) 1 [2, 2, 1, 1] = [1, 2, 1], destutter' (≠) 1, [2, 3, 3] = [1, 2, 3], destutter' (<) 1 [2, 5, 2, 3, 4, 9] = [1, 2, 5, 9].

Equations

• List.destutter' R x [] = [x]
• List.destutter' R x (h :: l) = if R x h then x :: List.destutter' R h l else List.destutter' R x l

def List.destutter {α : Type u_1} (R : α → α → Prop) [DecidableRel R] : List α → List α

Greedily create a sublist of l such that, for every two adjacent elements a, b ∈ l, R a b holds. Mostly used with ≠; for example, destutter (≠) [1, 2, 2, 1, 1] = [1, 2, 1], destutter (≠) [1, 2, 3, 3] = [1, 2, 3], destutter (<) [1, 2, 5, 2, 3, 4, 9] = [1, 2, 5, 9].

Equations

• List.destutter R x = match x with | h :: l => List.destutter' R h l | [] => []

def List.chooseX {α : Type u_1} (p : α → Prop) [DecidablePred p] (l : List α) : (∃ (a : α), a ∈ l ∧ p a) → { a : α // a ∈ l ∧ p a }

Given a decidable predicate p and a proof of existence of a ∈ l such that p a, choose the first element with this property. This version returns both a and proofs of a ∈ l and p a.

Equations

• List.chooseX p [] hp = False.elim ⋯
• List.chooseX p (l :: ls) hp = if pl : p l then { val := l, property := ⋯ } else match List.chooseX p ls ⋯ with | { val := a, property := ha } => { val := a, property := ⋯ }

def List.choose {α : Type u_1} (p : α → Prop) [DecidablePred p] (l : List α) (hp : ∃ (a : α), a ∈ l ∧ p a) : α

Given a decidable predicate p and a proof of existence of a ∈ l such that p a, choose the first element with this property. This version returns a : α, and properties are given by choose_mem and choose_property.

Equations

• List.choose p l hp = (List.chooseX p l hp).val

def List.mapDiagM' {m : Type → Type u_7} [Monad m] {α : Type u_8} (f : α → α → m Unit) : List α → m Unit

mapDiagM' f l calls f on all elements in the upper triangular part of l × l. That is, for each e ∈ l, it will run f e e and then f e e' for each e' that appears after e in l.

Example: suppose l = [1, 2, 3]. mapDiagM' f l will evaluate, in this order, f 1 1, f 1 2, f 1 3, f 2 2, f 2 3, f 3 3.

Equations

• List.mapDiagM' f [] = pure ()
• List.mapDiagM' f (x_1 :: xs) = do let __discr ← f x_1 x_1 let x : Unit := __discr let __discr ← mapM' (f x_1) xs let x : List Unit := __discr List.mapDiagM' f xs

def List.map₂Left' {α : Type u_1} {β : Type u_2} {γ : Type u_3} (f : α → Option β → γ) : List α → List β → List γ × List β

Left-biased version of List.map₂. map₂Left' f as bs applies f to each pair of elements aᵢ ∈ as and bᵢ ∈ bs. If bs is shorter than as, f is applied to none for the remaining aᵢ. Returns the results of the f applications and the remaining bs.

map₂Left' prod.mk [1, 2] ['a'] = ([(1, some 'a'), (2, none)], [])

map₂Left' prod.mk [1] ['a', 'b'] = ([(1, some 'a')], ['b'])

Equations

• List.map₂Left' f [] x = ([], x)
• List.map₂Left' f (a :: as) [] = (List.map (fun (a : α) => f a none) (a :: as), [])
• List.map₂Left' f (a :: as) (b :: bs) = let rec' := List.map₂Left' f as bs; (f a (some b) :: rec'.fst, rec'.snd)

def List.map₂Right' {α : Type u_1} {β : Type u_2} {γ : Type u_3} (f : Option α → β → γ) (as : List α) (bs : List β) : List γ × List α

Right-biased version of List.map₂. map₂Right' f as bs applies f to each pair of elements aᵢ ∈ as and bᵢ ∈ bs. If as is shorter than bs, f is applied to none for the remaining bᵢ. Returns the results of the f applications and the remaining as.

map₂Right' prod.mk [1] ['a', 'b'] = ([(some 1, 'a'), (none, 'b')], [])

map₂Right' prod.mk [1, 2] ['a'] = ([(some 1, 'a')], [2])

Equations

• List.map₂Right' f as bs = List.map₂Left' (flip f) bs as

def List.map₂Left {α : Type u_1} {β : Type u_2} {γ : Type u_3} (f : α → Option β → γ) : List α → List β → List γ

Left-biased version of List.map₂. map₂Left f as bs applies f to each pair aᵢ ∈ as and bᵢ ‌∈ bs‌∈ bs. If bs is shorter than as, f is applied to none for the remaining aᵢ.

map₂Left Prod.mk [1, 2] ['a'] = [(1, some 'a'), (2, none)]

map₂Left Prod.mk [1] ['a', 'b'] = [(1, some 'a')]

map₂Left f as bs = (map₂Left' f as bs).fst

Equations

• List.map₂Left f [] x = []
• List.map₂Left f (a :: as) [] = List.map (fun (a : α) => f a none) (a :: as)
• List.map₂Left f (a :: as) (b :: bs) = f a (some b) :: List.map₂Left f as bs

def List.map₂Right {α : Type u_1} {β : Type u_2} {γ : Type u_3} (f : Option α → β → γ) (as : List α) (bs : List β) : List γ

Right-biased version of List.map₂. map₂Right f as bs applies f to each pair aᵢ ∈ as and bᵢ ‌∈ bs‌∈ bs. If as is shorter than bs, f is applied to none for the remaining bᵢ.

map₂Right Prod.mk [1, 2] ['a'] = [(some 1, 'a')]

map₂Right Prod.mk [1] ['a', 'b'] = [(some 1, 'a'), (none, 'b')]

map₂Right f as bs = (map₂Right' f as bs).fst

Equations

• List.map₂Right f as bs = List.map₂Left (flip f) bs as

def List.mapAsyncChunked {α : Type u_7} {β : Type u_8} (f : α → β) (xs : List α) (chunk_size : optParam ℕ 1024) : List β

Asynchronous version of List.map.

Equations

• List.mapAsyncChunked f xs chunk_size = List.bind (List.map (fun (xs : List α) => Task.spawn fun (x : Unit) => List.map f xs) (List.toChunks chunk_size xs)) Task.get

We add some n-ary versions of List.zipWith for functions with more than two arguments. These can also be written in terms of List.zip or List.zipWith. For example, zipWith3 f xs ys zs could also be written as zipWith id (zipWith f xs ys) zs or as (zip xs <| zip ys zs).map <| fun ⟨x, y, z⟩ ↦ f x y z.

def List.zipWith3 {α : Type u_1} {β : Type u_2} {γ : Type u_3} {δ : Type u_4} (f : α → β → γ → δ) : List α → List β → List γ → List δ

Ternary version of List.zipWith.

Equations

• List.zipWith3 f (x_3 :: xs) (y :: ys) (z :: zs) = f x_3 y z :: List.zipWith3 f xs ys zs
• List.zipWith3 f x✝¹ x✝ x = []

def List.zipWith4 {α : Type u_1} {β : Type u_2} {γ : Type u_3} {δ : Type u_4} {ε : Type u_5} (f : α → β → γ → δ → ε) : List α → List β → List γ → List δ → List ε

Quaternary version of list.zipWith.

Equations

• List.zipWith4 f (x_4 :: xs) (y :: ys) (z :: zs) (u :: us) = f x_4 y z u :: List.zipWith4 f xs ys zs us
• List.zipWith4 f x✝² x✝¹ x✝ x = []

def List.zipWith5 {α : Type u_1} {β : Type u_2} {γ : Type u_3} {δ : Type u_4} {ε : Type u_5} {ζ : Type u_6} (f : α → β → γ → δ → ε → ζ) : List α → List β → List γ → List δ → List ε → List ζ

Quinary version of list.zipWith.

Equations

• List.zipWith5 f (x_5 :: xs) (y :: ys) (z :: zs) (u :: us) (v :: vs) = f x_5 y z u v :: List.zipWith5 f xs ys zs us vs
• List.zipWith5 f x✝³ x✝² x✝¹ x✝ x = []

def List.replaceIf {α : Type u_1} : List α → List Bool → List α → List α

Given a starting list old, a list of booleans and a replacement list new, read the items in old in succession and either replace them with the next element of new or not, according as to whether the corresponding boolean is true or false.

Equations

• List.replaceIf x✝ x [] = x✝
• List.replaceIf [] x✝ x = []
• List.replaceIf x✝ [] x = x✝
• List.replaceIf (n :: ns) (tf :: bs) (c :: cs) = if tf = true then c :: List.replaceIf ns bs cs else n :: List.replaceIf ns bs (c :: cs)