FUNCTION cri (agg : AGGREGATE OF representation_item) : BOOLEAN;
  BEGIN
   IF  SIZEOF(QUERY( i1 <* agg |
      ('AUTOMOTIVE_DESIGN.MEASURE_REPRESENTATION_ITEM'
       IN  TYPEOF  (i1)) AND  (SIZEOF ( QUERY (i2 <* agg |
       ('AUTOMOTIVE_DESIGN.MEASURE_REPRESENTATION_ITEM'
        IN TYPEOF (i2)) AND  (i1 :<>: i2) AND 
        (i1\measure_with_unit.unit_component :=: i2\
         measure_with_unit.unit_component) ) ) = 1 ))) = 2 
   THEN
     RETURN  (TRUE);
    ELSE
     RETURN  (FALSE);
   END_IF;
  END;
 END_FUNCTION;

  BEGIN
   IF ((SIZEOF(agg) = 3) AND
       (SIZEOF(QUERY(i <* agg | 
               ('AUTOMOTIVE_DESIGN.COMPOUND_REPRESENTATION_ITEM' IN
                 TYPEOF(i)) AND
               cri(i\compound_representation_item.item_element)
             )) = 1))
    THEN
     RETURN  (TRUE);
    ELSE
     RETURN (FALSE);
   END_IF;
  END;