let something_visible cm = 
    some_visible_out cm || some_visible_in cm || ctrl_visible cm