Well-founded sets

A well-founded subset of an ordered type is one on which the relation < is well-founded.

Main Definitions

• Set.WellFoundedOn s r indicates that the relation r is well-founded when restricted to the set s.
• Set.IsWF s indicates that < is well-founded when restricted to s.
• Set.PartiallyWellOrderedOn s r indicates that the relation r is partially well-ordered (also known as well quasi-ordered) when restricted to the set s.
• Set.IsPWO s indicates that any infinite sequence of elements in s contains an infinite monotone subsequence. Note that this is equivalent to containing only two comparable elements.

Main Results

• Higman's Lemma, Set.PartiallyWellOrderedOn.partiallyWellOrderedOn_sublistForall₂, shows that if r is partially well-ordered on s, then List.SublistForall₂ is partially well-ordered on the set of lists of elements of s. The result was originally published by Higman, but this proof more closely follows Nash-Williams.
• Set.wellFoundedOn_iff relates well_founded_on to the well-foundedness of a relation on the original type, to avoid dealing with subtypes.
• Set.IsWF.mono shows that a subset of a well-founded subset is well-founded.
• Set.IsWF.union shows that the union of two well-founded subsets is well-founded.
• Finset.isWF shows that all Finsets are well-founded.

TODO

Prove that s is partial well ordered iff it has no infinite descending chain or antichain.

References

• [Higman, Ordering by Divisibility in Abstract Algebras][Higman52]
• [Nash-Williams, On Well-Quasi-Ordering Finite Trees][Nash-Williams63]

Relations well-founded on sets

def Set.WellFoundedOn {α : Type u_2} (s : Set α) (r : α → α → Prop) : Prop

s.WellFoundedOn r indicates that the relation r is well-founded when restricted to s.

Equations

• Set.WellFoundedOn s r = WellFounded fun (a b : ↑s) => r ↑a ↑b

@[simp]

theorem Set.wellFoundedOn_empty {α : Type u_2} (r : α → α → Prop) : Set.WellFoundedOn ∅ r

theorem Set.wellFoundedOn_iff {α : Type u_2} {r : α → α → Prop} {s : Set α} : Set.WellFoundedOn s r ↔ WellFounded fun (a b : α) => r a b ∧ a ∈ s ∧ b ∈ s

@[simp]

theorem Set.wellFoundedOn_univ {α : Type u_2} {r : α → α → Prop} : Set.WellFoundedOn Set.univ r ↔ WellFounded r

theorem WellFounded.wellFoundedOn {α : Type u_2} {r : α → α → Prop} {s : Set α} : WellFounded r → Set.WellFoundedOn s r

@[simp]

theorem Set.wellFoundedOn_range {α : Type u_2} {β : Type u_3} {r : α → α → Prop} {f : β → α} : Set.WellFoundedOn (Set.range f) r ↔ WellFounded (r on f)

@[simp]

theorem Set.wellFoundedOn_image {α : Type u_2} {β : Type u_3} {r : α → α → Prop} {f : β → α} {s : Set β} : Set.WellFoundedOn (f '' s) r ↔ Set.WellFoundedOn s (r on f)

theorem Set.WellFoundedOn.induction {α : Type u_2} {r : α → α → Prop} {s : Set α} {x : α} (hs : Set.WellFoundedOn s r) (hx : x ∈ s) {P : α → Prop} (hP : ∀ y ∈ s, (∀ z ∈ s, r z y → P z) → P y) : P x

