Adapt to coq/coq#19530

mit-plv · Nov 26, 2024 · 529bb7e · 529bb7e
1 parent c1caa08
commit 529bb7e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/coqutil/Tactics/reference_to_string.v b/src/coqutil/Tactics/reference_to_string.v
@@ -15,12 +15,12 @@ Ltac2 reference_of_constr c :=
 Ltac2 constr_string_basename_of_reference r :=
   constr_string_of_string (Ident.to_string (List.last (Env.path r))).
 Ltac2 constr_string_qualname_of_reference r :=
-  match Ident.of_string "Stdlib" with
+  match Ident.of_string "Rocq" with
   | None => constr_string_of_string ""
-  | Some ident_Stdlib =>
-      constr_string_of_string (String.join "." (List.map (fun x => if Ident.equal x ident_Stdlib then "Coq" else Ident.to_string x) (Env.path r)))
+  | Some ident_Init =>
+      constr_string_of_string (String.join "." (List.map (fun x => if Ident.equal x ident_Init then "Coq" else Ident.to_string x) (Env.path r)))
   end.
-  (* replace above hack by definition below when requiring Coq >= 8.21 *)
+  (* replace above hack by definition below when requiring Rocq >= 9.0 *)
   (* constr_string_of_string (String.join "." (List.map Ident.to_string (Env.path r))). *)
 Ltac2 constr_string_basename_of_constr_reference c :=
   constr_string_basename_of_reference (reference_of_constr c).