Partitions

A partition of a natural number n is a way of writing n as a sum of positive integers, where the order does not matter: two sums that differ only in the order of their summands are considered the same partition. This notion is closely related to that of a composition of n, but in a composition of n the order does matter. A summand of the partition is called a part.

Main functions

• p : Partition n is a structure, made of a multiset of integers which are all positive and add up to n.

Implementation details

The main motivation for this structure and its API is to show Euler's partition theorem, and related results.

The representation of a partition as a multiset is very handy as multisets are very flexible and already have a well-developed API.

TODO

Link this to Young diagrams.

Tags

Partition

References

https://en.wikipedia.org/wiki/Partition_(number_theory)

structure Nat.Partition (n : ℕ) : Type

A partition of n is a multiset of positive integers summing to n.

• parts : Multiset ℕ

  positive integers summing to n

• parts_pos : ∀ {i : ℕ}, i ∈ self.parts → 0 < i

  proof that the parts are positive

• parts_sum : self.parts.sum = n

  proof that the parts sum to n

theorem Nat.Partition.ext {n : ℕ} {x : n.Partition} {y : n.Partition} (parts : x.parts = y.parts) : x = y

theorem Nat.Partition.parts_pos {n : ℕ} (self : n.Partition) {i : ℕ} : i ∈ self.parts → 0 < i

proof that the parts are positive

theorem Nat.Partition.parts_sum {n : ℕ} (self : n.Partition) : self.parts.sum = n

proof that the parts sum to n

instance Nat.Partition.decidableEqPartition {n : ℕ} : DecidableEq n.Partition

Equations

• x✝.decidableEqPartition x = decidable_of_iff' (x✝.parts = x.parts) ⋯

def Nat.Partition.ofComposition (n : ℕ) (c : Composition n) : n.Partition

A composition induces a partition (just convert the list to a multiset).

Equations

• Nat.Partition.ofComposition n c = { parts := ↑c.blocks, parts_pos := ⋯, parts_sum := ⋯ }

@[simp]

theorem Nat.Partition.ofComposition_parts (n : ℕ) (c : Composition n) : (Nat.Partition.ofComposition n c).parts = ↑c.blocks

theorem Nat.Partition.ofComposition_surj {n : ℕ} : Function.Surjective (Nat.Partition.ofComposition n)

def Nat.Partition.ofSums (n : ℕ) (l : Multiset ℕ) (hl : l.sum = n) : n.Partition

Given a multiset which sums to n, construct a partition of n with the same multiset, but without the zeros.

Equations

• Nat.Partition.ofSums n l hl = { parts := Multiset.filter (fun (x : ℕ) => x ≠ 0) l, parts_pos := ⋯, parts_sum := ⋯ }

@[simp]

theorem Nat.Partition.ofSums_parts (n : ℕ) (l : Multiset ℕ) (hl : l.sum = n) : (Nat.Partition.ofSums n l hl).parts = Multiset.filter (fun (x : ℕ) => x ≠ 0) l

def Nat.Partition.ofMultiset (l : Multiset ℕ) : l.sum.Partition

A Multiset ℕ induces a partition on its sum.

Equations

• Nat.Partition.ofMultiset l = Nat.Partition.ofSums l.sum l ⋯

@[simp]

theorem Nat.Partition.ofMultiset_parts (l : Multiset ℕ) : (Nat.Partition.ofMultiset l).parts = Multiset.filter (fun (x : ℕ) => ¬x = 0) l

def Nat.Partition.ofSym {n : ℕ} {σ : Type u_1} (s : Sym σ n) [DecidableEq σ] : n.Partition

An element s of Sym σ n induces a partition given by its multiplicities.

Equations

• Nat.Partition.ofSym s = { parts := Multiset.map (fun (a : σ) => Multiset.count a ↑s) (↑s).dedup, parts_pos := ⋯, parts_sum := ⋯ }

@[simp]

