fixed some imports

Saizan · Dec 29, 2017 · cc4bcc4 · cc4bcc4
1 parent 62a3287
commit cc4bcc4
Show file tree

Hide file tree

Showing 7 changed files with 31 additions and 19 deletions.
diff --git a/examples/Cubical/Examples/Category.agda b/examples/Cubical/Examples/Category.agda
@@ -1,7 +1,8 @@
 {-# OPTIONS --cubical #-}
 module Cubical.Examples.Category where
 
-open import PathPrelude
+open import Cubical.FromStdLib
+open import Cubical.PathPrelude
 
 -- Functor
 record Func {ℓ} : Set (ℓ-suc ℓ) where
@@ -56,19 +57,21 @@ G ∘ᶠ F = record
           module G = Func G
 
 idᶠLeft : ∀{ℓ}{F : Func {ℓ}} → idᶠ ∘ᶠ F ≡ F
-idᶠLeft {ℓ} {F} = Func≡.path r where
+idᶠLeft {ℓ} {F} =
+  directpath where
+  -- Func≡.path r where
   module L = Func (idᶠ ∘ᶠ F)
   module R = Func F
-  map≡ : L.map ≡ R.map
-  map≡ = funExt (λ _ → refl)
-  r = record { F         = idᶠ ∘ᶠ F
-             ; G         = F
-             ; map≡      = λ A → refl
-             ; fmap≡     = λ f → funExt λ _ → refl
-             ; presId≡   = λ A → {!!}
-             ; presComp≡ = λ f g → {!!}
-             }
-  open import Comp
+  -- map≡ : L.map ≡ R.map
+  -- map≡ = funExt (λ _ → refl)
+  -- r = record { F         = idᶠ ∘ᶠ F
+  --            ; G         = F
+  --            ; map≡      = λ A → refl
+  --            ; fmap≡     = λ f → funExt λ _ → refl
+  --            ; presId≡   = λ A → {!!}
+  --            ; presComp≡ = λ f g → {!!}
+  --            }
+  open import Cubical.Comp as Comp
 
   trans-id : ∀ {ℓ}{A : Set ℓ} {x y : A} → (p : x ≡ y) → trans p (\ i → y) ≡ p
   trans-id {A = A} {x} {y} p i j = Comp.fill (λ _ → A) _

diff --git a/examples/Cubical/Examples/Cube.agda b/examples/Cubical/Examples/Cube.agda
@@ -3,6 +3,7 @@ module Cubical.Examples.Cube where
 
 open import Cubical.PathPrelude
 open import Cubical.Id
+open import Cubical.FromStdLib
 
 test-sym : ∀ {ℓ} {A : Set ℓ} → {x y : A} → (p : x ≡ y) → sym (sym p) ≡ p
 test-sym p = refl

diff --git a/examples/Cubical/Examples/Everything.agda b/examples/Cubical/Examples/Everything.agda
@@ -14,6 +14,12 @@ open import Cubical.Examples.Cube
 open import Cubical.Examples.OTTU
 
 open import Cubical.Examples.BinNat
+open import Cubical.Examples.Int
+open import Cubical.Examples.SizedStream
+
+open import Cubical.Examples.Category
+open import Cubical.Examples.FunctorCWF
+
 
 -- Demo
 open import Cubical.Examples.AIM_Demo.DemoPath

diff --git a/examples/Cubical/Examples/FunctorCWF.agda b/examples/Cubical/Examples/FunctorCWF.agda
@@ -1,7 +1,8 @@
 {-# OPTIONS --cubical #-}
-module FunctorCWF where
+module Cubical.Examples.FunctorCWF where
 
-open import PathPrelude hiding (_∘_)
+open import Cubical.PathPrelude
+open import Cubical.FromStdLib hiding (_∘_)
 
 Σ= : ∀ {a b} {A : Set a} {B : A → Set b} {x y : Σ A B} (eq : x .fst ≡ y .fst)
      → PathP (\ i → B (eq i)) (x .snd) (y .snd) → x ≡ y

diff --git a/examples/Cubical/Examples/OTTU.agda b/examples/Cubical/Examples/OTTU.agda
@@ -2,6 +2,7 @@
 module Cubical.Examples.OTTU where
 
 open import Cubical.PathPrelude
+open import Cubical.FromStdLib
 
 open import Cubical.Examples.Cube
 

diff --git a/examples/Cubical/Examples/SizedStream.agda b/examples/Cubical/Examples/SizedStream.agda
@@ -1,9 +1,9 @@
 {-# OPTIONS --cubical #-}
-module SizedStream where
+module Cubical.Examples.SizedStream where
 
-open import Data.Product using (_×_)
-open import PathPrelude
-open import Size
+open import Cubical.PathPrelude
+open import Cubical.FromStdLib using (_×_)
+open import Agda.Builtin.Size
 
 record Stream (A : Set) (i : Size) : Set where
   coinductive

diff --git a/examples/Cubical/Examples/Stream.agda b/examples/Cubical/Examples/Stream.agda
@@ -2,7 +2,7 @@
 
 module Cubical.Examples.Stream where
 
-open import Cubical.FromStdLib using (_×_)
+open import Cubical.FromStdLib using (_×_; ℕ; zero; suc)
 open import Cubical.PathPrelude