diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli
index 14540d7c16615d5432040e9506f1f91535fdeb33..0b3c80c1e1ce36736076678ff4fe41431366ac53 100644
--- a/src/proto_alpha/lib_protocol/alpha_context.mli
+++ b/src/proto_alpha/lib_protocol/alpha_context.mli
@@ -4879,9 +4879,6 @@ module Stake_distribution : sig
   val get_total_frozen_stake : context -> Cycle.t -> Tez.t tzresult Lwt.t
 
   module For_RPC : sig
-    val delegate_baking_power_for_cycle :
-      context -> Cycle.t -> Signature.public_key_hash -> int64 tzresult Lwt.t
-
     val delegate_current_baking_power :
       context -> Signature.public_key_hash -> int64 tzresult Lwt.t
   end
diff --git a/src/proto_alpha/lib_protocol/delegate_sampler.ml b/src/proto_alpha/lib_protocol/delegate_sampler.ml
index 5f11a87febefade8bc7b6c2fe676336ac223f398..a3801233c9e67e725f720f14717a5509305713aa 100644
--- a/src/proto_alpha/lib_protocol/delegate_sampler.ml
+++ b/src/proto_alpha/lib_protocol/delegate_sampler.ml
@@ -257,21 +257,6 @@ let clear_outdated_sampling_data ctxt ~new_cycle =
       Seed_storage.remove_for_cycle ctxt outdated_cycle
 
 module For_RPC = struct
-  let delegate_baking_power_for_cycle ctxt cycle delegate =
-    let open Lwt_result_syntax in
-    let* max_snapshot_index = Stake_storage.max_snapshot_index ctxt in
-    let* seed = Seed_storage.raw_for_cycle ctxt cycle in
-    let* selected_index =
-      compute_snapshot_index_for_seed ~max_snapshot_index seed
-    in
-    let* stake =
-      Storage.Stake.Staking_balance.Snapshot.get ctxt (selected_index, delegate)
-    in
-    let* staking_parameters =
-      Delegate_staking_parameters.of_delegate ctxt delegate
-    in
-    Lwt.return @@ Stake_context.baking_weight ctxt staking_parameters stake
-
   let delegate_current_baking_power ctxt delegate =
     let open Lwt_result_syntax in
     let* stake = Storage.Stake.Staking_balance.get ctxt delegate in
diff --git a/src/proto_alpha/lib_protocol/delegate_sampler.mli b/src/proto_alpha/lib_protocol/delegate_sampler.mli
index 75728dad1672ed2c1a711feb896038efcf037aa9..18cac67c0f6abafff024f747360fa610555c3a95 100644
--- a/src/proto_alpha/lib_protocol/delegate_sampler.mli
+++ b/src/proto_alpha/lib_protocol/delegate_sampler.mli
@@ -85,14 +85,6 @@ val select_distribution_for_cycle :
   Raw_context.t tzresult Lwt.t
 
 module For_RPC : sig
-  (** The baking power for a given delegate from the selected stake
-    snapshot of the current cycle. *)
-  val delegate_baking_power_for_cycle :
-    Raw_context.t ->
-    Cycle_repr.t ->
-    Signature.public_key_hash ->
-    int64 tzresult Lwt.t
-
   (** The baking power for a given delegate computed from its current
     stake. *)
   val delegate_current_baking_power :