Hint Rewrite normal_ret_assert_FF frame_normal frame_for1 frame_loop1
overridePost_normal: normalize.
Definition function_body_ret_assert (ret: type) (Q: assert) : ret_assert :=
{| RA_normal := seplog.FF;
RA_break := seplog.FF;
RA_continue := seplog.FF;
RA_return := fun vl => bind_ret vl ret Q |}.

Lemma same_glob_funassert:
forall Delta1 Delta2,
(forall id, (glob_specs Delta1) ! id = (glob_specs Delta2) ! id) ->
funassert Delta1 = funassert Delta2.