Compare commits

..

No commits in common. "19d2e98ef07aa34e4ff954e0d6fd304dcca73db1" and "c040ccadcd82f83c677c5a147fa54220e7dac07a" have entirely different histories.

3 changed files with 2 additions and 26 deletions

View File

@ -4,19 +4,12 @@ module Categories.Category.Instance.Thinnings where
open import Categories.Category.Core open import Categories.Category.Core
open import Categories.Category.Helper open import Categories.Category.Helper
open import Categories.Object.Initial open import Data.List.Base using (List)
open import Data.List.Base using (List; [])
open import Level using (Level)
open import Relation.Binary.PropositionalEquality open import Relation.Binary.PropositionalEquality
open import Thinning open import Thinning
open import Thinning.Properties open import Thinning.Properties
private
variable
a : Level
A : Set a
Thinnings : {a} (A : Set a) Category a a a Thinnings : {a} (A : Set a) Category a a a
Thinnings A = categoryHelper record Thinnings A = categoryHelper record
{ Obj = List A { Obj = List A
@ -30,9 +23,3 @@ Thinnings A = categoryHelper record
; equiv = isEquivalence ; equiv = isEquivalence
; ∘-resp-≈ = cong₂ _∘_ ; ∘-resp-≈ = cong₂ _∘_
} }
[]-isInitial : IsInitial (Thinnings A) []
[]-isInitial = record { !-unique = ¡-unique }
initial : Initial (Thinnings A)
initial = record { ⊥-is-initial = []-isInitial }

View File

@ -45,9 +45,3 @@ end ∘ end = end
include α include β = include (α β) include α include β = include (α β)
include α exclude β = exclude (α β) include α exclude β = exclude (α β)
exclude α β = exclude (α β) exclude α β = exclude (α β)
-- There is always a Thinning from the empty list to any list. Here we exclude
-- at every step.
¡ : Thinning A [] xs
¡ {xs = []} = end
¡ {xs = x xs} = exclude ¡

View File

@ -2,7 +2,7 @@
module Thinning.Properties where module Thinning.Properties where
open import Data.List.Base using (List; []) open import Data.List.Base using (List)
open import Level using (Level) open import Level using (Level)
open import Relation.Binary.PropositionalEquality.Core using (_≡_; refl; cong) open import Relation.Binary.PropositionalEquality.Core using (_≡_; refl; cong)
@ -48,8 +48,3 @@ assoc (exclude θ) (include φ) (include ψ) = cong exclude (assoc θ φ ψ)
assoc (exclude θ) (include φ) (exclude ψ) = cong exclude (assoc (exclude θ) (include φ) ψ) assoc (exclude θ) (include φ) (exclude ψ) = cong exclude (assoc (exclude θ) (include φ) ψ)
assoc (exclude θ) (exclude φ) (include ψ) = cong exclude (assoc (exclude θ) φ ψ) assoc (exclude θ) (exclude φ) (include ψ) = cong exclude (assoc (exclude θ) φ ψ)
assoc (exclude θ) (exclude φ) (exclude ψ) = cong exclude (assoc (exclude θ) (exclude φ) ψ) assoc (exclude θ) (exclude φ) (exclude ψ) = cong exclude (assoc (exclude θ) (exclude φ) ψ)
-- ¡ is the only Thinning from []
¡-unique : (θ : Thinning A [] xs) ¡ θ
¡-unique end = refl
¡-unique (exclude θ) = cong exclude (¡-unique θ)