function y= fvalue2(x, c, gamma_t, beta, tau_t, theta, delta_t, alpha, kprime,T)

cprime=x(1);
hprime=x(2);


% Euler equation
y_1= c/gamma_t*beta*(1+(1-tau_t)*(theta*(kprime/hprime)^(theta-1)-delta_t))-cprime;

% labor leisure choice
y_2= T-alpha*cprime/((1-theta)*(kprime/hprime)^theta)-hprime;

y=[y_1 y_2];