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