Frames, completely distributive lattices and complete Boolean algebras

In this file we define and provide API for (co)frames, completely distributive lattices and complete Boolean algebras.

We distinguish two different distributivity properties:

1. inf_iSup_eq : (a ⊓ ⨆ i, f i) = ⨆ i, a ⊓ f i (finite ⊓ distributes over infinite ⨆). This is required by Frame, CompleteDistribLattice, and CompleteBooleanAlgebra (Coframe, etc., require the dual property).
2. iInf_iSup_eq : (⨅ i, ⨆ j, f i j) = ⨆ s, ⨅ i, f i (s i) (infinite ⨅ distributes over infinite ⨆). This stronger property is called "completely distributive", and is required by CompletelyDistribLattice and CompleteAtomicBooleanAlgebra.

Typeclasses

• Order.Frame: Frame: A complete lattice whose ⊓ distributes over ⨆.
• Order.Coframe: Coframe: A complete lattice whose ⊔ distributes over ⨅.
• CompleteDistribLattice: Complete distributive lattices: A complete lattice whose ⊓ and ⊔ distribute over ⨆ and ⨅ respectively.
• CompleteBooleanAlgebra: Complete Boolean algebra: A Boolean algebra whose ⊓ and ⊔ distribute over ⨆ and ⨅ respectively.
• CompletelyDistribLattice: Completely distributive lattices: A complete lattice whose ⨅ and ⨆ satisfy iInf_iSup_eq.
• CompleteBooleanAlgebra: Complete Boolean algebra: A Boolean algebra whose ⊓ and ⊔ distribute over ⨆ and ⨅ respectively.
• CompleteAtomicBooleanAlgebra: Complete atomic Boolean algebra: A complete Boolean algebra which is additionally completely distributive. (This implies that it's (co)atom(ist)ic.)

A set of opens gives rise to a topological space precisely if it forms a frame. Such a frame is also completely distributive, but not all frames are. Filter is a coframe but not a completely distributive lattice.

References

• Wikipedia, Complete Heyting algebra
• [Francis Borceux, Handbook of Categorical Algebra III][borceux-vol3]

class Order.Frame.MinimalAxioms (α : Type u) extends CompleteLattice : Type u

Structure containing the minimal axioms required to check that an order is a frame. Do NOT use, except for implementing Order.Frame via Order.Frame.ofMinimalAxioms.

This structure omits the himp, compl fields, which can be recovered using Order.Frame.ofMinimalAxioms.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• inf_sSup_le_iSup_inf : ∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

theorem Order.Frame.MinimalAxioms.inf_sSup_le_iSup_inf {α : Type u} [self : Order.Frame.MinimalAxioms α] (a : α) (s : Set α) : a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

class Order.Coframe.MinimalAxioms (α : Type u) extends CompleteLattice : Type u

Structure containing the minimal axioms required to check that an order is a coframe. Do NOT use, except for implementing Order.Coframe via Order.Coframe.ofMinimalAxioms.

This structure omits the sdiff, hnot fields, which can be recovered using Order.Coframe.ofMinimalAxioms.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• iInf_sup_le_sup_sInf : ∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

theorem Order.Coframe.MinimalAxioms.iInf_sup_le_sup_sInf {α : Type u} [self : Order.Coframe.MinimalAxioms α] (a : α) (s : Set α) : ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

class Order.Frame (α : Type u_1) extends CompleteLattice , HImp , HasCompl : Type u_1

A frame, aka complete Heyting algebra, is a complete lattice whose ⊓ distributes over ⨆.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• himp : α → α → α
• le_himp_iff : ∀ (a b c : α), a ≤ b ⇨ c ↔ a ⊓ b ≤ c

  a ⇨ is right adjoint to a ⊓

• compl : α → α
• himp_bot : ∀ (a : α), a ⇨ ⊥ = aᶜ

  a ⇨ is right adjoint to a ⊓

• inf_sSup_le_iSup_inf : ∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

  ⊓ distributes over ⨆.

theorem Order.Frame.inf_sSup_le_iSup_inf {α : Type u_1} [self : Order.Frame α] (a : α) (s : Set α) : a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

⊓ distributes over ⨆.

class Order.Coframe (α : Type u_1) extends CompleteLattice , SDiff , HNot : Type u_1

A coframe, aka complete Brouwer algebra or complete co-Heyting algebra, is a complete lattice whose ⊔ distributes over ⨅.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• sdiff : α → α → α
• sdiff_le_iff : ∀ (a b c : α), a \ b ≤ c ↔ a ≤ b ⊔ c

  \ a is right adjoint to ⊔ a

• hnot : α → α
• top_sdiff : ∀ (a : α), ⊤ \ a = ￢a

  ⊤ \ a is ￢a

• iInf_sup_le_sup_sInf : ∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

  ⊔ distributes over ⨅.

theorem Order.Coframe.iInf_sup_le_sup_sInf {α : Type u_1} [self : Order.Coframe α] (a : α) (s : Set α) : ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

⊔ distributes over ⨅.

structure CompleteDistribLattice.MinimalAxioms (α : Type u) extends CompleteLattice : Type u

Structure containing the minimal axioms required to check that an order is a complete distributive lattice. Do NOT use, except for implementing CompleteDistribLattice via CompleteDistribLattice.ofMinimalAxioms.

This structure omits the himp, compl, sdiff, hnot fields, which can be recovered using CompleteDistribLattice.ofMinimalAxioms.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• inf_sSup_le_iSup_inf : ∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b
• iInf_sup_le_sup_sInf : ∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

class CompleteDistribLattice (α : Type u_1) extends Order.Frame , SDiff , HNot : Type u_1

A complete distributive lattice is a complete lattice whose ⊔ and ⊓ respectively distribute over ⨅ and ⨆.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• himp : α → α → α
• le_himp_iff : ∀ (a b c : α), a ≤ b ⇨ c ↔ a ⊓ b ≤ c
• compl : α → α
• himp_bot : ∀ (a : α), a ⇨ ⊥ = aᶜ
• inf_sSup_le_iSup_inf : ∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b
• sdiff : α → α → α
• sdiff_le_iff : ∀ (a b c : α), a \ b ≤ c ↔ a ≤ b ⊔ c

  \ a is right adjoint to ⊔ a

• hnot : α → α
• top_sdiff : ∀ (a : α), ⊤ \ a = ￢a

  ⊤ \ a is ￢a

• iInf_sup_le_sup_sInf : ∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

  ⊔ distributes over ⨅.

theorem CompleteDistribLattice.iInf_sup_le_sup_sInf {α : Type u_1} [self : CompleteDistribLattice α] (a : α) (s : Set α) : ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

⊔ distributes over ⨅.

structure CompletelyDistribLattice.MinimalAxioms (α : Type u) extends CompleteLattice : Type u

Structure containing the minimal axioms required to check that an order is a completely distributive. Do NOT use, except for implementing CompletelyDistribLattice via CompletelyDistribLattice.ofMinimalAxioms.

This structure omits the himp, compl, sdiff, hnot fields, which can be recovered using CompletelyDistribLattice.ofMinimalAxioms.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• iInf_iSup_eq : ∀ {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α), ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

theorem CompletelyDistribLattice.MinimalAxioms.iInf_iSup_eq {α : Type u} (self : CompletelyDistribLattice.MinimalAxioms α) {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α) : ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

class CompletelyDistribLattice (α : Type u) extends CompleteLattice , HImp , HasCompl , SDiff , HNot : Type u

A completely distributive lattice is a complete lattice whose ⨅ and ⨆ distribute over each other.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• himp : α → α → α
• le_himp_iff : ∀ (a b c : α), a ≤ b ⇨ c ↔ a ⊓ b ≤ c

  a ⇨ is right adjoint to a ⊓

• compl : α → α
• himp_bot : ∀ (a : α), a ⇨ ⊥ = aᶜ

  a ⇨ is right adjoint to a ⊓

• sdiff : α → α → α
• hnot : α → α
• sdiff_le_iff : ∀ (a b c : α), a \ b ≤ c ↔ a ≤ b ⊔ c

  \ a is right adjoint to ⊔ a

• top_sdiff : ∀ (a : α), ⊤ \ a = ￢a

  ⊤ \ a is ￢a

• iInf_iSup_eq : ∀ {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α), ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

theorem CompletelyDistribLattice.iInf_iSup_eq {α : Type u} [self : CompletelyDistribLattice α] {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α) : ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

theorem le_iInf_iSup {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [CompleteLattice α] {f : (a : ι) → κ a → α} : ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a) ≤ ⨅ (a : ι), ⨆ (b : κ a), f a b

theorem iSup_iInf_le {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [CompleteLattice α] {f : (a : ι) → κ a → α} : ⨆ (a : ι), ⨅ (b : κ a), f a b ≤ ⨅ (g : (a : ι) → κ a), ⨆ (a : ι), f a (g a)

theorem Order.Frame.MinimalAxioms.inf_sSup_eq {α : Type u} (minAx : Order.Frame.MinimalAxioms α) {s : Set α} {a : α} : a ⊓ sSup s = ⨆ b ∈ s, a ⊓ b

theorem Order.Frame.MinimalAxioms.sSup_inf_eq {α : Type u} (minAx : Order.Frame.MinimalAxioms α) {s : Set α} {b : α} : sSup s ⊓ b = ⨆ a ∈ s, a ⊓ b

theorem Order.Frame.MinimalAxioms.iSup_inf_eq {α : Type u} {ι : Sort w} (minAx : Order.Frame.MinimalAxioms α) (f : ι → α) (a : α) : (⨆ (i : ι), f i) ⊓ a = ⨆ (i : ι), f i ⊓ a

theorem Order.Frame.MinimalAxioms.inf_iSup_eq {α : Type u} {ι : Sort w} (minAx : Order.Frame.MinimalAxioms α) (a : α) (f : ι → α) : a ⊓ ⨆ (i : ι), f i = ⨆ (i : ι), a ⊓ f i

theorem Order.Frame.MinimalAxioms.inf_iSup₂_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} (minAx : Order.Frame.MinimalAxioms α) {f : (i : ι) → κ i → α} (a : α) : a ⊓ ⨆ (i : ι), ⨆ (j : κ i), f i j = ⨆ (i : ι), ⨆ (j : κ i), a ⊓ f i j

def Order.Frame.MinimalAxioms.of {α : Type u} [Order.Frame α] : Order.Frame.MinimalAxioms α

The Order.Frame.MinimalAxioms element corresponding to a frame.

Equations

• Order.Frame.MinimalAxioms.of = let __src := inst; Order.Frame.MinimalAxioms.mk ⋯

@[reducible, inline]

abbrev Order.Frame.ofMinimalAxioms {α : Type u} (minAx : Order.Frame.MinimalAxioms α) : Order.Frame α

Construct a frame instance using the minimal amount of work needed.

This sets a ⇨ b := sSup {c | c ⊓ a ≤ b} and aᶜ := a ⇨ ⊥.

Equations

• Order.Frame.ofMinimalAxioms minAx = let __spread.0 := minAx; Order.Frame.mk ⋯ ⋯ ⋯

theorem Order.Coframe.MinimalAxioms.sup_sInf_eq {α : Type u} (minAx : Order.Coframe.MinimalAxioms α) {s : Set α} {a : α} : a ⊔ sInf s = ⨅ b ∈ s, a ⊔ b

theorem Order.Coframe.MinimalAxioms.sInf_sup_eq {α : Type u} (minAx : Order.Coframe.MinimalAxioms α) {s : Set α} {b : α} : sInf s ⊔ b = ⨅ a ∈ s, a ⊔ b

theorem Order.Coframe.MinimalAxioms.iInf_sup_eq {α : Type u} {ι : Sort w} (minAx : Order.Coframe.MinimalAxioms α) (f : ι → α) (a : α) : (⨅ (i : ι), f i) ⊔ a = ⨅ (i : ι), f i ⊔ a

theorem Order.Coframe.MinimalAxioms.sup_iInf_eq {α : Type u} {ι : Sort w} (minAx : Order.Coframe.MinimalAxioms α) (a : α) (f : ι → α) : a ⊔ ⨅ (i : ι), f i = ⨅ (i : ι), a ⊔ f i

theorem Order.Coframe.MinimalAxioms.sup_iInf₂_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} (minAx : Order.Coframe.MinimalAxioms α) {f : (i : ι) → κ i → α} (a : α) : a ⊔ ⨅ (i : ι), ⨅ (j : κ i), f i j = ⨅ (i : ι), ⨅ (j : κ i), a ⊔ f i j

