We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 53b0779 commit 41b7f87Copy full SHA for 41b7f87
src/rocq_elpi_HOAS.ml
@@ -622,11 +622,7 @@ module GRSet = U.Set.Make(GROrd)
622
let globalc = E.Constants.declare_global_symbol "global"
623
let pglobalc = E.Constants.declare_global_symbol "pglobal"
624
625
-module GrefCache = Hashtbl.Make(struct
626
- type t = GlobRef.t
627
- let equal = GlobRef.SyntacticOrd.equal
628
- let hash = GlobRef.SyntacticOrd.hash
629
-end)
+module GrefCache = Hashtbl.Make(GlobRef.UserOrd)
630
let cache = GrefCache.create 13
631
632
let assert_in_coq_gref_consistent ~poly gr =
0 commit comments