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