IF 'AIC_GEOMETRICALLY_BOUNDED_WIREFRAME.CARTESIAN_POINT' IN  TYPEOF  (pnt) THEN  
 RETURN  (TRUE);
 ELSE  
 IF  'AIC_GEOMETRICALLY_BOUNDED_WIREFRAME.POINT_ON_CURVE' IN  TYPEOF  (pnt) THEN  
 RETURN  (valid_geometrically_bounded_wf_curve(pnt\point_on_curve.basis_curve));
 ELSE 
 IF 'AIC_GEOMETRICALLY_BOUNDED_WIREFRAME.POINT_REPLICA' IN TYPEOF (pnt) THEN 
 RETURN  (valid_geometrically_bounded_wf_point(pnt\point_replica.parent_pt));
 END_IF  ;
 END_IF  ;
 END_IF ;
 RETURN (FALSE);