1
0
forked from GitHub/gf-rgl

add one more conjunction

This commit is contained in:
Krasimir Angelov
2018-08-07 11:49:22 +02:00
parent e6f924d597
commit 5bb454454a
5 changed files with 15 additions and 15 deletions
+2 -2
View File
@@ -57,7 +57,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lincat
VPI = {s : Agr => Str} ;
[VPI] = {s : Bool => Ints 3 => Agr => Str} ;
[VPI] = {s : Bool => Ints 4 => Agr => Str} ;
lin
BaseVPI x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
@@ -72,7 +72,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lincat
VPS = {s : Agr => Str} ;
[VPS] = {s : Bool => Ints 3 => Agr => Str} ;
[VPS] = {s : Bool => Ints 4 => Agr => Str} ;
lin
BaseVPS x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;