let forall_lv ~fresh lv p =
    let qqv = match lv.lv_origin with
      | None -> WpFol.lv_to_fol_var lv
      | Some _cv -> (* TODO *) assert false
    in Fol.forall_pred M.prop_in_data ~fresh qqv p