File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -83,21 +83,23 @@ under.do! Then LP :- Then (_\ std.do! LP) _.
8383%%%%% HB Utils %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8484
8585
86- % HACK: move to coq-elpi proper
86+ % HACK: move to coq-elpi proper, remove when coq-elpi > 1.9.2
8787type attmap attribute-type.
8888
8989% runs P in a context where Coq #[attributes] are parsed
9090pred with-attributes i:prop.
9191with-attributes P :-
9292 attributes A,
93- % HACK: move to coq-elpi proper
93+
94+ % HACK: move to coq-elpi proper, remove when coq-elpi > 1.9.2
9495(pi S L AS Prefix R R1 Map PS\
9596 parse-attributes.aux [attribute S (node L)|AS] Prefix R :-
9697 if (Prefix = "") (PS = S) (PS is Prefix ^ "." ^ S), supported-attribute (att PS attmap), !,
9798 parse-attributes.aux AS Prefix R1,
9899 (pi x\ supported-attribute (att x string) :- !) => parse-attributes.aux L "" Map,
99100 std.append R1 [get-option PS Map] R
100101) =>
102+
101103 coq.parse-attributes A [
102104 att "verbose" bool,
103105 att "mathcomp" bool,
You can’t perform that action at this time.
0 commit comments