ada: Small preliminary cleanup in Sem_Ch3.Is_Visible_Component

There should be no functional changes.

gcc/ada/ChangeLog:

	* sem_ch3.adb (Is_Visible_Component): Fold Is_Local_Type predicate,
	reason only on type entities, and tidy up specific processing added
	for ACATS B730006 test.