f[x_]:=3Cos[x]+1
g[x_]:=Cos[x]-1
Plot[{f[x],g[x]},{x,-2Pi,2Pi}]

Solve[f[x]==g[x],x]