IF  'aic_geometrically_bounded_surface.cartesian_point' IN  TYPEOF  ( pnt ) THEN  RETURN  ( TRUE ) ; ELSE  IF  'aic_geometrically_bounded_surface.point_on_curve' IN  TYPEOF  ( pnt ) THEN  RETURN  ( gbsf_check_curve ( pnt \ point_on_curve . basis_curve ) ) ; ELSE  IF  'aic_geometrically_bounded_surface.point_on_surface' IN  TYPEOF  ( pnt ) THEN  RETURN  ( gbsf_check_surface ( pnt \ point_on_surface . basis_surface ) ) ; ELSE IF 'aic_geometrically_bounded_surface.degenerate_pcurve' IN TYPEOF ( pnt ) THEN RETURN  ( ( gbsf_check_curve ( pnt \ degenerate_pcurve . reference_to_curve \ representation . items [ 1 ] ) ) AND ( gbsf_check_surface ( pnt \ degenerate_pcurve . basis_surface ) ) ) ; END_IF  ; END_IF  ; END_IF  ; END_IF ; RETURN ( FALSE ) ;