Hint Resolve gensym_within within_widen contained_widen
contained_cons contained_app contained_disjoint
contained_notin contained_nil
dest_for_set_seqbool_val dest_for_set_seqbool_set
dest_for_set_condition_val dest_for_set_condition_set
sd_temp_notin dest_below_le
incl_refl incl_tl incl_app incl_appl incl_appr incl_same_head
in_eq in_cons
Ple_trans Ple_refl: gensym.
Hint Resolve dest_for_val_below dest_for_effect_below.
(** ** Correctness of the translation functions *)

Lemma finish_meets_spec_1:
forall dst sl a sl' a',
finish dst sl a = (sl', a') -> sl' = sl ++ final dst a.