;;; Hey, emacs(1), this is -*- Mode: TDL; Coding: utf-8; -*- got it?

named_mtr := monotonic_mtr &
	     [INPUT.RELS <[PRED "en:named_rel",
			   LBL #l,
			   ARG0 #0,
			   CARG #carg]>,
	      OUTPUT.RELS <[PRED "_named_n_rel",
			   LBL #l,
			   ARG0 #0,
			   CARG #carg]>].
	     


focus_mtr := monotonic_mtr &
	     [INPUT.RELS <[PRED "en:focus_d_rel",
			   LBL #l,
			   ARG0 #0,
			   ARG1 #1,
			   ARG2 #2]>,
	      OUTPUT.RELS <[PRED focus_d_rel,
			   LBL #l,
			   ARG0 #0,
			   ARG1 #1,
			   ARG2 #2]>].

parg_mtr := monotonic_mtr &
	     [INPUT.RELS <[PRED "en:parg_d_rel"]>,
	      OUTPUT.RELS <+copy+ & 
			   [PRED parg_d_rel,
			    ARG1 [--PSV +]]>].