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 ;