kein Deutsch and some other Phrasebook fixes

This commit is contained in:
aarne
2010-09-03 09:02:00 +00:00
parent 1527d470ec
commit 9fc58ce0e7
5 changed files with 23 additions and 17 deletions

View File

@@ -1,7 +1,8 @@
concrete SentencesGer of Sentences = NumeralGer ** SentencesI -
[PYesToNo,SHaveNo,SHaveNoMass,
Proposition, Action, Is, IsMass, SProp, SPropNot, QProp,
AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion
AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion,
Nationality, Language
] with
(Syntax = SyntaxGer),
(Symbolic = SymbolicGer),
@@ -33,4 +34,8 @@ concrete SentencesGer of Sentences = NumeralGer ** SentencesI -
AKnowQuestion p s = prop (mkCl p.name Lexicon.know_VQ s) ;
AKnowPerson p q = prop (mkCl p.name Lexicon.know_V2 q.name) ;
lincat
Nationality = {lang : CN ; country : NP ; prop : A} ;
Language = CN ; -- kein Deutsch
}