;;; Hey, emacs, this file is -*- Mode: tdl; -*- ... got that?

fake-transfer-rule := monotonic_omtr &
  [ INPUT.RELS.LIST.FIRST.PRED "_human_n_rel",
    OUTPUT.RELS.LIST.FIRST.PRED "_man_n_rel" ].

indef+quant-transfer-rule := oquantifier_mtr &
   [ INPUT.RELS.LIST.FIRST.PRED "indef_q_rel",
     OUTPUT.RELS.LIST.FIRST.PRED "non+demonstrative_q_rel" ].

indef+quant-transfer-rule2 := oquantifier_mtr &
   [ INPUT.RELS.LIST.FIRST.PRED "indef_q_rel",
     OUTPUT.RELS.LIST.FIRST.PRED "reg_quant_rel" ].

def+quant-transfer-rule := oquantifier_mtr &
   [ INPUT.RELS.LIST.FIRST.PRED "def_q_rel",
     OUTPUT.RELS.LIST.FIRST.PRED "non+demonstrative_q_rel" ].

def+quant-transfer-rule2 := oquantifier_mtr &
   [ INPUT.RELS.LIST.FIRST.PRED "def_q_rel",
     OUTPUT.RELS.LIST.FIRST.PRED "reg_quant_rel" ].

exist-way-transfer-rule := monotonic_omtr &
  [ INPUT.RELS <! [ PRED "_can_v_rel",
		    LBL #ltop,
		    ARG1 #emd ] !>,
    OUTPUT.RELS <! [ PRED "_way_n_rel",
		     ARG0 #way,
		     ARG1 #emd ],
		   [ PRED "_exist_v_rel",
		     ARG1 #way,
		     LBL #ltop ] !> ].