Remove LF prefix from constructors. Pass all unit tests and Foods again, but improvements/cleanup still necessary.

This commit is contained in:
John J. Camilleri
2021-03-03 09:19:52 +01:00
parent 33e0e98aec
commit 4c09e4a340
5 changed files with 208 additions and 139 deletions

View File

@@ -1,6 +1,6 @@
abstract Tables = {
cat S ; F ;
fun
FtoS : F -> S ;
FtoS, FtoS2 : F -> S ;
f1, f2, f3, f4, f5, f6 : F ;
}

View File

@@ -15,3 +15,21 @@ TablesCnc: _ Q2
Tables: FtoS f6
TablesCnc: R2 Q3
Tables: FtoS2 f1
TablesCnc: _ _
Tables: FtoS2 f2
TablesCnc: _ Q2
Tables: FtoS2 f3
TablesCnc: R2 Q3
Tables: FtoS2 f4
TablesCnc: _ _
Tables: FtoS2 f5
TablesCnc: _ Q2
Tables: FtoS2 f6
TablesCnc: R2 Q3

View File

@@ -16,6 +16,7 @@ concrete TablesCnc of Tables = {
f6 = { pr = { r = R2; q = Q3 } } ;
FtoS f = tbl ! f.pr ;
FtoS2 f = tbl ! { r = R2 ; q = f.pr.q } ;
oper
tbl = table {
{ r = R1 ; q = _ } => "R1 _" ;