theorem Set.WellFoundedOn.mono {α : Type u_2} {r : α → α → Prop} {r' : α → α → Prop} {s : Set α} {t : Set α} (h : Set.WellFoundedOn t r') (hle : r ≤ r') (hst : s ⊆ t) : Set.WellFoundedOn s r

theorem Set.WellFoundedOn.mono' {α : Type u_2} {r : α → α → Prop} {r' : α → α → Prop} {s : Set α} (h : ∀ a ∈ s, ∀ b ∈ s, r' a b → r a b) : Set.WellFoundedOn s r → Set.WellFoundedOn s r'

theorem Set.WellFoundedOn.subset {α : Type u_2} {r : α → α → Prop} {s : Set α} {t : Set α} (h : Set.WellFoundedOn t r) (hst : s ⊆ t) : Set.WellFoundedOn s r

theorem Set.WellFoundedOn.acc_iff_wellFoundedOn {α : Type u_6} {r : α → α → Prop} {a : α} : List.TFAE [Acc r a, Set.WellFoundedOn {b : α | Relation.ReflTransGen r b a} r, Set.WellFoundedOn {b : α | Relation.TransGen r b a} r]

a is accessible under the relation r iff r is well-founded on the downward transitive closure of a under r (including a or not).

instance Set.IsStrictOrder.subset {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} : IsStrictOrder α fun (a b : α) => r a b ∧ a ∈ s ∧ b ∈ s

Equations

• (_ : IsStrictOrder α fun (a b : α) => r a b ∧ a ∈ s ∧ b ∈ s) = (_ : IsStrictOrder α fun (a b : α) => r a b ∧ a ∈ s ∧ b ∈ s)

theorem Set.wellFoundedOn_iff_no_descending_seq {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} : Set.WellFoundedOn s r ↔ ∀ (f : (fun (x x_1 : ℕ) => x > x_1) ↪r r), ¬∀ (n : ℕ), f n ∈ s

theorem Set.WellFoundedOn.union {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} {t : Set α} (hs : Set.WellFoundedOn s r) (ht : Set.WellFoundedOn t r) : Set.WellFoundedOn (s ∪ t) r

@[simp]

theorem Set.wellFoundedOn_union {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} {t : Set α} : Set.WellFoundedOn (s ∪ t) r ↔ Set.WellFoundedOn s r ∧ Set.WellFoundedOn t r

Sets well-founded w.r.t. the strict inequality

def Set.IsWF {α : Type u_2} [LT α] (s : Set α) : Prop

s.IsWF indicates that < is well-founded when restricted to s.

Equations

• Set.IsWF s = Set.WellFoundedOn s fun (x x_1 : α) => x < x_1

@[simp]

theorem Set.isWF_empty {α : Type u_2} [LT α] : Set.IsWF ∅

theorem Set.isWF_univ_iff {α : Type u_2} [LT α] : Set.IsWF Set.univ ↔ WellFounded fun (x x_1 : α) => x < x_1

theorem Set.IsWF.mono {α : Type u_2} [LT α] {s : Set α} {t : Set α} (h : Set.IsWF t) (st : s ⊆ t) : Set.IsWF s

theorem Set.IsWF.union {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} (hs : Set.IsWF s) (ht : Set.IsWF t) : Set.IsWF (s ∪ t)

@[simp]

theorem Set.isWF_union {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} : Set.IsWF (s ∪ t) ↔ Set.IsWF s ∧ Set.IsWF t

theorem Set.isWF_iff_no_descending_seq {α : Type u_2} [Preorder α] {s : Set α} : Set.IsWF s ↔ ∀ (f : ℕ → α), StrictAnti f → ¬∀ (n : ℕ), f (OrderDual.toDual n) ∈ s

Partially well-ordered sets

A set is partially well-ordered by a relation r when any infinite sequence contains two elements where the first is related to the second by r. Equivalently, any antichain (see IsAntichain) is finite, see Set.partiallyWellOrderedOn_iff_finite_antichains.

def Set.PartiallyWellOrderedOn {α : Type u_2} (s : Set α) (r : α → α → Prop) : Prop

A subset is partially well-ordered by a relation r when any infinite sequence contains two elements where the first is related to the second by r.

Equations

• Set.PartiallyWellOrderedOn s r = ∀ (f : ℕ → α), (∀ (n : ℕ), f n ∈ s) → ∃ (m : ℕ) (n : ℕ), m < n ∧ r (f m) (f n)

theorem Set.PartiallyWellOrderedOn.mono {α : Type u_2} {r : α → α → Prop} {s : Set α} {t : Set α} (ht : Set.PartiallyWellOrderedOn t r) (h : s ⊆ t) : Set.PartiallyWellOrderedOn s r

@[simp]

theorem Set.partiallyWellOrderedOn_empty {α : Type u_2} (r : α → α → Prop) : Set.PartiallyWellOrderedOn ∅ r

theorem Set.PartiallyWellOrderedOn.union {α : Type u_2} {r : α → α → Prop} {s : Set α} {t : Set α} (hs : Set.PartiallyWellOrderedOn s r) (ht : Set.PartiallyWellOrderedOn t r) : Set.PartiallyWellOrderedOn (s ∪ t) r

@[simp]

theorem Set.partiallyWellOrderedOn_union {α : Type u_2} {r : α → α → Prop} {s : Set α} {t : Set α} : Set.PartiallyWellOrderedOn (s ∪ t) r ↔ Set.PartiallyWellOrderedOn s r ∧ Set.PartiallyWellOrderedOn t r

theorem Set.PartiallyWellOrderedOn.image_of_monotone_on {α : Type u_2} {β : Type u_3} {r : α → α → Prop} {r' : β → β → Prop} {f : α → β} {s : Set α} (hs : Set.PartiallyWellOrderedOn s r) (hf : ∀ a₁ ∈ s, ∀ a₂ ∈ s, r a₁ a₂ → r' (f a₁) (f a₂)) : Set.PartiallyWellOrderedOn (f '' s) r'

theorem IsAntichain.finite_of_partiallyWellOrderedOn {α : Type u_2} {r : α → α → Prop} {s : Set α} (ha : IsAntichain r s) (hp : Set.PartiallyWellOrderedOn s r) : Set.Finite s

theorem Set.Finite.partiallyWellOrderedOn {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] (hs : Set.Finite s) : Set.PartiallyWellOrderedOn s r

theorem IsAntichain.partiallyWellOrderedOn_iff {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] (hs : IsAntichain r s) : Set.PartiallyWellOrderedOn s r ↔ Set.Finite s

@[simp]

theorem Set.partiallyWellOrderedOn_singleton {α : Type u_2} {r : α → α → Prop} [IsRefl α r] (a : α) : Set.PartiallyWellOrderedOn {a} r

theorem Set.Subsingleton.partiallyWellOrderedOn {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] (hs : Set.Subsingleton s) : Set.PartiallyWellOrderedOn s r

@[simp]

theorem Set.partiallyWellOrderedOn_insert {α : Type u_2} {r : α → α → Prop} {s : Set α} {a : α} [IsRefl α r] : Set.PartiallyWellOrderedOn (insert a s) r ↔ Set.PartiallyWellOrderedOn s r

theorem Set.PartiallyWellOrderedOn.insert {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] (h : Set.PartiallyWellOrderedOn s r) (a : α) : Set.PartiallyWellOrderedOn (insert a s) r

theorem Set.partiallyWellOrderedOn_iff_finite_antichains {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] [IsSymm α r] : Set.PartiallyWellOrderedOn s r ↔ ∀ t ⊆ s, IsAntichain r t → Set.Finite t

theorem Set.PartiallyWellOrderedOn.exists_monotone_subseq {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] [IsTrans α r] (h : Set.PartiallyWellOrderedOn s r) (f : ℕ → α) (hf : ∀ (n : ℕ), f n ∈ s) : ∃ (g : ℕ ↪o ℕ), ∀ (m n : ℕ), m ≤ n → r (f (g m)) (f (g n))

theorem Set.partiallyWellOrderedOn_iff_exists_monotone_subseq {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsRefl α r] [IsTrans α r] : Set.PartiallyWellOrderedOn s r ↔ ∀ (f : ℕ → α), (∀ (n : ℕ), f n ∈ s) → ∃ (g : ℕ ↪o ℕ), ∀ (m n : ℕ), m ≤ n → r (f (g m)) (f (g n))

theorem Set.PartiallyWellOrderedOn.prod {α : Type u_2} {β : Type u_3} {r : α → α → Prop} {r' : β → β → Prop} {s : Set α} [IsRefl α r] [IsTrans α r] {t : Set β} (hs : Set.PartiallyWellOrderedOn s r) (ht : Set.PartiallyWellOrderedOn t r') : Set.PartiallyWellOrderedOn (s ×ˢ t) fun (x y : α × β) => r x.1 y.1 ∧ r' x.2 y.2

theorem Set.PartiallyWellOrderedOn.wellFoundedOn {α : Type u_2} {r : α → α → Prop} {s : Set α} [IsPreorder α r] (h : Set.PartiallyWellOrderedOn s r) : Set.WellFoundedOn s fun (a b : α) => r a b ∧ ¬r b a

def Set.IsPWO {α : Type u_2} [Preorder α] (s : Set α) : Prop

A subset of a preorder is partially well-ordered when any infinite sequence contains a monotone subsequence of length 2 (or equivalently, an infinite monotone subsequence).

Equations

• Set.IsPWO s = Set.PartiallyWellOrderedOn s fun (x x_1 : α) => x ≤ x_1

theorem Set.IsPWO.mono {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} (ht : Set.IsPWO t) : s ⊆ t → Set.IsPWO s

theorem Set.IsPWO.exists_monotone_subseq {α : Type u_2} [Preorder α] {s : Set α} (h : Set.IsPWO s) (f : ℕ → α) (hf : ∀ (n : ℕ), f n ∈ s) : ∃ (g : ℕ ↪o ℕ), Monotone (f ∘ ⇑g)

theorem Set.isPWO_iff_exists_monotone_subseq {α : Type u_2} [Preorder α] {s : Set α} : Set.IsPWO s ↔ ∀ (f : ℕ → α), (∀ (n : ℕ), f n ∈ s) → ∃ (g : ℕ ↪o ℕ), Monotone (f ∘ ⇑g)

theorem Set.IsPWO.isWF {α : Type u_2} [Preorder α] {s : Set α} (h : Set.IsPWO s) : Set.IsWF s

theorem Set.IsPWO.prod {α : Type u_2} {β : Type u_3} [Preorder α] [Preorder β] {s : Set α} {t : Set β} (hs : Set.IsPWO s) (ht : Set.IsPWO t) : Set.IsPWO (s ×ˢ t)

theorem Set.IsPWO.image_of_monotoneOn {α : Type u_2} {β : Type u_3} [Preorder α] [Preorder β] {s : Set α} (hs : Set.IsPWO s) {f : α → β} (hf : MonotoneOn f s) : Set.IsPWO (f '' s)

theorem Set.IsPWO.image_of_monotone {α : Type u_2} {β : Type u_3} [Preorder α] [Preorder β] {s : Set α} (hs : Set.IsPWO s) {f : α → β} (hf : Monotone f) : Set.IsPWO (f '' s)

theorem Set.IsPWO.union {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} (hs : Set.IsPWO s) (ht : Set.IsPWO t) : Set.IsPWO (s ∪ t)

@[simp]

theorem Set.isPWO_union {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} : Set.IsPWO (s ∪ t) ↔ Set.IsPWO s ∧ Set.IsPWO t

theorem Set.Finite.isPWO {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.Finite s) : Set.IsPWO s

@[simp]

theorem Set.isPWO_of_finite {α : Type u_2} [Preorder α] {s : Set α} [Finite α] : Set.IsPWO s

@[simp]

theorem Set.isPWO_singleton {α : Type u_2} [Preorder α] (a : α) : Set.IsPWO {a}

@[simp]

theorem Set.isPWO_empty {α : Type u_2} [Preorder α] : Set.IsPWO ∅

theorem Set.Subsingleton.isPWO {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.Subsingleton s) : Set.IsPWO s

@[simp]

theorem Set.isPWO_insert {α : Type u_2} [Preorder α] {s : Set α} {a : α} : Set.IsPWO (insert a s) ↔ Set.IsPWO s

theorem Set.IsPWO.insert {α : Type u_2} [Preorder α] {s : Set α} (h : Set.IsPWO s) (a : α) : Set.IsPWO (insert a s)

theorem Set.Finite.isWF {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.Finite s) : Set.IsWF s

@[simp]

theorem Set.isWF_singleton {α : Type u_2} [Preorder α] {a : α} : Set.IsWF {a}

theorem Set.Subsingleton.isWF {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.Subsingleton s) : Set.IsWF s

@[simp]

theorem Set.isWF_insert {α : Type u_2} [Preorder α] {s : Set α} {a : α} : Set.IsWF (insert a s) ↔ Set.IsWF s

theorem Set.IsWF.insert {α : Type u_2} [Preorder α] {s : Set α} (h : Set.IsWF s) (a : α) : Set.IsWF (insert a s)

theorem Set.Finite.wellFoundedOn {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} (hs : Set.Finite s) : Set.WellFoundedOn s r

@[simp]

theorem Set.wellFoundedOn_singleton {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {a : α} : Set.WellFoundedOn {a} r

theorem Set.Subsingleton.wellFoundedOn {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} (hs : Set.Subsingleton s) : Set.WellFoundedOn s r

@[simp]

theorem Set.wellFoundedOn_insert {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} {a : α} : Set.WellFoundedOn (insert a s) r ↔ Set.WellFoundedOn s r

theorem Set.WellFoundedOn.insert {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] {s : Set α} (h : Set.WellFoundedOn s r) (a : α) : Set.WellFoundedOn (insert a s) r

theorem Set.IsWF.isPWO {α : Type u_2} [LinearOrder α] {s : Set α} (hs : Set.IsWF s) : Set.IsPWO s

theorem Set.isWF_iff_isPWO {α : Type u_2} [LinearOrder α] {s : Set α} : Set.IsWF s ↔ Set.IsPWO s

In a linear order, the predicates Set.IsWF and Set.IsPWO are equivalent.

@[simp]

theorem Finset.partiallyWellOrderedOn {α : Type u_2} {r : α → α → Prop} [IsRefl α r] (s : Finset α) : Set.PartiallyWellOrderedOn (↑s) r

@[simp]

theorem Finset.isPWO {α : Type u_2} [Preorder α] (s : Finset α) : Set.IsPWO ↑s

@[simp]

theorem Finset.isWF {α : Type u_2} [Preorder α] (s : Finset α) : Set.IsWF ↑s

@[simp]

theorem Finset.wellFoundedOn {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] (s : Finset α) : Set.WellFoundedOn (↑s) r

theorem Finset.wellFoundedOn_sup {ι : Type u_1} {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] (s : Finset ι) {f : ι → Set α} : Set.WellFoundedOn (Finset.sup s f) r ↔ ∀ i ∈ s, Set.WellFoundedOn (f i) r

theorem Finset.partiallyWellOrderedOn_sup {ι : Type u_1} {α : Type u_2} {r : α → α → Prop} (s : Finset ι) {f : ι → Set α} : Set.PartiallyWellOrderedOn (Finset.sup s f) r ↔ ∀ i ∈ s, Set.PartiallyWellOrderedOn (f i) r

theorem Finset.isWF_sup {ι : Type u_1} {α : Type u_2} [Preorder α] (s : Finset ι) {f : ι → Set α} : Set.IsWF (Finset.sup s f) ↔ ∀ i ∈ s, Set.IsWF (f i)

theorem Finset.isPWO_sup {ι : Type u_1} {α : Type u_2} [Preorder α] (s : Finset ι) {f : ι → Set α} : Set.IsPWO (Finset.sup s f) ↔ ∀ i ∈ s, Set.IsPWO (f i)

@[simp]

theorem Finset.wellFoundedOn_bUnion {ι : Type u_1} {α : Type u_2} {r : α → α → Prop} [IsStrictOrder α r] (s : Finset ι) {f : ι → Set α} : Set.WellFoundedOn (⋃ i ∈ s, f i) r ↔ ∀ i ∈ s, Set.WellFoundedOn (f i) r

@[simp]

theorem Finset.partiallyWellOrderedOn_bUnion {ι : Type u_1} {α : Type u_2} {r : α → α → Prop} (s : Finset ι) {f : ι → Set α} : Set.PartiallyWellOrderedOn (⋃ i ∈ s, f i) r ↔ ∀ i ∈ s, Set.PartiallyWellOrderedOn (f i) r

@[simp]

theorem Finset.isWF_bUnion {ι : Type u_1} {α : Type u_2} [Preorder α] (s : Finset ι) {f : ι → Set α} : Set.IsWF (⋃ i ∈ s, f i) ↔ ∀ i ∈ s, Set.IsWF (f i)

@[simp]

theorem Finset.isPWO_bUnion {ι : Type u_1} {α : Type u_2} [Preorder α] (s : Finset ι) {f : ι → Set α} : Set.IsPWO (⋃ i ∈ s, f i) ↔ ∀ i ∈ s, Set.IsPWO (f i)

noncomputable def Set.IsWF.min {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.IsWF s) (hn : Set.Nonempty s) : α

Set.IsWF.min returns a minimal element of a nonempty well-founded set.

Equations

• Set.IsWF.min hs hn = ↑(WellFounded.min hs Set.univ (_ : Set.Nonempty Set.univ))

theorem Set.IsWF.min_mem {α : Type u_2} [Preorder α] {s : Set α} (hs : Set.IsWF s) (hn : Set.Nonempty s) : Set.IsWF.min hs hn ∈ s

theorem Set.IsWF.not_lt_min {α : Type u_2} [Preorder α] {s : Set α} {a : α} (hs : Set.IsWF s) (hn : Set.Nonempty s) (ha : a ∈ s) : ¬a < Set.IsWF.min hs hn

theorem Set.IsWF.min_of_subset_not_lt_min {α : Type u_2} [Preorder α] {s : Set α} {t : Set α} {hs : Set.IsWF s} {hsn : Set.Nonempty s} {ht : Set.IsWF t} {htn : Set.Nonempty t} (hst : s ⊆ t) : ¬Set.IsWF.min hs hsn < Set.IsWF.min ht htn

@[simp]

theorem Set.isWF_min_singleton {α : Type u_2} [Preorder α] (a : α) {hs : Set.IsWF {a}} {hn : Set.Nonempty {a}} : Set.IsWF.min hs hn = a

theorem Set.IsWF.min_le {α : Type u_2} [LinearOrder α] {s : Set α} {a : α} (hs : Set.IsWF s) (hn : Set.Nonempty s) (ha : a ∈ s) : Set.IsWF.min hs hn ≤ a

theorem Set.IsWF.le_min_iff {α : Type u_2} [LinearOrder α] {s : Set α} {a : α} (hs : Set.IsWF s) (hn : Set.Nonempty s) : a ≤ Set.IsWF.min hs hn ↔ ∀ b ∈ s, a ≤ b

theorem Set.IsWF.min_le_min_of_subset {α : Type u_2} [LinearOrder α] {s : Set α} {t : Set α} {hs : Set.IsWF s} {hsn : Set.Nonempty s} {ht : Set.IsWF t} {htn : Set.Nonempty t} (hst : s ⊆ t) : Set.IsWF.min ht htn ≤ Set.IsWF.min hs hsn

theorem Set.IsWF.min_union {α : Type u_2} [LinearOrder α] {s : Set α} {t : Set α} (hs : Set.IsWF s) (hsn : Set.Nonempty s) (ht : Set.IsWF t) (htn : Set.Nonempty t) : Set.IsWF.min (_ : Set.IsWF (s ∪ t)) (_ : Set.Nonempty (s ∪ t)) = min (Set.IsWF.min hs hsn) (Set.IsWF.min ht htn)

def Set.PartiallyWellOrderedOn.IsBadSeq {α : Type u_2} (r : α → α → Prop) (s : Set α) (f : ℕ → α) : Prop

In the context of partial well-orderings, a bad sequence is a nonincreasing sequence whose range is contained in a particular set s. One exists if and only if s is not partially well-ordered.

Equations

• Set.PartiallyWellOrderedOn.IsBadSeq r s f = ((∀ (n : ℕ), f n ∈ s) ∧ ∀ (m n : ℕ), m < n → ¬r (f m) (f n))

theorem Set.PartiallyWellOrderedOn.iff_forall_not_isBadSeq {α : Type u_2} (r : α → α → Prop) (s : Set α) : Set.PartiallyWellOrderedOn s r ↔ ∀ (f : ℕ → α), ¬Set.PartiallyWellOrderedOn.IsBadSeq r s f

def Set.PartiallyWellOrderedOn.IsMinBadSeq {α : Type u_2} (r : α → α → Prop) (rk : α → ℕ) (s : Set α) (n : ℕ) (f : ℕ → α) : Prop

This indicates that every bad sequence g that agrees with f on the first n terms has rk (f n) ≤ rk (g n).

Equations

• Set.PartiallyWellOrderedOn.IsMinBadSeq r rk s n f = ∀ (g : ℕ → α), (∀ m < n, f m = g m) → rk (g n) < rk (f n) → ¬Set.PartiallyWellOrderedOn.IsBadSeq r s g

noncomputable def Set.PartiallyWellOrderedOn.minBadSeqOfBadSeq {α : Type u_2} (r : α → α → Prop) (rk : α → ℕ) (s : Set α) (n : ℕ) (f : ℕ → α) (hf : Set.PartiallyWellOrderedOn.IsBadSeq r s f) : { g : ℕ → α // (∀ m < n, f m = g m) ∧ Set.PartiallyWellOrderedOn.IsBadSeq r s g ∧ Set.PartiallyWellOrderedOn.IsMinBadSeq r rk s n g }

Given a bad sequence f, this constructs a bad sequence that agrees with f on the first n terms and is minimal at n.

Equations

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

theorem Set.PartiallyWellOrderedOn.exists_min_bad_of_exists_bad {α : Type u_2} (r : α → α → Prop) (rk : α → ℕ) (s : Set α) : (∃ (f : ℕ → α), Set.PartiallyWellOrderedOn.IsBadSeq r s f) → ∃ (f : ℕ → α), Set.PartiallyWellOrderedOn.IsBadSeq r s f ∧ ∀ (n : ℕ), Set.PartiallyWellOrderedOn.IsMinBadSeq r rk s n f

theorem Set.PartiallyWellOrderedOn.iff_not_exists_isMinBadSeq {α : Type u_2} {r : α → α → Prop} (rk : α → ℕ) {s : Set α} : Set.PartiallyWellOrderedOn s r ↔ ¬∃ (f : ℕ → α), Set.PartiallyWellOrderedOn.IsBadSeq r s f ∧ ∀ (n : ℕ), Set.PartiallyWellOrderedOn.IsMinBadSeq r rk s n f

theorem Set.PartiallyWellOrderedOn.partiallyWellOrderedOn_sublistForall₂ {α : Type u_2} (r : α → α → Prop) [IsRefl α r] [IsTrans α r] {s : Set α} (h : Set.PartiallyWellOrderedOn s r) : Set.PartiallyWellOrderedOn {l : List α | ∀ x ∈ l, x ∈ s} (List.SublistForall₂ r)

Higman's Lemma, which states that for any reflexive, transitive relation r which is partially well-ordered on a set s, the relation List.SublistForall₂ r is partially well-ordered on the set of lists of elements of s. That relation is defined so that List.SublistForall₂ r l₁ l₂ whenever l₁ related pointwise by r to a sublist of l₂.

theorem WellFounded.isWF {α : Type u_2} [LT α] (h : WellFounded fun (x x_1 : α) => x < x_1) (s : Set α) : Set.IsWF s

theorem Pi.isPWO {ι : Type u_1} {α : ι → Type u_6} [(i : ι) → LinearOrder (α i)] [∀ (i : ι), IsWellOrder (α i) fun (x x_1 : α i) => x < x_1] [Finite ι] (s : Set ((i : ι) → α i)) : Set.IsPWO s

A version of Dickson's lemma any subset of functions Π s : σ, α s is partially well ordered, when σ is a Fintype and each α s is a linear well order. This includes the classical case of Dickson's lemma that ℕ ^ n is a well partial order. Some generalizations would be possible based on this proof, to include cases where the target is partially well ordered, and also to consider the case of Set.PartiallyWellOrderedOn instead of Set.IsPWO.

theorem WellFounded.prod_lex_of_wellFoundedOn_fiber {α : Type u_2} {β : Type u_3} {γ : Type u_4} {rα : α → α → Prop} {rβ : β → β → Prop} {f : γ → α} {g : γ → β} (hα : WellFounded (rα on f)) (hβ : ∀ (a : α), Set.WellFoundedOn (f ⁻¹' {a}) (rβ on g)) : WellFounded (Prod.Lex rα rβ on fun (c : γ) => (f c, g c))

Stronger version of WellFounded.prod_lex. Instead of requiring rβ on g to be well-founded, we only require it to be well-founded on fibers of f.

theorem Set.WellFoundedOn.prod_lex_of_wellFoundedOn_fiber {α : Type u_2} {β : Type u_3} {γ : Type u_4} {rα : α → α → Prop} {rβ : β → β → Prop} {f : γ → α} {g : γ → β} {s : Set γ} (hα : Set.WellFoundedOn s (rα on f)) (hβ : ∀ (a : α), Set.WellFoundedOn (s ∩ f ⁻¹' {a}) (rβ on g)) : Set.WellFoundedOn s (Prod.Lex rα rβ on fun (c : γ) => (f c, g c))

theorem WellFounded.sigma_lex_of_wellFoundedOn_fiber {ι : Type u_1} {γ : Type u_4} {π : ι → Type u_5} {rι : ι → ι → Prop} {rπ : (i : ι) → π i → π i → Prop} {f : γ → ι} {g : (i : ι) → γ → π i} (hι : WellFounded (rι on f)) (hπ : ∀ (i : ι), Set.WellFoundedOn (f ⁻¹' {i}) (rπ i on g i)) : WellFounded (Sigma.Lex rι rπ on fun (c : γ) => { fst := f c, snd := g (f c) c })

Stronger version of PSigma.lex_wf. Instead of requiring rπ on g to be well-founded, we only require it to be well-founded on fibers of f.

theorem Set.WellFoundedOn.sigma_lex_of_wellFoundedOn_fiber {ι : Type u_1} {γ : Type u_4} {π : ι → Type u_5} {rι : ι → ι → Prop} {rπ : (i : ι) → π i → π i → Prop} {f : γ → ι} {g : (i : ι) → γ → π i} {s : Set γ} (hι : Set.WellFoundedOn s (rι on f)) (hπ : ∀ (i : ι), Set.WellFoundedOn (s ∩ f ⁻¹' {i}) (rπ i on g i)) : Set.WellFoundedOn s (Sigma.Lex rι rπ on fun (c : γ) => { fst := f c, snd := g (f c) c })