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

;;; Authors: 
;;; 2003-2006 Berthold Crysmann

;;; Copyright: DFKI GmbH

;relax-right-comma := relax-right-comma-unary-rule-type.

h-rel-extraposed := h-extra-rel-type.


bind-anc-1 :=
	   bind-anc & 
	   [args <[synsem.loc [
			       anc anc-to-bind &
				     [active.list <#tb . *list*>,
				      self.list <#tb>]] ]>].


bind-anc-2 :=
	   bind-anc & 
	   [args <[synsem.loc [
			       anc anc-to-bind &
				     [active.list <[],#tb . *list*>,
				      self.list <#tb>]] ]>].

bind-anc-3 :=
	   bind-anc & 
	   [args <[synsem.loc [
			       anc anc-to-bind &
				     [active.list <[],[],#tb . *list*>,
				      self.list <#tb>]] ]>].