More srg test cases.

This commit is contained in:
bringert
2007-03-24 15:34:33 +00:00
parent 7095f7aa19
commit 2d713e78a5
3 changed files with 9 additions and 0 deletions

View File

@@ -1,13 +0,0 @@
cat S; X; E;
fun s : S ;
fun es : E -> S -> S ;
fun sx : S -> X -> S ;
fun x : X ;
fun e : E ;
lin s = { s = "s" } ;
lin es e s = { s = e.s ++ s.s } ;
lin sx s x = { s = s.s ++ x.s } ;
lin x = { s = "x" } ;
lin e = { s = "e" } ;

View File

@@ -0,0 +1,9 @@
cat S; E;
fun s : S ;
fun es : E -> S -> S ;
fun e : E ;
lin s = { s = "s" } ;
lin es e s = { s = e.s ++ s.s } ;
lin e = { s = [] } ;