examples/test is moved to testsuite

This commit is contained in:
krasimir
2009-05-20 11:25:00 +00:00
parent 4fcf6bc065
commit 0cb89b2a77
12 changed files with 0 additions and 0 deletions

View File

@@ -0,0 +1,26 @@
abstract City = {
cat S ; City ; Country ; Adj ;
data
PredIn : City -> Country -> S ;
fun
PredAdj : City -> Adj -> S ;
Capital : Country -> City ;
CountryAdj : Adj -> Country ;
data
Stockholm, Helsinki : City ;
Sweden, Finland : Country ;
Swedish, Finnish : Adj ;
def
PredAdj city x = PredIn city (CountryAdj x) ;
Capital Finland = Helsinki ;
Capital Sweden = Stockholm ;
CountryAdj Finnish = Finland ;
CountryAdj Swedish = Sweden ;
}