forked from GitHub/gf-core
10 lines
217 B
Plaintext
10 lines
217 B
Plaintext
resource StringOper = {
|
|
oper
|
|
SS : Type = {s : Str} ;
|
|
|
|
ss : Str -> SS = \x -> {s = x} ;
|
|
|
|
cc : SS -> SS -> SS = \x,y -> ss (x.s ++ y.s) ;
|
|
|
|
prefix : Str -> SS -> SS = \p,x -> ss (p ++ x.s) ;
|
|
} |