LOCAL
      pd_set : SET  OF  property_definition := [];
      pdr_set : SET OF property_definition_representation := [];
      END_LOCAL;

 pd_set := bag_to_set (USEDIN (s_a_instance,
      'AUTOMOTIVE_DESIGN.PROPERTY_DEFINITION.DEFINITION'));
 IF (SIZEOF (pd_set) < 1 ) THEN RETURN  (pdr_set);
 END_IF;

 REPEAT i:= 1 TO HIINDEX (pd_set);
    pdr_set := pdr_set + (QUERY( pdr <* USEDIN (pd_set[i],
    'AUTOMOTIVE_DESIGN.PROPERTY_DEFINITION_REPRESENTATION.'+
    'DEFINITION') |
    'AUTOMOTIVE_DESIGN.SHAPE_DEFINITION_REPRESENTATION' 
    IN TYPEOF(pdr)));
 END_REPEAT;
 RETURN (pdr_set);