let term_lhost pos = function
  | TVar v -> mkexpr (JCPEvar v.lv_name) pos
  | TResult _ -> mkexpr (JCPEvar "\\result") pos
  | TMem _ -> assert false