checkSameNameInEnvironment (ENV su chs) = or $ map checkSameNameInEnvironment chs
checkSameNameInEnvironment (ENV su chs) = or $ map checkSameNameInEnvironment chs
checkSameNameInEnvironment (ENV su chs) = or $ map checkSameNameInEnvironment chs