comparison agda/delta/functor.agda @ 97:f26a954cd068

Update Natural Transformation definitions
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Tue, 20 Jan 2015 16:27:55 +0900
parents 8d92ed54a94f
children ebd0d6e2772c
comparison
equal deleted inserted replaced
96:dfe8c67390bd 97:f26a954cd068
20 (f : B -> C) -> (g : A -> B) -> (d : Delta A) -> 20 (f : B -> C) -> (g : A -> B) -> (d : Delta A) ->
21 (delta-fmap (f ∙ g)) d ≡ ((delta-fmap f) ∙ (delta-fmap g)) d 21 (delta-fmap (f ∙ g)) d ≡ ((delta-fmap f) ∙ (delta-fmap g)) d
22 functor-law-2 f g (mono x) = refl 22 functor-law-2 f g (mono x) = refl
23 functor-law-2 f g (delta x d) = cong (delta (f (g x))) (functor-law-2 f g d) 23 functor-law-2 f g (delta x d) = cong (delta (f (g x))) (functor-law-2 f g d)
24 24
25 delta-is-functor : {l : Level} -> Functor (Delta {l}) 25 delta-is-functor : {l : Level} -> Functor {l} Delta
26 delta-is-functor = record { fmap = delta-fmap ; 26 delta-is-functor = record { fmap = delta-fmap ;
27 preserve-id = functor-law-1; 27 preserve-id = functor-law-1;
28 covariant = \f g -> functor-law-2 g f} 28 covariant = \f g -> functor-law-2 g f}