Finsets in product types

This file defines finset constructions on the product type α × β. Beware not to confuse with the Finset.prod operation which computes the multiplicative product.

Main declarations

• Finset.product: Turns s : Finset α, t : Finset β into their product in Finset (α × β).
• Finset.diag: For s : Finset α, s.diag is the Finset (α × α) of pairs (a, a) with a ∈ s.
• Finset.offDiag: For s : Finset α, s.offDiag is the Finset (α × α) of pairs (a, b) with a, b ∈ s and a ≠ b.

prod

def Finset.product {α : Type u_1} {β : Type u_2} (s : Finset α) (t : Finset β) : Finset (α × β)

product s t is the set of pairs (a, b) such that a ∈ s and b ∈ t.

Equations

• Finset.product s t = { val := s.val ×ˢ t.val, nodup := ⋯ }

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

Equations

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

@[simp]

theorem Finset.product_val {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} : (s ×ˢ t).val = s.val ×ˢ t.val

@[simp]

theorem Finset.mem_product {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {p : α × β} : p ∈ s ×ˢ t ↔ p.1 ∈ s ∧ p.2 ∈ t

theorem Finset.mk_mem_product {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {a : α} {b : β} (ha : a ∈ s) (hb : b ∈ t) : (a, b) ∈ s ×ˢ t

@[simp]

theorem Finset.coe_product {α : Type u_1} {β : Type u_2} (s : Finset α) (t : Finset β) : ↑(s ×ˢ t) = ↑s ×ˢ ↑t

theorem Finset.subset_product_image_fst {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} [DecidableEq α] : Finset.image Prod.fst (s ×ˢ t) ⊆ s

theorem Finset.subset_product_image_snd {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} [DecidableEq β] : Finset.image Prod.snd (s ×ˢ t) ⊆ t

theorem Finset.product_image_fst {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} [DecidableEq α] (ht : t.Nonempty) : Finset.image Prod.fst (s ×ˢ t) = s

theorem Finset.product_image_snd {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} [DecidableEq β] (ht : s.Nonempty) : Finset.image Prod.snd (s ×ˢ t) = t

theorem Finset.subset_product {α : Type u_1} {β : Type u_2} [DecidableEq α] [DecidableEq β] {s : Finset (α × β)} : s ⊆ Finset.image Prod.fst s ×ˢ Finset.image Prod.snd s

theorem Finset.product_subset_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} {t' : Finset β} (hs : s ⊆ s') (ht : t ⊆ t') : s ×ˢ t ⊆ s' ×ˢ t'

theorem Finset.product_subset_product_left {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} (hs : s ⊆ s') : s ×ˢ t ⊆ s' ×ˢ t

theorem Finset.product_subset_product_right {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {t' : Finset β} (ht : t ⊆ t') : s ×ˢ t ⊆ s ×ˢ t'

theorem Finset.map_swap_product {α : Type u_1} {β : Type u_2} (s : Finset α) (t : Finset β) : Finset.map { toFun := Prod.swap, inj' := ⋯ } (t ×ˢ s) = s ×ˢ t

@[simp]

theorem Finset.image_swap_product {α : Type u_1} {β : Type u_2} [DecidableEq (α × β)] (s : Finset α) (t : Finset β) : Finset.image Prod.swap (t ×ˢ s) = s ×ˢ t

theorem Finset.product_eq_biUnion {α : Type u_1} {β : Type u_2} [DecidableEq (α × β)] (s : Finset α) (t : Finset β) : s ×ˢ t = Finset.biUnion s fun (a : α) => Finset.image (fun (b : β) => (a, b)) t

theorem Finset.product_eq_biUnion_right {α : Type u_1} {β : Type u_2} [DecidableEq (α × β)] (s : Finset α) (t : Finset β) : s ×ˢ t = Finset.biUnion t fun (b : β) => Finset.image (fun (a : α) => (a, b)) s

@[simp]

theorem Finset.product_biUnion {α : Type u_1} {β : Type u_2} {γ : Type u_3} [DecidableEq γ] (s : Finset α) (t : Finset β) (f : α × β → Finset γ) : Finset.biUnion (s ×ˢ t) f = Finset.biUnion s fun (a : α) => Finset.biUnion t fun (b : β) => f (a, b)

See also Finset.sup_product_left.

@[simp]

theorem Finset.card_product {α : Type u_1} {β : Type u_2} (s : Finset α) (t : Finset β) : (s ×ˢ t).card = s.card * t.card

theorem Finset.nontrivial_prod_iff {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} : Finset.Nontrivial (s ×ˢ t) ↔ s.Nonempty ∧ t.Nonempty ∧ (Finset.Nontrivial s ∨ Finset.Nontrivial t)

The product of two Finsets is nontrivial iff both are nonempty at least one of them is nontrivial.

theorem Finset.filter_product {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (p : α → Prop) (q : β → Prop) [DecidablePred p] [DecidablePred q] : Finset.filter (fun (x : α × β) => p x.1 ∧ q x.2) (s ×ˢ t) = Finset.filter p s ×ˢ Finset.filter q t

theorem Finset.filter_product_left {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (p : α → Prop) [DecidablePred p] : Finset.filter (fun (x : α × β) => p x.1) (s ×ˢ t) = Finset.filter p s ×ˢ t

theorem Finset.filter_product_right {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (q : β → Prop) [DecidablePred q] : Finset.filter (fun (x : α × β) => q x.2) (s ×ˢ t) = s ×ˢ Finset.filter q t

theorem Finset.filter_product_card {α : Type u_1} {β : Type u_2} (s : Finset α) (t : Finset β) (p : α → Prop) (q : β → Prop) [DecidablePred p] [DecidablePred q] : (Finset.filter (fun (x : α × β) => p x.1 = q x.2) (s ×ˢ t)).card = (Finset.filter p s).card * (Finset.filter q t).card + (Finset.filter (fun (x : α) => ¬p x) s).card * (Finset.filter (fun (x : β) => ¬q x) t).card

theorem Finset.empty_product {α : Type u_1} {β : Type u_2} (t : Finset β) : ∅ ×ˢ t = ∅

theorem Finset.product_empty {α : Type u_1} {β : Type u_2} (s : Finset α) : s ×ˢ ∅ = ∅

theorem Finset.Nonempty.product {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (hs : s.Nonempty) (ht : t.Nonempty) : (s ×ˢ t).Nonempty

theorem Finset.Nonempty.fst {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (h : (s ×ˢ t).Nonempty) : s.Nonempty

theorem Finset.Nonempty.snd {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} (h : (s ×ˢ t).Nonempty) : t.Nonempty

@[simp]

theorem Finset.nonempty_product {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} : (s ×ˢ t).Nonempty ↔ s.Nonempty ∧ t.Nonempty

@[simp]

theorem Finset.product_eq_empty {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} : s ×ˢ t = ∅ ↔ s = ∅ ∨ t = ∅

@[simp]

theorem Finset.singleton_product {α : Type u_1} {β : Type u_2} {t : Finset β} {a : α} : {a} ×ˢ t = Finset.map { toFun := Prod.mk a, inj' := ⋯ } t

@[simp]

theorem Finset.product_singleton {α : Type u_1} {β : Type u_2} {s : Finset α} {b : β} : s ×ˢ {b} = Finset.map { toFun := fun (i : α) => (i, b), inj' := ⋯ } s

theorem Finset.singleton_product_singleton {α : Type u_1} {β : Type u_2} {a : α} {b : β} : {a} ×ˢ {b} = {(a, b)}

@[simp]

theorem Finset.union_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} [DecidableEq α] [DecidableEq β] : (s ∪ s') ×ˢ t = s ×ˢ t ∪ s' ×ˢ t

@[simp]

theorem Finset.product_union {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {t' : Finset β} [DecidableEq α] [DecidableEq β] : s ×ˢ (t ∪ t') = s ×ˢ t ∪ s ×ˢ t'

theorem Finset.inter_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} [DecidableEq α] [DecidableEq β] : (s ∩ s') ×ˢ t = s ×ˢ t ∩ s' ×ˢ t

theorem Finset.product_inter {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {t' : Finset β} [DecidableEq α] [DecidableEq β] : s ×ˢ (t ∩ t') = s ×ˢ t ∩ s ×ˢ t'

theorem Finset.product_inter_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} {t' : Finset β} [DecidableEq α] [DecidableEq β] : s ×ˢ t ∩ s' ×ˢ t' = (s ∩ s') ×ˢ (t ∩ t')

theorem Finset.disjoint_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} {t' : Finset β} : Disjoint (s ×ˢ t) (s' ×ˢ t') ↔ Disjoint s s' ∨ Disjoint t t'

@[simp]

theorem Finset.disjUnion_product {α : Type u_1} {β : Type u_2} {s : Finset α} {s' : Finset α} {t : Finset β} (hs : Disjoint s s') : Finset.disjUnion s s' hs ×ˢ t = Finset.disjUnion (s ×ˢ t) (s' ×ˢ t) ⋯

@[simp]

theorem Finset.product_disjUnion {α : Type u_1} {β : Type u_2} {s : Finset α} {t : Finset β} {t' : Finset β} (ht : Disjoint t t') : s ×ˢ Finset.disjUnion t t' ht = Finset.disjUnion (s ×ˢ t) (s ×ˢ t') ⋯

def Finset.diag {α : Type u_1} [DecidableEq α] (s : Finset α) : Finset (α × α)

Given a finite set s, the diagonal, s.diag is the set of pairs of the form (a, a) for a ∈ s.

Equations

• Finset.diag s = Finset.filter (fun (a : α × α) => a.1 = a.2) (s ×ˢ s)

def Finset.offDiag {α : Type u_1} [DecidableEq α] (s : Finset α) : Finset (α × α)

Given a finite set s, the off-diagonal, s.offDiag is the set of pairs (a, b) with a ≠ b for a, b ∈ s.

Equations

• Finset.offDiag s = Finset.filter (fun (a : α × α) => a.1 ≠ a.2) (s ×ˢ s)

@[simp]

theorem Finset.mem_diag {α : Type u_1} [DecidableEq α] {s : Finset α} {x : α × α} : x ∈ Finset.diag s ↔ x.1 ∈ s ∧ x.1 = x.2

@[simp]

theorem Finset.mem_offDiag {α : Type u_1} [DecidableEq α] {s : Finset α} {x : α × α} : x ∈ Finset.offDiag s ↔ x.1 ∈ s ∧ x.2 ∈ s ∧ x.1 ≠ x.2

@[simp]

theorem Finset.coe_offDiag {α : Type u_1} [DecidableEq α] (s : Finset α) : ↑(Finset.offDiag s) = Set.offDiag ↑s

@[simp]

theorem Finset.diag_card {α : Type u_1} [DecidableEq α] (s : Finset α) : (Finset.diag s).card = s.card

@[simp]

theorem Finset.offDiag_card {α : Type u_1} [DecidableEq α] (s : Finset α) : (Finset.offDiag s).card = s.card * s.card - s.card

theorem Finset.diag_mono {α : Type u_1} [DecidableEq α] : Monotone Finset.diag

theorem Finset.offDiag_mono {α : Type u_1} [DecidableEq α] : Monotone Finset.offDiag

@[simp]

theorem Finset.diag_empty {α : Type u_1} [DecidableEq α] : Finset.diag ∅ = ∅

@[simp]

theorem Finset.offDiag_empty {α : Type u_1} [DecidableEq α] : Finset.offDiag ∅ = ∅

@[simp]

theorem Finset.diag_union_offDiag {α : Type u_1} [DecidableEq α] (s : Finset α) : Finset.diag s ∪ Finset.offDiag s = s ×ˢ s

@[simp]

theorem Finset.disjoint_diag_offDiag {α : Type u_1} [DecidableEq α] (s : Finset α) : Disjoint (Finset.diag s) (Finset.offDiag s)

theorem Finset.product_sdiff_diag {α : Type u_1} [DecidableEq α] (s : Finset α) : s ×ˢ s \ Finset.diag s = Finset.offDiag s

theorem Finset.product_sdiff_offDiag {α : Type u_1} [DecidableEq α] (s : Finset α) : s ×ˢ s \ Finset.offDiag s = Finset.diag s

theorem Finset.diag_inter {α : Type u_1} [DecidableEq α] (s : Finset α) (t : Finset α) : Finset.diag (s ∩ t) = Finset.diag s ∩ Finset.diag t

theorem Finset.offDiag_inter {α : Type u_1} [DecidableEq α] (s : Finset α) (t : Finset α) : Finset.offDiag (s ∩ t) = Finset.offDiag s ∩ Finset.offDiag t

theorem Finset.diag_union {α : Type u_1} [DecidableEq α] (s : Finset α) (t : Finset α) : Finset.diag (s ∪ t) = Finset.diag s ∪ Finset.diag t

theorem Finset.offDiag_union {α : Type u_1} [DecidableEq α] {s : Finset α} {t : Finset α} (h : Disjoint s t) : Finset.offDiag (s ∪ t) = Finset.offDiag s ∪ Finset.offDiag t ∪ s ×ˢ t ∪ t ×ˢ s

@[simp]

theorem Finset.offDiag_singleton {α : Type u_1} [DecidableEq α] (a : α) : Finset.offDiag {a} = ∅

theorem Finset.diag_singleton {α : Type u_1} [DecidableEq α] (a : α) : Finset.diag {a} = {(a, a)}

theorem Finset.diag_insert {α : Type u_1} [DecidableEq α] {s : Finset α} (a : α) : Finset.diag (insert a s) = insert (a, a) (Finset.diag s)

theorem Finset.offDiag_insert {α : Type u_1} [DecidableEq α] {s : Finset α} (a : α) (has : a ∉ s) : Finset.offDiag (insert a s) = Finset.offDiag s ∪ {a} ×ˢ s ∪ s ×ˢ {a}