def Order.Coframe.MinimalAxioms.of {α : Type u} [Order.Coframe α] : Order.Coframe.MinimalAxioms α

The Order.Coframe.MinimalAxioms element corresponding to a frame.

Equations

• Order.Coframe.MinimalAxioms.of = let __src := inst; Order.Coframe.MinimalAxioms.mk ⋯

@[reducible, inline]

abbrev Order.Coframe.ofMinimalAxioms {α : Type u} (minAx : Order.Coframe.MinimalAxioms α) : Order.Coframe α

Construct a coframe instance using the minimal amount of work needed.

This sets a \ b := sInf {c | a ≤ b ⊔ c} and ￢a := ⊤ \ a.

Equations

• Order.Coframe.ofMinimalAxioms minAx = let __spread.0 := minAx; Order.Coframe.mk ⋯ ⋯ ⋯

def CompleteDistribLattice.MinimalAxioms.of {α : Type u} [CompleteDistribLattice α] : CompleteDistribLattice.MinimalAxioms α

The CompleteDistribLattice.MinimalAxioms element corresponding to a complete distrib lattice.

Equations

• CompleteDistribLattice.MinimalAxioms.of = let __src := inst; { toCompleteLattice := Order.Frame.toCompleteLattice, inf_sSup_le_iSup_inf := ⋯, iInf_sup_le_sup_sInf := ⋯ }

