occupations in Phrasebook Eng,Fin,Swe,Tha

This commit is contained in:
aarne
2011-12-02 09:50:16 +00:00
parent 4f46a96ffb
commit b29dbcf3a7
6 changed files with 75 additions and 2 deletions

View File

@@ -293,4 +293,15 @@ concrete WordsEng of Words = SentencesEng **
Smoke = mkVP (P.mkV "smoke") ;
ADoctor = mkProfession (mkN "doctor") ;
AProfessor = mkProfession (mkN "professor") ;
ALawyer = mkProfession (mkN "lawyer") ;
AEngineer = mkProfession (mkN "engineer") ;
ATeacher = mkProfession (mkN "teacher") ;
ACook = mkProfession (mkN "cook") ;
AStudent = mkProfession (mkN "student") ;
ABusinessman = mkProfession (mkN "businessman" "businessmen") ;
oper
mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;
}