declare compatibility constant as canonical gref for primitive projec…

…tions
LPCIC · Mar 4, 2025 · 5b0cea5 · 5b0cea5
1 parent 2560ad0
commit 5b0cea5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/elpi/coq-lib.elpi b/elpi/coq-lib.elpi
@@ -510,6 +510,7 @@ coq.term->gref (global GR) GR :- !.
 coq.term->gref (pglobal GR _) GR :- !.
 coq.term->gref (app [Hd|_]) GR :- !, coq.term->gref Hd GR.
 coq.term->gref (let _ _ T x\x) GR :- !, coq.term->gref T GR.
+coq.term->gref (primitive (proj Proj _)) GR :- !, primitive-projection? Proj GR.
 :name "term->gref:fail"
 coq.term->gref Term _ :-
   fatal-error-w-data "term->gref: input has no global reference" Term.