diff options
| author | krasimir <krasimir@chalmers.se> | 2010-06-14 11:21:52 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-06-14 11:21:52 +0000 |
| commit | b2a0adf96984aa50669c25b082f509daabbb5d97 (patch) | |
| tree | 73685fb15b548d6ba2f89963581a5afd37d5f884 /examples | |
| parent | 07da5a43c9aedba5832819d1bef163b2998282d3 (diff) | |
added equality proof in the constructor for natural trasformations
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/category-theory/NaturalTransform.gf | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/examples/category-theory/NaturalTransform.gf b/examples/category-theory/NaturalTransform.gf index e7da79b93..60943737c 100644 --- a/examples/category-theory/NaturalTransform.gf +++ b/examples/category-theory/NaturalTransform.gf @@ -8,7 +8,12 @@ abstract NaturalTransform = Functor ** { data nt : ({c1,c2} : Category) -> (f,g : Functor c1 c2) - -> ((x : Obj c1) -> Arrow (mapObj f x) (mapObj g x)) + -> (n : (x : Obj c1) -> Arrow (mapObj f x) (mapObj g x)) + -> ( ({x,y} : Obj c1) + -> (ar : Arrow x y) + -> EqAr (comp (n y) (mapAr f ar)) + (comp (mapAr g ar) (n x)) + ) -> NT f g ; } |