theorem Nat.Partition.ofSym_map {n : ℕ} {σ : Type u_1} {τ : Type u_2} [DecidableEq σ] [DecidableEq τ] (e : σ ≃ τ) (s : Sym σ n) : Nat.Partition.ofSym (Sym.map (⇑e) s) = Nat.Partition.ofSym s

def Nat.Partition.ofSymShapeEquiv {n : ℕ} {σ : Type u_1} {τ : Type u_2} [DecidableEq σ] [DecidableEq τ] (μ : n.Partition) (e : σ ≃ τ) : { x : Sym σ n // Nat.Partition.ofSym x = μ } ≃ { x : Sym τ n // Nat.Partition.ofSym x = μ }

An equivalence between σ and τ induces an equivalence between the subtypes of Sym σ n and Sym τ n corresponding to a given partition.

Equations

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

def Nat.Partition.indiscrete (n : ℕ) : n.Partition

The partition of exactly one part.

Equations

• Nat.Partition.indiscrete n = Nat.Partition.ofSums n {n} ⋯

instance Nat.Partition.instInhabited {n : ℕ} : Inhabited n.Partition

Equations

• Nat.Partition.instInhabited = { default := Nat.Partition.indiscrete n }

@[simp]

theorem Nat.Partition.indiscrete_parts {n : ℕ} (hn : n ≠ 0) : (Nat.Partition.indiscrete n).parts = {n}

@[simp]

theorem Nat.Partition.partition_zero_parts (p : Nat.Partition 0) : p.parts = 0

instance Nat.Partition.UniquePartitionZero : Unique (Nat.Partition 0)

Equations

• Nat.Partition.UniquePartitionZero = { toInhabited := Nat.Partition.instInhabited, uniq := Nat.Partition.UniquePartitionZero.proof_1 }

@[simp]

theorem Nat.Partition.partition_one_parts (p : Nat.Partition 1) : p.parts = {1}

instance Nat.Partition.UniquePartitionOne : Unique (Nat.Partition 1)

Equations

• Nat.Partition.UniquePartitionOne = { toInhabited := Nat.Partition.instInhabited, uniq := Nat.Partition.UniquePartitionOne.proof_1 }

@[simp]

theorem Nat.Partition.ofSym_one {σ : Type u_1} [DecidableEq σ] (s : Sym σ 1) : Nat.Partition.ofSym s = Nat.Partition.indiscrete 1

theorem Nat.Partition.count_ofSums_of_ne_zero {n : ℕ} {l : Multiset ℕ} (hl : l.sum = n) {i : ℕ} (hi : i ≠ 0) : Multiset.count i (Nat.Partition.ofSums n l hl).parts = Multiset.count i l

The number of times a positive integer i appears in the partition ofSums n l hl is the same as the number of times it appears in the multiset l. (For i = 0, Partition.non_zero combined with Multiset.count_eq_zero_of_not_mem gives that this is 0 instead.)

theorem Nat.Partition.count_ofSums_zero {n : ℕ} {l : Multiset ℕ} (hl : l.sum = n) : Multiset.count 0 (Nat.Partition.ofSums n l hl).parts = 0

instance Nat.Partition.instFintype (n : ℕ) : Fintype n.Partition

Show there are finitely many partitions by considering the surjection from compositions to partitions.

Equations

• Nat.Partition.instFintype n = Fintype.ofSurjective (Nat.Partition.ofComposition n) ⋯

def Nat.Partition.odds (n : ℕ) : Finset n.Partition

The finset of those partitions in which every part is odd.

Equations

• Nat.Partition.odds n = Finset.filter (fun (c : n.Partition) => ∀ i ∈ c.parts, ¬Even i) Finset.univ

def Nat.Partition.distincts (n : ℕ) : Finset n.Partition

The finset of those partitions in which each part is used at most once.

Equations

• Nat.Partition.distincts n = Finset.filter (fun (c : n.Partition) => c.parts.Nodup) Finset.univ

def Nat.Partition.oddDistincts (n : ℕ) : Finset n.Partition

The finset of those partitions in which every part is odd and used at most once.

Equations

• Nat.Partition.oddDistincts n = Nat.Partition.odds n ∩ Nat.Partition.distincts n