diff agda/delta/functor.agda @ 93:8d92ed54a94f

Prove functor-laws for deltaM
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Mon, 19 Jan 2015 15:21:29 +0900
parents 55d11ce7e223
children f26a954cd068
line wrap: on
line diff
--- a/agda/delta/functor.agda	Mon Jan 19 14:32:07 2015 +0900
+++ b/agda/delta/functor.agda	Mon Jan 19 15:21:29 2015 +0900
@@ -18,7 +18,7 @@
 -- Functor-law-2 : T(f . g) = T(f) . T(g)
 functor-law-2 : {l : Level} {A B C : Set l} -> 
                 (f : B -> C) -> (g : A -> B) -> (d : Delta A) ->
-                (delta-fmap (f ∙ g)) d ≡ (delta-fmap f) (delta-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)