LOCAL x : SET OF stratum_technology_swap_relationship_armx := [ ] ; END_LOCAL ; IF  relation . primary_stratum_technology IN  relatives THEN  RETURN  ( FALSE  ) ; END_IF  ; x := QUERY ( pd <* bag_to_set ( USEDIN ( relation . primary_stratum_technology , 'fabrication_technology_xim.' + 'stratum_technology_swap_relationship_armx.' + 'secondary_stratum_technology' ) ) | specific_relation IN TYPEOF ( pd ) ) ; REPEAT i := 1 TO HIINDEX ( x ) ; IF NOT acyclic_stratum_technology_swap_relationship ( x [ i ] , relatives + relation . primary_stratum_technology , specific_relation ) THEN RETURN  ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ;