;;; This work is licensed under the Creative Commons
;;; Attribution-NonCommercial-ShareAlike 4.0 International License.
;;; To view a copy of this license, visit
;;; http://creativecommons.org/licenses/by-nc-sa/4.0/ or send a letter to
;;; Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

;;; English lexcon for use with lfgmodel.lisp

(add-dm

;;; ANIMATE HUMAN NOUNS

;;;  (administrator0 isa lex-ent string "administrator" cat Noun pred "administrator" num sg anim yes hum yes)
;;;  (assistant0 isa lex-ent string "assistant" cat Noun pred "assistant" num sg anim yes hum yes)

(assistant0 isa lex-ent string "assistant"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "assistant"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;;  (assistants0 isa lex-ent string "assistants" cat Noun subcat common pred "assistant" adj poss) ; num pl anim yes hum yes)
(assistants isa lex-ent string "assistants"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "assistants"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

(boy0 isa lex-ent string "boy"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "boy"
  subj t obj t obl no obj-th t comp no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;;  (brother0 isa lex-ent string "brother" cat Noun pred "brother" num sg anim yes hum yes)
(conductor0 isa lex-ent string "conductor"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "conductor"
  subj t obj t obl no obj-th t comp no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

(dog0 isa lex-ent string "dog"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "dog"
  subj t obj t obl no obj-th t comp no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))


(editor0 isa lex-ent string "editor"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "editor"
  subj t obj t obl no obj-th t comp no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus))) ; num sg anim yes hum yes)

(everyone0 isa lex-ent string "everyone"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "everyone"
     subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))


(journalist0 isa lex-ent string "journalist"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "journalist"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))


;;;  (lawyer0 isa lex-ent string "lawyer" cat Noun pred "lawyer" num sg anim yes hum yes)
;;;  (medic0 isa lex-ent string "medic" cat Noun subcat common pred "medic" adj poss) ; num sg anim yes hum yes)

(medic0 isa lex-ent string "medic"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "medic"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;;  (neighbour0 isa lex-ent string "neighbour" cat Noun pred "neighbour" num sg anim yes hum yes)
;;;  (nurse0 isa lex-ent string "nurse" cat Noun pred "nurse" num sg anim yes hum yes)
(photographer0 isa lex-ent string "photographer"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "photographer"
  subj t obj t obl no obj-th t comp no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus))) ; num sg anim yes hum yes)





;;;  (receptionist0 isa lex-ent string "receptonist" cat Noun pred "receptionist" num sg anim yes hum yes)
(reporter0 isa lex-ent string "reporter"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "reporter"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus))) ; num sg anim yes hum yes)


(senator0 isa lex-ent string "senator"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "senator"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus))) ; num sg anim yes hum yes)



;(singer0 isa lex-ent string "singer" cat Noun subcat common predreqd no pred "singer" subj t obj t adj poss ma t ma.cat ((adjcv minus) (adv minus) (n minus)) adj.post t)
;;;  (student0 isa lex-ent string "student" cat Noun pred "student" num sg anim yes hum yes)

(vet0 isa lex-ent string "vet"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "vet"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;
(vocalist0 isa lex-ent string "vocalist"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "vocalist"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))
;;;  (witness0 isa lex-ent string "witness" cat Noun pred "witness" num sg anim yes hum yes)

(writer0 isa lex-ent string "writer"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "writer"
    subj t obj t obl no obj-th t comp no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;; ANIMATE NON-HUMAN NOUNS

;;;  (dog0 isa lex-ent string "dog" cat Noun subcat common pred "dog" spec reqd) ; num sg anim yes hum no)

;;; INANIMATE NOUNS

;;;  (attempt0 isa lex-ent string "attempt" cat Noun pred "attempt" num sg anim no hum no)
;;;  (book0 isa lex-ent string "book" cat Noun subcat common pred "book" adj poss) ;num sg anim no hum no)
;;;  (car0 isa lex-ent string "car" cat Noun pred "car" num sg anim no hum no)
;;;  (clinic0 isa lex-ent string "clinic" cat Noun pred "clinic" num sg anim no hum no)
(error0 isa lex-ent string "error"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "error"
    subj t obj t obl no obj-th t comp no comp-poss no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;;  (exam0 isa lex-ent string "exam" cat Noun pred "exam" num sg anim no hum no)
(festival0 isa lex-ent string "festival"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "festival"
    subj t obj t obl no obj-th t comp no comp-poss no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))


