Finite total orders

Content created by Fredrik Bakke and Egbert Rijke.

Created on 2023-10-16.
Last modified on 2025-02-11.

module order-theory.finite-total-orders where
Imports 
open import foundation.decidable-types
open import foundation.dependent-pair-types
open import foundation.function-types
open import foundation.propositions
open import foundation.universe-levels

open import order-theory.finite-posets
open import order-theory.posets
open import order-theory.total-orders

open import univalent-combinatorics.finite-types

Definitions

A finite total order is a total order of which the underlying type is finite, and of which the ordering relation is decidable.

module _
  {l1 l2 : Level} (P : Total-Order l1 l2)
  where

  is-finite-Total-Order-Prop : Prop (l1 ⊔ l2)
  is-finite-Total-Order-Prop = is-finite-Poset-Prop (poset-Total-Order P)

  is-finite-Total-Order : UU (l1 ⊔ l2)
  is-finite-Total-Order = is-finite-Poset (poset-Total-Order P)

  is-prop-is-finite-Total-Order : is-prop is-finite-Total-Order
  is-prop-is-finite-Total-Order =
    is-prop-is-finite-Poset (poset-Total-Order P)

  is-finite-type-is-finite-Total-Order :
    is-finite-Total-Order → is-finite (type-Total-Order P)
  is-finite-type-is-finite-Total-Order =
    is-finite-type-is-finite-Poset (poset-Total-Order P)

  is-decidable-leq-is-finite-Total-Order :
    is-finite-Total-Order →
    (x y : type-Total-Order P) → is-decidable (leq-Total-Order P x y)
  is-decidable-leq-is-finite-Total-Order =
    is-decidable-leq-is-finite-Poset (poset-Total-Order P)

is-finite-total-order-Poset-Prop :
  {l1 l2 : Level} (P : Poset l1 l2) → Prop (l1 ⊔ l2)
is-finite-total-order-Poset-Prop P =
  product-Prop
    ( is-total-Poset-Prop P)
    ( is-finite-Poset-Prop P)

Finite-Total-Order : (l1 l2 : Level) → UU (lsuc l1 ⊔ lsuc l2)
Finite-Total-Order l1 l2 =
  Σ ( Finite-Poset l1 l2)
    ( λ P → is-total-Poset (poset-Finite-Poset P))

finite-poset-Finite-Total-Order :
  {l1 l2 : Level} → Finite-Total-Order l1 l2 → Finite-Poset l1 l2
finite-poset-Finite-Total-Order = pr1

poset-Finite-Total-Order :
  {l1 l2 : Level} → Finite-Total-Order l1 l2 → Poset l1 l2
poset-Finite-Total-Order = poset-Finite-Poset ∘ finite-poset-Finite-Total-Order

is-total-Finite-Total-Order :
  {l1 l2 : Level} (P : Finite-Total-Order l1 l2) →
  is-total-Poset (poset-Finite-Total-Order P)
is-total-Finite-Total-Order = pr2

total-order-Finite-Total-Order :
  {l1 l2 : Level} → Finite-Total-Order l1 l2 → Total-Order l1 l2
pr1 (total-order-Finite-Total-Order P) = poset-Finite-Total-Order P
pr2 (total-order-Finite-Total-Order P) = is-total-Finite-Total-Order P

type-Finite-Total-Order :
  {l1 l2 : Level} → Finite-Total-Order l1 l2 → UU l1
type-Finite-Total-Order = type-Poset ∘ poset-Finite-Total-Order

Recent changes