1
------------------------------------------------------------------------
2
-- Properties satisfied by posets
3
------------------------------------------------------------------------
5
{-# OPTIONS --universe-polymorphism #-}
7
open import Relation.Binary
9
module Relation.Binary.Props.Poset
10
{p₁ p₂ p₃} (P : Poset p₁ p₂ p₃) where
12
open Relation.Binary.Poset P hiding (trans)
13
import Relation.Binary.NonStrictToStrict as Conv
16
------------------------------------------------------------------------
17
-- Posets can be turned into strict partial orders
19
strictPartialOrder : StrictPartialOrder _ _ _
20
strictPartialOrder = record
21
{ isStrictPartialOrder = record
22
{ isEquivalence = isEquivalence
24
; trans = trans isPartialOrder
25
; <-resp-≈ = <-resp-≈ isEquivalence ≤-resp-≈
29
open StrictPartialOrder strictPartialOrder