--- a/agda/delta/functor.agda	Mon Jan 19 11:10:58 2015 +0900
+++ b/agda/delta/functor.agda	Mon Jan 19 11:48:41 2015 +0900
@@ -11,18 +11,18 @@
 -- Functor-laws
 
 -- Functor-law-1 : T(id) = id'
-functor-law-1 :  {l : Level} {A : Set l} ->  (d : Delta A) -> (fmap id) d ≡ id d
+functor-law-1 :  {l : Level} {A : Set l} ->  (d : Delta A) -> (delta-fmap id) d ≡ id d
 functor-law-1 (mono x)    = refl
 functor-law-1 (delta x d) = cong (delta x) (functor-law-1 d)
 
 -- Functor-law-2 : T(f . g) = T(f) . T(g)
 functor-law-2 : {l ll lll : Level} {A : Set l} {B : Set ll} {C : Set lll} ->
                 (f : B -> C) -> (g : A -> B) -> (d : Delta A) ->
-                (fmap (f ∙ g)) d ≡ (fmap f) (fmap g d)
+                (delta-fmap (f ∙ g)) d ≡ (delta-fmap f) (delta-fmap g d)
 functor-law-2 f g (mono x)    = refl
 functor-law-2 f g (delta x d) = cong (delta (f (g x))) (functor-law-2 f g d)
 
 delta-is-functor : {l : Level} -> Functor (Delta {l})
-delta-is-functor = record {  fmap = fmap ;
+delta-is-functor = record {  fmap = delta-fmap ;
                              preserve-id = functor-law-1;
                              covariant  = \f g -> functor-law-2 g f}