Remark bind_parameter_temps_inv:
forall id params args le le',
bind_parameter_temps params args le = Some le' ->
~In id (var_names params) ->
le'!id = le!id.

Lemma step_add_debug_params:
forall f s k e le m params vl le1,
list_norepet (var_names params) ->
list_forall2 val_casted vl (map snd params) ->
bind_parameter_temps params vl le1 = Some le ->
star step2 tge (State f (add_debug_params params s) k e le m)
E0 (State f s k e le m).