WMA link
SubValues
Note: this function is not in current Mathematica.
f[1][x_] := x
f[2][x_] := x ^ 2
SubValues[f]
Definition[f]