1
0
forked from GitHub/gf-rgl

(May) Add PassV2 + new tests

This commit is contained in:
Inari Listenmaa
2020-08-19 16:07:35 +02:00
parent 7927fdae85
commit 0e065d8005
7 changed files with 40 additions and 12 deletions
+6 -4
View File
@@ -109,13 +109,15 @@ oper
} ;
mkV2 = overload {
mkV2 : Str -> V2 = \v2 -> lin V2 ((mkVerb v2 Meng) ** {c2 = emptyPrep}) ;
mkV2 : V -> Prep -> V2 = \v,p -> lin V2 (v ** {c2 = p})
mkV2 : Str -> V2 = \v2 -> lin V2 (mkVerb2 (mkVerb v2 Meng) emptyPrep) ;
mkV2 : V -> Prep -> V2 = \v,p -> lin V2 (mkVerb2 v p)
} ;
mkV3 = overload {
mkV3 : V -> V3 = \v -> lin V3 (v ** {c2,c3 = emptyPrep}) ;
mkV3 : V -> (p,q : Prep) -> V3 = \v,p,q -> lin V3 (v ** {c2 = p ; c3 = q})
mkV3 : V -> V3 = \v ->
lin V3 (mkVerb3 v emptyPrep emptyPrep) ;
mkV3 : V -> (p,q : Prep) -> V3 = \v,p,q ->
lin V3 (mkVerb3 v p q)
} ;
-- mkVV = overload {