diff agda/basic.agda @ 90:55d11ce7e223

Unify levels on data type. only use suc to proofs
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Mon, 19 Jan 2015 12:11:38 +0900
parents 743c05b98dad
children
line wrap: on
line diff
--- a/agda/basic.agda	Mon Jan 19 11:48:41 2015 +0900
+++ b/agda/basic.agda	Mon Jan 19 12:11:38 2015 +0900
@@ -5,7 +5,7 @@
 id : {l : Level} {A : Set l} -> A -> A
 id x = x
 
-_∙_ : {l ll lll : Level} {A : Set l} {B : Set ll} {C : Set lll} -> (B -> C) -> (A -> B) -> (A -> C)
+_∙_ : {l : Level} {A B C : Set l} -> (B -> C) -> (A -> B) -> (A -> C)
 f ∙ g = \x -> f (g x)
 
 postulate String : Set