Hint Rewrite loop1_ret_assert_normal: ret_assert.

(* Specifications: *)
Lemma unfold_make_args': forall fsig args rho,
make_args' fsig args rho = make_args (map (@fst _ _) (fst fsig)) (args rho) rho.
Lemma eval_make_args_other:
forall {cs: compspecs}  i j fsig t0 t t' tl (e: expr) el,
i<>j ->
`(eval_id i) (make_args' ((j,t)::fsig, t0) (eval_exprlist (t'::tl) (e::el))) =
`(eval_id i) (make_args' (fsig, t0) (eval_exprlist tl el)).