(gift0 isa lex-ent string "gift"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    subcat common
    predreqd no pred "gift"
    subj t obj t obl no obj-th t comp no comp-poss no adj poss
    ma t ma.cat ((adjcv minus) (adv minus) (n minus))
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus) (c minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (c minus) (g plus))
    adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;
(sandwich0 isa lex-ent string "sandwich"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "sandwich"
  subj t obj t obl no obj-th t comp no comp-poss no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))




(story0 isa lex-ent string "story"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "story"
  subj t obj t obl no obj-th t comp no comp-poss no adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))


;;;  (hallway0 isa lex-ent string "hallway" cat Noun pred "hallway" num sg anim no hum no)
;;;  (home0 isa lex-ent string "home" cat Noun pred "home" num sg anim no hum no)
;;;  (journal0 isa lex-ent string "journal" cat Noun pred "journal" num sg anim no hum no)
;;;  (press0 isa lex-ent string "press" cat Noun pred "press" num sg anim no hum no)

;;; INANIMATE NOUNS THAT CAN TAKE A SENTENTIAL COMPLEMENT

(claim0 isa lex-ent string "claim"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "claim"
  subj t obj t obl no obj-th t comp poss comp-poss t adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))

;;;  (evidence0 isa lex-ent string "evidence" cat Noun pred "evidence" num sg anim no hum no)

(news0 isa lex-ent string "news"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  subcat common
  predreqd no pred "news"
  subj t obj t obl no obj-th t comp poss comp-poss t adj poss
  ma t ma.cat ((adjcv minus) (adv minus) (n minus))
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus) (c minus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (c minus) (g plus))
  adj.post t adj.post.cat ((adv minus) (adjcv minus) (n minus)))




;;; PROPER NOUNS - ANIMATE HUMAN

  (mom0 isa lex-ent string "mom" cat Noun subcat proper predreqd no pred "mom" subj t obj t adj poss  ma.cat ((adjcv minus) (adv minus) (n minus)) adj.post no) ; num sg anim yes hum yes gend fem
  (ruth0 isa lex-ent string "ruth" cat Noun subcat proper predreqd no pred "ruth" subj t obj t adj poss  ma.cat ((adjcv minus) (adv minus) (n minus)) adj.post no) ; num sg anim yes hum yes gend fem

;;; PROPER NOUNS - INANIMATE HUMAN

;;;  (christmas0 isa lex-ent string "christmas" cat Noun subcat proper pred "christmas" num sg anim no hum no

;;; PRONOUNS

;;;  (everyone0 isa lex-ent string "everyone" cat Pron pred "everyone" num sg anim yes hum yes)
;;;  (us0 isa lex-ent string "us" cat Pron subcat personal pred "us" num pl anim yes hum yes pers one case nonnom)
;;;  (what0 isa lex-ent string "what" cat Pron subcat qn pred "what" anim yes hum no)
(who0 isa lex-ent string "who"
   cat ((adjcv minus) (adv minus) (n plus) (p minus) (v minus))
   subcat comp rel poss
   predreqd no pred pro
   subj t obj t  comp-poss no
   ma t
   pre.ma.cat ((adjcv minus) (adj minus) (n minus))
   pre.ma.gf ((r minus))
   post.ma.cat ((adjcv minus) (adv minus) (n minus) (v minus))
   post.ma.gf ((r minus))
   adj no adj.post no) ; anim yes hum yes)

(that0 isa lex-ent string "that"
    cat ((adjcv minus) (adv minus) (n plus) (p minus) (v minus))
    subcat comp rel poss
    predreqd no pred pro
    subj t obj t  comp-poss t
    ma t
    pre.ma.cat ((adjcv minus) (adj minus) (n minus))
    pre.ma.gf ((r minus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus) (v minus))
    post.ma.gf ((r minus))
    adj no adj.post no)


;;; THIS IS A HACK AND IT IS WRONG - SEE COMPLEMENTISERS BELOW
;;;  (that0 isa lex-ent string "that" cat Pron subcat dem rel poss pred pro  adj poss)

;;; VERBS

;;;\\
;;;I$_{fin}$ & $\langle\textsc{(subj)(predlink)}\rangle$ & \emph{did was will}\\
;;;\\
;;;I$_{inf}$ & $\langle\textsc{(subj)(predlink)}\rangle$ & \emph{be}\\
;;;\\
;;;V$_{fin}$ & $\langle\textsc{(subj)}\rangle$ & \emph{ripped}\\
;;;  (ripped0 isa lex-ent string "ripped" cat Verb pred "rip" subj reqd obj no obl no pcase no) ; objcomp no obj2 no tense past ptcp yes