@[reducible, inline]

abbrev CompleteDistribLattice.MinimalAxioms.toFrame {α : Type u} (minAx : CompleteDistribLattice.MinimalAxioms α) : Order.Frame.MinimalAxioms α

Turn minimal axioms for CompleteDistribLattice into minimal axioms for Order.Frame.

Equations

• minAx.toFrame = minAx.toMinimalAxioms

@[reducible, inline]

abbrev CompleteDistribLattice.MinimalAxioms.toCoframe {α : Type u} (minAx : CompleteDistribLattice.MinimalAxioms α) : Order.Coframe.MinimalAxioms α

Turn minimal axioms for CompleteDistribLattice into minimal axioms for Order.Coframe.

Equations

• minAx.toCoframe = let __spread.0 := minAx; Order.Coframe.MinimalAxioms.mk ⋯

@[reducible, inline]

abbrev CompleteDistribLattice.ofMinimalAxioms {α : Type u} (minAx : CompleteDistribLattice.MinimalAxioms α) : CompleteDistribLattice α

Construct a complete distrib lattice instance using the minimal amount of work needed.

This sets a ⇨ b := sSup {c | c ⊓ a ≤ b}, aᶜ := a ⇨ ⊥, a \ b := sInf {c | a ≤ b ⊔ c} and ￢a := ⊤ \ a.

Equations

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

theorem CompletelyDistribLattice.MinimalAxioms.iInf_iSup_eq' {α : Type u} {ι : Sort w} {κ : ι → Sort w'} (minAx : CompletelyDistribLattice.MinimalAxioms α) (f : (a : ι) → κ a → α) : let x := minAx.toCompleteLattice; ⨅ (i : ι), ⨆ (j : κ i), f i j = ⨆ (g : (i : ι) → κ i), ⨅ (i : ι), f i (g i)

theorem CompletelyDistribLattice.MinimalAxioms.iSup_iInf_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} (minAx : CompletelyDistribLattice.MinimalAxioms α) (f : (i : ι) → κ i → α) : let x := minAx.toCompleteLattice; ⨆ (i : ι), ⨅ (j : κ i), f i j = ⨅ (g : (i : ι) → κ i), ⨆ (i : ι), f i (g i)

@[reducible, inline]

abbrev CompletelyDistribLattice.MinimalAxioms.toCompleteDistribLattice {α : Type u} (minAx : CompletelyDistribLattice.MinimalAxioms α) : CompleteDistribLattice.MinimalAxioms α

Turn minimal axioms for CompletelyDistribLattice into minimal axioms for CompleteDistribLattice.

Equations

• minAx.toCompleteDistribLattice = let __spread.0 := minAx; { toCompleteLattice := __spread.0.toCompleteLattice, inf_sSup_le_iSup_inf := ⋯, iInf_sup_le_sup_sInf := ⋯ }

def CompletelyDistribLattice.MinimalAxioms.of {α : Type u} [CompletelyDistribLattice α] : CompletelyDistribLattice.MinimalAxioms α

The CompletelyDistribLattice.MinimalAxioms element corresponding to a frame.

Equations

• CompletelyDistribLattice.MinimalAxioms.of = let __src := inst; { toCompleteLattice := CompletelyDistribLattice.toCompleteLattice, iInf_iSup_eq := ⋯ }

@[reducible, inline]

abbrev CompletelyDistribLattice.ofMinimalAxioms {α : Type u} (minAx : CompletelyDistribLattice.MinimalAxioms α) : CompletelyDistribLattice α

Construct a completely distributive lattice instance using the minimal amount of work needed.

This sets a ⇨ b := sSup {c | c ⊓ a ≤ b}, aᶜ := a ⇨ ⊥, a \ b := sInf {c | a ≤ b ⊔ c} and ￢a := ⊤ \ a.

Equations

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

theorem iInf_iSup_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [CompletelyDistribLattice α] {f : (a : ι) → κ a → α} : ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

