Thanks a lot for pointing out the error. I still got one error in solving the equation. One more doubt that how to define that metric you defined to set to equal to delta [I,j]. I have the following equation to solve to get the two rank tensor (\gamma_{ij}):
\gamma_{ij}\phi^{i}\phi^{j} = 1/12 V_{ij} v^{ij}. which suppose to give \gamma_{ij} = 1/12 \lambda_{abi}\lambda^{ab}_j , where v_{ij} = \lambda_{ijk}\phi^{k}.
DefTensor[w[-i, -j], M]
wDef = w[-i, -j] == VarD[\[Phi][i]][v[-j]]
wRule = ToRule[wDef, MetricOn -> All, ContractMetrics -> True]
AutomaticRules[w, wRule]
Solve[\[Gamma]1[-i, -j] \[Phi][i] \[Phi][j] == 1/12 w[i, j] w[-i, -j], \[Gamma]1[-i, -j]]
which gives result \[Gamma]1[-i, -j] -> (\[Lambda][-i, -l, -j] \[Lambda][ i, -k, j] \[Phi][k] \[Phi][l])/(12 \[Phi][i] \[Phi][j])
But I expected to get \[Gamma]1[-i, -j] -> (\[Lambda][-i, -l, -m] \[Lambda][ -j, l, m] )/12
Is there any efficient way to solve tensor equation in xACT.