;;;  (admired0 isa lex-ent string "admired" cat Verb pred "admire" subj reqd obj reqd obl no pcase no) ; tense past ptcp yes

(admired0 isa lex-ent string "admired"
            cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
            ma t ma.cat ((adjcv minus) (adv minus) (p minus))
            pre.ma.gf ((r minus))
            post.ma.gf ((c plus))
            predreqd no pred "admire"
            subj reqd obj alt comp-poss t obl no obj-th no comp alt
            valency 2
            ggf1 ((o minus) (r minus) (c minus) (g plus))
            ggf2 ((o plus) (r minus) (g plus))
            ggf3 no
            ggf1.stat reqd
            ggf2.stat reqd
            ggf3.stat no
            pcase no adj poss
            gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


(admitted0 isa lex-ent string "admitted"
            cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
            ma t ma.cat ((adjcv minus) (adv minus) (p minus))
            pre.ma.gf ((r minus))
            post.ma.gf ((c plus))
            predreqd no pred "admit"
            subj reqd obj alt comp-poss t obl no obj-th no comp alt
            valency 2
            ggf1 ((o minus) (r minus) (c minus) (g plus))
            ggf2 ((o plus) (r minus) (g plus))
            ggf3 no
            ggf1.stat reqd
            ggf2.stat reqd
            ggf3.stat no
            pcase no adj poss
            gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t) ; objcomp poss obj2 no tense past ptcp yes
;;;amused
(amused0 isa lex-ent string "amused"
            cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
            ma t ma.cat ((adjcv minus) (adv minus) (p minus))
            pre.ma.gf ((r minus))
            post.ma.gf ((c plus))
            predreqd no pred "amuse"
            subj reqd obj reqd comp-poss t obl no obj-th no comp no
            valency 2
            ggf1 ((o minus) (r minus) (c minus) (g plus))
            ggf2 ((o plus) (r minus) (c minus) (g plus))
            ggf3 no
            ggf1.stat reqd
            ggf2.stat reqd
            ggf3.stat no
            pcase no adj poss
            gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


(attacked0 isa lex-ent string "attacked"
            cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
            ma t ma.cat ((adjcv minus) (adv minus) (p minus))
            pre.ma.gf ((r minus))
            post.ma.gf ((c plus))
            predreqd no pred "attack"
            subj reqd obj reqd comp-poss t obl no obj-th no comp no
            valency 2
            ggf1 ((o minus) (r minus) (c minus) (g plus))
            ggf2 ((o plus) (r minus) (c minus) (g plus))
            ggf3 no
            ggf1.stat reqd
            ggf2.stat reqd
            ggf3.stat no
            pcase no adj poss
            gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)

(bit0 isa lex-ent string "bit"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "bite"
              subj reqd obj reqd comp-poss t obl no obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


;;;  (chased0 isa lex-ent string "chased" cat Verb pred "chase" subj reqd obj reqd obl no pcase no) ; tense past ptcp yes
;;;examined
(embarrassed0 isa lex-ent string "embarrassed"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "embarrass"
              subj reqd obj reqd comp-poss t obl no obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)





(hoped0 isa lex-ent string "hoped"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "hope"
              subj reqd obj no comp-poss no obl reqd obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o minus) (r plus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase for adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


;;;implicated
(insulted0 isa lex-ent string "insulted"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "insult"
              subj reqd obj reqd comp-poss t obl no obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


;;;liked
(liked0 isa lex-ent string "liked"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "like"
              subj reqd obj reqd comp-poss t obl no obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


(likes0 isa lex-ent string "likes"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "like"
              subj reqd obj reqd comp-poss t obl no obj-th no comp no
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


;;;married
;;;quit
;;;  (scolded0 isa lex-ent string "scolded" cat Verb pred "scold" subj reqd obj reqd obl no pcase no) ; tense past ptcp yes
;;;  (supervised0 isa lex-ent string "supervised" cat Verb pred "supervise" subj reqd obj reqd obl no pcase no) ; tense past ptcp yes
;;;upset}\\
(forgot0 isa lex-ent string "forgot"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "forget"
              subj reqd obj reqd comp-poss t obl no obj-th no comp poss
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)



(invited0 isa lex-ent string "invited"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "invite"
              subj reqd obj reqd comp-poss no obl alt obj-th alt comp no
              valency 3
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c minus) (g plus))
              ggf3 ((o minus) (r plus) (c minus) (g plus))
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat reqd
              pcase to adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 ggf3 adj.post t)




;;;V$_{fin}$ & $\langle$\textsc{(subj)(obj}$\|$\textsc{comp)}$\rangle$ &  \emph{believed forgot knew said thought}\\

(believed0 isa lex-ent string "believed"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "believe"
              subj reqd obj alt comp-poss t obl no obj-th no comp alt
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus)  (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)



(said0 isa lex-ent string "said"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "say"
              subj reqd obj no comp-poss t obl no obj-th no comp reqd
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c plus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)


(thought0 isa lex-ent string "thought"
              cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
              ma t ma.cat ((adjcv minus) (adv minus) (p minus))
              pre.ma.gf ((r minus))
              post.ma.gf ((c plus))
              predreqd no pred "think"
              subj reqd obj no comp-poss t obl no obj-th no comp reqd
              valency 2
              ggf1 ((o minus) (r minus) (c minus) (g plus))
              ggf2 ((o plus) (r minus) (c plus) (g plus))
              ggf3 no
              ggf1.stat reqd
              ggf2.stat reqd
              ggf3.stat no
              pcase no adj poss
              gf.prec ggf1 gf.post1 ggf2 gf.post2 no adj.post t)



;;;V$_{fin}$ & $\langle\textsc{(subj)(xcomp)}\rangle$ &\emph{seemed}\\
(sent0 isa lex-ent string "sent"
   cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
   ma t ma.cat ((adjcv minus) (adv minus) (p minus))
   pre.ma.gf ((r minus))
   post.ma.gf ((c plus))
   predreqd no pred "send"
   subj reqd obj reqd comp-poss no obl alt obj-th alt comp no
   valency 3
   ggf1 ((o minus) (r minus) (c minus) (g plus))
   ggf2 ((o plus) (r minus) (c minus) (g plus))
   ggf3 ((r plus) (c minus) (g plus))
   ggf1.stat reqd
   ggf2.stat reqd
   ggf3.stat reqd
   pcase to adj poss
   gf.prec ggf1 gf.post1 ggf2 gf.post2 ggf3 adj.post t)


;;;Ditransitive with dative alternation
   (gave0 isa lex-ent string "gave"
               cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
               ma t ma.cat ((adjcv minus) (adv minus) (p minus))
               pre.ma.gf ((r minus))
               post.ma.gf ((c plus))
               predreqd no pred "give"
               subj reqd obj reqd comp-poss no obl alt obj-th alt comp no
               valency 3
               ggf1 ((o minus) (r minus) (c minus) (g plus))
               ggf2 ((o plus) (r minus) (c minus) (g plus))
               ggf3 ((r plus) (c minus) (g plus))
               ggf1.stat reqd
               ggf2.stat reqd
               ggf3.stat reqd
               pcase to adj poss
               gf.prec ggf1 gf.post1 ggf2 gf.post2 ggf3 adj.post t)


;;;V$_{inf}$ & $\langle\textsc{(subj)(obj)}\rangle$ & \emph{damage repair}\\
;;;V$_{inf}$ & $\langle$\textsc{(subj)(obj}$\|$\textsc{comp)}$\rangle$ &  \emph{know}\\
;;;V$_{phr.inf}$ & $\langle\textsc{(subj)(obj)(obl)}\rangle$ &  \emph{bring-home}\\
;;;\\
;;;V$_{ptcp}$ & $\langle\textsc{(subj)(obl)}\rangle$ \textsc{asp = cont} & \emph{standing waiting}\\

;;; DETERMINERS

(a0 isa lex-ent string "a"
    cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
    predreqd t pred no
    ma t
    pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
    pre.ma.gf ((r minus) (g plus))
    post.ma.cat ((adjcv minus) (adv minus) (n minus))
    post.ma.gf ((o plus) (g plus))
    adj t
    adj.prec t adj.prec.cat ((adjcv plus) (adv minus) (n minus) (p minus) (v minus))) ; subcat article num sg pers three
;;;  (his0 isa lex-ent string "his" cat Det subcat possessive pred "his" pers three poss-hum yes poss-pers three poss-num sg poss-gend masc)
;;;  (my0 isa lex-ent string "my" cat Det subcat possessive pred "my" pers three num pl anim yes hum yes pers one)
(the0 isa lex-ent string "the"
  cat ((n plus) (v minus) (p minus) (adv minus) (adjcv minus))
  predreqd t pred no
  ma t
  pre.ma.cat ((v plus) (n minus) (adjcv minus) (adv minus) (p minus))
  pre.ma.gf ((r minus) (g plus))
  post.ma.cat ((adjcv minus) (adv minus) (n minus))
  post.ma.gf ((o plus) (g plus))
  adj t
  adj.prec t adj.prec.cat ((adjcv plus) (adv minus) (n minus) (p minus) (v minus))) ; subcat article pers three


;;;C & & \emph{if that to while who}\\

;;; PREPOSITIONS

;;;  (at0 isa lex-ent string "at" cat Prep pred "at" obj reqd)
;;;  (by0 isa lex-ent string "by" cat Prep pred "by" obj reqd)
  (for0 isa lex-ent string "for"
        cat ((n minus) (v minus) (p plus) (adjcv minus) (adv minus))
        pred "for" predreqd no
        ma t  ma.cat ((adjcv minus) (adv minus) (p minus))
        pre.ma.cat ((adjcv minus) (adv minus) (n minus) (p minus) (v minus))
        pre.ma.gf ((o minus))
        post.ma.cat ((adjcv minus) (adv minus) (p minus))
        post.ma.gf ((o minus) (r plus) (c minus))
         subj no obj reqd obl no obj-th no comp no
        pcase for adj t
        ggf1 ((r minus) (o plus) (c minus) (g plus))
        ggf1.stat reqd
        gf.prec no
        gf.post1 ggf1
        adj.post no adj.post.cat no )


;;;  (from0 isa lex-ent string "from" cat Prep pred "from" obj reqd)
;;;  (in0 isa lex-ent string "in" cat Prep pred "in" obj reqd)
  (to0 isa lex-ent string "to"
  cat ((n minus) (v minus) (p plus) (adjcv minus) (adv minus))
  pred "to" predreqd no
  ma t ma.cat ((adjcv minus) (adv minus) (p minus))
  pre.ma.cat ((adjcv minus) (adv minus) (n minus) (p minus) (v minus))
  pre.ma.gf ((o minus))
  post.ma.cat ((adjcv minus) (adv minus) (p minus))
  post.ma.gf ((o minus) (r plus) (c minus))
   subj no obj reqd obl no obj-th no comp no
  pcase to adj t
  ggf1 ((r minus) (o plus) (c minus) (g plus))
  ggf1.stat reqd
  gf.prec no
  gf.post1 ggf1
  adj.post no adj.post.cat no )

;;; ADJECTIVES

(famous0 isa lex-ent string "famous"
  cat ((n minus) (v minus) (p plus) (adjcv plus) (adv minus))
  pred "famous" predreqd no
  valency 0
  ma t ma.cat ((adjcv minus) (adv minus) (p minus) (v minus) (n plus))
  pre.ma.cat ((adjcv minus) (adv minus) (p minus) (v minus) (n plus))
  pre.ma.gf adj
  post.ma.cat ((adjcv minus) (adv minus) (n minus) (p minus) (v minus))
  post.ma.gf ((adjcv minus) (adv minus) (p minus) (v minus) (n plus))
  subj no obj no obl no obj-th no comp no comp-poss no
  ggf1 no ggf1.stat no
  ggf2 no ggf2.stat no
  ggf3 no ggf3.stat no
  gf.prec no gf.post1 no gf.post2 no
  pcase no adj t
  adj.post no adj.post.cat no)
;;;  (important0 isa lex-ent string "important" cat Adjcv pred "important")
;;;  (nervous0 isa lex-ent string "nervous" cat Adjcv pred "nervous")
;;;  (next-door0 isa lex-ent string "next-door" cat Adjcv pred "next-door")
;;;  (prestigious0 isa lex-ent string "prestigious0" cat Adjcv pred "prestigious")
;;;  (surprising isa lex-ent string "surprising" cat Adjcv pred "surprising")

;;; ADVERBS

   (publicly0 isa lex-ent string "publicly" cat Verb ma t ma.cat ((adjcv minus) (adv minus) (n minus)) predreqd no pred "publicly" subj no obj no comp-poss no obl no pcase no adj poss gf.prec subj adj.post no)
;;;  (ultimately0 isa lex-ent string "ultimately" cat Adv subcat time pred "ultimately")
;;;  (very0 isa lex-ent string "very" cat Adv subcat degree pred "ultimately")

)
