blob: 85020cce5af79177ef684820b808125440fdc412 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
concrete LexiconEng of Lexicon = GrammarEng ** open ParadigmsEng in {
lin
man_N = mkN "man" "men" ;
woman_N = mkN "woman" "women" ;
house_N = mkN "house" ;
tree_N = mkN "tree" ;
big_A = mkA "big" ;
small_A = mkA "small" ;
green_A = mkA "green" ;
walk_V = mkV "walk" ;
sleep_V = mkV "sleep" "sleeps" "slept" "slept" ;
arrive_V = mkV "arrive" ;
love_V2 = mkV2 "love" ;
look_V2 = mkV2 (mkV "look") "at" ;
please_V2 = mkV2 "please" ;
believe_VS = mkV "believe" ;
know_VS = mkV "know" "knows" "knew" "known" ;
wonder_VQ = mkV "wonder" ;
john_PN = mkPN "John" ;
mary_PN = mkPN "Mary" ;
}
|