⊤ and ⊥, bounded lattices and variants

This file defines top and bottom elements (greatest and least elements) of a type, the bounded variants of different kinds of lattices, sets up the typeclass hierarchy between them and provides instances for Prop and fun.

Main declarations

• <Top/Bot> α: Typeclasses to declare the ⊤/⊥ notation.
• Order<Top/Bot> α: Order with a top/bottom element.
• BoundedOrder α: Order with a top and bottom element.

Common lattices

• Distributive lattices with a bottom element. Notated by [DistribLattice α] [OrderBot α] It captures the properties of Disjoint that are common to GeneralizedBooleanAlgebra and DistribLattice when OrderBot.
• Bounded and distributive lattice. Notated by [DistribLattice α] [BoundedOrder α]. Typical examples include Prop and Det α.

Top, bottom element

theorem Top.ext {α : Type u} (x : Top α) (y : Top α) (top : ⊤ = ⊤) : x = y

theorem Top.ext_iff {α : Type u} (x : Top α) (y : Top α) : x = y ↔ ⊤ = ⊤

class Top (α : Type u) : Type u

Typeclass for the ⊤ (\top) notation

• top : α

  The top (⊤, \top) element

theorem Bot.ext {α : Type u} (x : Bot α) (y : Bot α) (bot : ⊥ = ⊥) : x = y

theorem Bot.ext_iff {α : Type u} (x : Bot α) (y : Bot α) : x = y ↔ ⊥ = ⊥

class Bot (α : Type u) : Type u

Typeclass for the ⊥ (\bot) notation

• bot : α

  The bot (⊥, \bot) element

def «term⊤» : Lean.ParserDescr

The top (⊤, \top) element

Equations

• «term⊤» = Lean.ParserDescr.node `term⊤ 1024 (Lean.ParserDescr.symbol "⊤")

def «term⊥» : Lean.ParserDescr

The bot (⊥, \bot) element

Equations

• «term⊥» = Lean.ParserDescr.node `term⊥ 1024 (Lean.ParserDescr.symbol "⊥")

instance top_nonempty (α : Type u) [Top α] : Nonempty α

Equations

• (_ : Nonempty α) = (_ : Nonempty α)

instance bot_nonempty (α : Type u) [Bot α] : Nonempty α

Equations

• (_ : Nonempty α) = (_ : Nonempty α)

class OrderTop (α : Type u) [LE α] extends Top : Type u

An order is an OrderTop if it has a greatest element. We state this using a data mixin, holding the value of ⊤ and the greatest element constraint.

• top : α
• le_top : ∀ (a : α), a ≤ ⊤

  ⊤ is the greatest element

noncomputable def topOrderOrNoTopOrder (α : Type u_3) [LE α] : OrderTop α ⊕' NoTopOrder α

An order is (noncomputably) either an OrderTop or a NoTopOrder. Use as casesI topOrderOrNoTopOrder α.

Equations

• topOrderOrNoTopOrder α = if H : ∀ (a : α), ∃ (b : α), ¬b ≤ a then PSum.inr (_ : NoTopOrder α) else PSum.inl (OrderTop.mk (_ : ∀ (b : α), b ≤ Classical.choose (_ : ∃ (x : α), ∀ (a : α), a ≤ x)))

@[simp]

theorem le_top {α : Type u} [LE α] [OrderTop α] {a : α} : a ≤ ⊤

@[simp]

theorem isTop_top {α : Type u} [LE α] [OrderTop α] : IsTop ⊤

@[simp]

theorem isMax_top {α : Type u} [Preorder α] [OrderTop α] : IsMax ⊤

@[simp]

theorem not_top_lt {α : Type u} [Preorder α] [OrderTop α] {a : α} : ¬⊤ < a

theorem ne_top_of_lt {α : Type u} [Preorder α] [OrderTop α] {a : α} {b : α} (h : a < b) : a ≠ ⊤

theorem LT.lt.ne_top {α : Type u} [Preorder α] [OrderTop α] {a : α} {b : α} (h : a < b) : a ≠ ⊤

Alias of ne_top_of_lt.

@[simp]

theorem isMax_iff_eq_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : IsMax a ↔ a = ⊤

@[simp]

theorem isTop_iff_eq_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : IsTop a ↔ a = ⊤

