let alpha atoms args = let subst = Variable.build_subst args Variable.alphas in List.map snd subst, apply_subst subst atoms