changeset 95:cf372fbcebd8

Fix implicit values in deltaM-mu
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Mon, 19 Jan 2015 17:47:55 +0900
parents bcd4fe52a504
children dfe8c67390bd
files agda/deltaM.agda
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/agda/deltaM.agda	Mon Jan 19 17:10:29 2015 +0900
+++ b/agda/deltaM.agda	Mon Jan 19 17:47:55 2015 +0900
@@ -82,7 +82,7 @@
 deltaM-bind {l} {A} {B} {M} {functorM} {monadM} (deltaM (delta x d)) f = appendDeltaM (deltaM (mono (bind {l} {A} monadM x (headDeltaM ∙ f))))
                                                                                       (deltaM-bind (deltaM d) (tailDeltaM ∙ f))
 
-deltaM-mu : {l : Level} {A B : Set l} {M : {l' : Level} -> Set l' -> Set l'}
+deltaM-mu : {l : Level} {A : Set l} {M : {l' : Level} -> Set l' -> Set l'}
                                         {functorM : {l' : Level} -> Functor {l'} M}
                                         {monadM   : {l' : Level} {A : Set l'} -> Monad {l'} {A} M functorM}
             -> (DeltaM M {functorM} {monadM} (DeltaM M {functorM} {monadM} A)) -> DeltaM M {functorM} {monadM} A