Fix import-statements. Make file that checks everything

This commit is contained in:
Frederik Hanghøj Iversen 2018-01-17 23:00:27 +01:00
parent e98793a620
commit da10e63cc8
5 changed files with 16 additions and 12 deletions

View file

@ -1,13 +1,14 @@
{-# OPTIONS --cubical #-} {-# OPTIONS --cubical --allow-unsolved-metas #-}
module Category.Categories.Cat where module Cat.Categories.Cat where
open import Agda.Primitive open import Agda.Primitive
open import Cubical open import Cubical
open import Function open import Function
open import Data.Product renaming (proj₁ to fst ; proj₂ to snd) open import Data.Product renaming (proj₁ to fst ; proj₂ to snd)
open import Category open import Cat.Category
open import Cat.Functor
-- The category of categories -- The category of categories
module _ { ' : Level} where module _ { ' : Level} where
@ -29,10 +30,7 @@ module _ { ' : Level} where
-- → Functor.ident f ≡ Functor.ident g -- → Functor.ident f ≡ Functor.ident g
-- → Functor.distrib f ≡ Functor.distrib g -- → Functor.distrib f ≡ Functor.distrib g
f g f g
lift-eq lift-eq f g eq* x = {!!}
(functor func* func→ idnt distrib)
(functor func*₁ func→₁ idnt₁ distrib₁)
eq-func* = {!!}
module _ {A B : Category {} {'}} {f : Functor A B} where module _ {A B : Category {} {'}} {f : Functor A B} where
idHere = identity {} {'} {A} idHere = identity {} {'} {A}

View file

@ -1,6 +1,9 @@
{-# OPTIONS --cubical #-} {-# OPTIONS --cubical --allow-unsolved-metas #-}
module Cat.Category.Bij where
open import Cubical.PathPrelude hiding ( Id ) open import Cubical.PathPrelude hiding ( Id )
open import Cubical.FromStdLib
module _ {A : Set} {a : A} {P : A Set} where module _ {A : Set} {a : A} {P : A Set} where
Q : A Set Q : A Set
@ -20,7 +23,7 @@ module _ {A : Set} {a : A} {P : A → Set} where
w x = {!!} w x = {!!}
vw-bij : (a : P a) (w v) a a vw-bij : (a : P a) (w v) a a
vw-bij a = refl vw-bij a = ?
-- tubij a with (t ∘ u) a -- tubij a with (t ∘ u) a
-- ... | q = {!!} -- ... | q = {!!}

View file

@ -1,9 +1,10 @@
module Category.Free where module Cat.Category.Free where
open import Agda.Primitive open import Agda.Primitive
open import Cubical.PathPrelude hiding (Path) open import Cubical.PathPrelude hiding (Path)
open import Data.Product
open import Category as C open import Cat.Category as C
module _ { ' : Level} ( : Category {} {'}) where module _ { ' : Level} ( : Category {} {'}) where
private private

View file

@ -1,7 +1,8 @@
{-# OPTIONS --cubical #-} {-# OPTIONS --cubical #-}
module Category.Pathy where module Cat.Category.Pathy where
open import Level
open import Cubical.PathPrelude open import Cubical.PathPrelude
{- {-

View file

@ -1,3 +1,4 @@
{-# OPTIONS --allow-unsolved-metas #-}
module Cat.Cubical where module Cat.Cubical where
open import Agda.Primitive open import Agda.Primitive