11(* Support constants, to be kept in sync with shim/structures.v  *) 
2- From  Coq Require  Import  String ssreflect ssrfun.
3- Export  String.StringSyntax.
2+ From  Corelib Require  Import  ssreflect ssrfun.
43
54Variant  error_msg := NoMsg | IsNotCanonicallyA (x : Type).
65Definition  unify T1 T2 (t1 : T1) (t2 : T2) (s : error_msg) :=
@@ -300,11 +299,9 @@ Elpi Accumulate Db hb.db.
300299Elpi Accumulate File  "HB/common/stdpp.elpi".
301300Elpi Accumulate File  "HB/common/utils.elpi".
302301Elpi Accumulate File  "HB/common/database.elpi".
303- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
304- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
302+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
305303Elpi Accumulate File  "HB/common/log.elpi".
306- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
307- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
304+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
308305Elpi Accumulate File  "HB/about.elpi".
309306Elpi Accumulate lp:{{
310307
@@ -335,10 +332,8 @@ Elpi Export HB.about.
335332Elpi Accumulate Db hb.db.
336333Elpi Accumulate File  "HB/common/stdpp.elpi".
337334Elpi Accumulate File  "HB/common/database.elpi".
338- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
339- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
340- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
341- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
335+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
336+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
342337Elpi Accumulate File  "HB/common/utils.elpi".
343338Elpi Accumulate File  "HB/common/log.elpi".
344339Elpi Accumulate File  "HB/about.elpi".
@@ -379,11 +374,9 @@ Elpi Export HB.howto.
379374Elpi Accumulate Db hb.db.
380375Elpi Accumulate File  "HB/common/stdpp.elpi".
381376Elpi Accumulate File  "HB/common/database.elpi".
382- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
383- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
377+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
384378Elpi Accumulate File  "HB/common/log.elpi".
385- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
386- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
379+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
387380Elpi Accumulate File  "HB/common/utils.elpi".
388381Elpi Accumulate File  "HB/status.elpi".
389382Elpi Accumulate lp:{{
@@ -411,10 +404,8 @@ tred file.dot | xdot -
411404Elpi Accumulate Db hb.db.
412405Elpi Accumulate File  "HB/common/stdpp.elpi".
413406Elpi Accumulate File  "HB/common/database.elpi".
414- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
415- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
416- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
417- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
407+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
408+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
418409Elpi Accumulate File  "HB/common/utils.elpi".
419410Elpi Accumulate File  "HB/common/log.elpi".
420411Elpi Accumulate File  "HB/graph.elpi".
@@ -462,10 +453,8 @@ HB.mixin Record MixinName T of Factory1 T & … & FactoryN T := {
462453Elpi Accumulate Db hb.db.
463454Elpi Accumulate File  "HB/common/stdpp.elpi".
464455Elpi Accumulate File  "HB/common/database.elpi".
465- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
466- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
467- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
468- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
456+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
457+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
469458Elpi Accumulate File  "HB/common/utils.elpi".
470459Elpi Accumulate File  "HB/common/log.elpi".
471460Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -546,10 +535,8 @@ Elpi Tactic HB.pack_for.
546535Elpi Accumulate Db hb.db.
547536Elpi Accumulate File  "HB/common/stdpp.elpi".
548537Elpi Accumulate File  "HB/common/database.elpi".
549- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
550- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
551- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
552- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
538+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
539+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
553540Elpi Accumulate File  "HB/common/utils.elpi".
554541Elpi Accumulate File  "HB/common/log.elpi".
555542Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -571,10 +558,8 @@ Elpi Tactic HB.pack.
571558Elpi Accumulate Db hb.db.
572559Elpi Accumulate File  "HB/common/stdpp.elpi".
573560Elpi Accumulate File  "HB/common/database.elpi".
574- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
575- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
576- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
577- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
561+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
562+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
578563Elpi Accumulate File  "HB/common/utils.elpi".
579564Elpi Accumulate File  "HB/common/log.elpi".
580565Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -649,10 +634,8 @@ HB.structure Definition StructureName params :=
649634Elpi Accumulate Db hb.db.
650635Elpi Accumulate File  "HB/common/stdpp.elpi".
651636Elpi Accumulate File  "HB/common/database.elpi".
652- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
653- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
654- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
655- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
637+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
638+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
656639Elpi Accumulate File  "HB/common/utils.elpi".
657640Elpi Accumulate File  "HB/common/log.elpi".
658641Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -734,10 +717,8 @@ Elpi Export HB.structure.
734717Elpi Accumulate Db hb.db.
735718Elpi Accumulate File  "HB/common/stdpp.elpi".
736719Elpi Accumulate File  "HB/common/database.elpi".
737- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
738- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
739- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
740- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
720+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
721+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
741722Elpi Accumulate File  "HB/common/utils.elpi".
742723Elpi Accumulate File  "HB/common/log.elpi".
743724Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -786,10 +767,8 @@ HB.instance Definition N Params := Factory.Build Params T …
786767Elpi Accumulate Db hb.db.
787768Elpi Accumulate File  "HB/common/stdpp.elpi".
788769Elpi Accumulate File  "HB/common/database.elpi".
789- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
790- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
791- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
792- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
770+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
771+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
793772Elpi Accumulate File  "HB/common/utils.elpi".
794773Elpi Accumulate File  "HB/common/log.elpi".
795774Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -830,10 +809,8 @@ Elpi Export HB.instance.
830809Elpi Accumulate Db hb.db.
831810Elpi Accumulate File  "HB/common/stdpp.elpi".
832811Elpi Accumulate File  "HB/common/database.elpi".
833- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
834- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
835- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
836- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
812+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
813+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
837814Elpi Accumulate File  "HB/common/utils.elpi".
838815Elpi Accumulate File  "HB/common/log.elpi".
839816Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -915,10 +892,8 @@ HB.end.
915892Elpi Accumulate Db hb.db.
916893Elpi Accumulate File  "HB/common/stdpp.elpi".
917894Elpi Accumulate File  "HB/common/database.elpi".
918- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
919- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
920- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
921- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
895+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
896+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
922897Elpi Accumulate File  "HB/common/utils.elpi".
923898Elpi Accumulate File  "HB/common/log.elpi".
924899Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -958,10 +933,8 @@ Elpi Export HB.builders.
958933Elpi Accumulate Db hb.db.
959934Elpi Accumulate File  "HB/common/stdpp.elpi".
960935Elpi Accumulate File  "HB/common/database.elpi".
961- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
962- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
963- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
964- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
936+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
937+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
965938Elpi Accumulate File  "HB/common/utils.elpi".
966939Elpi Accumulate File  "HB/common/log.elpi".
967940Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -1034,10 +1007,8 @@ Export Algebra.Exports.
10341007Elpi Accumulate Db hb.db.
10351008Elpi Accumulate File  "HB/common/stdpp.elpi".
10361009Elpi Accumulate File  "HB/common/database.elpi".
1037- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1038- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
1039- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
1040- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
1010+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1011+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
10411012Elpi Accumulate File  "HB/common/utils.elpi".
10421013Elpi Accumulate File  "HB/common/log.elpi".
10431014Elpi Accumulate File  "HB/export.elpi".
@@ -1082,10 +1053,8 @@ Elpi Export HB.export.
10821053Elpi Accumulate Db hb.db.
10831054Elpi Accumulate File  "HB/common/stdpp.elpi".
10841055Elpi Accumulate File  "HB/common/database.elpi".
1085- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1086- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
1087- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
1088- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
1056+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1057+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
10891058Elpi Accumulate File  "HB/common/utils.elpi".
10901059Elpi Accumulate File  "HB/common/log.elpi".
10911060Elpi Accumulate File  "HB/export.elpi".
@@ -1167,10 +1136,8 @@ HB.instance Definition _ : Ml ... T := ml.
11671136Elpi Accumulate Db hb.db.
11681137Elpi Accumulate File  "HB/common/stdpp.elpi".
11691138Elpi Accumulate File  "HB/common/database.elpi".
1170- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1171- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
1172- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
1173- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
1139+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1140+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
11741141Elpi Accumulate File  "HB/common/utils.elpi".
11751142Elpi Accumulate File  "HB/common/log.elpi".
11761143Elpi Accumulate File  "HB/common/synthesis.elpi".
@@ -1205,10 +1172,8 @@ Elpi Export HB.declare.
12051172Elpi Accumulate Db hb.db.
12061173Elpi Accumulate File  "HB/common/stdpp.elpi".
12071174Elpi Accumulate File  "HB/common/database.elpi".
1208- #[skip="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1209- #[only="8.1[56].*"] Elpi Accumulate File  "HB/common/compat_acc_clauses_816.elpi".
1210- #[skip="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
1211- #[only="8.1[89].*"] Elpi Accumulate File  "HB/common/compat_add_secvar_18_19.elpi".
1175+ Elpi Accumulate File  "HB/common/compat_acc_clauses_all.elpi".
1176+ Elpi Accumulate File  "HB/common/compat_add_secvar_all.elpi".
12121177Elpi Accumulate File  "HB/common/utils.elpi".
12131178Elpi Accumulate File  "HB/common/log.elpi".
12141179Elpi Accumulate lp:{{
@@ -1246,8 +1211,3 @@ Notation "`Error_cannot_unify: t1 'with' t2" := (unify t1 t2 None)
12461211  Notation  "`Error: t `is_not_canonically_a T" := (unify t _ (Some (is_not_canonically_a, T)))
12471212  (at level 0, T at level 0, format "`Error:  t  `is_not_canonically_a  T", only printing) :
12481213  form_scope.
1249- Notation  "`Error: t msg T" := (unify t _ (Some (msg%string, T)))
1250-   (at level 0, msg, T at level 0, format "`Error:  t  msg  T", only printing) :
1251-   form_scope.
1252- 
1253- Global  Open  Scope  string_scope.
0 commit comments