Share the lookup of a renamed member's original stamp

Simplification: Find References repeated the lookup that fields and
constructors already used to reach the declaration a renamed member of an
applied functor comes from; both now use one helper.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Kr4cjoUi2f5VpMvE6wT9bo
Signed-off-by: Christoph Knittel <ck@cca.io>

Author: cknitt

analysis/src/references.ml

@@ -124,9 +124,9 @@ let declared_for_tip ~(stamps : Stamps.t) stamp (tip : Tip.t) =
     Stamps.find_module stamps stamp
     |> Option.map (fun x -> {x with Declared.item = ()})
 
-(* The type a renamed type of an applied functor comes from, whose fields
-   and constructors have source locations. *)
-let original_type_stamp (file : File.t) stamp =
+(* The declaration a renamed member of an applied functor comes from, such
+   as a type whose fields and constructors have source locations. *)
+let original_stamp (file : File.t) stamp =
   match Hashtbl.find_opt file.renamed_stamps stamp with
   | Some original -> original
   | None -> stamp
@@ -144,12 +144,12 @@ let constructor_of_type ({item = {kind}} : Type.t Declared.t) name =
   | _ -> None
 
 let get_field (file : File.t) stamp name =
-  match Stamps.find_type file.stamps (original_type_stamp file stamp) with
+  match Stamps.find_type file.stamps (original_stamp file stamp) with
   | None -> None
   | Some declared -> field_of_type declared name
 
 let get_constructor (file : File.t) stamp name =
-  match Stamps.find_type file.stamps (original_type_stamp file stamp) with
+  match Stamps.find_type file.stamps (original_stamp file stamp) with
   | None -> None
   | Some declared -> constructor_of_type declared name
 
@@ -166,7 +166,7 @@ let declared_uri ~state ~package (file : File.t) (declared : _ Declared.t) =
    its location, among the types declared there rather than read from a
    signature. *)
 let source_type ~state ~package (file : File.t) stamp =
-  match Stamps.find_type file.stamps (original_type_stamp file stamp) with
+  match Stamps.find_type file.stamps (original_stamp file stamp) with
   | Some declared -> Some (file, declared)
   | None -> (
     match Stamps.find_type file.stamps stamp with
@@ -485,11 +485,7 @@ type references = {
 
 let for_local_stamp ~state ~full:{file; extra; package} stamp (tip : Tip.t) =
   let env = Query_env.from_file file in
-  let stamp =
-    match Hashtbl.find_opt file.renamed_stamps stamp with
-    | Some original -> original
-    | None -> stamp
-  in
+  let stamp = original_stamp file stamp in
   match
     match tip with
     | Constructor name ->