testPatternUsing _ (L1.L1PatternBind ss _) = return $ L1.L1ExReference ss (pathGlobal ss "true")
testPatternUsing _ (L1.L1PatternBind ss _) = return $ L1.L1ExReference ss (pathGlobal ss "true")
testPatternUsing _ (L1.L1PatternBind ss _) = return $ L1.L1ExReference ss (pathGlobal ss "true")