substituteExpr sub i@(EShiftL e1 e2)  = EShiftL (substituteExpr sub e1) (substituteExpr sub e2)
substituteExpr sub i@(EShiftL e1 e2)  = EShiftL (substituteExpr sub e1) (substituteExpr sub e2)
substituteExpr sub i@(EShiftL e1 e2)  = EShiftL (substituteExpr sub e1) (substituteExpr sub e2)