theorem iSup_iInf_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [CompletelyDistribLattice α] {f : (a : ι) → κ a → α} : ⨆ (a : ι), ⨅ (b : κ a), f a b = ⨅ (g : (a : ι) → κ a), ⨆ (a : ι), f a (g a)

@[instance 100]

instance CompletelyDistribLattice.toCompleteDistribLattice {α : Type u} [CompletelyDistribLattice α] : CompleteDistribLattice α

Equations

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

@[instance 100]

instance CompleteLinearOrder.toCompletelyDistribLattice {α : Type u} [CompleteLinearOrder α] : CompletelyDistribLattice α

Equations

• CompleteLinearOrder.toCompletelyDistribLattice = let __spread.0 := inst; CompletelyDistribLattice.mk ⋯ ⋯ ⋯ ⋯ ⋯

instance OrderDual.instCoframe {α : Type u} [Order.Frame α] : Order.Coframe αᵒᵈ

Equations

• OrderDual.instCoframe = let __spread.0 := OrderDual.instCompleteLattice; let __spread.1 := OrderDual.instCoheytingAlgebra; Order.Coframe.mk ⋯ ⋯ ⋯

theorem inf_sSup_eq {α : Type u} [Order.Frame α] {s : Set α} {a : α} : a ⊓ sSup s = ⨆ b ∈ s, a ⊓ b

theorem sSup_inf_eq {α : Type u} [Order.Frame α] {s : Set α} {b : α} : sSup s ⊓ b = ⨆ a ∈ s, a ⊓ b

theorem iSup_inf_eq {α : Type u} {ι : Sort w} [Order.Frame α] (f : ι → α) (a : α) : (⨆ (i : ι), f i) ⊓ a = ⨆ (i : ι), f i ⊓ a

theorem inf_iSup_eq {α : Type u} {ι : Sort w} [Order.Frame α] (a : α) (f : ι → α) : a ⊓ ⨆ (i : ι), f i = ⨆ (i : ι), a ⊓ f i

theorem iSup₂_inf_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Frame α] {f : (i : ι) → κ i → α} (a : α) : (⨆ (i : ι), ⨆ (j : κ i), f i j) ⊓ a = ⨆ (i : ι), ⨆ (j : κ i), f i j ⊓ a

theorem inf_iSup₂_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Frame α] {f : (i : ι) → κ i → α} (a : α) : a ⊓ ⨆ (i : ι), ⨆ (j : κ i), f i j = ⨆ (i : ι), ⨆ (j : κ i), a ⊓ f i j

theorem iSup_inf_iSup {α : Type u} [Order.Frame α] {ι : Type u_1} {ι' : Type u_2} {f : ι → α} {g : ι' → α} : (⨆ (i : ι), f i) ⊓ ⨆ (j : ι'), g j = ⨆ (i : ι × ι'), f i.1 ⊓ g i.2

theorem biSup_inf_biSup {α : Type u} [Order.Frame α] {ι : Type u_1} {ι' : Type u_2} {f : ι → α} {g : ι' → α} {s : Set ι} {t : Set ι'} : (⨆ i ∈ s, f i) ⊓ ⨆ j ∈ t, g j = ⨆ p ∈ s ×ˢ t, f p.1 ⊓ g p.2

theorem sSup_inf_sSup {α : Type u} [Order.Frame α] {s : Set α} {t : Set α} : sSup s ⊓ sSup t = ⨆ p ∈ s ×ˢ t, p.1 ⊓ p.2

theorem iSup_disjoint_iff {α : Type u} {ι : Sort w} [Order.Frame α] {a : α} {f : ι → α} : Disjoint (⨆ (i : ι), f i) a ↔ ∀ (i : ι), Disjoint (f i) a

theorem disjoint_iSup_iff {α : Type u} {ι : Sort w} [Order.Frame α] {a : α} {f : ι → α} : Disjoint a (⨆ (i : ι), f i) ↔ ∀ (i : ι), Disjoint a (f i)

theorem iSup₂_disjoint_iff {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Frame α] {a : α} {f : (i : ι) → κ i → α} : Disjoint (⨆ (i : ι), ⨆ (j : κ i), f i j) a ↔ ∀ (i : ι) (j : κ i), Disjoint (f i j) a

theorem disjoint_iSup₂_iff {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Frame α] {a : α} {f : (i : ι) → κ i → α} : Disjoint a (⨆ (i : ι), ⨆ (j : κ i), f i j) ↔ ∀ (i : ι) (j : κ i), Disjoint a (f i j)

theorem sSup_disjoint_iff {α : Type u} [Order.Frame α] {a : α} {s : Set α} : Disjoint (sSup s) a ↔ ∀ b ∈ s, Disjoint b a

theorem disjoint_sSup_iff {α : Type u} [Order.Frame α] {a : α} {s : Set α} : Disjoint a (sSup s) ↔ ∀ b ∈ s, Disjoint a b

theorem iSup_inf_of_monotone {α : Type u} [Order.Frame α] {ι : Type u_1} [Preorder ι] [IsDirected ι fun (x x_1 : ι) => x ≤ x_1] {f : ι → α} {g : ι → α} (hf : Monotone f) (hg : Monotone g) : ⨆ (i : ι), f i ⊓ g i = (⨆ (i : ι), f i) ⊓ ⨆ (i : ι), g i

theorem iSup_inf_of_antitone {α : Type u} [Order.Frame α] {ι : Type u_1} [Preorder ι] [IsDirected ι (Function.swap fun (x x_1 : ι) => x ≤ x_1)] {f : ι → α} {g : ι → α} (hf : Antitone f) (hg : Antitone g) : ⨆ (i : ι), f i ⊓ g i = (⨆ (i : ι), f i) ⊓ ⨆ (i : ι), g i

@[instance 100]

instance Frame.toDistribLattice {α : Type u} [Order.Frame α] : DistribLattice α

Equations

• Frame.toDistribLattice = DistribLattice.ofInfSupLe ⋯

instance Prod.instFrame {α : Type u} {β : Type v} [Order.Frame α] [Order.Frame β] : Order.Frame (α × β)

Equations

• Prod.instFrame = let __spread.0 := Prod.instCompleteLattice; let __spread.1 := Prod.instHeytingAlgebra; Order.Frame.mk ⋯ ⋯ ⋯

instance Pi.instFrame {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → Order.Frame (π i)] : Order.Frame ((i : ι) → π i)

Equations

• Pi.instFrame = let __spread.0 := Pi.instCompleteLattice; let __spread.1 := Pi.instHeytingAlgebra; Order.Frame.mk ⋯ ⋯ ⋯

instance OrderDual.instFrame {α : Type u} [Order.Coframe α] : Order.Frame αᵒᵈ

Equations

• OrderDual.instFrame = let __spread.0 := OrderDual.instCompleteLattice; let __spread.1 := OrderDual.instHeytingAlgebra; Order.Frame.mk ⋯ ⋯ ⋯

theorem sup_sInf_eq {α : Type u} [Order.Coframe α] {s : Set α} {a : α} : a ⊔ sInf s = ⨅ b ∈ s, a ⊔ b

theorem sInf_sup_eq {α : Type u} [Order.Coframe α] {s : Set α} {b : α} : sInf s ⊔ b = ⨅ a ∈ s, a ⊔ b

theorem iInf_sup_eq {α : Type u} {ι : Sort w} [Order.Coframe α] (f : ι → α) (a : α) : (⨅ (i : ι), f i) ⊔ a = ⨅ (i : ι), f i ⊔ a

theorem sup_iInf_eq {α : Type u} {ι : Sort w} [Order.Coframe α] (a : α) (f : ι → α) : a ⊔ ⨅ (i : ι), f i = ⨅ (i : ι), a ⊔ f i

theorem iInf₂_sup_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Coframe α] {f : (i : ι) → κ i → α} (a : α) : (⨅ (i : ι), ⨅ (j : κ i), f i j) ⊔ a = ⨅ (i : ι), ⨅ (j : κ i), f i j ⊔ a

