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,8 +299,7 @@ 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".
306304#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
307305#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
@@ -335,8 +333,7 @@ Elpi Export HB.about.
335333Elpi Accumulate Db hb.db.
336334Elpi Accumulate File "HB/common/stdpp.elpi".
337335Elpi 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".
336+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
340337#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
341338#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
342339Elpi Accumulate File "HB/common/utils.elpi".
@@ -379,8 +376,7 @@ Elpi Export HB.howto.
379376Elpi Accumulate Db hb.db.
380377Elpi Accumulate File "HB/common/stdpp.elpi".
381378Elpi 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".
379+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
384380Elpi Accumulate File "HB/common/log.elpi".
385381#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
386382#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
@@ -411,8 +407,7 @@ tred file.dot | xdot -
411407Elpi Accumulate Db hb.db.
412408Elpi Accumulate File "HB/common/stdpp.elpi".
413409Elpi 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".
410+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
416411#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
417412#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
418413Elpi Accumulate File "HB/common/utils.elpi".
@@ -462,8 +457,7 @@ HB.mixin Record MixinName T of Factory1 T & … & FactoryN T := {
462457Elpi Accumulate Db hb.db.
463458Elpi Accumulate File "HB/common/stdpp.elpi".
464459Elpi 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".
460+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
467461#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
468462#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
469463Elpi Accumulate File "HB/common/utils.elpi".
@@ -546,8 +540,7 @@ Elpi Tactic HB.pack_for.
546540Elpi Accumulate Db hb.db.
547541Elpi Accumulate File "HB/common/stdpp.elpi".
548542Elpi 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".
543+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
551544#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
552545#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
553546Elpi Accumulate File "HB/common/utils.elpi".
@@ -571,8 +564,7 @@ Elpi Tactic HB.pack.
571564Elpi Accumulate Db hb.db.
572565Elpi Accumulate File "HB/common/stdpp.elpi".
573566Elpi 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".
567+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
576568#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
577569#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
578570Elpi Accumulate File "HB/common/utils.elpi".
@@ -649,8 +641,7 @@ HB.structure Definition StructureName params :=
649641Elpi Accumulate Db hb.db.
650642Elpi Accumulate File "HB/common/stdpp.elpi".
651643Elpi 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".
644+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
654645#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
655646#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
656647Elpi Accumulate File "HB/common/utils.elpi".
@@ -734,8 +725,7 @@ Elpi Export HB.structure.
734725Elpi Accumulate Db hb.db.
735726Elpi Accumulate File "HB/common/stdpp.elpi".
736727Elpi 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".
728+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
739729#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
740730#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
741731Elpi Accumulate File "HB/common/utils.elpi".
@@ -786,8 +776,7 @@ HB.instance Definition N Params := Factory.Build Params T …
786776Elpi Accumulate Db hb.db.
787777Elpi Accumulate File "HB/common/stdpp.elpi".
788778Elpi 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".
779+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
791780#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
792781#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
793782Elpi Accumulate File "HB/common/utils.elpi".
@@ -830,8 +819,7 @@ Elpi Export HB.instance.
830819Elpi Accumulate Db hb.db.
831820Elpi Accumulate File "HB/common/stdpp.elpi".
832821Elpi 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".
822+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
835823#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
836824#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
837825Elpi Accumulate File "HB/common/utils.elpi".
@@ -915,8 +903,7 @@ HB.end.
915903Elpi Accumulate Db hb.db.
916904Elpi Accumulate File "HB/common/stdpp.elpi".
917905Elpi 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".
906+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
920907#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
921908#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
922909Elpi Accumulate File "HB/common/utils.elpi".
@@ -958,8 +945,7 @@ Elpi Export HB.builders.
958945Elpi Accumulate Db hb.db.
959946Elpi Accumulate File "HB/common/stdpp.elpi".
960947Elpi 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".
948+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
963949#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
964950#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
965951Elpi Accumulate File "HB/common/utils.elpi".
@@ -1034,8 +1020,7 @@ Export Algebra.Exports.
10341020Elpi Accumulate Db hb.db.
10351021Elpi Accumulate File "HB/common/stdpp.elpi".
10361022Elpi 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".
1023+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
10391024#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
10401025#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
10411026Elpi Accumulate File "HB/common/utils.elpi".
@@ -1082,8 +1067,7 @@ Elpi Export HB.export.
10821067Elpi Accumulate Db hb.db.
10831068Elpi Accumulate File "HB/common/stdpp.elpi".
10841069Elpi 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".
1070+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
10871071#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
10881072#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
10891073Elpi Accumulate File "HB/common/utils.elpi".
@@ -1167,8 +1151,7 @@ HB.instance Definition _ : Ml ... T := ml.
11671151Elpi Accumulate Db hb.db.
11681152Elpi Accumulate File "HB/common/stdpp.elpi".
11691153Elpi 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".
1154+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
11721155#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
11731156#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
11741157Elpi Accumulate File "HB/common/utils.elpi".
@@ -1205,8 +1188,7 @@ Elpi Export HB.declare.
12051188Elpi Accumulate Db hb.db.
12061189Elpi Accumulate File "HB/common/stdpp.elpi".
12071190Elpi 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".
1191+ Elpi Accumulate File "HB/common/compat_acc_clauses_all.elpi".
12101192#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
12111193#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
12121194Elpi Accumulate File "HB/common/utils.elpi".
@@ -1246,8 +1228,3 @@ Notation "`Error_cannot_unify: t1 'with' t2" := (unify t1 t2 None)
12461228 Notation "`Error: t `is_not_canonically_a T" := (unify t _ (Some (is_not_canonically_a, T)))
12471229 (at level 0, T at level 0, format "`Error: t `is_not_canonically_a T", only printing) :
12481230 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