Does this do what you want?
Simplify[eq1,v0 (SuperStar[(Subscript[c, m])])==1]
which returns
-(1 - 2*A3 + A1*A3 + A4 - A1*A3*A4 - Imax + A4*Imax + (-1 + A4)*Sqrt[2*A2*A3 +
A1^2*A3^2 + (-1 + Imax)^2 - 2*A1*A3*Imax])/(2*(-1 + A3)*A4*v0)
Or this
eq1/.{v0 (SuperStar[(Subscript[c, m])])->1,v0^2 (SuperStar[(Subscript[c, m])])^2->1}
which returns this
(-1 + 2*A3 - A4 - (-1 + A4)*(-(A1*A3) + Imax + Sqrt[1 + 2*(A2*A3 - Imax) +
(-(A1*A3) + Imax)^2]))/(2*(-1 + A3)*A4*v0)