let p_alpha_cv p = Fol.p_alpha_cv data_alpha_cv p