Hint Resolve closed_wrt_temp closed_wrtl_temp : closed.

(* Specifications: *)
Lemma closed_wrt_get_result1 :
forall (S: ident -> Prop) i , ~ S i -> closed_wrt_vars S (get_result1 i).
Lemma closed_wrtl_get_result1 :
forall (S: ident -> Prop) i , closed_wrt_lvars S (get_result1 i).