~ubuntu-branches/ubuntu/lucid/agda-stdlib/lucid

« back to all changes in this revision

Viewing changes to src/Relation/Binary/Props/Poset.agda

  • Committer: Bazaar Package Importer
  • Author(s): Iain Lane
  • Date: 2010-01-08 23:35:09 UTC
  • Revision ID: james.westby@ubuntu.com-20100108233509-l6ejt9xji64xysfb
Import upstream version 0.3

Show diffs side-by-side

added added

removed removed

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