%query 1 *
C : trans empty F (app (lam [x] lam [y] x) (lam [z] z)).

%query 1 *
D' : feval empty (app' (lam' (lam' (1 ^))) (lam' 1)) W.

%query 1 *
vtrans (clo (empty , clo empty (lam' 1)) (lam' (1 ^))) V.

%query 2 *
trans empty F (lam [x] lam [y] app x x).

%solve d0 : eval (lam [x] x) V.
%solve c0 : trans empty F (lam [x] x).
%query 1 * map_eval d0 c0 D' U.

%solve d1' : feval empty (lam' 1) W.
%solve c1 : trans empty (lam' 1) E.
%query 1 * map_eval D0 c1 d1' U.