msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

peb

Browse Source
This commit is contained in:
peb
2006-01-13 08:42:25 +00:00
parent a46c3d2b00
commit ec2cf7c4d4
6 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/prelude/Prelude.gf
View File

@@ -10,6 +10,7 @@ oper
ss3 : (_,_ ,_: Str) -> SS = \x,y,z -> ss (x ++ y ++ z) ;
cc2 : (_,_ : SS) -> SS = \x,y -> ss (x.s ++ y.s) ;
cc3 : (_,_,_ : SS) -> SS = \x,y,z -> ss (x.s ++ y.s ++ z.s) ;
SS1 : Type -> Type = \P -> {s : P => Str} ;
ss1 : (A : Type) -> Str -> SS1 A = \A,s -> {s = table {_ => s}} ;