diff --git a/astlib/migrate_502_503.ml b/astlib/migrate_502_503.ml
index 6d276d99..3d81a286 100644
--- a/astlib/migrate_502_503.ml
+++ b/astlib/migrate_502_503.ml
@@ -1277,24 +1277,4 @@ and copy_loc :
  fun f0 { Ast_502.Asttypes.txt; Ast_502.Asttypes.loc } ->
   { Ast_503.Asttypes.txt = f0 txt; Ast_503.Asttypes.loc = copy_location loc }
 
-and copy_location : Location.t -> Location.t =
- fun { Location.loc_start; Location.loc_end; Location.loc_ghost } ->
-  {
-    Location.loc_start = copy_position loc_start;
-    Location.loc_end = copy_position loc_end;
-    Location.loc_ghost;
-  }
-
-and copy_position : Stdlib.Lexing.position -> Stdlib.Lexing.position =
- fun {
-       Stdlib.Lexing.pos_fname;
-       Stdlib.Lexing.pos_lnum;
-       Stdlib.Lexing.pos_bol;
-       Stdlib.Lexing.pos_cnum;
-     } ->
-  {
-    Stdlib.Lexing.pos_fname;
-    Stdlib.Lexing.pos_lnum;
-    Stdlib.Lexing.pos_bol;
-    Stdlib.Lexing.pos_cnum;
-  }
+and copy_location : Location.t -> Location.t = fun x -> x
diff --git a/astlib/migrate_503_502.ml b/astlib/migrate_503_502.ml
index 036356ef..2bf5d5ab 100644
--- a/astlib/migrate_503_502.ml
+++ b/astlib/migrate_503_502.ml
@@ -1274,24 +1274,4 @@ and copy_loc :
  fun f0 { Ast_503.Asttypes.txt; Ast_503.Asttypes.loc } ->
   { Ast_502.Asttypes.txt = f0 txt; Ast_502.Asttypes.loc = copy_location loc }
 
-and copy_location : Location.t -> Location.t =
- fun { Location.loc_start; Location.loc_end; Location.loc_ghost } ->
-  {
-    Location.loc_start = copy_position loc_start;
-    Location.loc_end = copy_position loc_end;
-    Location.loc_ghost;
-  }
-
-and copy_position : Stdlib.Lexing.position -> Stdlib.Lexing.position =
- fun {
-       Stdlib.Lexing.pos_fname;
-       Stdlib.Lexing.pos_lnum;
-       Stdlib.Lexing.pos_bol;
-       Stdlib.Lexing.pos_cnum;
-     } ->
-  {
-    Stdlib.Lexing.pos_fname;
-    Stdlib.Lexing.pos_lnum;
-    Stdlib.Lexing.pos_bol;
-    Stdlib.Lexing.pos_cnum;
-  }
+and copy_location : Location.t -> Location.t = fun x -> x