theorem not_isMax_iff_ne_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : ¬IsMax a ↔ a ≠ ⊤

theorem not_isTop_iff_ne_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : ¬IsTop a ↔ a ≠ ⊤

theorem IsMax.eq_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : IsMax a → a = ⊤

Alias of the forward direction of isMax_iff_eq_top.

theorem IsTop.eq_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : IsTop a → a = ⊤

Alias of the forward direction of isTop_iff_eq_top.

@[simp]

theorem top_le_iff {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : ⊤ ≤ a ↔ a = ⊤

theorem top_unique {α : Type u} [PartialOrder α] [OrderTop α] {a : α} (h : ⊤ ≤ a) : a = ⊤

theorem eq_top_iff {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : a = ⊤ ↔ ⊤ ≤ a

theorem eq_top_mono {α : Type u} [PartialOrder α] [OrderTop α] {a : α} {b : α} (h : a ≤ b) (h₂ : a = ⊤) : b = ⊤

theorem lt_top_iff_ne_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : a < ⊤ ↔ a ≠ ⊤

@[simp]

theorem not_lt_top_iff {α : Type u} [PartialOrder α] [OrderTop α] {a : α} : ¬a < ⊤ ↔ a = ⊤

theorem eq_top_or_lt_top {α : Type u} [PartialOrder α] [OrderTop α] (a : α) : a = ⊤ ∨ a < ⊤

theorem Ne.lt_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} (h : a ≠ ⊤) : a < ⊤

theorem Ne.lt_top' {α : Type u} [PartialOrder α] [OrderTop α] {a : α} (h : ⊤ ≠ a) : a < ⊤

theorem ne_top_of_le_ne_top {α : Type u} [PartialOrder α] [OrderTop α] {a : α} {b : α} (hb : b ≠ ⊤) (hab : a ≤ b) : a ≠ ⊤

theorem StrictMono.apply_eq_top_iff {α : Type u} {β : Type v} [PartialOrder α] [OrderTop α] [Preorder β] {f : α → β} {a : α} (hf : StrictMono f) : f a = f ⊤ ↔ a = ⊤

theorem StrictAnti.apply_eq_top_iff {α : Type u} {β : Type v} [PartialOrder α] [OrderTop α] [Preorder β] {f : α → β} {a : α} (hf : StrictAnti f) : f a = f ⊤ ↔ a = ⊤

theorem not_isMin_top {α : Type u} [PartialOrder α] [OrderTop α] [Nontrivial α] : ¬IsMin ⊤

theorem StrictMono.maximal_preimage_top {α : Type u} {β : Type v} [LinearOrder α] [Preorder β] [OrderTop β] {f : α → β} (H : StrictMono f) {a : α} (h_top : f a = ⊤) (x : α) : x ≤ a

theorem OrderTop.ext_top {α : Type u_3} {hA : PartialOrder α} (A : OrderTop α) {hB : PartialOrder α} (B : OrderTop α) (H : ∀ (x y : α), x ≤ y ↔ x ≤ y) : ⊤ = ⊤

class OrderBot (α : Type u) [LE α] extends Bot : Type u

An order is an OrderBot if it has a least element. We state this using a data mixin, holding the value of ⊥ and the least element constraint.

• bot : α
• bot_le : ∀ (a : α), ⊥ ≤ a

  ⊥ is the least element

noncomputable def botOrderOrNoBotOrder (α : Type u_3) [LE α] : OrderBot α ⊕' NoBotOrder α

An order is (noncomputably) either an OrderBot or a NoBotOrder. Use as casesI botOrderOrNoBotOrder α.

Equations

• botOrderOrNoBotOrder α = if H : ∀ (a : α), ∃ (b : α), ¬a ≤ b then PSum.inr (_ : NoBotOrder α) else PSum.inl (OrderBot.mk (_ : ∀ (b : α), Classical.choose (_ : ∃ (x : α), ∀ (a : α), x ≤ a) ≤ b))

@[simp]

theorem bot_le {α : Type u} [LE α] [OrderBot α] {a : α} : ⊥ ≤ a

@[simp]

theorem isBot_bot {α : Type u} [LE α] [OrderBot α] : IsBot ⊥

instance OrderDual.top (α : Type u) [Bot α] : Top αᵒᵈ

Equations

• OrderDual.top α = { top := ⊥ }

instance OrderDual.bot (α : Type u) [Top α] : Bot αᵒᵈ

Equations

• OrderDual.bot α = { bot := ⊤ }

instance OrderDual.orderTop (α : Type u) [LE α] [OrderBot α] : OrderTop αᵒᵈ

Equations

• OrderDual.orderTop α = let src := inferInstanceAs (Top αᵒᵈ); OrderTop.mk (_ : ∀ {a : α}, ⊥ ≤ a)

instance OrderDual.orderBot (α : Type u) [LE α] [OrderTop α] : OrderBot αᵒᵈ

Equations

• OrderDual.orderBot α = let src := inferInstanceAs (Bot αᵒᵈ); OrderBot.mk (_ : ∀ {a : α}, a ≤ ⊤)

@[simp]

theorem OrderDual.ofDual_bot (α : Type u) [Top α] : OrderDual.ofDual ⊥ = ⊤

@[simp]

theorem OrderDual.ofDual_top (α : Type u) [Bot α] : OrderDual.ofDual ⊤ = ⊥

@[simp]

theorem OrderDual.toDual_bot (α : Type u) [Bot α] : OrderDual.toDual ⊥ = ⊤

@[simp]

theorem OrderDual.toDual_top (α : Type u) [Top α] : OrderDual.toDual ⊤ = ⊥

@[simp]

theorem isMin_bot {α : Type u} [Preorder α] [OrderBot α] : IsMin ⊥

@[simp]

theorem not_lt_bot {α : Type u} [Preorder α] [OrderBot α] {a : α} : ¬a < ⊥

theorem ne_bot_of_gt {α : Type u} [Preorder α] [OrderBot α] {a : α} {b : α} (h : a < b) : b ≠ ⊥

theorem LT.lt.ne_bot {α : Type u} [Preorder α] [OrderBot α] {a : α} {b : α} (h : a < b) : b ≠ ⊥

Alias of ne_bot_of_gt.

@[simp]

theorem isMin_iff_eq_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : IsMin a ↔ a = ⊥

@[simp]

theorem isBot_iff_eq_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : IsBot a ↔ a = ⊥

theorem not_isMin_iff_ne_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : ¬IsMin a ↔ a ≠ ⊥

theorem not_isBot_iff_ne_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : ¬IsBot a ↔ a ≠ ⊥

theorem IsMin.eq_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : IsMin a → a = ⊥

Alias of the forward direction of isMin_iff_eq_bot.

theorem IsBot.eq_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : IsBot a → a = ⊥

Alias of the forward direction of isBot_iff_eq_bot.

@[simp]

theorem le_bot_iff {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : a ≤ ⊥ ↔ a = ⊥

theorem bot_unique {α : Type u} [PartialOrder α] [OrderBot α] {a : α} (h : a ≤ ⊥) : a = ⊥

theorem eq_bot_iff {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : a = ⊥ ↔ a ≤ ⊥

theorem eq_bot_mono {α : Type u} [PartialOrder α] [OrderBot α] {a : α} {b : α} (h : a ≤ b) (h₂ : b = ⊥) : a = ⊥

theorem bot_lt_iff_ne_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : ⊥ < a ↔ a ≠ ⊥

@[simp]

theorem not_bot_lt_iff {α : Type u} [PartialOrder α] [OrderBot α] {a : α} : ¬⊥ < a ↔ a = ⊥

theorem eq_bot_or_bot_lt {α : Type u} [PartialOrder α] [OrderBot α] (a : α) : a = ⊥ ∨ ⊥ < a

theorem eq_bot_of_minimal {α : Type u} [PartialOrder α] [OrderBot α] {a : α} (h : ∀ (b : α), ¬b < a) : a = ⊥

theorem Ne.bot_lt {α : Type u} [PartialOrder α] [OrderBot α] {a : α} (h : a ≠ ⊥) : ⊥ < a

theorem Ne.bot_lt' {α : Type u} [PartialOrder α] [OrderBot α] {a : α} (h : ⊥ ≠ a) : ⊥ < a

theorem ne_bot_of_le_ne_bot {α : Type u} [PartialOrder α] [OrderBot α] {a : α} {b : α} (hb : b ≠ ⊥) (hab : b ≤ a) : a ≠ ⊥

theorem StrictMono.apply_eq_bot_iff {α : Type u} {β : Type v} [PartialOrder α] [OrderBot α] [Preorder β] {f : α → β} {a : α} (hf : StrictMono f) : f a = f ⊥ ↔ a = ⊥

theorem StrictAnti.apply_eq_bot_iff {α : Type u} {β : Type v} [PartialOrder α] [OrderBot α] [Preorder β] {f : α → β} {a : α} (hf : StrictAnti f) : f a = f ⊥ ↔ a = ⊥

theorem not_isMax_bot {α : Type u} [PartialOrder α] [OrderBot α] [Nontrivial α] : ¬IsMax ⊥

theorem StrictMono.minimal_preimage_bot {α : Type u} {β : Type v} [LinearOrder α] [PartialOrder β] [OrderBot β] {f : α → β} (H : StrictMono f) {a : α} (h_bot : f a = ⊥) (x : α) : a ≤ x

theorem OrderBot.ext_bot {α : Type u_3} {hA : PartialOrder α} (A : OrderBot α) {hB : PartialOrder α} (B : OrderBot α) (H : ∀ (x y : α), x ≤ y ↔ x ≤ y) : ⊥ = ⊥

theorem top_sup_eq {α : Type u} [SemilatticeSup α] [OrderTop α] {a : α} : ⊤ ⊔ a = ⊤

theorem sup_top_eq {α : Type u} [SemilatticeSup α] [OrderTop α] {a : α} : a ⊔ ⊤ = ⊤

theorem bot_sup_eq {α : Type u} [SemilatticeSup α] [OrderBot α] {a : α} : ⊥ ⊔ a = a

theorem sup_bot_eq {α : Type u} [SemilatticeSup α] [OrderBot α] {a : α} : a ⊔ ⊥ = a

@[simp]

theorem sup_eq_bot_iff {α : Type u} [SemilatticeSup α] [OrderBot α] {a : α} {b : α} : a ⊔ b = ⊥ ↔ a = ⊥ ∧ b = ⊥

theorem top_inf_eq {α : Type u} [SemilatticeInf α] [OrderTop α] {a : α} : ⊤ ⊓ a = a

theorem inf_top_eq {α : Type u} [SemilatticeInf α] [OrderTop α] {a : α} : a ⊓ ⊤ = a

@[simp]

theorem inf_eq_top_iff {α : Type u} [SemilatticeInf α] [OrderTop α] {a : α} {b : α} : a ⊓ b = ⊤ ↔ a = ⊤ ∧ b = ⊤

theorem bot_inf_eq {α : Type u} [SemilatticeInf α] [OrderBot α] {a : α} : ⊥ ⊓ a = ⊥

theorem inf_bot_eq {α : Type u} [SemilatticeInf α] [OrderBot α] {a : α} : a ⊓ ⊥ = ⊥

Bounded order

class BoundedOrder (α : Type u) [LE α] extends OrderTop , OrderBot : Type u

A bounded order describes an order (≤) with a top and bottom element, denoted ⊤ and ⊥ respectively.

instance OrderDual.boundedOrder (α : Type u) [LE α] [BoundedOrder α] : BoundedOrder αᵒᵈ

Equations

• OrderDual.boundedOrder α = let src := inferInstanceAs (OrderTop αᵒᵈ); let src_1 := inferInstanceAs (OrderBot αᵒᵈ); BoundedOrder.mk

instance OrderBot.instSubsingleton {α : Type u} [PartialOrder α] : Subsingleton (OrderBot α)

Equations

• (_ : Subsingleton (OrderBot α)) = (_ : Subsingleton (OrderBot α))

instance OrderTop.instSubsingleton {α : Type u} [PartialOrder α] : Subsingleton (OrderTop α)

Equations

• (_ : Subsingleton (OrderTop α)) = (_ : Subsingleton (OrderTop α))

instance BoundedOrder.instSubsingleton {α : Type u} [PartialOrder α] : Subsingleton (BoundedOrder α)

Equations

• (_ : Subsingleton (BoundedOrder α)) = (_ : Subsingleton (BoundedOrder α))

In this section we prove some properties about monotone and antitone operations on Prop

theorem monotone_and {α : Type u} [Preorder α] {p : α → Prop} {q : α → Prop} (m_p : Monotone p) (m_q : Monotone q) : Monotone fun (x : α) => p x ∧ q x

theorem monotone_or {α : Type u} [Preorder α] {p : α → Prop} {q : α → Prop} (m_p : Monotone p) (m_q : Monotone q) : Monotone fun (x : α) => p x ∨ q x

theorem monotone_le {α : Type u} [Preorder α] {x : α} : Monotone ((fun (x x_1 : α) => x ≤ x_1) x)

theorem monotone_lt {α : Type u} [Preorder α] {x : α} : Monotone ((fun (x x_1 : α) => x < x_1) x)

theorem antitone_le {α : Type u} [Preorder α] {x : α} : Antitone fun (x_1 : α) => x_1 ≤ x

theorem antitone_lt {α : Type u} [Preorder α] {x : α} : Antitone fun (x_1 : α) => x_1 < x

theorem Monotone.forall {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} (hP : ∀ (x : β), Monotone (P x)) : Monotone fun (y : α) => ∀ (x : β), P x y

theorem Antitone.forall {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} (hP : ∀ (x : β), Antitone (P x)) : Antitone fun (y : α) => ∀ (x : β), P x y

theorem Monotone.ball {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} {s : Set β} (hP : ∀ (x : β), x ∈ s → Monotone (P x)) : Monotone fun (y : α) => ∀ (x : β), x ∈ s → P x y

theorem Antitone.ball {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} {s : Set β} (hP : ∀ (x : β), x ∈ s → Antitone (P x)) : Antitone fun (y : α) => ∀ (x : β), x ∈ s → P x y

theorem Monotone.exists {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} (hP : ∀ (x : β), Monotone (P x)) : Monotone fun (y : α) => ∃ (x : β), P x y

theorem Antitone.exists {α : Type u} {β : Type v} [Preorder α] {P : β → α → Prop} (hP : ∀ (x : β), Antitone (P x)) : Antitone fun (y : α) => ∃ (x : β), P x y

theorem forall_ge_iff {α : Type u} [Preorder α] {P : α → Prop} {x₀ : α} (hP : Monotone P) : (∀ (x : α), x ≥ x₀ → P x) ↔ P x₀

theorem forall_le_iff {α : Type u} [Preorder α] {P : α → Prop} {x₀ : α} (hP : Antitone P) : (∀ (x : α), x ≤ x₀ → P x) ↔ P x₀

theorem exists_ge_and_iff_exists {α : Type u} [SemilatticeSup α] {P : α → Prop} {x₀ : α} (hP : Monotone P) : (∃ (x : α), x₀ ≤ x ∧ P x) ↔ ∃ (x : α), P x

theorem exists_le_and_iff_exists {α : Type u} [SemilatticeInf α] {P : α → Prop} {x₀ : α} (hP : Antitone P) : (∃ (x : α), x ≤ x₀ ∧ P x) ↔ ∃ (x : α), P x

Function lattices

instance Pi.instBotForAll {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Bot (α' i)] : Bot ((i : ι) → α' i)

Equations

• Pi.instBotForAll = { bot := fun (x : ι) => ⊥ }

@[simp]

theorem Pi.bot_apply {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Bot (α' i)] (i : ι) : ⊥ i = ⊥

theorem Pi.bot_def {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Bot (α' i)] : ⊥ = fun (x : ι) => ⊥

instance Pi.instTopForAll {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Top (α' i)] : Top ((i : ι) → α' i)

Equations

• Pi.instTopForAll = { top := fun (x : ι) => ⊤ }

@[simp]

theorem Pi.top_apply {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Top (α' i)] (i : ι) : ⊤ i = ⊤

theorem Pi.top_def {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → Top (α' i)] : ⊤ = fun (x : ι) => ⊤

instance Pi.orderTop {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → LE (α' i)] [(i : ι) → OrderTop (α' i)] : OrderTop ((i : ι) → α' i)

Equations

• Pi.orderTop = let src := inferInstanceAs (Top ((i : ι) → α' i)); OrderTop.mk (_ : ∀ (x : (i : ι) → α' i) (x_1 : ι), x x_1 ≤ ⊤)

instance Pi.orderBot {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → LE (α' i)] [(i : ι) → OrderBot (α' i)] : OrderBot ((i : ι) → α' i)

Equations

• Pi.orderBot = let src := inferInstanceAs (Bot ((i : ι) → α' i)); OrderBot.mk (_ : ∀ (x : (i : ι) → α' i) (x_1 : ι), ⊥ ≤ x x_1)

instance Pi.boundedOrder {ι : Type u_3} {α' : ι → Type u_4} [(i : ι) → LE (α' i)] [(i : ι) → BoundedOrder (α' i)] : BoundedOrder ((i : ι) → α' i)

Equations

• Pi.boundedOrder = let src := inferInstanceAs (OrderTop ((i : ι) → α' i)); let src_1 := inferInstanceAs (OrderBot ((i : ι) → α' i)); BoundedOrder.mk

theorem eq_bot_of_bot_eq_top {α : Type u} [PartialOrder α] [BoundedOrder α] (hα : ⊥ = ⊤) (x : α) : x = ⊥

theorem eq_top_of_bot_eq_top {α : Type u} [PartialOrder α] [BoundedOrder α] (hα : ⊥ = ⊤) (x : α) : x = ⊤

theorem subsingleton_of_top_le_bot {α : Type u} [PartialOrder α] [BoundedOrder α] (h : ⊤ ≤ ⊥) : Subsingleton α

theorem subsingleton_of_bot_eq_top {α : Type u} [PartialOrder α] [BoundedOrder α] (hα : ⊥ = ⊤) : Subsingleton α

theorem subsingleton_iff_bot_eq_top {α : Type u} [PartialOrder α] [BoundedOrder α] : ⊥ = ⊤ ↔ Subsingleton α

@[reducible]

def OrderTop.lift {α : Type u} {β : Type v} [LE α] [Top α] [LE β] [OrderTop β] (f : α → β) (map_le : ∀ (a b : α), f a ≤ f b → a ≤ b) (map_top : f ⊤ = ⊤) : OrderTop α

Pullback an OrderTop.

Equations

• OrderTop.lift f map_le map_top = OrderTop.mk (_ : ∀ (a : α), a ≤ ⊤)

@[reducible]

def OrderBot.lift {α : Type u} {β : Type v} [LE α] [Bot α] [LE β] [OrderBot β] (f : α → β) (map_le : ∀ (a b : α), f a ≤ f b → a ≤ b) (map_bot : f ⊥ = ⊥) : OrderBot α

Pullback an OrderBot.

Equations

• OrderBot.lift f map_le map_bot = OrderBot.mk (_ : ∀ (a : α), ⊥ ≤ a)

@[reducible]

def BoundedOrder.lift {α : Type u} {β : Type v} [LE α] [Top α] [Bot α] [LE β] [BoundedOrder β] (f : α → β) (map_le : ∀ (a b : α), f a ≤ f b → a ≤ b) (map_top : f ⊤ = ⊤) (map_bot : f ⊥ = ⊥) : BoundedOrder α

Pullback a BoundedOrder.

Equations

• BoundedOrder.lift f map_le map_top map_bot = let src := OrderTop.lift f map_le map_top; let src_1 := OrderBot.lift f map_le map_bot; BoundedOrder.mk

Subtype, order dual, product lattices

@[reducible]

def Subtype.orderBot {α : Type u} {p : α → Prop} [LE α] [OrderBot α] (hbot : p ⊥) : OrderBot { x : α // p x }

A subtype remains a ⊥-order if the property holds at ⊥.

Equations

• Subtype.orderBot hbot = OrderBot.mk (_ : ∀ (x : { x : α // p x }), ⊥ ≤ ↑x)

@[reducible]

def Subtype.orderTop {α : Type u} {p : α → Prop} [LE α] [OrderTop α] (htop : p ⊤) : OrderTop { x : α // p x }

A subtype remains a ⊤-order if the property holds at ⊤.

Equations

• Subtype.orderTop htop = OrderTop.mk (_ : ∀ (x : { x : α // p x }), ↑x ≤ ⊤)

@[reducible]

def Subtype.boundedOrder {α : Type u} {p : α → Prop} [LE α] [BoundedOrder α] (hbot : p ⊥) (htop : p ⊤) : BoundedOrder (Subtype p)

A subtype remains a bounded order if the property holds at ⊥ and ⊤.

Equations

• Subtype.boundedOrder hbot htop = let src := Subtype.orderTop htop; let src_1 := Subtype.orderBot hbot; BoundedOrder.mk

@[simp]

theorem Subtype.mk_bot {α : Type u} {p : α → Prop} [PartialOrder α] [OrderBot α] [OrderBot (Subtype p)] (hbot : p ⊥) : { val := ⊥, property := hbot } = ⊥

@[simp]

theorem Subtype.mk_top {α : Type u} {p : α → Prop} [PartialOrder α] [OrderTop α] [OrderTop (Subtype p)] (htop : p ⊤) : { val := ⊤, property := htop } = ⊤

theorem Subtype.coe_bot {α : Type u} {p : α → Prop} [PartialOrder α] [OrderBot α] [OrderBot (Subtype p)] (hbot : p ⊥) : ↑⊥ = ⊥

theorem Subtype.coe_top {α : Type u} {p : α → Prop} [PartialOrder α] [OrderTop α] [OrderTop (Subtype p)] (htop : p ⊤) : ↑⊤ = ⊤

@[simp]

theorem Subtype.coe_eq_bot_iff {α : Type u} {p : α → Prop} [PartialOrder α] [OrderBot α] [OrderBot (Subtype p)] (hbot : p ⊥) {x : { x : α // p x }} : ↑x = ⊥ ↔ x = ⊥

@[simp]

theorem Subtype.coe_eq_top_iff {α : Type u} {p : α → Prop} [PartialOrder α] [OrderTop α] [OrderTop (Subtype p)] (htop : p ⊤) {x : { x : α // p x }} : ↑x = ⊤ ↔ x = ⊤

@[simp]

theorem Subtype.mk_eq_bot_iff {α : Type u} {p : α → Prop} [PartialOrder α] [OrderBot α] [OrderBot (Subtype p)] (hbot : p ⊥) {x : α} (hx : p x) : { val := x, property := hx } = ⊥ ↔ x = ⊥

@[simp]

theorem Subtype.mk_eq_top_iff {α : Type u} {p : α → Prop} [PartialOrder α] [OrderTop α] [OrderTop (Subtype p)] (htop : p ⊤) {x : α} (hx : p x) : { val := x, property := hx } = ⊤ ↔ x = ⊤

instance Prod.top (α : Type u) (β : Type v) [Top α] [Top β] : Top (α × β)

Equations

• Prod.top α β = { top := (⊤, ⊤) }

instance Prod.bot (α : Type u) (β : Type v) [Bot α] [Bot β] : Bot (α × β)

Equations

• Prod.bot α β = { bot := (⊥, ⊥) }

theorem Prod.fst_top (α : Type u) (β : Type v) [Top α] [Top β] : ⊤.1 = ⊤

theorem Prod.snd_top (α : Type u) (β : Type v) [Top α] [Top β] : ⊤.2 = ⊤

theorem Prod.fst_bot (α : Type u) (β : Type v) [Bot α] [Bot β] : ⊥.1 = ⊥

theorem Prod.snd_bot (α : Type u) (β : Type v) [Bot α] [Bot β] : ⊥.2 = ⊥

instance Prod.orderTop (α : Type u) (β : Type v) [LE α] [LE β] [OrderTop α] [OrderTop β] : OrderTop (α × β)

Equations

• Prod.orderTop α β = let src := inferInstanceAs (Top (α × β)); OrderTop.mk (_ : ∀ (x : α × β), x.1 ≤ ⊤.1 ∧ x.2 ≤ ⊤.2)

instance Prod.orderBot (α : Type u) (β : Type v) [LE α] [LE β] [OrderBot α] [OrderBot β] : OrderBot (α × β)

Equations

• Prod.orderBot α β = let src := inferInstanceAs (Bot (α × β)); OrderBot.mk (_ : ∀ (x : α × β), ⊥.1 ≤ x.1 ∧ ⊥.2 ≤ x.2)

instance Prod.boundedOrder (α : Type u) (β : Type v) [LE α] [LE β] [BoundedOrder α] [BoundedOrder β] : BoundedOrder (α × β)

Equations

• Prod.boundedOrder α β = let src := inferInstanceAs (OrderTop (α × β)); let src_1 := inferInstanceAs (OrderBot (α × β)); BoundedOrder.mk

instance ULift.instTopULift {α : Type u} [Top α] : Top (ULift.{v, u} α)

Equations

• ULift.instTopULift = { top := { down := ⊤ } }

@[simp]

theorem ULift.up_top {α : Type u} [Top α] : { down := ⊤ } = ⊤

@[simp]

theorem ULift.down_top {α : Type u} [Top α] : ⊤.down = ⊤

instance ULift.instBotULift {α : Type u} [Bot α] : Bot (ULift.{v, u} α)

Equations

• ULift.instBotULift = { bot := { down := ⊥ } }

@[simp]

theorem ULift.up_bot {α : Type u} [Bot α] : { down := ⊥ } = ⊥

@[simp]

theorem ULift.down_bot {α : Type u} [Bot α] : ⊥.down = ⊥

instance ULift.instOrderBotULiftInstLEULift {α : Type u} [LE α] [OrderBot α] : OrderBot (ULift.{v, u} α)

Equations

• ULift.instOrderBotULiftInstLEULift = OrderBot.lift ULift.down (_ : ∀ (x x_1 : ULift.{v, u} α), x.down ≤ x_1.down → x ≤ x_1) (_ : ⊥.down = ⊥)

instance ULift.instOrderTopULiftInstLEULift {α : Type u} [LE α] [OrderTop α] : OrderTop (ULift.{v, u} α)

Equations

• ULift.instOrderTopULiftInstLEULift = OrderTop.lift ULift.down (_ : ∀ (x x_1 : ULift.{v, u} α), x.down ≤ x_1.down → x ≤ x_1) (_ : ⊤.down = ⊤)

instance ULift.instBoundedOrderULiftInstLEULift {α : Type u} [LE α] [BoundedOrder α] : BoundedOrder (ULift.{v, u} α)

Equations

• ULift.instBoundedOrderULiftInstLEULift = BoundedOrder.mk

theorem min_bot_left {α : Type u} [LinearOrder α] [OrderBot α] (a : α) : min ⊥ a = ⊥

theorem max_top_left {α : Type u} [LinearOrder α] [OrderTop α] (a : α) : max ⊤ a = ⊤

theorem min_top_left {α : Type u} [LinearOrder α] [OrderTop α] (a : α) : min ⊤ a = a

theorem max_bot_left {α : Type u} [LinearOrder α] [OrderBot α] (a : α) : max ⊥ a = a

theorem min_top_right {α : Type u} [LinearOrder α] [OrderTop α] (a : α) : min a ⊤ = a

theorem max_bot_right {α : Type u} [LinearOrder α] [OrderBot α] (a : α) : max a ⊥ = a

theorem min_bot_right {α : Type u} [LinearOrder α] [OrderBot α] (a : α) : min a ⊥ = ⊥

theorem max_top_right {α : Type u} [LinearOrder α] [OrderTop α] (a : α) : max a ⊤ = ⊤

@[simp]

theorem min_eq_bot {α : Type u} [LinearOrder α] [OrderBot α] {a : α} {b : α} : min a b = ⊥ ↔ a = ⊥ ∨ b = ⊥

@[simp]

theorem max_eq_top {α : Type u} [LinearOrder α] [OrderTop α] {a : α} {b : α} : max a b = ⊤ ↔ a = ⊤ ∨ b = ⊤

@[simp]

theorem max_eq_bot {α : Type u} [LinearOrder α] [OrderBot α] {a : α} {b : α} : max a b = ⊥ ↔ a = ⊥ ∧ b = ⊥

@[simp]

theorem min_eq_top {α : Type u} [LinearOrder α] [OrderTop α] {a : α} {b : α} : min a b = ⊤ ↔ a = ⊤ ∧ b = ⊤

@[simp]

theorem bot_ne_top {α : Type u} [PartialOrder α] [BoundedOrder α] [Nontrivial α] : ⊥ ≠ ⊤

@[simp]

theorem top_ne_bot {α : Type u} [PartialOrder α] [BoundedOrder α] [Nontrivial α] : ⊤ ≠ ⊥

@[simp]

theorem bot_lt_top {α : Type u} [PartialOrder α] [BoundedOrder α] [Nontrivial α] : ⊥ < ⊤

instance Bool.boundedOrder : BoundedOrder Bool

Equations

• Bool.boundedOrder = BoundedOrder.mk

@[simp]

theorem top_eq_true : ⊤ = true

@[simp]

theorem bot_eq_false : ⊥ = false