Thank you very much for your answers, in continuing my work i have the following problem : may you answer to me , why this error occur?
In[26]:= % /. Projectormetrich \[RightArrow] ProjectWith[metrich]
During evaluation of In[26]:= ReplaceAll::reps: {Projectormetrich\[RightArrow]ProjectWith[metrich]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing. >>
Out[26]= Projectormetrich[
RicciCD[-a, -b]] /.
Projectormetrich \[RightArrow] ProjectWith[metrich]