eq_note :: RnEnv2 -> Note -> Note -> Bool
eq_note _ (SCC cc1) (SCC cc2) = cc1 == cc2
eq_note _ (CoreNote s1) (CoreNote s2) = s1 == s2
eq_note :: RnEnv2 -> Note -> Note -> Bool
eq_note _ (SCC cc1) (SCC cc2) = cc1 == cc2
eq_note _ (CoreNote s1) (CoreNote s2) = s1 == s2