REPEAT  i := 1 TO  s . n_u ; REPEAT  j := 1 TO  s . n_v ; IF  NOT ( ( 'geometry_schema.b_spline_surface' IN  TYPEOF  ( s . segments [ i ] [ j ] . parent_surface ) ) OR ( 'geometry_schema.rectangular_trimmed_surface' IN TYPEOF ( s . segments [ i ] [ j ] . parent_surface ) ) ) THEN  RETURN  ( FALSE  ) ; END_IF  ; END_REPEAT  ; END_REPEAT  ; REPEAT  i := 1 TO  s . n_u - 1 ; REPEAT  j := 1 TO  s . n_v ; IF  s . segments [ i ] [ j ] . u_transition = discontinuous THEN  RETURN  ( FALSE  ) ; END_IF  ; END_REPEAT  ; END_REPEAT  ; REPEAT  i := 1 TO  s . n_u ; REPEAT j := 1 TO s . n_v - 1 ; IF s . segments [ i ] [ j ] . v_transition = discontinuous THEN RETURN  ( FALSE ) ; END_IF ; END_REPEAT  ; END_REPEAT ; RETURN ( TRUE ) ;