kill(all);

yp1: 3*x-2*y+5;

yp2:1/(2*y+x);

yp1=yp2;

s:solve(yp1=yp2,y);

a:first(s);

b:second(s);

rhs(a)=rhs(b);

soln:first(solve(rhs(a)=rhs(b),x));

substitute(second(soln),x,b);