forked from GitHub/gf-core
upgraded resources, esp. romance
This commit is contained in:
@@ -31,6 +31,7 @@ incomplete concrete ClauseI of Clause = open Rules, Verbphrase in {
|
||||
QPredV np v = IntVP np (UseV v) ;
|
||||
QPredPassV np v = IntVP np (UsePassV v) ;
|
||||
QPredV2 np v x = IntVP np (ComplV2 v x) ;
|
||||
QPredV3 np v x y = IntVP np (ComplV3 v x y) ;
|
||||
QPredReflV2 np v = IntVP np (ComplReflV2 v) ;
|
||||
QPredVS np v x = IntVP np (ComplVS v x) ;
|
||||
QPredVV np v x = IntVP np (ComplVV v x) ;
|
||||
@@ -47,9 +48,29 @@ incomplete concrete ClauseI of Clause = open Rules, Verbphrase in {
|
||||
QPredNP np v = IntVP np (PredNP v) ;
|
||||
QPredAdv np v = IntVP np (PredAdv v) ;
|
||||
|
||||
QPredProgVP np vp = IntVP np (PredProgVP vp) ;
|
||||
|
||||
IPredV a v = PosVP a (UseV v) ;
|
||||
IPredV2 a v x = PosVP a (ComplV2 v x) ;
|
||||
IPredPassV a v = PosVP a (UsePassV v) ;
|
||||
IPredV3 a v x y = PosVP a (ComplV3 v x y) ;
|
||||
IPredReflV2 a v = PosVP a (ComplReflV2 v) ;
|
||||
IPredVS a v x = PosVP a (ComplVS v x) ;
|
||||
IPredVV a v x = PosVP a (ComplVV v x) ;
|
||||
IPredVQ a v x = PosVP a (ComplVQ v x) ;
|
||||
IPredVA a v x = PosVP a (ComplVA v x) ;
|
||||
IPredV2A a v x y = PosVP a (ComplV2A v x y) ;
|
||||
IPredSubjV2V a v x y = PosVP a (ComplSubjV2V v x y) ;
|
||||
IPredObjV2V a v x y = PosVP a (ComplObjV2V v x y) ;
|
||||
IPredV2S a v x y = PosVP a (ComplV2S v x y) ;
|
||||
IPredV2Q a v x y = PosVP a (ComplV2Q v x y) ;
|
||||
|
||||
IPredAP a v = PosVP a (PredAP v) ;
|
||||
IPredCN a v = PosVP a (PredCN v) ;
|
||||
IPredNP a v = PosVP a (PredNP v) ;
|
||||
IPredAdv a v = PosVP a (PredAdv v) ;
|
||||
|
||||
IPredProgVP a vp = PosVP a (PredProgVP vp) ;
|
||||
|
||||
{-
|
||||
-- Use VPs
|
||||
|
||||
@@ -110,8 +110,8 @@ fun
|
||||
AdvPP : PP -> Adv ; -- "in London", "after the war"
|
||||
PrepNP : Prep -> NP -> PP ; -- "in London", "after the war"
|
||||
|
||||
AdvCN : CN -> PP -> CN ; -- "house in London"
|
||||
AdvPN : PN -> PP -> NP ; -- "x to the power of k"
|
||||
AdvCN : CN -> Adv -> CN ; -- "house in London"
|
||||
AdvNP : NP -> Adv -> NP ; -- "the house in London"
|
||||
AdvAP : AdA -> AP -> AP ; -- "very good"
|
||||
AdvAdv : AdA -> Adv -> Adv ; -- "very well"
|
||||
|
||||
@@ -148,7 +148,7 @@ fun
|
||||
QuestPhrase : QS -> Phr ; -- "Do I walk?"
|
||||
ImperOne, ImperMany : Imp -> Phr ; -- "Be a man!", "Be men!"
|
||||
|
||||
AdvCl : Cl -> Adv -> Cl ; -- "John walks in the park"
|
||||
AdvCl : Cl -> Adv -> Cl ; -- "John walks in the park"
|
||||
AdvVPI : VPI -> Adv -> VPI ; -- "walk in the park"
|
||||
AdCPhr : AdC -> S -> Phr ; -- "Therefore, 2 is prime."
|
||||
AdvPhr : Adv -> S -> Phr ; -- "In India, there are tigers."
|
||||
|
||||
Reference in New Issue
Block a user