;;; -*- Mode: TDL; Coding: utf-8 -*- 

;;; Authors: 
;;; 2005-2006 Berthold Crysmann

;;; Based on templates.tdl by Walter Kasper & Stefan Müller

;;; Copyright: DFKI GmbH



adj-prd-le := simple-ref-subj-adj-prd-lex &
	      reg-keyrel-keysort-lex &
	      reg-adj-morph-le.

adj-non-prd-le := simple-adj-non-prd-lex &
		  reg-keyrel-keysort-lex &
		  reg-adj-morph-le.

adj-non-prd-unflex-le := simple-adj-non-prd-sign-unflex &
			 reg-keyrel-keysort-lex  &
			 reg-adj-morph-le.

ordinal-number-le :=
		    ordinal-number-lex &
		    reg-keyrel-keytag-lex &
		    [ SYNSEM [ lkeys [keyagr2 #png],
			       LOC.CONT [ KEY.ARG1.PNG #png ] ] ].

ordinal-number-unflex-le :=
			   ordinal-number-unflex-lex &
			   reg-keyrel-keytag-lex &
			   [ SYNSEM [ lkeys [keyagr2 #png],
				      LOC.CONT [ KEY.ARG1.PNG #png ] ] ].

                   
unknown-ordinal-number-le :=
			    form &
			    [ MORPH <! [ HEAD px-all ] !>,
			      SYNSEM ordinal-number-synsem & 
				    [ LOC.CONT [ KEY.ARG1.PNG 3-s-g ] ] ].

cardinal-number-le := cardinal-number-sign-lex &
		      reg-keyrel-keytag-lex &
		      [ synsem [ lkeys [keyagr #agr,
					keyagr2 #num,
					keysort #sort-region],
				 loc [cat.head.region #sort-region,
				      cont.hook.xarg.png #num,
				      uniagr #agr] ]].
			 
unknown-cardinal-number-le := cardinal-number-sign-lex &
			      [ SYNSEM.LOC.UNIAGR c-p-g ].

numeric-cardinal-1-number-le := numeric-cardinal-1-sign-lex.
numeric-cardinal-no1-number-le :=  numeric-cardinal-no1-sign-lex.

non-ref-adj-prd-le := non-ref-adj-prd-lex & 
		      reg-keyrel-lex  &
		      reg-adj-morph-le.

adj-non-subj-prd-le := adj-no-subj-prd-lex &
		       reg-keyrel-keysort-lex  &
		       reg-adj-morph-le.

adj-np-prd-le := adj-np-prd-lex &
		 reg-adj-morph-le &
		 reg-keyrel-lex &
		 reg-comp-lex &
		 nonv-reg-subj-lex &
		 [ synsem.loc [ cat [ subcat <! [ loc [ cat [ _drop - ],
							cont.hook.INDEX #ref2 ] ] !> ], 
				cont.KEY [ ARG2 #ref2 ] ] ].
			  

adj-np-non-prd-le := 
		     adj-np-prd-lex &		 
		     reg-adj-morph-le & 
		     reg-keyrel-lex &
		     reg-comp-lex &
		     nonv-reg-subj-lex &
		     [ synsem.loc [ cat [ subcat <! [ loc [ cat [ _drop - ],
							    cont.hook.INDEX #ref2 ] ] !> ],
				    cont.KEY [ ARG2 #ref2 ] ] ].


adj-refl-np-pp-prd-le := adj-refl-np-pp-prd-sign-lex &
			 reg-keyrel-lex &
			 reg-comp-lex &
			 nonv-reg-subj-lex &
			 [ synsem [lkeys [--compform #form],
				   loc.cat.subcat.list < [ loc.cat [_drop - , 
								    head.pform #form]], ... > ]].

adj-refl-np-prd-le := adj-refl-np-prd-sign-lex &
		     reg-adj-morph-le & 
		      reg-keyrel-lex & 
		      nonv-reg-subj-lex.

adj-refl-gen-le := adj-refl-gen-sign-lex &
		   reg-adj-morph-le & 
		   reg-keyrel-lex &
		   reg-comp-lex &
		   nonv-reg-subj-lex &
		   [ synsem [ loc [ cat [ subcat <! saturated-ref-noun-synsem,
						  synsem !> ] ] ] ].

adj-pp-prd-le := adj-pp-prd-sign-lex &
		 reg-adj-morph-le & 
		 reg-keyrel-lex &
		 reg-comp-lex &
		 nonv-reg-subj-lex & [synsem [lkeys [--compform #form],
					      loc.cat.subcat <! [loc.cat.head.pform #form]!>]] .

adj-scomp-prd-le := adj-scomp-prd-sign-lex &
		    reg-adj-morph-le & 
		    reg-keyrel-lex &
		    reg-comp-lex &
		    nonv-reg-subj-lex &
		    [synsem [lkeys [--compform #form],
			     loc.cat.subcat    <! [ loc.cat.head.cform #form ] !>
                     ]].

adj-scomp-v2-prd-le := adj-scomp-v2-prd-sign-lex &
		       reg-adj-morph-le & 
		       reg-keyrel-lex &
		       nonv-reg-subj-lex &
		       reg-comp-lex & 
		       [synsem [lkeys [--compform #form],
				loc [cat.subcat    <! [ loc [cont.hook.ltop #auxhand,
							     cat.head.cform #form ]] !> ,
				     CONT [ KEY #k &[ ARG2 #auxhand ],
					    rels <! #k !>] ] ]].

adj-scomp-subj-prd-le := adj-scomp-subj-prd-sign-lex &
			 reg-adj-morph-le & 
			 reg-keyrel-lex &
			 nonv-reg-subj-lex &
			 [synsem [lkeys [--subjform #form],
				  loc.cat.head.subj <[loc.cat.head.cform #form ]>
					]].


adj-inf-subj-prd-le := adj-inf-subj-prd-sign-lex &
		     reg-adj-morph-le & 
		       reg-keyrel-lex.

adj-mass-np-le := adj-mass-np-lex &
		  reg-adj-morph-le & 
		  reg-keyrel-lex.

part-mass-np-le := part-mass-np-lex &
		   reg-keyrel-lex.
intersect-adv-le := 
		    intersect-adv-lex &
		    reg-keyrel-lex.

grad-intersect-adv-le := grad-intersect-adv-lex &
			 reg-keyrel-lex &
			 [ SYNSEM [ LOC.CONT.ALTKEY.PRED #akey,
				    lkeys.altkeyrel #akey ] ].

iterative-adv-le := iterative-adv-lex &
		    [ synsem [ loc.cont.altkey.carg #num,
			       lkeys.keytag #num ] ].
 
temp-adv-le := 
	       intersect-adv-lex &
	       reg-keyrel-lex.

pron-adv-le := 
	       pron-mod-adv-lex &
	       reg-keyrel-lex.

pron-comp-pp-le := 
		   pron-comp-pp-lex &
		   reg-keyform-lex.
rp-full-pron-comp-pp-le := 
			   rp-full-pron-comp-pp-lex &
			   reg-keyform-lex.
rp-pron-comp-pp-le := 
		      rp-pron-comp-pp-lex &
		      reg-keyform-lex.
		      
rp-pron-mod-pp-le := 
		     rp-pron-mod-pp-lex &
		     [ synsem [ loc.cont.key #reln & [psort #sort],
				lkeys [keyrel #reln,
				       keysort #sort] ]].
pron-mod-pp-le := pron-noun-mod-pp-lex &
		  [ synsem [ loc.cont.key #reln & [psort #sort],
			     lkeys [keyrel #reln,
				    keysort #sort] ]].
		  
pron-prd-pp-le := pron-prd-pp-lex &
		  [ synsem [ loc.cont.key #reln & [psort #sort ],
			     lkeys [ keyrel #reln,
				     keysort #sort ] ] ].

prd-adv-pp-le := prd-adv-pp-lex &
		 reg-keyrel-lex &
		 reg-keysort-lex.

scopal-adv-le := scopal-adv-lex &
		 reg-keyrel-lex &
		 [ synsem.loc.cat.head.top bool ].

scopal-adv-top--le := scopal-adv-lex &
		      reg-keyrel-lex &
		      [ synsem.loc.cat.head.top - ].

scopal-quant-adv-le := scopal-quant-adv-lex &
		       reg-keyrel-lex &
		       [ synsem [ lkeys [ altkeyrel #reln,
					  alt2keyrel #preprel,
					  keyagr2 #agr,
					  keysort #sort ],
				  loc.cont [ key.arg0 [ sort #sort,
							png #agr ],
					     altkey #reln,
					     rels.list < #preprel, ... > ] ] ]. 

focus-part-le := scopal-adv-lex &
		 reg-keyrel-lex.

recip-adv-le := recip-adv-lex &
		reg-keyrel-lex &
		[ synsem [ lkeys [ --compsort #csort,
				   keysort #ksort ],
			   loc.cont.key [ arg1.sort #csort,
					  psort #ksort ] ] ].

partikel-le := partikel-lex &
	       reg-keyrel-lex.

strong-det-le := strong-det-lex &
		 reg-keyrel-lex &
		 [ morph <! [ HEAD.INFL.UNIAGR #agr ] !>,
		   synsem [ lkeys [ keyagr #agr,
				    keyform #def ],
			    loc.cat.head.def #def ] ].

strong-det-next-le :=
		    strong-det-le &
		    [ synsem.loc.cat.head.spec.loc [ cat.subcat <![ loc.cat.drop-det - ]!>,
						     uniagr c-s-g,
						     cont.hook.index [ sort time ] ] ].



weak-det-le := weak-det-lex &
	       reg-keyrel-lex &
	       [ morph <! [ HEAD.INFL.UNIAGR #agr ] !>,
		 synsem [ lkeys [ keyagr #agr,
				  keyform #def ],
			  loc.cat.head.def #def ] ].



unflex-rel-pron-np-le := unflex-rel-pron-np-lex &
			 reg-keysort-lex &
			 [ synsem [ lkeys.keyagr #agr & [png 3-n-g],
				    loc.uniagr #agr ] ].

unflex-rel-pron-det-le := unflex-rel-pron-det-lex &
			  [ synsem [ lkeys.keyagr2 #agr,
				     loc.cont.altkey.arg0.png #agr ] ].
			  
rel-pron-adv-le := rel-pron-adv-lex &
		   reg-keyrel-lex &
		   [ synsem [ lkeys.keysort #sort,
			      loc.cont.key.psort #sort ] ].

det-le := det-lex &
	  reg-keyrel-lex &
	  [ synsem [ lkeys [ keyform #def,
			     keyagr #agr,
			     keysort #sort ],
		     loc [ cat.head.def #def,
			   cont.hook.index.sort #sort ] ],
	    morph <! [ head.infl.uniagr #agr ] !> ].

unflex-det-le := unflex-det-lex &
		 reg-keyrel-lex &
		 [ synsem [ lkeys [ keysort #sort,
				    keyform #def,
				    keyagr #agr ],
			    loc [ cat.head [ def #def,
					     infl.uniagr #agr ],
				  cont.hook.index.sort #sort ] ] ].

mass-grad-det-le := mass-grad-det-lex & 
		    [ synsem [ lkeys [ keysort #sort, 
				       altkeyrel #reln, 
				       keyagr #agr, 
				       keyform #form ], 
			       loc [ cat.head [ def #form, 
						infl.uniagr #agr ], 
				     cont [ altkey.pred #reln, 
					    hook.index.sort #sort ]]]].

grad-det-le := int-grad-det-lex &
	       [ synsem [ lkeys [ altkeyrel #akey,
				  alt2keyrel #a2key ],
			  loc.cont [ altkey.pred #akey,
				     rels.list < [pred "udef_q_rel"], [ pred #a2key ], ... >  ]]]. 

q-pron-det-le := q-det-lex.
unflex-q-pron-det-le := unflex-q-det-lex.

q-grad-det-le := q-grad-det-lex &
		 [ synsem [ lkeys.altkeyrel #reln,
			    loc.cont.altkey.pred #reln ] ].

q-pron-adv-le := wh-adv-lex &
		 [ synsem [ lkeys [keyrel #reln,
				   altkeyrel #akeyrel],
			    loc.cont [key #reln,
				      rels <! [], [], [ pred #akeyrel ] !> ] ]].

q-pron-adv-sym-le := wh-adv-lex &
		     reg-keyrel-lex &
		     [synsem [ lkeys.altkeyrel #srel,
			       loc.cont.rels <! [], [], [ pred #srel ] !> ] ].

q-pron-grad-adv-le := wh-grad-adv-lex &
		      [ synsem [ lkeys.altkeyrel #arel,
				 loc.cont.altkey.pred #arel ] ].

q-pron-grad-adv-sym-le := wh-grad-adv-lex &
			  [ synsem [ lkeys.altkeyrel #arel,
				     loc.cont.altkey.pred #arel ] ].

q-pron-noun-le := q-pron-noun-sg-lex &
		  reg-keysort-lex &
		  [ synsem [ lkeys [ altkeyrel #akey,
				     keyagr #agr ],
			     loc [ uniagr #agr,
				   cont [ altkey.pred #akey ]]]].

q-pron-noun-dflex-le := q-pron-noun-dflex-lex &
			reg-keysort-lex &
			[ synsem [ lkeys.altkeyrel #ak,
				   loc.cont.altkey.pred #ak ] ].

q-pron-pp-le := q-pron-pp-lex &
		reg-keyform-lex &
		reg-keysort-lex.

relpron-pron-pp-le := relpron-pron-pp-lex &
		      reg-keyform-lex &
		      reg-keysort-lex.

quantifier-np-le := quantifier-np-lex &
		    reg-keyrel-lex &
		    [ synsem [ lkeys [ altkeyrel #quant,
				       keyagr #agr ],
			       loc [ uniagr #agr,
				     cont.altkey.pred #quant ] ] ].

quantifier-np-top-_le := 
			 quantifier-np-le &
			 [ synsem.loc.cat.head.top -].


flex-quantifier-np-le := flex-quantifier-np-lex &
			 reg-keyrel-lex &
			 [ synsem [ lkeys [ altkeyrel #quant,
					    keyagr #agr ],
				    loc [ uniagr #agr,
					  cont.altkey.pred #quant ]]].

pers-pron-le := personal-pronoun-lex &
		reg-key-lex &
		[ synsem [ lkeys [ keyagr #agr,
				   keyagr2 #agr2 ],
			   loc [ uniagr #agr & [ PNG #agr2 ] ] ] ].

poss-pers-pron-le := 
		     poss-pers-pronoun-lex &
		     reg-keysort-lex &
		     [ synsem [ lkeys [ altkeyrel #alt,
					keyagr #agr,
					keyagr2 #agr2 ],
				loc [ cont.altkey [pred #alt ,
						   ARG0 [png #agr2]],
				      uniagr #agr  ] ] ].

		
refl-pers-pron-le := 
		     pers-pron-le &
		     [ SYNSEM.LOC.CONT.HOOK.INDEX refl_ind ].

pers-pron-top-_le := 
		     pers-pron-le & 
		     [ synsem.loc.cat.head.top - ].
		
refl-pron-le := refl-pronoun-lex &
		[ synsem [ lkeys [ keyagr #agr,
				   keyagr2 #agr2 ],
			   loc.uniagr #agr & [ PNG #agr2 ] ] ].
 
d-pron-le := d-pron-lex & reg-key-lex.

unflex-d-pron-le := unflex-d-pron-lex &
		    reg-key-lex &
		    [ synsem [ lkeys [keyagr #agr,
				      keyagr2 #png],
			       loc.uniagr #agr & [png #png]]].

poss-pron-le := reg-morph-le &
		poss-pron-lex &
		[ synsem [ lkeys [ keyagr2 #agr2,
				   keysort #sort ],
			   loc.cont.altkey.arg0 [ png #agr2,
						  sort #sort ]]].

poss-pron-unflex-le := reg-morph-le &
		       poss-pron-unflex-lex &
		       [ synsem [ lkeys [ keyagr2 #agr2,
					  keysort #sort ],
				  loc.cont.altkey.arg0 [ png #agr2,
							 sort #sort ]]].

proper-noun-le := proper-noun-lex &
		  reg-keysort-lex &
		  reg-keyagr-lex &
		  [ poss-aff -,
		    synsem [ lkeys [ keyagr #agr,
				     keytag #reln ],
			     loc [ cont.key.carg #reln ]],
		    morph <! [ head.infl.uniagr #agr ] !> ].
			     
			
proper-noun-name-le := no-gend-proper-noun-lex &
		       reg-keysort-lex &
		       reg-keyagr-lex &
		       [poss-aff -,
			synsem [ lkeys [ keytag #reln,
					  keyagr #agr ],
				  loc [ cont.key.carg #reln ]],
			 morph <! [ head.infl.uniagr #agr ] !> ].
	   

proper-noun-det-le := proper-noun-det-lex &
		      reg-keysort-lex &
		      reg-keyagr-lex &
		       [poss-aff -,
			synsem [ lkeys.keytag #reln,
				  loc.cont.key.carg #reln ]].

unknown-proper-name-le := no-gend-proper-name-lex &
			  reg-keysort-lex &
			  reg-keyagr-lex &
			  [poss-aff -,
			   synsem [ lkeys [ keyagr #agr ],
				     loc [ cont.key unk_rel ]],
			    morph <! [ head.infl.uniagr #agr ] !> ].

anrede-title-noun-le := title-gender-noun-lex &
			reg-keysort-lex &
			[synsem [ lkeys.keyrel #reln,
				   loc.cont.key.pred #reln ]].

title-noun-le := title-noun-lex &
		 reg-keysort-lex &
		 reg-keyagr-lex &
		 [ synsem [ lkeys [ keyagr #agr,
				    keyrel #reln ],
			    loc [ cont.key title_rel & [ PRED #reln ]]],
		   morph <! [ head.infl.uniagr #agr ] !> ].
			    
anrede-form-noun-le := title-gender-noun-lex &
		       reg-keysort-lex &
		       [ synsem [ lkeys.keyrel #reln,
				  loc.cont.key anrede_form_rel & 
					       [ PRED #reln ]]].

count-title-noun-le := title-noun-lex &
		       reg-keysort-lex &
		       reg-keyagr-lex &
		       [ synsem [ lkeys [ keyagr #agr,
					  keyrel #reln ],
				  loc [ cont.key c_title_rel & [ title #reln ]]],
			 morph <! [ head.infl.uniagr #agr ] !> ].


mod-def-prep-le := noun-mod-def-prep-lex &
		   reg-comp-lex &
		   [ synsem [ lkeys [ keysort #psort,
				      keyrel #reln,
				      --compopt -,
				      --compsort #compsort,
				      --subjsort #subjsort ],
			      loc [ cont.key #reln & [ arg0.psort #psort,
						       arg1.sort #subjsort,
						       arg2.sort #compsort,
						       psort #psort,
						       arg0.psort #psort ]]]].
				      


mod-indef-prep-le :=
  noun-mod-indef-prep-lex &
  reg-comp-lex &		    
  [ synsem [ lkeys [ keyrel #reln,
		     keysort #psort,
		     --subjsort #argsort,
		     --compopt -, 
		     --compsort #msort ],
	     loc [ cont [ KEY #reln &
			      [ ARG1.SORT #ARGSORT,
				ARG2.SORT #MSORT,
				psort #psort,
				ARG0.PSORT #PSORT ]]]]].

		
mod-prep-le := noun-mod-prep-lex &
	       reg-comp-lex &
	       [ synsem [ lkeys [ --compopt -,
				  keyrel #reln,
				  keysort #psort,
				  --subjsort #msort,
				  --compsort #argsort ],
			  loc.cont [ KEY #reln  &
					   [ ARG1.SORT #MSORT,
					     ARG2.SORT #ARGSORT,
					     psort #psort,
					     ARG0.PSORT #PSORT ] ] ] ].

noun-mod-prep-le := noun-mod-prep-lex &
		    reg-comp-lex &
		    [ synsem [ lkeys [ keyrel #reln,
				       keysort #psort,
				       --subjsort #msort,
				       --compopt -,
				       --compsort #argsort ],
			       loc [ cat [ head.verbmodposs - ],
				     cont [ KEY #reln & 
						[ ARG1.SORT #MSORT,
						  ARG2.SORT #ARGSORT,
						  psort #psort,
						  ARG0.PSORT #PSORT ] ]]]].

			    
verb-mod-prep-le :=  full-adj-or-verb-mod-prep-lex & 
		     reg-comp-lex &
		     [ synsem [ lkeys [ --compopt -,
					keyrel #reln,
					keysort #psort,
					--subjsort #msort,
					--compsort #argsort ],
				loc [ cont [ KEY #reln &
						 [ ARG1.SORT #MSORT,
						   ARG2.SORT #ARGSORT,
						   psort #psort,
						   ARG0.PSORT #PSORT ] ] ] ] ].

mod-postp-le :=
	       noun-mod-postp-lex &
	       reg-comp-lex &
	       [synsem [ lkeys [--compopt -,
				keyrel #reln,
				--compsort #msort,
				--subjsort #argsort,
				keysort #psort],
			 loc.cont.key #reln & [ARG1.SORT #ARGSORT,
					       ARG2.SORT #MSORT,
					       psort #psort,
					       ARG0.PSORT #PSORT
							 ] ]
		       ] .
wechsel-prep-le :=
		  noun-mod-wechsel-prep-lex &
		  reg-comp-lex & 
		  [synsem [ lkeys [keyrel #reln,
				   --compopt -,
				   --compsort #msort,
				   --subjsort #argsort,
				   keysort #psort],
			    loc [cont [ KEY #reln & 
					    [ARG1.SORT #ARGSORT,
					     ARG2.SORT #MSORT,
					     ARG0.PSORT #psort] ]
				      ]
				  ]
			  ].


def-prd-prep-le :=
		  def-prd-prep-lex & 
		  reg-comp-lex & 
		  [synsem [lkeys [--compopt -,
				  --compagr #cas,
				  keyrel #reln,
				  --subjsort #argsort,
				  --compsort #msort,
				  keysort #psort],
			   loc [ cat.subcat <! [ loc.uniagr #cas ] !>,
				 cont [ KEY #reln & [ARG1.SORT #ARGSORT,
						     ARG2.SORT #MSORT,
						     psort #psort,
						     ARG0.PSORT #PSORT] ]
					    ]
				 ]
			  ].
prd-prep-le :=
		 full-prd-prep-lex & 
		 reg-comp-lex & 
		 [synsem [lkeys [--compopt -,
			       --compagr #cas,
				 keyrel #reln,
				 --subjagr #agr,
				 --subjsort #argsort,
				 --compsort #msort,
				 keysort #psort],
			  loc [ cat [subcat <! [ loc.uniagr #cas ] !>],
				cont [ KEY #reln & [ARG1 [PNG #agr,
							  SORT #ARGSORT],
						    ARG2.SORT #MSORT,
						    psort #psort,
						    ARG0.PSORT #PSORT
							      ] ]
					   ]
				]
			 ].  

comp-prep-le :=
	       comp-prep-lex &
	       reg-comp-lex &
	       [synsem [lkeys [--compopt -,
			       keyform #pform,
			       keyagr #cas],
			loc [cat.head.pform #pform,
			     uniagr #cas]
			      ]].  

zu-comp-prep-le :=
		  comp-prep-lex &
		  reg-comp-lex &
		  [synsem [lkeys [keyform #pform,
				  keyagr #cas],
			   loc [cat.head zu-comp-prep-head & [pform #pform],
				uniagr #cas]
				 ]].  


comp-def-prep-le :=
		   comp-def-prep-lex & 
		   reg-comp-lex &
		   [synsem [lkeys [keyform #pform,
				   keyagr #cas],
			    loc [ cat.head.pform #pform,
				  uniagr #cas]]].


noun-mod-pp-prep-le :=
		      noun-mod-pp-prep-lex &
		      [synsem [lkeys [keyrel #reln,
				      --subjsort #argsort,
				      --compsort #msort,
				      keysort #psort],
			       loc.cont [ KEY #reln & [ARG1.SORT #ARGSORT,
						       ARG2.SORT #MSORT,
						       ARG0.PSORT #PSORT
								 ] ]
				     ]
			      ].

verb-mod-pp-postp-le :=
		      verb-mod-pp-postp-lex &
		      [synsem [lkeys [keyrel #reln,
				      --subjsort #argsort,
				      --compsort #msort,
				      keysort #psort,
				      --compkey #preln],
			       loc [cat.subcat <! [loc.cont.key #preln ] !>,
				    cont [ KEY #reln & [ARG1.SORT #ARGSORT,
							ARG2.SORT #MSORT,
							ARG0.PSORT #PSORT
								  ] ]
					       ]
				     ]].

verb-mod-pp-prep-le :=
		      verb-mod-pp-prep-lex &
		      [synsem [lkeys [keyrel #reln,
				      --subjsort #argsort,
				      --compsort #msort,
				      keysort #psort],
			       loc.cont [ KEY #reln & [ARG1.SORT #ARGSORT,
						       ARG2.SORT #MSORT,
						       ARG0.PSORT #PSORT
								 ] ]
				     ]
			      ].





intrans-nerg-verb-le :=
		       intrans-nerg-verb-lex &
		       verb-reg-subj-lex &
		       [synsem [lkeys [keyform #form],
				loc [cat [auxf #form,
					  subj <[loc.cont.hook.index #ref]>],
				     cont.key.arg1 #ref]]].

intrans-nerg-particle-verb-le :=
				intrans-nerg-particle-verb-lex &
				verb-reg-subj-lex &
				reg-prefixverb-lex &
				[synsem [lkeys [keyform #form],
					 loc [cat [auxf #form,
						   subj <[loc.cont.hook.index #ref]>],
					      cont.key.arg1 #ref]]].

intrans-nerg-particle-separat-verb-le :=
				intrans-nerg-particle-separat-verb-lex &
				verb-reg-subj-lex &
				reg-prefixverb-lex &
				[synsem [lkeys [keyform #form],
					 loc [cat [auxf #form,
						   subj <[loc.cont.hook.index #ref]>],
					      cont.key.arg1 #ref]]].


intrans-erg-verb-le :=
		      intrans-erg-verb-lex &
		      verb-reg-subj-lex &
		      [synsem [lkeys [keyform #form],
			       loc [cat [head.vform #form,
					  subj <[loc.cont.hook.index #ref]>],
				    cont.key.arg1 #ref]]].

intrans-erg-particle-verb-le :=
				intrans-erg-particle-verb-lex &
				verb-reg-subj-lex &
				reg-prefixverb-lex &
			       [synsem [lkeys [keyform #form],
					loc [cat [head.vform #form,
						  subj <[loc.cont.hook.index #ref]>],
					     cont.key.arg1 #ref]]].

intrans-theme-verb-le :=
			intrans-theme-verb-lex &
			verb-reg-subj-lex &
			[synsem [loc [cat.subj <[loc.cont.hook.index #ref]>,
				      cont.key.arg1 #ref]]].

intrans-theme-particle-verb-le :=
				 intrans-theme-particle-verb-lex &
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 [synsem [loc [cat.subj <[loc.cont.hook.index #ref]>,
					       cont.key.arg1 #ref]]].


intrans-refl-verb-le :=
			intrans-refl-verb-lex &
			verb-reg-subj-lex &
				[synsem [lkeys [--compagr #agr],
					 loc [cat [subj <[loc.cont.hook.index #ref]>,
						   subcat <! [loc.uniagr #agr] !>],
					      cont.key.arg1 #ref]]].

intrans-refl-particle-verb-le :=
				intrans-refl-particle-verb-lex &
				verb-reg-subj-lex &
				reg-prefixverb-lex &
				[synsem [lkeys [--compagr #agr],
					 loc [cat [subj <[loc.cont.hook.index #ref]>,
						   subcat <! [loc.uniagr #agr] !>],
					      cont.key.arg1 #ref]]].


intrans-expl-nerg-verb-le :=
			    reg-key-lex &
			    intrans-expl-nerg-verb-lex. 

intrans-expl-nerg-particle-verb-le :=
				intrans-expl-nerg-particle-verb-lex &
				reg-prefixverb-lex. 



trans-nerg-str-expl-verb-le :=
			      trans-nerg-str-expl-verb-lex &
			      reg-comp-lex &
			      reg-key-lex &
			      [synsem.loc [ cat.subcat <! [ loc.cont.hook.index #ref1] !>,
						     cont.key [arg1 #ref1 ] ]].


trans-nerg-str-expl-particle-verb-le :=
				       trans-nerg-str-expl-particle-verb-lex &
				       reg-comp-lex &
				       reg-prefixverb-lex &
				       [synsem.loc [ cat.subcat <! [ loc.cont.hook.index #ref1] !>,
						     cont.key [arg1 #ref1 ] ]].



trans-refl-nerg-verb-le :=   
			trans-refl-nerg-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [lkeys [--ocompagr #agr],
				 loc [ cat [ subj <[loc.cont.hook.index #ref1]>,
					     subcat  <! 
						      [loc.cont.hook.index #ref2],
						      [loc.uniagr #agr] !>
						  ],
				       cont [key [arg1 #ref1,
						  arg2 #ref2 ]
						 ]]]].

trans-refl-nerg-particle-verb-le :=   
					   trans-refl-nerg-particle-verb-lex & 
					   verb-reg-subj-lex &
					   reg-prefixverb-lex &
					   reg-comp-lex &
					   [synsem [lkeys [--ocompagr #agr],
						    loc [ cat [subj <[loc.cont.hook.index #ref1]>,
							       subcat  <! 
									[loc.cont.hook.index #ref2],
									[loc.uniagr #agr] !>
							  ],
							  cont [key [arg1 #ref1,
								     arg2 #ref2 ]
								    ]]]].

trans-nerg-str-verb-le :=   
			trans-nerg-str-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [lkeys [keyform #form],
				 loc [ cat [ auxf #form,
					     subj <[loc.cont.hook.index #ref1]>,
					     subcat  <! [loc.cont.hook.index #ref2] !>
						  ],
				       cont [key [arg1 #ref1,
						  arg2 #ref2 ]
						 ]]]].

trans-nerg-str-particle-verb-le :=   
				 trans-nerg-str-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [lkeys [keyform #form],
					  loc [ cat [auxf #form,
						     subj <[loc.cont.hook.index #ref1]>,
						     subcat  <! [loc.cont.hook.index #ref2] !>
							  ],
						cont [key [arg1 #ref1,
							   arg2 #ref2 ]
							  ]]]].


trans-nerg-lex-verb-le :=   
			trans-nerg-lex-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [lkeys [keyform #form],
				 loc [ cat [ auxf #form,
					     subj <[loc.cont.hook.index #ref1]>,
					     subcat  <! [loc.cont.hook.index #ref2] !>
						  ],
				       cont [key [arg1 #ref1,
						  arg2 #ref2 ]
						 ]]]].

trans-nerg-lex-particle-verb-le :=   
				 trans-nerg-lex-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [lkeys [keyform #form],
					  loc [ cat [auxf #form,
						     subj <[loc.cont.hook.index #ref1]>,
						     subcat  <! [loc.cont.hook.index #ref2] !>
							  ],
						cont [key [arg1 #ref1,
							   arg2 #ref2 ]
							  ]]]].

trans-nerg-lex-particle-separat-verb-le :=   
				 trans-nerg-lex-particle-separat-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [lkeys [keyform #form],
					  loc [ cat [auxf #form,
						     subj <[loc.cont.hook.index #ref1]>,
						     subcat  <! [loc.cont.hook.index #ref2] !>
							  ],
						cont [key [arg1 #ref1,
							   arg2 #ref2 ]
							  ]]]].

trans-erg-verb-le :=   
			trans-erg-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [lkeys [keyform #form],
				 loc [ cat [ auxf #form,
					     subj <[loc.cont.hook.index #ref1]>,
					     subcat  <! [loc.cont.hook.index #ref2] !>
						  ],
				       cont [key [arg1 #ref1,
						  arg2 #ref2 ]
						 ]]]].

trans-erg-particle-verb-le :=   
				 trans-erg-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [lkeys [keyform #form],
					  loc [ cat [auxf #form,
						     subj <[loc.cont.hook.index #ref1]>,
						     subcat  <! [loc.cont.hook.index #ref2] !>
							  ],
						cont [key [arg1 #ref1,
							   arg2 #ref2 ]
							  ]]]].

trans-theme-verb-le :=   
			  trans-theme-verb-lex & 
			  verb-reg-subj-lex &
			  reg-comp-lex &
			  [synsem.loc [ cat [ subj <[loc.cont.hook.index #ref2]>,
						       subcat  <! [loc.cont.hook.index #ref1] !>
							    ],
						 cont [key [arg1 #ref1,
							    arg2 #ref2 ]
							   ]]].


trans-theme-particle-verb-le :=   
				   trans-theme-particle-verb-lex & 	
				   verb-reg-subj-lex &
				   reg-prefixverb-lex &
				   reg-comp-lex &
				   [synsem.loc [ cat [ subj <[loc.cont.hook.index #ref2]>,
						       subcat  <! [loc.cont.hook.index #ref1] !>
							    ],
						 cont [key [arg1 #ref1,
							    arg2 #ref2 ]
							   ]]].



subjless-np-verb-le :=
		      subjless-np-verb-lex &
		      reg-key-lex &
		      reg-comp-lex &
			       [synsem.loc [cat.subcat   <! [loc.cont.hook.index #ref] !>,
					    cont.key.arg1 #ref ]
				].


subjless-np-particle-verb-le :=
			       subjless-np-particle-verb-lex &
			       reg-prefixverb-lex &
			       reg-comp-lex &
			       [synsem.loc [cat.subcat   <! [loc.cont.hook.index #ref] !>,
					    cont.key.arg1 #ref ]
				].

subjless-np-pp-verb-le :=
			 subjless-np-pp-verb-lex & 
			 reg-key-lex &
			 reg-ocomp-comp-lex &
			 [synsem [ lkeys [--ocompform #form],
				   loc [ cat [ subcat   <!  
							 [ loc [cat.head.pform #form,
								cont.hook.index #ref2]],
							 [loc.cont.hook.index #ref1] 
							 !>
							],
					 cont [ KEY [ARG1 #ref1,
						     ARG2 #ref2]
						]
					     ]
					 ]
				 ]. 


ditrans-nerg-verb-le :=
				ditrans-nerg-verb-lex & 
				verb-reg-subj-lex &
				reg-ocomp-comp-lex &
				[synsem.loc [cat [subj <[loc.cont.hook.index #ref1 ]>,
						  subcat  <! 
							   [loc.cont.hook.index #ref3 ],
							   [loc.cont.hook.index #ref2 ]
							   !>
						       ],
					     cont [KEY [arg1 #ref1,
							arg2 #ref2,
							arg3 #ref3 ]
						       ]
						 ]].


ditrans-nerg-particle-verb-le :=
				ditrans-nerg-particle-verb-lex & 
				verb-reg-subj-lex &
				reg-prefixverb-lex &
				reg-ocomp-comp-lex &
				[synsem.loc [cat [subj <[loc.cont.hook.index #ref1 ]>,
						  subcat  <! 
							   [loc.cont.hook.index #ref3 ],
							   [loc.cont.hook.index #ref2 ]
							   !>
						       ],
					     cont [KEY [arg1 #ref1,
							arg2 #ref2,
							arg3 #ref3 ]
						       ]
						 ]].


trans-free-dat-verb-le :=
				trans-free-dat-verb-lex & 
				verb-reg-subj-lex &
				reg-ocomp-comp-lex &
				[synsem.loc [cat [subj <[loc.cont.hook.index #ref1 ]>,
						  subcat  <! 
							   [],
							   [loc.cont.hook.index #ref2 ]
							   !>
						       ],
					     cont [KEY [arg1 #ref1,
							arg2 #ref2]
						       ]
						 ]].
trans-free-dat-particle-verb-le :=
				  trans-free-dat-particle-verb-lex & 
				  verb-reg-subj-lex &
				  reg-prefixverb-lex &
				  reg-ocomp-comp-lex &
				  [synsem.loc [cat [subj <[loc.cont.hook.index #ref1 ]>,
						    subcat  <! 
							     [],
							     [loc.cont.hook.index #ref2 ]
							     !>
							 ],
					       cont [KEY [arg1 #ref1,
							  arg2 #ref2]
							 ]
						   ]].


expl-pp-verb-le  :=
		   expl-pp-verb-lex & 
		   reg-comp-lex &
		   reg-key-lex &
		   [synsem [lkeys [keyform #kform,
				   --compform #form],
			    loc [ cat [auxf #kform,
				       subcat  <! 
						[loc [cat.head.pform #form,  
						      cont.hook.index #ref1]] 
						!>],
				  cont [key [arg1 #ref1
						  ]
					    ]
				      ]
				  ]].

expl-pp-particle-verb-le  :=
			    expl-pp-particle-verb-lex & 
			    reg-comp-lex &
			    reg-prefixverb-lex &
			    [synsem [lkeys [keyform #kform,
					    --compform #form],
				     loc [ cat [auxf #kform,
						subcat  <! 
							 [loc [cat.head.pform #form,  
							       cont.hook.index #ref1]] 
							 !>],
					   cont [key [arg1 #ref1
							   ]
						     ]
					       ]
					   ]].



expl-np-pp-verb-le  :=
		      expl-np-pp-verb-lex & 
		      reg-ocomp-comp-lex &
		      reg-key-lex &
		      [synsem [lkeys [keyform #kform,
				      --ocompform #form],
			       loc [ cat [auxf #kform,
					  subcat  <! 
						   [loc [cat.head.pform #form,  
							 cont.hook.index #ref2]],
						   [loc.cont.hook.index #ref1]
						   !>],
				     cont [key [arg1 #ref1,
						arg2 #ref2
						     ]
					       ]
					 ]
				     ]].



expl-np-pp-particle-verb-le  :=
			       expl-np-pp-particle-verb-lex & 
			       reg-prefixverb-lex &
			       reg-ocomp-comp-lex &
			       [synsem [lkeys [keyform #kform,
					       --ocompform #form],
					loc [ cat [auxf #kform,
						   subcat  <! 
							    [loc [cat.head.pform #form,  
								  cont.hook.index #ref2]],
							    [loc.cont.hook.index #ref1]
							    !>],
					      cont [key [arg1 #ref1,
							 arg2 #ref2
							      ]
							]
						  ]
					      ]].


np-pp-verb-le  :=
				  np-pp-verb-lex & 
				  verb-reg-subj-lex &
				  reg-comp-lex &
				  [synsem [lkeys [--compform #form,
						  keyform #kform],
					   loc [ cat [ auxf #kform,
						       subj <[ loc.cont.hook.index #ref1]>,
						       subcat  <! 
								[loc [cat.head.pform #form,  
								      cont.hook.index #ref2]] 
								!>],
						 cont [key [arg1 #ref1,
							    arg2 #ref2
								 ]
							   ]
						     ]
						 ]].


np-pp-particle-verb-le  :=
				  np-pp-particle-verb-lex & 
				  verb-reg-subj-lex &
				  reg-prefixverb-lex &
				  reg-comp-lex &
				  [synsem [lkeys [--compform #form,
						  keyform #kform],
					   loc [ cat [ auxf #kform,
						       subj <[ loc.cont.hook.index #ref1]>,
						       subcat  <! 
								[loc [cat.head.pform #form,  
								      cont.hook.index #ref2]] 
								!>],
						 cont [key [arg1 #ref1,
							    arg2 #ref2
								 ]
							   ]
						     ]
						 ]].



np-pp-particle-separat-verb-le  :=
				  np-pp-particle-separat-verb-lex & 
				  verb-reg-subj-lex &
				  reg-prefixverb-lex &
				  reg-comp-lex &
				  [synsem [lkeys [--compform #form,
						  keyform #kform],
					   loc [ cat [ auxf #kform,
						       subj <[ loc.cont.hook.index #ref1]>,
						       subcat  <! 
								[loc [cat.head.pform #form,  
								      cont.hook.index #ref2]] 
								!>],
						 cont [key [arg1 #ref1,
							    arg2 #ref2
								 ]
							   ]
						     ]
						 ]].


np-pp-theme-verb-le  :=
			      np-pp-erg-verb-lex & 
			      verb-reg-subj-lex &
			      reg-comp-lex &
			      [synsem [lkeys [--compform #form,
						  keyform #kform],
				       loc [ cat [ auxf #kform,
						   subj <[ loc.cont.hook.index #ref1]>,
						   subcat  <! 
							    [loc [cat.head.pform #form,  
								  cont.hook.index #ref2]] 
							    !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2
								]
							  ]
						 ]
					     ]].


np-pp-theme-particle-verb-le  :=
			      np-pp-erg-particle-verb-lex & 
			      verb-reg-subj-lex &
			      reg-prefixverb-lex &
			      reg-comp-lex &
			      [synsem [lkeys [--compform #form,
						  keyform #kform],
				       loc [ cat [ auxf #kform,
						   subj <[ loc.cont.hook.index #ref1]>,
						   subcat  <! 
							    [loc [cat.head.pform #form,  
								  cont.hook.index #ref2]] 
							    !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2
								]
							  ]
						 ]
					     ]].


np-pp-erg-verb-le  :=
				 np-pp-erg-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-comp-lex &
				 [synsem [lkeys [--compform #form],
					  loc [ cat [ auxf sein-auxf,
						      subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! 
							       [loc [cat.head.pform #form,  
								     cont.hook.index #ref2]] 
							       !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2
								]
							  ]
						    ]
						]].

np-pp-erg-particle-verb-le  :=
			      np-pp-erg-particle-verb-lex & 
			      verb-reg-subj-lex &
			      reg-prefixverb-lex &
			      reg-comp-lex &
			      [synsem [lkeys [--compform #form],
				       loc [ cat [ auxf sein-auxf,
						   subj <[ loc.cont.hook.index #ref1]>,
						   subcat  <! 
							    [loc [cat.head.pform #form,  
								  cont.hook.index #ref2]] 
							    !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2
								]
							  ]
						 ]
					     ]].


refl-pp-verb-le  :=
				 refl-pp-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-comp-lex &
				 [synsem [lkeys [--ocompagr #ocomp,
						 --compform #form],
					  loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! 
							       [loc [cat.head.pform #form,  
								     cont.hook.index #ref2]],
							       [loc.uniagr #ocomp]
							       !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2
								]
							  ]
						    ]
						]].

refl-pp-particle-verb-le  :=
			    refl-pp-particle-verb-lex & 
			    verb-reg-subj-lex & 
			    reg-prefixverb-lex &
			    reg-comp-lex &
			    [synsem [lkeys [--ocompagr #ocomp,
					    --compform #form],
				     loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						 subcat  <! 
							  [loc [cat.head.pform #form,  
								cont.hook.index #ref2]],
							  [loc.uniagr #ocomp]
							  !>],
					   cont [key [arg1 #ref1,
						      arg2 #ref2
							   ]
						     ]
					       ]
					   ]].


np-np-acc-pp-verb-le  :=
				 np-np-acc-pp-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-ocomp-comp-lex &
				 [synsem [lkeys [--ocompform #form],
					  loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! [loc [cat.head.pform #form,  
									cont.hook.index #ref3]],
							       [loc.cont.hook.index #ref2] !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2,
							   arg3 #ref3 ]
							  ]
						    ]
						]].


np-np-acc-pp-particle-verb-le  :=
				 np-np-acc-pp-particle-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-prefixverb-lex &
				 reg-ocomp-comp-lex &
				 [synsem [lkeys [--ocompform #form],
					  loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! [ loc [cat.head.pform #form,  
									cont.hook.index #ref3]],
							       [loc.cont.hook.index #ref2] !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2,
							   arg3 #ref3 ]
							  ]
						    ]
						]].

np-np-dat-control-verb-le  :=
			     np-np-dat-control-verb-lex & 
			     verb-reg-subj-lex & 
			     reg-comp2-lex &
			     [synsem.loc [ cat [subj <[loc.cont.hook.index #ref1]>,
						subcat  <!
							 [loc.cont.hook.ltop #l],
							 [loc.cont.hook.index #ref2]
							 !> ],
					   cont [key [ARG1 #ref1,
						      ARG2 #ref2,
						      ARG3 #ref3
								],
						 rels <! [],[LBL #ref3,
							     MARG #h]!>,
						 hcons <! qeq & [harg #h,
								 larg #l]!>] ] 
					 ]. 


np-np-acc-pp-control-verb-le :=
			     np-np-acc-pp-control-verb-lex & 
			     verb-reg-subj-lex & 
			     reg-ocomp2-comp3-lex &
			     [synsem [lkeys [--ocompform #form],
				      loc [ cat [subj <[loc.cont.hook.index #ref1]>,
						 subcat  <!
							  [loc.cont [hook.index #ev]],
							  [loc [cat.head.pform #form,
								cont.key [lbl #ref3,
									  arg1 #ev]]],
							  [loc.cont.hook.index #ref2]
							       !> ],
						 cont [key [ARG1 #ref1,
							   ARG2 #ref2,
							   ARG3 #ref3
								],
						       rels <! [],[LBL #ref3]!>]
						      ]
						]
				     ].


np-np-acc-pp-control-particle-verb-le :=
					np-np-acc-pp-control-particle-verb-lex & 
					verb-reg-subj-lex & 
					reg-prefixverb-lex &
					reg-ocomp2-comp3-lex &
					[synsem [lkeys [--ocompform #form],
						 loc [ cat [subj <[loc.cont.hook.index #ref1]>,
							    subcat  <!
								     [loc.cont [hook.index #ev]],
								     [loc [cat.head.pform #form,
									   cont.key [lbl #ref3,
										     arg1 #ev]]],
								     [loc.cont.hook.index #ref2]
								     !> ],
						 cont [key [ARG1 #ref1,
							    ARG2 #ref2,
							    ARG3 #ref3
								],
						       rels <! [],[LBL #ref3]!>]
						       ]
						       ]
						].



np-np-dat-pp-verb-le  :=
				 np-np-dat-pp-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-ocomp-comp-lex &
				 [synsem [lkeys [--ocompform #form],
					  loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! [ loc [cat.head.pform #form,  
									cont.hook.index #ref3]],
							       [loc.cont.hook.index #ref2] !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2,
							   arg3 #ref3 ]
							  ]
						    ]
						]].

np-np-dat-pp-particle-verb-le  :=
				 np-np-dat-pp-particle-verb-lex & 
				 verb-reg-subj-lex & 
				 reg-prefixverb-lex &
				 reg-ocomp-comp-lex &
				 [synsem [lkeys [--ocompform #form],
					  loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
						      subcat  <! [ loc [cat.head.pform #form,  
									cont.hook.index #ref3]],
							       [loc.cont.hook.index #ref2] !>],
						cont [key [arg1 #ref1,
							   arg2 #ref2,
							   arg3 #ref3 ]
							  ]
						    ]
						]].


np-expl-pp-verb-le :=
		     np-expl-pp-verb-lex & 
		     verb-reg-subj-lex &
		     reg-comp-lex &
		     [synsem [lkeys [--compform #form],
			      loc [ cat [ subj <[ loc.cont.hook.index #ref1]>,
					  subcat  <! 
						   [loc [cat.head.pform #form,
							 cont.hook.index #ref2]],
						   []   
						   !>
					       ],
				    cont [key [arg1 #ref1,
					       arg2 #ref2]
					      ]
					]
				    ]
			     ]. 


expl-refl-pp-verb-le :=
		       expl-refl-pp-verb-lex & 
		       reg-comp-lex &
		       reg-key-lex &
		       [synsem [lkeys [--compform #form],
				loc [ cat [ subcat  <! [loc [cat.head.pform #form,
							     cont.hook.index #ref1]],
						     []   
						     !>
						    ],
				      cont [key [arg1 #ref1 ]
							]
					  ]
				      ]
			       ]. 

aci-verb-le :=
	      aci-verb-lex & 
	      verb-reg-subj-lex &
	      [synsem.loc.cat.subj <[loc.cat [drop #drop,
					      _drop #drop]]> ]. 


np-scomp-nerg-verb-le :=
			np-scomp-nerg-verb-lex & 			
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [lkeys [--compform #cform],
				 loc [ cat [subj <[loc.cont.hook.index #ref ]>,
					    subcat <! [ LOC [ cat [ head.cform #cform],
							      cont.hook.ltop #ref3 ]] !>
						 ],
				       cont [KEY [ARG1 #ref,
						  ARG2 #ref3 ] ]
					   ]
				       ]
				].


np-scomp-nerg-particle-verb-le :=
				 np-scomp-nerg-particle-verb-lex & 			
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [lkeys [--compform #cform],
					  loc [ cat [subj <[loc.cont.hook.index #ref ]>,
						      subcat <! [ LOC [ cat [ head.cform #cform],
									cont.hook.ltop #ref3 ]] !>        
							  ],
						cont [KEY [ARG1 #ref,
							   ARG2 #ref3 ] ]
						    ]
						]
					 ].


scomp-np-str-nerg-verb-le := 
			scomp-np-str-nerg-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [ lkeys [--subjform #cform],
				  loc [ cat [ subj < [loc [cat.head.cform #cform,
							   CONT.HOOK.LTOP #ref2]]>,
					      subcat <! [loc.cont.hook.index #ref1 ] !>
					      ],
					cont [KEY [ARG1 #ref1,
						   ARG2 #ref2 ] ]
					    ]
					]
				].

scomp-np-str-particle-verb-le := 
				 scomp-np-str-nerg-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-comp-lex &
				 [synsem [ lkeys [--subjform #cform],
					   loc [ cat [ subj < [loc [cat.head.cform #cform,
								    CONT.HOOK.LTOP #ref2] 
								   ]>,
						       subcat <! [loc.cont.hook.index #ref1 ] !>
						       ],
						 cont [KEY [ARG1 #ref1,
							    ARG2 #ref2 ] ]
						     ]
						 ]
					 ].

scomp-np-theme-verb-le := 
			scomp-np-theme-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [ lkeys [--subjform #cform],
				  loc [ cat [ subj < [loc [cat.head.cform #cform,
							   CONT.HOOK.LTOP #ref2] 
							  ]>,
					      subcat <! [loc.cont.hook.index #ref1 ] !>
					      ],
					cont [KEY [ARG1 #ref1,
						   ARG2 #ref2 ] ]
					    ]
					]
				].

scomp-np-theme-particle-verb-le := 
				   scomp-np-theme-particle-verb-lex & 
				   reg-prefixverb-lex &
				   verb-reg-subj-lex &
				   reg-comp-lex &
				   [synsem [ lkeys [--subjform #cform],
					     loc [ cat [ subj < [loc [cat.head.cform #cform,
								      CONT.HOOK.LTOP #ref2] 
								     ]>,
							 subcat <! [loc.cont.hook.index #ref1 ] !>
							      ],
						   cont [KEY [ARG1 #ref1,
							      ARG2 #ref2 ] ]
						       ]
						   ]
					   ].


scomp-np-erg-verb-le  :=
			scomp-np-erg-verb-lex & 
			verb-reg-subj-lex &
			reg-comp-lex &
			[synsem [ lkeys [--subjform #cform],
				  loc [ cat [ subj < [loc [cat.head.cform #cform,
							   CONT.HOOK.LTOP #ref2] 
							  ]>,
					      subcat <! [loc.cont.hook.index #ref1 ] !>
					      ],
					cont [KEY [ARG1 #ref1,
						   ARG2 #ref2 ] ]
					    ]
					]
				].



scomp-np-erg-particle-verb-le  :=
  
				 scomp-np-erg-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-comp-lex &
				 reg-prefixverb-lex &
				 [synsem [ lkeys [--subjform #cform],
					   loc [ cat [ subj < [loc [cat.head.cform #cform,
								    CONT.HOOK.LTOP #ref2] 
								   ]>,
						       subcat <! [loc.cont.hook.index #ref1 ] !>
						       ],
						 cont [KEY [ARG1 #ref1,
							    ARG2 #ref2 ] ]
						     ]
						 ]
					 ].



np-scomp-v2-nerg-verb-le :=
				    np-scomp-v2-nerg-verb-lex & 
				    verb-reg-subj-lex &
				    reg-comp-lex &
				    [synsem [ lkeys [--compform #cform],
					      loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							  subcat <! 
								  [loc [cont.hook.ltop #ref2,
									cat.head.cform #cform
										       ]] !>
							       ],
						    cont [ KEY [ARG1 #ref1,
								ARG2 #ref2
								     ] 
								    ]
							]
						    ]
					    ]. 


np-scomp-v2-nerg-particle-verb-le :=
				    np-scomp-v2-nerg-particle-verb-lex & 
				    verb-reg-subj-lex &
				    reg-prefixverb-lex &
				    reg-comp-lex &
				    [synsem [ lkeys [--compform #cform],
					      loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							  subcat <! 
								  [loc [cont.hook.ltop #ref2,
									cat.head.cform #cform
										       ]] !>
							       ],
						    cont [ KEY [ARG1 #ref1,
								ARG2 #ref2
								     ] 
								    ]
							]
						    ]
					    ]. 


np-refl-scomp-verb-le :=
			np-refl-scomp-verb-lex & 
			verb-reg-subj-lex &
			reg-ocomp-lex &
			[synsem [ lkeys [--ocompform #cform,
					 --compagr #agr],
				  loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
					      subcat <! 
						      comp-synsem &
						      [loc [cat.head.cform #cform,
							    cont.hook.ltop #ref2]],
						      [loc.uniagr #agr] !>
						      ],
					      cont [ KEY [ARG1 #ref1,
							  ARG2 #ref2
							       ] 
							 ]
						   ]
					    ]
					]. 

np-refl-scomp-particle-verb-le :=
				 np-refl-scomp-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-prefixverb-lex &
				 reg-ocomp-lex &
				 [synsem [ lkeys [--ocompform #cform,
						  --compagr #agr],
					   loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
						       subcat <! 
							       comp-synsem &
							       [loc [cat.head.cform #cform,
								     cont.hook.ltop #ref2]],
							       [loc.uniagr #agr] !>
							    ],
						 cont [ KEY [ARG1 #ref1,
							     ARG2 #ref2
								  ] 
							    ]
						     ]
						 ]
					 ]. 


np-refl-int-clause-verb-le :=
			np-refl-int-clause-verb-lex & 
			verb-reg-subj-lex &
			reg-ocomp-lex &
			[synsem [ lkeys [--compagr #agr],
				  loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
					      subcat <! 
						      [loc [cont.hook.ltop #ref2]],
						      [loc.uniagr #agr] !>
						      ],
					      cont [ KEY [ARG1 #ref1,
							  ARG2 #ref2
							       ] 
							 ]
						   ]
					    ]
					]. 


np-refl-int-clause-particle-verb-le :=
				      np-refl-int-clause-particle-verb-lex & 
				      verb-reg-subj-lex &
				      reg-ocomp-lex &
				      reg-prefixverb-lex &
				      [synsem [lkeys [--compagr #agr],
					       loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							   subcat <! 
								   [loc [cont.hook.ltop #ref2]],
								   [loc.uniagr #agr] !>
								],
						     cont [ KEY [ARG1 #ref1,
								 ARG2 #ref2
								      ] 
								]
							 ]
						     ]
					      ]. 



np-scomp-refl-verb-le :=
			np-scomp-refl-verb-lex & 
			verb-reg-subj-lex &
			reg-comp2-lex &
			[synsem [ lkeys [--compform #cform],
				  loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
					      subcat <!
						      [] , 
						      comp-synsem &
						      [loc [cat.head.cform #cform,
							    cont.hook.ltop #ref2]] !>
						      ],
					      cont [ KEY [ARG1 #ref1,
							  ARG2 #ref2
							       ] 
							 ]
						   ]
					    ]
					]. 


np-scomp-refl-particle-verb-le :=
				 np-scomp-refl-particle-verb-lex & 
				 verb-reg-subj-lex &
				 reg-comp2-lex &
				 reg-prefixverb-lex &
				 [synsem [ lkeys [--compform #cform],
					   loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
						       subcat <!
							       [] , 
							       comp-synsem &
							       [loc [cat.head.cform #cform,
								     cont.hook.ltop #ref2]] !>
							    ],
						 cont [ KEY [ARG1 #ref1,
							     ARG2 #ref2
								  ] 
							    ]
						     ]
						 ]
					 ]. 


np-scomp-v2-refl-verb-le :=
				  np-scomp-v2-refl-verb-lex & 
				  verb-reg-subj-lex &
				  reg-comp2-lex &
				  [synsem [ lkeys [--compform #cform],
					    loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							subcat <!
								[] , 
								[loc [cont.hook.ltop #ref2,
								      cat.head.cform #cform]] !>
							],
						  cont [ KEY [ARG1 #ref1,
							      ARG2 #ref2
								   ] 
								  ]
						      ]
						]
					  ]. 


np-scomp-v2-refl-particle-verb-le :=
				    np-scomp-v2-refl-particle-verb-lex & 
				    verb-reg-subj-lex &
				    reg-comp2-lex &
				    reg-prefixverb-lex &
				    [synsem [ lkeys [--compform #cform],
					      loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							  subcat <!
								  [] , 
								  [loc [cont.hook.ltop #ref2,
									cat.head.cform #cform]] !>
							       ],
						    cont [ KEY [ARG1 #ref1,
								ARG2 #ref2
								     ] 
								    ]
							]
						    ]
					    ]. 



np-pp-scomp-verb-le :=
			       np-pp-scomp-verb-lex & 
			       verb-reg-subj-lex &
			       reg-ocomp-comp-lex &
			       [synsem [ lkeys [--ocompform #cform,
						--compform #pform],
					 loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							     subcat <! 
								     [loc [cat.head.cform #cform,
									   cont.hook.ltop #ref3]],
								     [loc [cat.head.pform #pform,
									   cont.hook.index #ref2]]
									   !>
								  ],
					       cont [KEY [ARG1 #ref1,
							  ARG2 #ref2,
							  ARG3 #ref3  
							       ] 
							 ]
						   ]
					       ]
				       ]. 


np-pp-scomp-particle-verb-le :=
			       np-pp-scomp-particle-verb-lex & 
			       verb-reg-subj-lex &
			       reg-ocomp-comp-lex &
			       reg-prefixverb-lex &
			       [synsem [ lkeys [--ocompform #cform,
						--compform #pform],
					 loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							     subcat <! 
								     [loc [cat.head.cform #cform,
									   cont.hook.ltop #ref3]],
								      [loc [cat.head.pform #pform,
									    cont.hook.index #ref2]]
									   !>
								  ],
					       cont [KEY [ARG1 #ref1,
							  ARG2 #ref2,
							  ARG3 #ref3  
							       ] 
							 ]
						   ]
					       ]
				       ]. 


np-scomp-np-verb-le :=
		      np-scomp-np-verb-lex & 
		      verb-reg-subj-lex &
		      reg-ocomp-comp-lex &
		      [synsem [ lkeys [--compform #cform],
				loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
					    subcat <! 
						    [loc.cont.hook.index #ref2],
						    [loc [cat.head.cform #cform,
							  cont.hook.ltop #ref3]] !>
						    ],
				      cont [KEY [ARG1 #ref1,
						 ARG2 #ref2,
						 ARG3 #ref3  
						      ] 
						]
					  ]
				      ]
			      ]. 


np-scomp-np-particle-verb-le :=
				       np-scomp-np-particle-verb-lex & 
				       verb-reg-subj-lex &
				       reg-ocomp-comp-lex &
				       reg-prefixverb-lex &
				       [synsem [ loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							     subcat <! 
								     [loc.cont.hook.index #ref2],
								     [loc.cont.hook.ltop #ref3] !>
								  ],
						       cont [KEY [ARG1 #ref1,
								  ARG2 #ref2,
								  ARG3 #ref3  
								       ] 
								 ]
							   ]
						     ]
					       ]. 


np-scomp-np-particle-separat-verb-le :=
				       np-scomp-np-particle-separat-verb-lex & 
				       verb-reg-subj-lex &
				       reg-ocomp-comp-lex &
				       reg-prefixverb-lex &
				       [synsem [ loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							     subcat <! 
								     [loc.cont.hook.index #ref2],
								     [loc.cont.hook.ltop #ref3] !>
								  ],
						       cont [KEY [ARG1 #ref1,
								  ARG2 #ref2,
								  ARG3 #ref3  
								       ] 
								 ]
							   ]
						     ]
					       ]. 


np-scomp-v2-np-verb-le :=
				  np-scomp-v2-np-verb-lex & 
				  verb-reg-subj-lex &
				  reg-ocomp-comp-lex &
				  [synsem [ lkeys [--compform #cform],
					    loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							subcat <!
								[loc.cont.hook.index #ref2] , 
								[loc [cont.hook.ltop #ref3,
								      cat.head.cform #cform]] !>
							],
						  cont [ KEY [ARG1 #ref1,
							      ARG2 #ref2,
							      ARG3 #ref3  
								   ] 
								  ]
						      ]
						]
					  ]. 


np-scomp-v2-np-particle-verb-le :=
  
				  np-scomp-v2-np-particle-verb-lex & 
				  verb-reg-subj-lex &
				  reg-ocomp-comp-lex &
				  reg-prefixverb-lex &
				  [synsem [ loc [ cat [ subj < [loc.cont.hook.index #ref1]>,
							subcat <! [loc.cont.hook.index #ref2] , 
								[loc.cont.hook.ltop #ref3] !>
							],
						  cont [ KEY [ARG1 #ref1,
							      ARG2 #ref2,
							      ARG3 #ref3  
								   ] 
								  ]
						      ]
						]
					  ]. 


np-int-clause-verb-le :=
			   np-int-clause-verb-lex & 
			   reg-comp-lex &
			   verb-reg-subj-lex &
			   [synsem [loc [ cat [subj <[loc.cont.hook.index #ref1]>,
					       subcat <! 
						       [loc [cont.hook.ltop #ref3]]
						       !>],
					  cont [KEY [ARG1 #ref1,
						     ARG2 #ref3]
						    ]
					      ]
					  ]
				   ].


np-int-clause-particle-verb-le :=
				 np-int-clause-particle-verb-lex & 
				 reg-comp-lex &
				 reg-prefixverb-lex &
				 verb-reg-subj-lex &
				 [synsem [loc [ cat [subj <[loc.cont.hook.index #ref1]>,
						     subcat <! 
							     [loc [cont.hook.ltop #ref3]]
							     !>],
						cont [KEY [ARG1 #ref1,
							   ARG2 #ref3]
						    ]
						    ]
					      ]
					 ].



np-int-clause-np-verb-le :=
			   np-int-clause-np-verb-lex & 
			   reg-ocomp-comp-lex &
			   verb-reg-subj-lex &
			   [synsem [loc [ cat [subj <[loc.cont.hook.index #ref1]>,
					       subcat <! 
						       [loc.cont.hook.index #ref2],
						       [loc [cont.HOOK.LTOP #ref3]]
						       !>],
					  cont [KEY [ARG1 #ref1,
						     ARG2 #ref2,
						     ARG3 #ref3]
						    ]
					      ]
					  ]
				   ].


np-int-clause-np-particle-verb-le :=
				    np-int-clause-np-particle-verb-lex & 
				    reg-ocomp-comp-lex &
				    reg-prefixverb-lex &
				    verb-reg-subj-lex &
				    [synsem [loc [ cat [subj <[loc.cont.hook.index #ref1]>,
							subcat <! 
								[loc.cont.hook.index #ref2],
								[loc [cont.HOOK.LTOP #ref3]]
								!>],
						   cont [KEY [ARG1 #ref1,
							      ARG2 #ref2,
							      ARG3 #ref3]
							     ]
						       ]
						   ]
					    ].


np-np-scomp-verb-le :=
		      np-np-scomp-verb-lex & 
		      reg-ocomp-comp-lex &
		      verb-reg-subj-lex &
		      [synsem [lkeys [--ocompform #cform],
			       loc [ cat [subj <[loc.cont.hook.index #ref1]>,
					  subcat <! 
						  [loc [cat.head.cform #cform,
							cont.HOOK.LTOP #ref3]],
						  [loc.cont.hook.index #ref2
								  ]
						  !>],
				     cont [KEY [ARG1 #ref1,
						ARG2 #ref2,
						ARG3 #ref3]
					       ]
					 ]
				     ]
			      ].

np-np-scomp-particle-verb-le :=
			       np-np-scomp-particle-verb-lex & 
			       reg-ocomp-comp-lex &
			       verb-reg-subj-lex &
			       reg-prefixverb-lex &
			       [synsem [lkeys [--ocompform #cform],
					loc [ cat [subj <[loc.cont.hook.index #ref1]>,
						   subcat <! 
							   [loc [cat.head.cform #cform,
								 cont.HOOK.LTOP #ref3]],
							   [loc.cont.hook.index #ref2]
							   !>],
					      cont [KEY [ARG1 #ref1,
							 ARG2 #ref2,
							 ARG3 #ref3]
							]
						  ]
					      ]
				       ].


scomp-verb-le :=
			 scomp-verb-lex & 
			 verb-reg-subj-lex &
			 [synsem [lkeys [--subjform #form],
				  loc [ cat.subj <[loc [cat.head.cform #form,
							cont.HOOK.LTOP #ref]]>,
					cont [KEY [ARG1 #ref]]]]].


scomp-particle-verb-le :=
			 scomp-particle-verb-lex & 
			 verb-reg-subj-lex &
			 reg-prefixverb-lex &
			 [synsem [lkeys [--subjform #form],
				  loc [ cat.subj <[loc [cat.head.cform #form,
							cont.HOOK.LTOP #ref]]>,
					cont [KEY [ARG1 #ref]]]]].

scomp-erg-verb-le :=
			 scomp-erg-verb-lex & 
			 verb-reg-subj-lex &
			 [synsem [lkeys [--subjform #form],
				  loc [ cat.subj <[loc [cat.head.cform #form,
							cont.HOOK.LTOP #ref]]>,
					cont [KEY [ARG1 #ref]]]]].


scomp-erg-particle-verb-le :=
			 scomp-erg-particle-verb-lex & 
			 verb-reg-subj-lex &
			 reg-prefixverb-lex &
			 [synsem [lkeys [--subjform #form],
				  loc [ cat.subj <[loc [cat.head.cform #form,
							cont.HOOK.LTOP #ref]]>,
					cont [KEY [ARG1 #ref]]]]].



trans-theme-scomp-verb-le :=
			    trans-theme-scomp-verb-lex & 
			    reg-key-lex &
			    reg-ocomp-comp-lex &
			    [synsem [lkeys [--ocompform #cform],
				     loc [ cat.subcat <! 
						       [loc [cat.head.cform #cform,
							     cont.HOOK.LTOP #ref2]],
						       [loc.cont.hook.index #ref1
									    ]
						       !>,
								 cont [KEY [ARG1 #ref1,
									    ARG2 #ref2 ]
									   ]
						      ]
					   ]
				    ].


trans-theme-scomp-particle-verb-le :=
				     trans-theme-scomp-particle-verb-lex & 
				     reg-ocomp-comp-lex &
				     reg-prefixverb-lex &
				     [synsem [lkeys [--ocompform #cform],
					      loc [ cat.subcat <! 
								[loc [cat.head.cform #cform,
										   cont.HOOK.LTOP #ref2]],
								[loc.cont.hook.index #ref1
										     ]
									     !>,
						    cont [KEY [ARG1 #ref1,
							       ARG2 #ref2 ]
							      ]
							       ]
						    ]
					     ].


phasen-verb-le := 
		  incoherent-inf-raising-verb-lex &
		  reg-comp-lex &
		  [ synsem.loc [cont [KEY.ARG1 #ref,							  
				      HCONS <! [ HARG #ref ] !> ]
				     ]].

phasen-particle-verb-le := 
			   incoherent-inf-raising-particle-verb-lex &
			   reg-comp-lex &
			   reg-prefixverb-lex &
			   [ synsem.loc [cont [KEY.ARG1 #ref,							  
					       HCONS <! [ HARG #ref ] !> ]
					      ]].



subject-control-inf-verb-le := 
			       subject-control-inf-verb-lex &
			       verb-reg-subj-lex &
			       reg-comp-lex &
			       [ synsem [lkeys.keyform  #kform,
					 loc [cat [auxf #kform,
						   subj < [loc.cont.hook.index #ref1 ]
								 >],
						   cont control-verb-sem-type &
							[RELS <! [ARG1 #ref1,
								  ARG2 #ref2 ], 
							       [LBL #ref2] !> ]
							]]].

subject-control-inf-particle-verb-le := 
					subject-control-inf-particle-verb-lex &
					reg-prefixverb-lex &
					verb-reg-subj-lex &
					reg-comp-lex &
					[ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
								 >,
						      cont control-verb-sem-type &
							       [RELS <! [ARG1 #ref1,
									 ARG2 #ref2 ], 
								      [LBL #ref2] !> ]
							       ]].

subject-control-inf-coh-verb-le := 
				   subject-control-inf-coh-verb-lex &
				   verb-reg-subj-lex &
				   [ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
								 >,
						 cont control-verb-sem-type &
							  [RELS <! [ARG1 #ref1,
								    ARG2 #ref2 ], 
								 [LBL #ref2] !> ]
							  ]].




subject-control-bse-verb-le := 
			       subject-control-bse-verb-lex &
			       verb-reg-subj-lex &
			       [ synsem [lkeys [keyform #kform],
					 loc [cat [subj < [loc.cont.hook.index #ref1 ]
							  >,
						   auxf #kform],
					      cont control-verb-sem-type &
						  [RELS <! [ARG1 #ref1,
							    ARG2 #ref2 ], 
							 [LBL #ref2] !> ]
						  ]]].


refl-subject-control-incoh-verb-le := 
				      refl-subject-control-incoh-verb-lex & 
				      verb-reg-subj-lex &
				      reg-comp-lex &
				      [ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
							       >,
						    cont control-verb-sem-type &
							     [KEY [ARG1 #ref1,
								   ARG2 #ref2 ],
							      RELS <! [], [ LBL #ref2 ] !> ]
						    ]].


  refl-subject-control-incoh-particle-verb-le := 
					refl-subject-control-incoh-particle-verb-lex & 
					verb-reg-subj-lex &
					reg-comp-lex &
					[ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
								 >,
						      cont [KEY [ARG1 #ref1,
								 ARG2 #ref2 ],
							    RELS <! [], [ LBL #ref2 ] !> ]
						      ]].



expl-subject-control-incoh-verb-le := 
					    expl-subject-control-incoh-verb-lex & 
					    verb-reg-subj-lex &
					    reg-comp-lex &
					    [ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
								     >,
							  cont control-verb-sem-type &
								   [KEY [ARG1 #ref1,
									 ARG2 #ref2 ],
								    RELS <! [], [LBL  #ref2 ] !> ]
							  ]].


expl-subject-control-incoh-particle-verb-le := 
					    expl-subject-control-incoh-particle-verb-lex & 
					    reg-prefixverb-lex &
					    verb-reg-subj-lex &
					    reg-comp-lex &
					    [ synsem.loc [cat.subj < [loc.cont.hook.index #ref1 ]
								     >,
							  cont control-verb-sem-type &
								   [KEY [ARG1 #ref1,
									 ARG2 #ref2 ],
								    RELS <! [], [ LBL #ref2 ] !> ]
							  ]].



inf-subject-control-incoh-np-verb-le := 
					inf-subject-control-incoh-np-verb-lex & 
					verb-reg-subj-lex &
					reg-comp-lex &
					[ synsem.loc [cat [ subcat    <! [ loc.cont.hook.index #ref2 ] !>
								      ],
						      cont control-verb-sem-type &
							  [KEY [ARG1 #ref2,
								ARG2 #ref1 ],
							   RELS <! [], [ LBL #ref1 ] !> ]
						      ]].


inf-subject-control-incoh-np-particle-verb-le := 
						 inf-subject-control-incoh-np-particle-verb-lex & 
						 verb-reg-subj-lex &
						 reg-comp-lex &
						 reg-prefixverb-lex &
						 [ synsem.loc [cat [ subcat    <! [ loc.cont.hook.index #ref2 ] !>
									       ],
							       cont control-verb-sem-type &
								   [KEY [ARG1 #ref2,
									 ARG2 #ref1 ],
								    RELS <! [], [ LBL #ref1 ] !> ]
							       ]].


object-control-inf-str-verb-le :=
				 object-control-inf-str-verb-lex &
				 verb-reg-subj-lex &
				 reg-comp2-lex & 
				 [synsem [loc [ cat [subj < [loc.cont.hook.index #ref1 ] >,
						     subcat <! [],[loc.cont.hook.index #ref2 ]
							     !>
							  ],
					       cont control-verb-sem-type &
						   [RELS <! [ARG1 #ref1,
							     ARG2 #ref2,
							     ARG3 #ref3 ],
							  [ LBL #ref3 ] !>  ]
						   ]
					     ]].


object-control-inf-str-particle-verb-le :=
					  object-control-inf-str-particle-verb-lex &
					  verb-reg-subj-lex &
					  reg-prefixverb-lex &
					  reg-comp2-lex & 
					  [synsem.loc [ cat [ subj < [loc.cont.hook.index #ref1 ] >,
							      subcat <! [],[loc.cont.hook.index #ref2 ]
								      !>
								   ],
							cont control-verb-sem-type &
							    [RELS <! [ARG1 #ref1,
								      ARG2 #ref2,
								      ARG3 #ref3 ],
								   [ LBL #ref3 ] !>  ]
							    ]
						      ].

object-control-inf-lex-verb-le :=
				 object-control-inf-lex-verb-lex &
				 verb-reg-subj-lex &
				 reg-comp2-lex & 
				 [synsem.loc [ cat [ subj < [loc.cont.hook.index #ref1 ] >,
						     subcat <! [],[loc.cont.hook.index #ref2 ]
							     !>
							  ],
					       cont control-verb-sem-type &
						   [KEY [ARG1 #ref1,
							  ARG2 #ref2,
							  ARG3 #ref3 ],
						     RELS <! [], [ LBL #ref3 ] !>  ]
						   ]
					     ].


object-control-inf-lex-particle-verb-le :=
					  object-control-inf-lex-particle-verb-lex &
					  verb-reg-subj-lex &
					  reg-prefixverb-lex &
					  reg-comp2-lex & 
					  [synsem.loc [ cat [ subj < [loc.cont.hook.index #ref1 ] >,
							      subcat <! [],[loc.cont.hook.index #ref2 ]
								      !>
								   ],
							cont control-verb-sem-type &
							    [KEY [ARG1 #ref1,
								   ARG2 #ref2,
								   ARG3 #ref3 ],
							      RELS <! [],[LBL #ref3 ] !>  ]
							    ]
						      ].

subject-raising-adj-verb-le :=
			      subject-raising-adj-verb-lex &  
			      verb-reg-subj-lex &
			      [synsem.loc [ cat [ SUBJ  < [ LOC.CONT.HOOK.INDEX #arg1 ] >],
					    cont [KEY [ARG1 #arg1,
						       ARG2 #h ],
						  HCONS <! [ HARG #h ] !> ] ] ].


subject-raising-adj-particle-verb-le :=
				       subject-raising-adj-particle-verb-lex &  
				       reg-prefixverb-lex &
				       verb-reg-subj-lex &
				       [synsem.loc [ cat [ SUBJ  < [ LOC.CONT.HOOK.INDEX #arg1 ] >],
						     cont [KEY [ARG1 #arg1,
								ARG2 #h ],
							   HCONS <! [ HARG #h ] !> ] ] ].


object-raising-adj-verb-le :=
			     object-raising-adj-verb-lex &
			     verb-reg-subj-lex &
			     [synsem.loc [ CAT [ SUBJ < [ LOC.CONT.HOOK.INDEX #arg1 ] > ],
					   cont [KEY [ARG1 #arg1,
						      ARG2 #arg2 ],
						 HCONS <! [ HARG #arg2 ] !> ] ] ].



refl-adj-verb-le := 
		    refl-adj-verb-lex &
		    verb-reg-subj-lex &
		    [synsem.loc [ cat [ subj < [ loc.cont.hook.index #arg1 ] >,
					SUBCAT.LIST.FIRST.LOC.CAT [drop -,
								   _drop - ]
					     ],
				  CONT [KEY [ARG1 #arg1,
					     ARG2 #h ],
					HCONS <! [ HARG #h ] !> ]
				      ] ].

refl-adj-particle-verb-le := 
			     refl-adj-particle-verb-lex &
			     reg-prefixverb-lex &
			     verb-reg-subj-lex &
			     [synsem.loc [ cat [ subj < [ loc.cont.hook.index #arg1 ] >,
						 subcat.list.first.loc.cat [drop -,
									      _drop - ],
						 vcomp <[],[]>],
					   cont [key [arg1 #arg1,
						      arg2 #h ],
						 hcons <! [ harg #h ] !> ]
					       ] ].

np-expl-adj-verb-le :=
		      np-expl-adj-verb-lex &
		      reg-key-lex &
		      reg-comp-lex &
		      [ synsem [loc [ cat [ subcat <! 
						    [ loc.cont.hook.index #arg1 ] !>,
					    vcomp  < [ loc.cat [ drop -,    
								 _drop - ] ] >
						   ],
				      cont [key [arg1 #arg1,
						 arg2 #h ],
					    hcons <! [ harg #h ] !> ]
					  ]
				    ]].

sein-perfect-le := 
		   erg-aux-verb-lex & 
		   [morph <! [head.fin.e.tense syn_tense ] !>,
		    synsem [lkeys.mclass vclass-irr,
			    loc [cat [head [aux      +,
					    flip     -,
					    passive #psv
						     ],
				      subj     #subj,
				      auxt     perfect,
				      subcat      <! !>,
				      vcomp       < coherent-complement-ppp-verb-synsem & 
						    [loc [cat.head [ aux #aux,
								    passive #aux,
								    auxf  sein-auxf,
								    subj  #subj
									],
							  cont.hook.index [--psv #psv] 
								  ]] >
					   ],
				 cont.hook.index [--psv #psv] 
				     ]
					 ]].



sein-inf-le :=
	      verb-lex & 
	      [synsem.loc [ cat [ head [ aux  +],
				  subj   #erg,
				  auxt perfect,
				  subcat <! !>,
				  vcomp  < coherent-complement-inf-verb-synsem & 
					   [loc [ cat.head [ subj  < ref-comp-noun-synsem >
								   ],
						  erg   #erg
							   ]
						]
					   >
				       ],
			    erg    #erg
				]
			  ].



copula-id-verb-le :=
		    copula-id-verb-lex &
		    reg-keyrel-lex.

werden-kopula-le :=
			     werden-kopula-lex & 
			     [synsem [lkeys.keyrel #key,
				      loc.cont.key #key]].


modal-verb-le :=
			     modal-verb-lex & 
			     reg-keyrel-lex.


modal-flip-verb-le :=
			     modal-flip-verb-lex & 
			     reg-keyrel-lex.


modal-main-verb-le :=
			     modal-main-verb-lex & 
			     reg-keyrel-lex.

inf-raising-verb-le :=
			     inf-raising-verb-lex & 
			     reg-keyrel-lex.


inf-raising-exp-verb-le :=
			     inf-raising-exp-verb-lex & 
			     reg-keyrel-lex.


moechte-modal-verb-le :=
			     moechte-modal-verb-lex & 
			     reg-keyrel-lex.


moechte-modal-flip-verb-le :=
			     moechte-modal-flip-verb-lex & 
			     reg-keyrel-lex.


deverbal-noun-le :=
		   nominalized-noun-lex &
		   reg-keysort-lex &
		   reg-keyagr-lex &
		   nom-reg-subjopt-lex &
		   reg-noun-morph-le &
		   [synsem [lkeys [altkeyrel #reln],
			    loc [ cat [ head.mass-noun -],
				  cont [ ALTKEY.PRED #reln]
				      ]
				  ]
			   ].


count-noun-le := 
		 std-count-noun-lex &
		 nom-reg-key-lex &
		 reg-noun-morph-le &
		 [synsem.loc.cont.hook.index.mass-unit -].


count-noun-mass-unit-le := 
			   std-count-noun-lex &
			   nom-reg-key-lex &
			   reg-noun-morph-le &
			   [synsem.loc.cont.hook.index.mass-unit +].



adj-count-noun-le := 
		     adj-count-noun-lex &
		     reg-adj-morph-le &
		     nom-reg-key-lex. 

count-noun-t-le := 
		   reg-noun-morph-le &
		   count-noun-lex &
		   reg-keysort-lex &
		   reg-keyagr-lex &
		   nom-reg-subjopt-lex &
		   [synsem [lkeys.keyrel  #reln, 
			    loc.cont.key #reln ]].

inf-count-noun-le := 
		     inf-count-noun-lex &
		     nom-reg-key-lex.


currency-noun-le := 
		    reg-noun-morph-le &
 		    currency-noun-lex &
		    reg-keysort-lex &
		    [SYNSEM [lkeys [keyrel #reln],
			     LOC.CONT [KEY #reln]]].


unknown-currency-noun-le :=
			   currency-noun-lex & 
			   reg-key-lex &
			   [MORPH <! [STEM #stem] !>,
			    synsem.loc.cont [ KEY unk_currency_rel & 
						  [PRED "unk_currency_rel",
						   CARG #stem]
						  ] 
				  ].


unit-noun-le := 
		reg-noun-morph-le &
		unit-noun-lex &
		reg-key-lex.

unknown-date-noun-le := 
			count-noun-lex & 
			[MORPH <! [STEM #form] !>, 
			 synsem.loc [ cat.spr < [loc.cat.drop-det - ] >,
				      cont [hook [ INDEX [ SORT   time,
						     png   3-s-g,
						     mass-unit -
							    ]],
					     KEY unk_rel & [CARG #form ]]]].



unknown-time-np-le := 
		      proper-noun-lex & 
		      [MORPH <! [ STEM #form
				       ] !>,
		       synsem.loc.cont [ hook [INDEX [ SORT   time,
						 png    3-s-g
							]], 
					 KEY unk_rel & [CARG #form ]
					       ]
			     ].


unknown-percent-noun-le := 
			   count-noun-lex & 
			   [MORPH <! [ STEM #form
					    ] !>,
			    synsem.loc [ cat.spr < [loc.cat.drop-det + ] >,
					 cont [ hook [INDEX [ SORT   abstract,
							png    3-p-g,
							mass-unit -
							       ]],
						KEY unk_rel &  [CARG #form ]
						      ] 
						 ]
				  ].


pp-noun-le := 
	      reg-noun-morph-le &
	      pp-noun-lex &
	      [ synsem [lkeys [--compform #form,
			       --compagr #agr],
			loc [ cat.subcat <! [ loc [uniagr #agr,
						   cat.head.pform #form
							  ] ] !>]]].


scomp-noun-le := 
		 reg-noun-morph-le &
		 scomp-noun-lex &
		 nom-reg-key-lex. 

int-clause-noun-le := 
		      reg-noun-morph-le &
		      int-clause-noun-lex &
		      nom-reg-key-lex.


mass-noun-le :=  
		 reg-noun-morph-le &
		 std-mass-noun-lex &
		 nom-reg-key-lex.


mass-pp-noun-le :=  
		 reg-noun-morph-le &
		 mass-pp-noun-lex &
		 nom-reg-key-lex &
		 [synsem [lkeys [--compagr #agr,
				 --compform #form],
			  loc [ cat.subcat <! [loc [uniagr #agr,
						    cat.head.pform #form 
							   ]
						   ]
					    !>
					   ]]].


relational-noun-le :=
		     reg-noun-morph-le &
		     relational-noun-lex &
		     nom-reg-key-lex & 
		     [synsem.lkeys.--subjopt  -] .


month-noun-le :=  
		  reg-noun-morph-le &
		  month-noun-lex &
		  reg-keyrel-lex. 

month-mod-noun-le :=  
		      reg-noun-morph-le &
		      time-mod-noun-lex &
		      reg-keyrel-lex &
		      [ synsem.loc [ cat [ spr < [loc.cat.drop-det + ] >
					       ],
				     uniagr a-s-m &  
					 [cas lex-case],
				     cont [ hook.INDEX [ SORT time
							 ],
				    KEY mofy_rel,
					    ALTKEY.PRED "unspec_mod_rel" ] 
					 ]].


noun-and-proper-name-le := 
			   reg-noun-morph-le &
			   noun-and-proper-name-lex &
			   reg-keyrel-keysort-lex &
			   [SYNSEM [lkeys [--subjopt #drop-det,
					   --compsort #compsort],
				    LOC [ cat [ spr < [loc.cat.drop-det #drop-det ] >,
						subcat <! [ loc.cont.hook.index.sort #compsort ] !>]]]].


day-noun-le := 
	       reg-noun-morph-le &
	       day-noun-lex &
	       reg-keyrel-lex.

clocktime-noun-le := 
		     reg-particle-morph-le &
		     clocktime-noun-lex &
		     reg-keyrel-lex & 
		     [synsem [loc [uniagr #agr,
				   cont.key.carg #tag],
			      lkeys [keytag #tag,
				     keyagr nda-s-f & #agr,
				     mclass pclass]]].


jahreszahl-le := 
		 reg-particle-morph-le &
		 jahreszahl-noun-lex &
		 reg-keyrel-lex.


holiday-le :=  
	       reg-noun-morph-le &
	       holiday-noun-lex &
	       reg-keyrel-lex. 

time-mod-noun-le :=  
		     reg-noun-morph-le &
		     time-mod-noun-lex &
		     nom-reg-key-lex &
		     [synsem [lkeys [altkeyrel #modreln],
				 loc [uniagr [cas lex-case],
				      cont [ALTKEY.PRED #modreln ] 
					     ]
				       ]].

time-mod-noun-ty-le :=  
			reg-noun-morph-le &
			time-mod-noun-lex &
			nom-reg-key-lex &
			[synsem [lkeys [altkeyrel #modreln ],
				 loc [uniagr a-n-g & [cas lex-case],
				      cont [KEY dofw_rel & [ARG0 index],
					    ALTKEY.PRED #modreln ] 
					     ]
				       ]].

cardyear-mod-noun-ty-le :=  
			    time-mod-noun-lex &
			    nom-reg-key-lex &
			    reg-keyrel-keytag-lex &
			    [synsem [lkeys [altkeyrel #modreln ],
				 loc [uniagr a-n-g & [cas lex-case],
				      cont [KEY time_rel & 
						[PRED "yofc_rel",
						 arg0 index],
					    ALTKEY.PRED #modreln ] 
					     ]
				       ]].

special-count-noun-le := 
			 reg-noun-morph-le &
			 count-noun-lex &
			 nom-reg-key-lex &
			 [ synsem [loc [ cont [ key enum_nom_rel  ] ]
				       ]
				  ].

special-mass-noun-le :=  
			 reg-noun-morph-le &
			 mass-noun-lex &
			 reg-keyrel-keysort-lex &
			 [ synsem.loc.cont.key enum_nom_rel ].


card-coord-conj-le :=
		     non-sgf-coord-lex & 
		     reg-keyrel-keysort-lex &
		     [synsem [lkeys [keysort #sort,
				     keyform #coordform],
			      loc [ cat [ head.coordform #coordform,
					  subcat <! cardinal-number-synsem !>
							 ],
				    coord #coordform,
				    CONT [ HOOK.INDEX.SORT #sort ]
					]
				    ]].

ev-coord-conj-le :=
		   non-sgf-coord-lex & 
		   reg-keyrel-keysort-lex &
		   [synsem [lkeys [keyform #coordform],
			    loc [ cat [ head.coordform #coordform
						       ],
				  coord #coordform
			       ]
				  ]].

nom-coord-conj-le :=
		    nom-coord-lex & 
		    reg-keyrel-keysort-lex &
		    [synsem [lkeys [keyform #coordform],
			     loc [ cat [ head.coordform #coordform
							],
				   coord #coordform
				       ]
				   ]
			    ].

sgf-coord-conj-le :=
		    sgf-coord-lex & 
		    reg-keyrel-keysort-lex &
		    [synsem [lkeys [keyform #coordform],
			     loc [ cat [ head.coordform #coordform
							],
				   coord #coordform
			       ]]]. 


coord-conj-le :=
		non-sgf-coord-lex & 
		[synsem [lkeys [keysort #sort,
				keyform #coordform],
			 loc [ cat [ head.coordform #coordform
						    ],
			       coord #coordform,
			       CONT [ hook.INDEX.SORT #sort ]
				   ]
			       ]].


fin-coord-conj-le :=
		    fin-coord-lex & 
		    [synsem [loc [ cat [ head [spec.loc.cont.key.pred #pred,
					       coordform #coordform]
					      ],
				   coord #coordform
				       ],
			     lkeys [keyrel #pred,
				    keyform #coordform]
				 ]].

mod-if-vlast-clause-le :=
			 subordination-vlast-sub-sign-lex &
			 reg-keyrel-lex.
			 

mod-if-v2-clause-le :=
		      subordination-v2-sub-sign-lex & 
		      reg-keyrel-lex.


mod-and-vlast-clause-le :=
			  subordination-vlast-and-sign-lex &
			  reg-keyrel-lex.


mod-and-v2-clause-le :=
		       subordination-v2-and-sign-lex &
		       reg-keyrel-lex.



inf-comp-le  := 
		inf-comp-lex &
		reg-keyrel-lex.


pre-grad-adv-le := pre-grad-adv-lex & 
		    reg-keyrel-lex. 


post-grad-adv-le := post-grad-adv-lex & 
		    reg-keyrel-lex. 

intersect-a-adv-v-grad-part-le :=
				 intersect-a-adv-v-grad-part-lex & 
				 reg-keyrel-lex.
				 

intersect-grad-part-le :=
			 intersect-grad-part-lex &
			 reg-keyrel-lex. 


scopal-grad-np-le :=
		    scopal-grad-np-lex & 
		    reg-keyrel-lex.

scopal-grad-np-pre-np-le :=
			   scopal-grad-np-pre-np-lex & 
			   reg-keyrel-lex.
			   
scopal-grad-np-post-np-le :=
			    scopal-grad-np-post-np-lex &  		   
			    reg-keyrel-lex.
			    

dim-grad-np-le :=
		 dim-grad-np-lex &
		 reg-keyrel-lex.


q-pron-adj-le :=               
			       wh-adj2-lex &
			       reg-keyrel-lex &
			       [SYNSEM [lkeys [alt2keyrel #alt2],
					loc.cont [rels <! [],[],
							[ pred #alt2 ] !> ] ]].

q-pron-cardinal-le := 
		      q-cardinal-number-sign-lex &
		      reg-keyrel-lex &
		      [SYNSEM [lkeys [
				      alt2keyrel #alt2 & "abstr_rel"],
			       loc.cont [rels <! [],[],
					       [ pred #alt2 ] !> ] ]].

prefix-le :=
	    sp-lex &
	    [synsem [loc.cat.head.sp-form #form,
		     lkeys.keyform #form]].

prefix_+vc-le :=
	    sp-lex_+vc &
	    [synsem [loc.cat.head.sp-form #form,
		     lkeys.keyform #form]].


non-mod-comp-le :=
		  non-mod-comp-lex & 
		  [ synsem [loc [cat.head.cform #form,
				 cont.key.pred #key],
			    lkeys [keyform #form,
				   keyrel #key]]].

interjection-le :=
		  interjection-lex & 
		  reg-keyrel-keytag-lex &
		  [ MORPH <! [ head px-all  ]  !>
			  ].


q-tag-le :=
	   q-tag-lex & 
	   reg-keyrel-keytag-lex &
	   [ MORPH <! [ head px-all  ]  !>
		  ].


interjection-q-tag-le :=
			interjection-q-tag-lex & 
			reg-keyrel-keytag-lex &
			[ MORPH <! [ head px-all  ]  !>
				].






letter-le :=
	    letter-lex & 
	    [ ORTH #o,
	      MORPH <! [ stem #o,
			 head px-all
			      ] !>,
	      SYNSEM [LOC.CONT.KEY.LETTERS <! #reln !>,
		      LKEYS.KEYREL #reln ]
	  ].

letter-noun-le := 
		  letter-noun-lex &
		  [ SYNSEM [LOC.CONT.KEY.LETTERS <! #reln !>,
			    LKEYS.KEYREL #reln ]
]. 


aux-hatte-le := 
		haben-temp-le &
		[morph <! [head.fin [e pst-ind,
				     uniagr.png 13-s-g]] !> ].

aux-hattest-le := 
		  haben-temp-le &
		  [morph <! [head.fin [e pst-ind,
				       uniagr.png 2-s-g]] !> ].

aux-hattet-le := 
		 haben-temp-le &
		 [morph <! [head.fin [e pst-ind,
				      uniagr.png 2-p-g]] !> ].

aux-hatten-le := 
			haben-temp-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-p-g]] !> ].


aux-haette-le := 
			haben-temp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-s-g]] !> ].

aux-haettest-le := 
			haben-temp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-s-g]] !> ].

aux-haettet-le := 
			haben-temp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-p-g]] !> ].

aux-haetten-le := 
			haben-temp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-p-g]] !> ].


aux-habe-ind-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 1-s-g]] !> ].

aux-hast-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 2-s-g]] !> ].
aux-hat-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 3-s-g]] !> ].

aux-habt-le := 
			haben-temp-le &
			[morph <! [head vmorph-fin-head & [fin [e imp+prs-ind & [mood indicative+no_mood],
					 uniagr.png 2-p-g]]] !> ].

aux-habe-sbj-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-s-g]] !> ].

aux-habest-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-s-g]] !> ].

aux-habet-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-p-g]] !> ].

aux-haben-le := 
			haben-temp-le &
			[morph <! [head.fin [e prs,
					 uniagr.png 13-p-g]] !> ].

aux-hab-le := 
			haben-temp-le &
			[morph <! [head vmorph-fin-head & [fin [e imp,
					 uniagr.png 2-s-g]]] !> ].

aux-haben-inf-le := 
		 haben-temp-le &
		 [morph <! [head vx-sup-bare] !>].

aux-gehabt-le := 
		 haben-temp-le &
		 [morph <! [head vx-sup-perf] !>].





aux-war-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-s-g]] !> ].

aux-warst-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-s-g]] !> ].

aux-wart-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-p-g]] !> ].

aux-waren-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-p-g]] !> ].


aux-waere-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-s-g]] !> ].

aux-waerest-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-s-g]] !> ].

aux-waeret-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-p-g]] !> ].

aux-waeren-le := 
			sein-perfect-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-p-g]] !> ].


aux-bin-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 1-s-g]] !> ].

aux-bist-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 2-s-g]] !> ].
aux-ist-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 3-s-g]] !> ].

aux-seid-le := 
			sein-perfect-le &
			[morph <! [head vmorph-fin-head & [fin [e imp+prs-ind & [mood indicative+no_mood],
					 uniagr.png 2-p-g]]] !> ].

aux-sei-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-s-g]] !> ].

aux-seist-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-s-g]] !> ].

aux-seiet-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-p-g]] !> ].

aux-sind-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 13-p-g]] !> ].
aux-seien-le := 
			sein-perfect-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-p-g]] !> ].

aux-sei-imp-le := 
			sein-perfect-le &
			[morph <! [head vmorph-fin-head & [fin [e imp,
					 uniagr.png 2-s-g]]] !> ].

aux-gewesen-le := 
	       sein-perfect-le &
	       [morph <! [head vx-sup-perf] !>].


aux-sein-le := 
		 sein-perfect-le &
		 [morph <! [head vx-sup-bare] !>].





werden-pas-le := passive-verb-lex &
 [SYNSEM.LKEYS.MCLASS vclass-irr ].


werden-aux-le := 
		 aux-verb-lex & 
		 [morph <! [ head.fin.e tensed & 
					[tense future+cond,
					 perfective #perf]
					] !>,
		  synsem [lkeys.mclass vclass-irr,
			  loc [cat [head [vform fin-sm,
					  aux  +
						],
				    subj   #subj,       
				    subcat <! !>,
				    vcomp  < bse-verb-synsem & 
					     [loc [cat.head [ subj  #subj								    ],
						   cont.hook.index.e  
							    [perfective #perf]
							    ]]
					     >
					 ],
			       erg    < >
				   ]
				       ]].




sein-pas-le:= 
	      state-passive-verb-lex & 
	      [SYNSEM.LKEYS.MCLASS vclass-irr].
	    

pas-war-le := 
	      sein-pas-le &
	      [morph <! [head.fin [e pst-ind & [tense present+past],
				   uniagr.png 13-s-g]] !> ].

pas-warst-le := 
		sein-pas-le &
		[morph <! [head.fin [e pst-ind & [tense present+past],
				     uniagr.png 2-s-g]] !> ].

pas-wart-le := 
	       sein-pas-le &
	       [morph <! [head.fin [e pst-ind & [tense present+past],
				    uniagr.png 2-p-g]] !> ].

pas-waren-le := 
		sein-pas-le &
		[morph <! [head.fin [e pst-ind & [tense present+past],
				     uniagr.png 13-p-g]] !> ].


pas-waere-le := 
		sein-pas-le &
		[morph <! [head.fin [e pst-sbj & [tense present+past],
				     uniagr.png 13-s-g]] !> ].

pas-waerest-le := 
		  sein-pas-le &
		  [morph <! [head.fin [e pst-sbj & [tense present+past],
				       uniagr.png 2-s-g]] !> ].

pas-waeret-le := 
		 sein-pas-le &
		 [morph <! [head.fin [e pst-sbj & [tense present+past],
				      uniagr.png 2-p-g]] !> ].

pas-waeren-le := 
		 sein-pas-le &
		 [morph <! [head.fin [e pst-sbj & [tense present+past],
				      uniagr.png 13-p-g]] !> ].


pas-bin-le := 
	      sein-pas-le &
	      [morph <! [head.fin [e prs-ind & [tense present+past],
				   uniagr.png 1-s-g]] !> ].

pas-bist-le := 
	       sein-pas-le &
	       [morph <! [head.fin [e prs-ind & [tense present+past],
				    uniagr.png 2-s-g]] !> ].
pas-ist-le := 
	      sein-pas-le &
	      [morph <! [head.fin [e prs-ind & [tense present+past],
				   uniagr.png 3-s-g]] !> ].

pas-seid-le := 
	       sein-pas-le &
	       [morph <! [head vmorph-fin-head & [fin [e imp+prs-ind & [mood indicative+no_mood],
				    uniagr.png 2-p-g]]] !> ].

pas-sei-le := 
	      sein-pas-le &
	      [morph <! [head.fin [e prs-sbj & [tense present+past],
				   uniagr.png 13-s-g]] !> ].

pas-seist-le := 
		sein-pas-le &
		[morph <! [head.fin [e prs-sbj & [tense present+past],
				     uniagr.png 2-s-g]] !> ].

pas-seiet-le := 
		sein-pas-le &
		[morph <! [head.fin [e prs-sbj & [tense present+past],
				     uniagr.png 2-p-g]] !> ].

pas-sind-le := 
	       sein-pas-le &
	       [morph <! [head.fin [e prs-ind & [tense present+past],
				    uniagr.png 13-p-g]] !> ].
pas-seien-le := 
		sein-pas-le &
		[morph <! [head.fin [e prs-sbj & [tense present+past],
				     uniagr.png 13-p-g]] !> ].

pas-sei-imp-le := 
		  sein-pas-le &
		  [morph <! [head vmorph-fin-head & [fin [e imp,
				       uniagr.png 2-s-g]]] !> ].

pas-gewesen-le := 
		  sein-pas-le &
		  [morph <! [head vx-sup-perf] !>].


pas-sein-le := 
		 sein-pas-le &
		 [morph <! [head vx-sup-bare] !>].



pas-wurde-le := 
	      werden-pas-le &
	      [morph <! [head.fin [e pst-ind & [tense present+past],
				   uniagr.png 13-s-g]] !> ].

pas-wurdest-le := 
		werden-pas-le &
		[morph <! [head.fin [e pst-ind & [tense present+past],
				     uniagr.png 2-s-g]] !> ].

pas-wurdet-le := 
	       werden-pas-le &
	       [morph <! [head.fin [e pst-ind & [tense present+past],
				    uniagr.png 2-p-g]] !> ].

pas-wurden-le := 
		werden-pas-le &
		[morph <! [head.fin [e pst-ind & [tense present+past],
				     uniagr.png 13-p-g]] !> ].


pas-wuerde-le := 
		werden-pas-le &
		[morph <! [head.fin [e pst-sbj & [tense present+past],
				     uniagr.png 13-s-g]] !> ].

pas-wuerdest-le := 
		  werden-pas-le &
		  [morph <! [head.fin [e pst-sbj & [tense present+past],
				       uniagr.png 2-s-g]] !> ].

pas-wuerdet-le := 
		 werden-pas-le &
		 [morph <! [head.fin [e pst-sbj & [tense present+past],
				      uniagr.png 2-p-g]] !> ].

pas-wuerden-le := 
		 werden-pas-le &
		 [morph <! [head.fin [e pst-sbj & [tense present+past],
				      uniagr.png 13-p-g]] !> ].


pas-werde-ind-le := 
	      werden-pas-le &
	      [morph <! [head.fin [e prs-ind & [tense present+past],
				   uniagr.png 1-s-g]] !> ].

pas-wirst-le := 
	       werden-pas-le &
	       [morph <! [head.fin [e prs-ind & [tense present+past],
				    uniagr.png 2-s-g]] !> ].
pas-wird-le := 
	      werden-pas-le &
	      [morph <! [head.fin [e prs-ind & [tense present+past],
				   uniagr.png 3-s-g]] !> ].

pas-werdet-le := 
	       werden-pas-le &
		 [morph <! [head vmorph-fin-head & [fin [e imp+prs & [mood indicative+no_mood,
						   tense present+past],
				    uniagr.png 2-p-g]]] !> ].

pas-werde-sbj-le := 
	      werden-pas-le &
	      [morph <! [head.fin [e prs-sbj & [tense present+past],
				   uniagr.png 13-s-g]] !> ].

pas-werdest-le := 
		werden-pas-le &
		[morph <! [head.fin [e prs-sbj & [tense present+past],
				     uniagr.png 2-s-g]] !> ].

pas-werden-le := 
	       werden-pas-le &
	       [morph <! [head.fin [e prs & [tense present+past],
				    uniagr.png 13-p-g]] !> ].

pas-werde-imp-le := 
		  werden-pas-le &
		  [morph <! [head vmorph-fin-head & [fin [e imp,
				       uniagr.png 2-s-g]]] !> ].

pas-worden-le := 
		  werden-pas-le &
		  [morph <! [head vx-sup-perf] !>].


pas-werden-inf-le := 
		 werden-pas-le &
		 [morph <! [head vx-sup-bare] !>].




aux-wurde-le := 
	      werden-aux-le &
	      [morph <! [head.fin [e pst-ind,
				   uniagr.png 13-s-g]] !> ].

aux-wurdest-le := 
		werden-aux-le &
		[morph <! [head.fin [e pst-ind,
				     uniagr.png 2-s-g]] !> ].

aux-wurdet-le := 
	       werden-aux-le &
	       [morph <! [head.fin [e pst-ind,
				    uniagr.png 2-p-g]] !> ].

aux-wurden-le := 
		werden-aux-le &
		[morph <! [head.fin [e pst-ind,
				     uniagr.png 13-p-g]] !> ].


aux-wuerde-le := 
		werden-aux-le &
		[morph <! [head.fin [e pst-sbj,
				     uniagr.png 13-s-g]] !> ].

aux-wuerdest-le := 
		  werden-aux-le &
		  [morph <! [head.fin [e pst-sbj,
				       uniagr.png 2-s-g]] !> ].

aux-wuerdet-le := 
		 werden-aux-le &
		 [morph <! [head.fin [e pst-sbj,
				      uniagr.png 2-p-g]] !> ].

aux-wuerden-le := 
		 werden-aux-le &
		 [morph <! [head.fin [e pst-sbj,
				      uniagr.png 13-p-g]] !> ].


aux-werde-ind-le := 
	      werden-aux-le &
	      [morph <! [head.fin [e prs-ind,
				   uniagr.png 1-s-g]] !> ].

aux-wirst-le := 
	       werden-aux-le &
	       [morph <! [head.fin [e prs-ind,
				    uniagr.png 2-s-g]] !> ].
aux-wird-le := 
	      werden-aux-le &
	      [morph <! [head.fin [e prs-ind,
				   uniagr.png 3-s-g]] !> ].

aux-werdet-le := 
	       werden-aux-le &
	       [morph <! [head.fin [e prs,
				    uniagr.png 2-p-g]] !> ].

aux-werde-sbj-le := 
	      werden-aux-le &
	      [morph <! [head.fin [e prs-sbj,
				   uniagr.png 13-s-g]] !> ].

aux-werdest-le := 
		werden-aux-le &
		[morph <! [head.fin [e prs-sbj,
				     uniagr.png 2-s-g]] !> ].

aux-werden-le := 
	       werden-aux-le &
	       [morph <! [head.fin [e prs,
				    uniagr.png 13-p-g]] !> ].





cop-pp-war-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-s-g]] !> ].

cop-pp-warst-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-s-g]] !> ].

cop-pp-wart-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-p-g]] !> ].

cop-pp-waren-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-p-g]] !> ].


cop-pp-waere-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-s-g]] !> ].

cop-pp-waerest-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-s-g]] !> ].

cop-pp-waeret-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-p-g]] !> ].

cop-pp-waeren-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-p-g]] !> ].


cop-pp-bin-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 1-s-g]] !> ].

cop-pp-bist-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 2-s-g]] !> ].
cop-pp-ist-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 3-s-g]] !> ].

cop-pp-seid-le := 
			sein-cop-pp-le &
			[morph <! [head vmorph-fin-head & [fin [e imp+prs-ind & [mood indicative+no_mood],
					 uniagr.png 2-p-g]]] !> ].

cop-pp-sei-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-s-g]] !> ].

cop-pp-seist-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-s-g]] !> ].

cop-pp-seiet-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-p-g]] !> ].

cop-pp-sind-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 13-p-g]] !> ].
cop-pp-seien-le := 
			sein-cop-pp-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-p-g]] !> ].

cop-pp-sei-imp-le := 
			sein-cop-pp-le &
			[morph <! [head vmorph-fin-head & [fin [e imp,
					 uniagr.png 2-s-g]]] !> ].

cop-pp-gewesen-le := 
	       sein-cop-pp-le &
	       [morph <! [head vx-sup-perf] !>].


cop-pp-sein-le := 
		 sein-cop-pp-le &
		 [morph <! [head vx-sup-bare] !>].


sein-cop-pp-le :=
		 copula-pp-lex &
		 [synsem.lkeys.mclass vclass-irr].


cop-war-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-s-g]] !> ].

cop-warst-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-s-g]] !> ].

cop-wart-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 2-p-g]] !> ].

cop-waren-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-ind,
					 uniagr.png 13-p-g]] !> ].


cop-waere-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-s-g]] !> ].

cop-waerest-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-s-g]] !> ].

cop-waeret-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 2-p-g]] !> ].

cop-waeren-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e pst-sbj,
					 uniagr.png 13-p-g]] !> ].


cop-bin-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 1-s-g]] !> ].

cop-bist-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 2-s-g]] !> ].
cop-ist-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 3-s-g]] !> ].

cop-seid-le := 
			sein-cop-fin-le &
			[morph <! [head vmorph-fin-head & [fin [e imp+prs-ind & [mood indicative+no_mood],
					 uniagr.png 2-p-g]]] !> ].

cop-sei-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-s-g]] !> ].

cop-seist-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-s-g]] !> ].

cop-seiet-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 2-p-g]] !> ].

cop-sind-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-ind,
					 uniagr.png 13-p-g]] !> ].
cop-seien-le := 
			sein-cop-fin-le &
			[morph <! [head.fin [e prs-sbj,
					 uniagr.png 13-p-g]] !> ].

cop-sei-imp-le := 
		  sein-cop-fin-le &
		  [morph <! [head vmorph-fin-head & [fin [e imp,
					 uniagr.png 2-s-g]]]!> ].

cop-gewesen-le := 
	       sein-cop-fin-le &
	       [morph <! [head vx-sup-perf] !>].


cop-sein-le := 
		 sein-cop-le &
		 [morph <! [head vx-sup-bare] !>].






sein-cop-le :=
		 copula-kopula-lex &
		 [synsem.lkeys.mclass vclass-irr].

sein-cop-fin-le := sein-cop-le &
		   [synsem.loc.cat.head.aux +].
		   

haben-temp-le :=
		haben-aux-verb-lex & 
		[morph <! [head.fin [e.tense syn_tense,
				     --psv -]] !>,
		 synsem.loc [ cat [ head [ aux  +,
					   flip #flip,
					   log-subj #log-subj,
					   passive   -
						],
				    subj   #subj,
				    auxt perfect,
				    subcat <! !>,
				    vcomp  < coherent-complement-ppp-verb-synsem & 
					     [loc.cat.head [ auxf  haben-auxf,
							     subj  #subj,
							     flip  #flip,
							     log-subj #log-subj
								   ]
							   ]
					     >
					 ]
				  ]
			    ].

haben-modal-le :=
		 modal-inf-verb-lex &
		 reg-keyrel-lex &
		 [synsem [loc [ cat [ head [ aux  -,
					    flip #flip,
					    log-subj #log-subj,
					    passive   -
						 ],
				     subj   #subj,       
				     subcat <! !>,
				     vcomp  < coherent-complement-inf-verb-synsem & [
				    loc.cat.head [ vform inf-sm,
                                                   subj  #subj,
						   flip  #flip,
						   log-subj #log-subj
							 ]
				    ]
					      >
					   ],
				erg    < >
				    ]
			      ]
			 ].


werden-fut-conj-temp-le := 
	aux-verb-lex & 
        [
        morph <! [ head.fin.e tensed & 
				 [tense cond,
				  mood subjunctive,
				  perfective #perf]           
                 ] !>,
        synsem.loc [ cat [ head [ vform fin-sm,
				  aux  +
                                ],
                           subj   #subj,       
                           subcat <! !>,
                           vcomp  < bse-verb-synsem & [
                                    loc [cat.head [ subj  #subj
                                                 ],
					 cont.hook.index.e  
						  [perfective #perf]
                                    ]]
                                  >
                           ],
                      erg    < >
                     ]
         ].
			   

werden-fut-fut-temp-le :=
			   aux-verb-lex & 
			   [morph <! [ head.fin.e tensed & 
						     [tense future,
						      perfective #perf]
						     ] !>,
			    synsem.loc [ cat [ head [vform fin-sm,
						     aux  +
							  ],
                           subj   #subj,       
                           subcat <! !>,
                           vcomp  < bse-verb-synsem & [
                                    loc [cat.head [ subj  #subj
							 ],
					 cont.hook.index.e  
						  [perfective #perf]
                                    ]]
                                  >
                           ],
                      erg    < >
                     ]
         ].

positional-expl-le :=
  form & [synsem verb-synsem & [ 
         loc [ cat [ subcat <! s-v1-synsem & [
                              loc.cat.head.extra na_or_-,
                              nonloc undef-nonlocs
                              ] 
                            !>,
                     vcomp <>
                   ],
               cont expletiv-pronoun-sem-type
             ],
           v2 +
         ]
  ].

cardinal-eins-np-temp-le := 
			    form &
			    [ MORPH <! morph-type &
				     [ 
                HEAD cardinal-minuten-eins &
                     [ VALUE "1" ] ] !>,
     SYNSEM complete-ref-comp-noun-synsem &
           [ LOC [ uniagr nda-n-g ,
                   CONT mrs &
			  [ hook [INDEX #var,
				  ltop #hand
					],
                         RELS <! udef_rel &
                                  [ ARG0 #var,
                                    LBL #hand,
				    RSTR #restr ],
                                card_rel &
                                [ LBL #restr,
                                  ARG0 #var,
                                  CARG "1" ],
                                abstr_nom_rel &
                               [ ARG0 #var,
                                 LBL #restr ]
                                !>,
                         HCONS <!  !> ] ]  ] ] &
			    [ SYNSEM.LOC [uniagr c-s-g,
					  CONT [ hook [INDEX [ PNG 3-s-g ]],
						 KEY #key,
						 RELS.LIST < [],[],#key > ]] ].


reg-keyrel-lex := 
		  reg-morph-le &
 		  [synsem [lkeys.keyrel #pred,
			   loc.cont.key.pred #pred  ]].



reg-keyrel-keytag-lex := reg-keyrel-lex & 		       
			  [synsem [lkeys.keytag #carg,
				   loc.cont.key.carg #carg]].

			 
reg-keysort-lex := reg-morph-le & 
		   [synsem.loc.cont.hook.index.sort #sort,
		    synsem.lkeys.keysort #sort].
		
  
reg-keyrel-keysort-lex :=
			 reg-keyrel-lex &
			 reg-keysort-lex.

reg-keyagr-lex :=
		 reg-morph-le &
		 [synsem.loc.uniagr #agr,
		  synsem.lkeys.keyagr #agr].

reg-key-lex :=
	      reg-keyrel-keysort-lex &
	      reg-keyagr-lex.

nom-reg-subjopt-lex :=  reg-morph-le &
			 [synsem [loc.cat.spr <[loc.cat.drop-det #opt ]>,
				  lkeys [--subjopt #opt]]].

nom-reg-key-lex :=
		  reg-key-lex  &
		  nom-reg-subjopt-lex.

nonv-reg-subj-lex := 
		       reg-morph-le & 
		     [synsem [lkeys [--subjkey #key,
				     --subjsort #sort,
				     --subjagr #agr,
				     --subjopt #opt],
			      loc [cat.head.subj <[loc [uniagr.png #agr,
						   cat.opt #opt,
						   cont [hook [index [sort #sort]],
							 key.pred #key]]]> ]]].

verb-reg-subj-lex := 
		     reg-key-lex &
		     [synsem [lkeys [--subjkey #key,
				     --subjsort #sort,
				     --subjagr #agr,
				     --subjopt #opt],
			      loc [cat.subj <[loc [uniagr.png #agr,
						   cat.opt #opt,
						   cont [hook [index [sort #sort]],
							 key.pred #key]]]>
				    ]]].


reg-comp-lex :=  reg-morph-le &
		 [synsem [lkeys [--compkey #key,
				 --compsort #sort,
				 --compagr #agr,
				 --compopt #opt],
			  loc [cat.subcat.list <[loc [uniagr #agr,
						      cat.opt #opt,
						      cont [hook [index [sort #sort]],
							    key.pred #key]]], ...> ]]].



reg-comp2-lex :=  reg-morph-le &
		     [synsem [lkeys [--compkey #key,
				     --compsort #sort,
				     --compagr #agr,
				     --compopt #opt],
			      loc [cat.subcat.list <[],[loc [uniagr #agr,
						   cat.opt #opt,
							     cont [hook.index [sort #sort],
								   key.pred #key]]], ...> ]]].

reg-comp3-lex :=  reg-morph-le &
		     [synsem [lkeys [--compkey #key,
				     --compsort #sort,
				     --compagr #agr,
				     --compopt #opt],
			      loc [cat.subcat.list <[],[],[loc [uniagr #agr,
								cat.opt #opt,
								cont [hook.index [sort #sort],
								      key.pred #key]]], ...> ]]].


reg-ocomp-lex :=  reg-morph-le &
		     [synsem [lkeys [--ocompkey #key,
				     --ocompsort #sort,
				     --ocompagr #agr,
				     --ocompopt #opt],
			      loc [cat.subcat.list <[loc [uniagr #agr,
							  cat.opt #opt,
							  cont [hook.index [sort #sort],
								key.pred #key]]], ...
						    >
				   ]]].

reg-ocomp2-lex :=  reg-morph-le &
		     [synsem [lkeys [--ocompkey #key,
				     --ocompsort #sort,
				     --ocompagr #agr,
				     --ocompopt #opt],
			      loc [cat.subcat.list <[],[loc [uniagr #agr,
							     cat.opt #opt,
							     cont [hook.index [sort #sort],
								   key.pred #key]]], ...
						    >
				   ]]].


reg-ocomp2-comp3-lex :=
		      reg-comp3-lex &
		      reg-ocomp2-lex. 


reg-ocomp-comp-lex :=
		      reg-comp2-lex &
		      reg-ocomp-lex. 

reg-prefixverb-lex :=  reg-key-lex &
		       [synsem [lkeys [--vcompkey #pred,
				       --vcompform #form],
				loc.cat.vcomp <[loc [cat.head.sp-form #form,
						     cont.key [pred #pred] ]], ...>]].

reg-keyform-lex := reg-morph-le &
		   [ synsem [ lkeys.keyform #f,
			      loc.cat.head.pform #f ] ].



reg-morph-le := stem-or-lex-sign &
		[synsem [loc.anc [self <! !>,
				  active <! !>,
				  inert <! !>],
			 lkeys.mclass #mc & [lr_inflected #lr]],
		 lr.lr_inflected #lr, 
		 morph <! [head.mclass #mc] !>].


reg-noun-morph-le :=
		    reg-morph-le &
		    [synsem.lkeys.mclass nclass & [u #u],
		     lr [u #u]].

reg-verb-morph-le :=
		    reg-morph-le &
		    [synsem.lkeys.mclass vclass].
	      

reg-adj-morph-le :=
		    reg-morph-le &
		    [synsem.lkeys.mclass aclass & [u #u],
		     lr [u #u]].


reg-particle-morph-le :=
		    reg-morph-le &
		    [synsem.lkeys.mclass pclass].