let pred_forall ~fresh v p = let lv = match Fol.lvar_of_variable v with | Some lv -> lv | _ -> abort "forall with named variable" (* TODO *) in forall_lv ~fresh lv p