theorem sup_iInf₂_eq {α : Type u} {ι : Sort w} {κ : ι → Sort w'} [Order.Coframe α] {f : (i : ι) → κ i → α} (a : α) : a ⊔ ⨅ (i : ι), ⨅ (j : κ i), f i j = ⨅ (i : ι), ⨅ (j : κ i), a ⊔ f i j

theorem iInf_sup_iInf {α : Type u} [Order.Coframe α] {ι : Type u_1} {ι' : Type u_2} {f : ι → α} {g : ι' → α} : (⨅ (i : ι), f i) ⊔ ⨅ (i : ι'), g i = ⨅ (i : ι × ι'), f i.1 ⊔ g i.2

theorem biInf_sup_biInf {α : Type u} [Order.Coframe α] {ι : Type u_1} {ι' : Type u_2} {f : ι → α} {g : ι' → α} {s : Set ι} {t : Set ι'} : (⨅ i ∈ s, f i) ⊔ ⨅ j ∈ t, g j = ⨅ p ∈ s ×ˢ t, f p.1 ⊔ g p.2

theorem sInf_sup_sInf {α : Type u} [Order.Coframe α] {s : Set α} {t : Set α} : sInf s ⊔ sInf t = ⨅ p ∈ s ×ˢ t, p.1 ⊔ p.2

theorem iInf_sup_of_monotone {α : Type u} [Order.Coframe α] {ι : Type u_1} [Preorder ι] [IsDirected ι (Function.swap fun (x x_1 : ι) => x ≤ x_1)] {f : ι → α} {g : ι → α} (hf : Monotone f) (hg : Monotone g) : ⨅ (i : ι), f i ⊔ g i = (⨅ (i : ι), f i) ⊔ ⨅ (i : ι), g i

theorem iInf_sup_of_antitone {α : Type u} [Order.Coframe α] {ι : Type u_1} [Preorder ι] [IsDirected ι fun (x x_1 : ι) => x ≤ x_1] {f : ι → α} {g : ι → α} (hf : Antitone f) (hg : Antitone g) : ⨅ (i : ι), f i ⊔ g i = (⨅ (i : ι), f i) ⊔ ⨅ (i : ι), g i

@[instance 100]

instance Coframe.toDistribLattice {α : Type u} [Order.Coframe α] : DistribLattice α

Equations

• Coframe.toDistribLattice = let __spread.0 := inst; DistribLattice.mk ⋯

instance Prod.instCoframe {α : Type u} {β : Type v} [Order.Coframe α] [Order.Coframe β] : Order.Coframe (α × β)

Equations

• Prod.instCoframe = let __spread.0 := Prod.instCompleteLattice; let __spread.1 := Prod.instCoheytingAlgebra; Order.Coframe.mk ⋯ ⋯ ⋯

instance Pi.instCoframe {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → Order.Coframe (π i)] : Order.Coframe ((i : ι) → π i)

Equations

• Pi.instCoframe = let __spread.0 := Pi.instCompleteLattice; let __spread.1 := Pi.instCoheytingAlgebra; Order.Coframe.mk ⋯ ⋯ ⋯

instance OrderDual.instCompleteDistribLattice {α : Type u} [CompleteDistribLattice α] : CompleteDistribLattice αᵒᵈ

Equations

• OrderDual.instCompleteDistribLattice = let __spread.0 := OrderDual.instFrame; let __spread.1 := OrderDual.instCoframe; CompleteDistribLattice.mk ⋯ ⋯ ⋯

instance Prod.instCompleteDistribLattice {α : Type u} {β : Type v} [CompleteDistribLattice α] [CompleteDistribLattice β] : CompleteDistribLattice (α × β)

Equations

• Prod.instCompleteDistribLattice = let __spread.0 := Prod.instFrame; let __spread.1 := Prod.instCoframe; CompleteDistribLattice.mk ⋯ ⋯ ⋯

instance Pi.instCompleteDistribLattice {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → CompleteDistribLattice (π i)] : CompleteDistribLattice ((i : ι) → π i)

Equations

• Pi.instCompleteDistribLattice = let __spread.0 := Pi.instFrame; let __spread.1 := Pi.instCoframe; CompleteDistribLattice.mk ⋯ ⋯ ⋯

instance OrderDual.instCompletelyDistribLattice {α : Type u} [CompletelyDistribLattice α] : CompletelyDistribLattice αᵒᵈ

Equations

• OrderDual.instCompletelyDistribLattice = let __spread.0 := OrderDual.instFrame; let __spread.1 := OrderDual.instCoframe; CompletelyDistribLattice.mk ⋯ ⋯ ⋯ ⋯ ⋯

instance Prod.instCompletelyDistribLattice {α : Type u} {β : Type v} [CompletelyDistribLattice α] [CompletelyDistribLattice β] : CompletelyDistribLattice (α × β)

Equations

• Prod.instCompletelyDistribLattice = let __spread.0 := Prod.instFrame; let __spread.1 := Prod.instCoframe; CompletelyDistribLattice.mk ⋯ ⋯ ⋯ ⋯ ⋯

instance Pi.instCompletelyDistribLattice {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → CompletelyDistribLattice (π i)] : CompletelyDistribLattice ((i : ι) → π i)

Equations

• Pi.instCompletelyDistribLattice = let __spread.0 := Pi.instFrame; let __spread.1 := Pi.instCoframe; CompletelyDistribLattice.mk ⋯ ⋯ ⋯ ⋯ ⋯

class CompleteBooleanAlgebra (α : Type u_1) extends CompleteLattice , HasCompl , SDiff , HImp : Type u_1

A complete Boolean algebra is a Boolean algebra that is also a complete distributive lattice.

It is only completely distributive if it is also atomic.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• le_sup_inf : ∀ (x y z : α), (x ⊔ y) ⊓ (x ⊔ z) ≤ x ⊔ y ⊓ z

  The infimum distributes over the supremum

• compl : α → α
• sdiff : α → α → α
• himp : α → α → α
• inf_compl_le_bot : ∀ (x : α), x ⊓ xᶜ ≤ ⊥

  The infimum of x and xᶜ is at most ⊥

• top_le_sup_compl : ∀ (x : α), ⊤ ≤ x ⊔ xᶜ

  The supremum of x and xᶜ is at least ⊤

• sdiff_eq : ∀ (x y : α), x \ y = x ⊓ yᶜ

  x \ y is equal to x ⊓ yᶜ

• himp_eq : ∀ (x y : α), x ⇨ y = y ⊔ xᶜ

  x ⇨ y is equal to y ⊔ xᶜ

• inf_sSup_le_iSup_inf : ∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

  ⊓ distributes over ⨆.

• iInf_sup_le_sup_sInf : ∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

  ⊔ distributes over ⨅.

theorem CompleteBooleanAlgebra.inf_sSup_le_iSup_inf {α : Type u_1} [self : CompleteBooleanAlgebra α] (a : α) (s : Set α) : a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b

⊓ distributes over ⨆.

theorem CompleteBooleanAlgebra.iInf_sup_le_sup_sInf {α : Type u_1} [self : CompleteBooleanAlgebra α] (a : α) (s : Set α) : ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s

⊔ distributes over ⨅.

@[instance 100]

instance CompleteBooleanAlgebra.toCompleteDistribLattice {α : Type u} [CompleteBooleanAlgebra α] : CompleteDistribLattice α

Equations

• CompleteBooleanAlgebra.toCompleteDistribLattice = let __spread.0 := inst; let __spread.1 := BooleanAlgebra.toBiheytingAlgebra; CompleteDistribLattice.mk ⋯ ⋯ ⋯

instance Prod.instCompleteBooleanAlgebra {α : Type u} {β : Type v} [CompleteBooleanAlgebra α] [CompleteBooleanAlgebra β] : CompleteBooleanAlgebra (α × β)

Equations

• Prod.instCompleteBooleanAlgebra = let __spread.0 := Prod.instBooleanAlgebra; let __spread.1 := Prod.instCompleteDistribLattice; CompleteBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

instance Pi.instCompleteBooleanAlgebra {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → CompleteBooleanAlgebra (π i)] : CompleteBooleanAlgebra ((i : ι) → π i)

Equations

• Pi.instCompleteBooleanAlgebra = let __spread.0 := Pi.instBooleanAlgebra; let __spread.1 := Pi.instCompleteDistribLattice; CompleteBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

instance OrderDual.instCompleteBooleanAlgebra {α : Type u} [CompleteBooleanAlgebra α] : CompleteBooleanAlgebra αᵒᵈ

Equations

• OrderDual.instCompleteBooleanAlgebra = let __spread.0 := OrderDual.instBooleanAlgebra; let __spread.1 := OrderDual.instCompleteDistribLattice; CompleteBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

theorem compl_iInf {α : Type u} {ι : Sort w} [CompleteBooleanAlgebra α] {f : ι → α} : (iInf f)ᶜ = ⨆ (i : ι), (f i)ᶜ

theorem compl_iSup {α : Type u} {ι : Sort w} [CompleteBooleanAlgebra α] {f : ι → α} : (iSup f)ᶜ = ⨅ (i : ι), (f i)ᶜ

theorem compl_sInf {α : Type u} [CompleteBooleanAlgebra α] {s : Set α} : (sInf s)ᶜ = ⨆ i ∈ s, iᶜ

theorem compl_sSup {α : Type u} [CompleteBooleanAlgebra α] {s : Set α} : (sSup s)ᶜ = ⨅ i ∈ s, iᶜ

theorem compl_sInf' {α : Type u} [CompleteBooleanAlgebra α] {s : Set α} : (sInf s)ᶜ = sSup (compl '' s)

theorem compl_sSup' {α : Type u} [CompleteBooleanAlgebra α] {s : Set α} : (sSup s)ᶜ = sInf (compl '' s)

theorem iSup_symmDiff_iSup_le {α : Type u} {ι : Sort w} [CompleteBooleanAlgebra α] {f : ι → α} {g : ι → α} : symmDiff (⨆ (i : ι), f i) (⨆ (i : ι), g i) ≤ ⨆ (i : ι), symmDiff (f i) (g i)

The symmetric difference of two iSups is at most the iSup of the symmetric differences.

theorem biSup_symmDiff_biSup_le {α : Type u} {ι : Sort w} [CompleteBooleanAlgebra α] {p : ι → Prop} {f : (i : ι) → p i → α} {g : (i : ι) → p i → α} : symmDiff (⨆ (i : ι), ⨆ (h : p i), f i h) (⨆ (i : ι), ⨆ (h : p i), g i h) ≤ ⨆ (i : ι), ⨆ (h : p i), symmDiff (f i h) (g i h)

A biSup version of iSup_symmDiff_iSup_le.

class CompleteAtomicBooleanAlgebra (α : Type u) extends CompleteLattice , HasCompl , SDiff , HImp : Type u

A complete atomic Boolean algebra is a complete Boolean algebra that is also completely distributive.

We take iSup_iInf_eq as the definition here, and prove later on that this implies atomicity.

• sup : α → α → α
• le : α → α → Prop
• lt : α → α → Prop
• le_refl : ∀ (a : α), a ≤ a
• le_trans : ∀ (a b c : α), a ≤ b → b ≤ c → a ≤ c
• lt_iff_le_not_le : ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
• le_antisymm : ∀ (a b : α), a ≤ b → b ≤ a → a = b
• le_sup_left : ∀ (a b : α), a ≤ a ⊔ b
• le_sup_right : ∀ (a b : α), b ≤ a ⊔ b
• sup_le : ∀ (a b c : α), a ≤ c → b ≤ c → a ⊔ b ≤ c
• inf : α → α → α
• inf_le_left : ∀ (a b : α), a ⊓ b ≤ a
• inf_le_right : ∀ (a b : α), a ⊓ b ≤ b
• le_inf : ∀ (a b c : α), a ≤ b → a ≤ c → a ≤ b ⊓ c
• sSup : Set α → α
• le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s
• sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a
• sInf : Set α → α
• sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a
• le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s
• top : α
• bot : α
• le_top : ∀ (x : α), x ≤ ⊤
• bot_le : ∀ (x : α), ⊥ ≤ x
• le_sup_inf : ∀ (x y z : α), (x ⊔ y) ⊓ (x ⊔ z) ≤ x ⊔ y ⊓ z

  The infimum distributes over the supremum

• compl : α → α
• sdiff : α → α → α
• himp : α → α → α
• inf_compl_le_bot : ∀ (x : α), x ⊓ xᶜ ≤ ⊥

  The infimum of x and xᶜ is at most ⊥

• top_le_sup_compl : ∀ (x : α), ⊤ ≤ x ⊔ xᶜ

  The supremum of x and xᶜ is at least ⊤

• sdiff_eq : ∀ (x y : α), x \ y = x ⊓ yᶜ

  x \ y is equal to x ⊓ yᶜ

• himp_eq : ∀ (x y : α), x ⇨ y = y ⊔ xᶜ

  x ⇨ y is equal to y ⊔ xᶜ

• iInf_iSup_eq : ∀ {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α), ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

theorem CompleteAtomicBooleanAlgebra.iInf_iSup_eq {α : Type u} [self : CompleteAtomicBooleanAlgebra α] {ι : Type u} {κ : ι → Type u} (f : (a : ι) → κ a → α) : ⨅ (a : ι), ⨆ (b : κ a), f a b = ⨆ (g : (a : ι) → κ a), ⨅ (a : ι), f a (g a)

@[instance 100]

instance CompleteAtomicBooleanAlgebra.toCompletelyDistribLattice {α : Type u} [CompleteAtomicBooleanAlgebra α] : CompletelyDistribLattice α

Equations

• CompleteAtomicBooleanAlgebra.toCompletelyDistribLattice = let __spread.0 := inst; let __spread.1 := BooleanAlgebra.toBiheytingAlgebra; CompletelyDistribLattice.mk ⋯ ⋯ ⋯ ⋯ ⋯

@[instance 100]

instance CompleteAtomicBooleanAlgebra.toCompleteBooleanAlgebra {α : Type u} [CompleteAtomicBooleanAlgebra α] : CompleteBooleanAlgebra α

Equations

• CompleteAtomicBooleanAlgebra.toCompleteBooleanAlgebra = let __spread.0 := inst; let __spread.1 := CompletelyDistribLattice.toCompleteDistribLattice; CompleteBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

instance Prod.instCompleteAtomicBooleanAlgebra {α : Type u} {β : Type v} [CompleteAtomicBooleanAlgebra α] [CompleteAtomicBooleanAlgebra β] : CompleteAtomicBooleanAlgebra (α × β)

Equations

• Prod.instCompleteAtomicBooleanAlgebra = let __spread.0 := Prod.instBooleanAlgebra; let __spread.1 := Prod.instCompletelyDistribLattice; CompleteAtomicBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

instance Pi.instCompleteAtomicBooleanAlgebra {ι : Type u_1} {π : ι → Type u_2} [(i : ι) → CompleteAtomicBooleanAlgebra (π i)] : CompleteAtomicBooleanAlgebra ((i : ι) → π i)

Equations

• Pi.instCompleteAtomicBooleanAlgebra = let __spread.0 := Pi.instCompleteBooleanAlgebra; CompleteAtomicBooleanAlgebra.mk ⋯ ⋯ ⋯ ⋯ ⋯ ⋯

instance OrderDual.instCompleteAtomicBooleanAlgebra {α : Type u} [CompleteAtomicBooleanAlgebra α] : CompleteAtomicBooleanAlgebra αᵒᵈ

Equations

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

instance Prop.instCompleteAtomicBooleanAlgebra : CompleteAtomicBooleanAlgebra Prop

Equations

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

instance Prop.instCompleteBooleanAlgebra : CompleteBooleanAlgebra Prop

Equations

• Prop.instCompleteBooleanAlgebra = inferInstance

@[reducible, inline]

abbrev Function.Injective.frameMinimalAxioms {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] (minAx : Order.Frame.MinimalAxioms β) (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) : Order.Frame.MinimalAxioms α

Pullback an Order.Frame.MinimalAxioms along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.coframeMinimalAxioms {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] (minAx : Order.Coframe.MinimalAxioms β) (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) : Order.Coframe.MinimalAxioms α

Pullback an Order.Coframe.MinimalAxioms along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.frame {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HasCompl α] [HImp α] [Order.Frame β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_compl : ∀ (a : α), f aᶜ = (f a)ᶜ) (map_himp : ∀ (a b : α), f (a ⇨ b) = f a ⇨ f b) : Order.Frame α

Pullback an Order.Frame along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.coframe {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HNot α] [SDiff α] [Order.Coframe β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_hnot : ∀ (a : α), f (￢a) = ￢f a) (map_sdiff : ∀ (a b : α), f (a \ b) = f a \ f b) : Order.Coframe α

Pullback an Order.Coframe along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completeDistribLatticeMinimalAxioms {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] (minAx : CompleteDistribLattice.MinimalAxioms β) (f : α → β) (hf : Function.Injective f) (map_sup : let x := minAx.toCompleteLattice; ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : let x := minAx.toCompleteLattice; ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : let x := minAx.toCompleteLattice; ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : let x := minAx.toCompleteLattice; ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : let x := minAx.toCompleteLattice; f ⊤ = ⊤) (map_bot : let x := minAx.toCompleteLattice; f ⊥ = ⊥) : CompleteDistribLattice.MinimalAxioms α

Pullback a CompleteDistribLattice.MinimalAxioms along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completeDistribLattice {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HasCompl α] [HImp α] [HNot α] [SDiff α] [CompleteDistribLattice β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_compl : ∀ (a : α), f aᶜ = (f a)ᶜ) (map_himp : ∀ (a b : α), f (a ⇨ b) = f a ⇨ f b) (map_hnot : ∀ (a : α), f (￢a) = ￢f a) (map_sdiff : ∀ (a b : α), f (a \ b) = f a \ f b) : CompleteDistribLattice α

Pullback a CompleteDistribLattice along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completelyDistribLatticeMinimalAxioms {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] (minAx : CompletelyDistribLattice.MinimalAxioms β) (f : α → β) (hf : Function.Injective f) (map_sup : let x := minAx.toCompleteLattice; ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : let x := minAx.toCompleteLattice; ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : let x := minAx.toCompleteLattice; ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : let x := minAx.toCompleteLattice; ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : let x := minAx.toCompleteLattice; f ⊤ = ⊤) (map_bot : let x := minAx.toCompleteLattice; f ⊥ = ⊥) : CompletelyDistribLattice.MinimalAxioms α

Pullback a CompletelyDistribLattice.MinimalAxioms along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completelyDistribLattice {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HasCompl α] [HImp α] [HNot α] [SDiff α] [CompletelyDistribLattice β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_compl : ∀ (a : α), f aᶜ = (f a)ᶜ) (map_himp : ∀ (a b : α), f (a ⇨ b) = f a ⇨ f b) (map_hnot : ∀ (a : α), f (￢a) = ￢f a) (map_sdiff : ∀ (a b : α), f (a \ b) = f a \ f b) : CompletelyDistribLattice α

Pullback a CompletelyDistribLattice along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completeBooleanAlgebra {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HasCompl α] [HImp α] [SDiff α] [CompleteBooleanAlgebra β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_compl : ∀ (a : α), f aᶜ = (f a)ᶜ) (map_himp : ∀ (a b : α), f (a ⇨ b) = f a ⇨ f b) (map_sdiff : ∀ (a b : α), f (a \ b) = f a \ f b) : CompleteBooleanAlgebra α

Pullback a CompleteBooleanAlgebra along an injection.

Equations

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

@[reducible, inline]

abbrev Function.Injective.completeAtomicBooleanAlgebra {α : Type u} {β : Type v} [Sup α] [Inf α] [SupSet α] [InfSet α] [Top α] [Bot α] [HasCompl α] [HImp α] [HNot α] [SDiff α] [CompleteAtomicBooleanAlgebra β] (f : α → β) (hf : Function.Injective f) (map_sup : ∀ (a b : α), f (a ⊔ b) = f a ⊔ f b) (map_inf : ∀ (a b : α), f (a ⊓ b) = f a ⊓ f b) (map_sSup : ∀ (s : Set α), f (sSup s) = ⨆ a ∈ s, f a) (map_sInf : ∀ (s : Set α), f (sInf s) = ⨅ a ∈ s, f a) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) (map_compl : ∀ (a : α), f aᶜ = (f a)ᶜ) (map_himp : ∀ (a b : α), f (a ⇨ b) = f a ⇨ f b) (map_hnot : ∀ (a : α), f (￢a) = ￢f a) (map_sdiff : ∀ (a b : α), f (a \ b) = f a \ f b) : CompleteAtomicBooleanAlgebra α

Pullback a CompleteAtomicBooleanAlgebra along an injection.

Equations

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

instance PUnit.instCompleteAtomicBooleanAlgebra : CompleteAtomicBooleanAlgebra PUnit.{u_1 + 1}

Equations

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

instance PUnit.instCompleteBooleanAlgebra : CompleteBooleanAlgebra PUnit.{u_1 + 1}

Equations

• PUnit.instCompleteBooleanAlgebra = inferInstance

@[simp]

theorem PUnit.sSup_eq (s : Set PUnit.{u + 1} ) : sSup s = PUnit.unit

@[simp]

theorem PUnit.sInf_eq (s : Set PUnit.{u + 1} ) : sInf s = PUnit.unit