I'm trying to define a function in a module as follows

```
test1[a_] : = Module[{sol1, g1, y},
sol1 = Reduce[a + x^2 == y, x];
g1[y_] : = Evaluate @ sol1[[1, -1]];
Impression[Definition[g1]];
g1[33]
]
```

This gives the exit

```
Attributes[g1$28580]= {Temporary}
g1$ 28,580[$Y[$Y[y$[y$_]: = - Sqrt[-3+y[-3+y[-3+y[-3+y$ 28580]-Sqrt[-3+$y[-3+$y[-3+y$[-3+y$28588]
```

As you can see, it does not work. the `there`

in the body of the function is `there$ 28,580`

, but no `y $`

. Is there a way to make this work?