This commit is contained in:
aarne
2004-09-19 20:27:38 +00:00
parent df4cbb482f
commit 0e21dcbf54
3 changed files with 14 additions and 1 deletions

View File

@@ -29,6 +29,8 @@ oper
postfixSS : Str -> SS -> SS = \f,x -> ss (x.s ++ f) ;
embedSS : Str -> Str -> SS -> SS = \f,g,x -> ss (f ++ x.s ++ g) ;
id : (A : Type) -> A -> A ;
-- discontinuous
SD2 = {s1,s2 : Str} ;
sd2 : (_,_ : Str) -> SD2 = \x,y -> {s1 = x ; s2 = y} ;