1
1
(* 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.
4
3
5
4
Variant error_msg := NoMsg | IsNotCanonicallyA (x : Type).
6
5
Definition unify T1 T2 (t1 : T1) (t2 : T2) (s : error_msg) :=
@@ -300,8 +299,7 @@ Elpi Accumulate Db hb.db.
300
299
Elpi Accumulate File "HB/common/stdpp.elpi".
301
300
Elpi Accumulate File "HB/common/utils.elpi".
302
301
Elpi 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".
305
303
Elpi Accumulate File "HB/common/log.elpi".
306
304
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
307
305
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
@@ -335,8 +333,7 @@ Elpi Export HB.about.
335
333
Elpi Accumulate Db hb.db.
336
334
Elpi Accumulate File "HB/common/stdpp.elpi".
337
335
Elpi 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".
340
337
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
341
338
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
342
339
Elpi Accumulate File "HB/common/utils.elpi".
@@ -379,8 +376,7 @@ Elpi Export HB.howto.
379
376
Elpi Accumulate Db hb.db.
380
377
Elpi Accumulate File "HB/common/stdpp.elpi".
381
378
Elpi 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".
384
380
Elpi Accumulate File "HB/common/log.elpi".
385
381
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
386
382
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
@@ -411,8 +407,7 @@ tred file.dot | xdot -
411
407
Elpi Accumulate Db hb.db.
412
408
Elpi Accumulate File "HB/common/stdpp.elpi".
413
409
Elpi 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".
416
411
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
417
412
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
418
413
Elpi Accumulate File "HB/common/utils.elpi".
@@ -462,8 +457,7 @@ HB.mixin Record MixinName T of Factory1 T & … & FactoryN T := {
462
457
Elpi Accumulate Db hb.db.
463
458
Elpi Accumulate File "HB/common/stdpp.elpi".
464
459
Elpi 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".
467
461
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
468
462
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
469
463
Elpi Accumulate File "HB/common/utils.elpi".
@@ -546,8 +540,7 @@ Elpi Tactic HB.pack_for.
546
540
Elpi Accumulate Db hb.db.
547
541
Elpi Accumulate File "HB/common/stdpp.elpi".
548
542
Elpi 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".
551
544
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
552
545
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
553
546
Elpi Accumulate File "HB/common/utils.elpi".
@@ -571,8 +564,7 @@ Elpi Tactic HB.pack.
571
564
Elpi Accumulate Db hb.db.
572
565
Elpi Accumulate File "HB/common/stdpp.elpi".
573
566
Elpi 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".
576
568
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
577
569
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
578
570
Elpi Accumulate File "HB/common/utils.elpi".
@@ -649,8 +641,7 @@ HB.structure Definition StructureName params :=
649
641
Elpi Accumulate Db hb.db.
650
642
Elpi Accumulate File "HB/common/stdpp.elpi".
651
643
Elpi 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".
654
645
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
655
646
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
656
647
Elpi Accumulate File "HB/common/utils.elpi".
@@ -734,8 +725,7 @@ Elpi Export HB.structure.
734
725
Elpi Accumulate Db hb.db.
735
726
Elpi Accumulate File "HB/common/stdpp.elpi".
736
727
Elpi 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".
739
729
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
740
730
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
741
731
Elpi Accumulate File "HB/common/utils.elpi".
@@ -786,8 +776,7 @@ HB.instance Definition N Params := Factory.Build Params T …
786
776
Elpi Accumulate Db hb.db.
787
777
Elpi Accumulate File "HB/common/stdpp.elpi".
788
778
Elpi 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".
791
780
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
792
781
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
793
782
Elpi Accumulate File "HB/common/utils.elpi".
@@ -830,8 +819,7 @@ Elpi Export HB.instance.
830
819
Elpi Accumulate Db hb.db.
831
820
Elpi Accumulate File "HB/common/stdpp.elpi".
832
821
Elpi 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".
835
823
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
836
824
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
837
825
Elpi Accumulate File "HB/common/utils.elpi".
@@ -915,8 +903,7 @@ HB.end.
915
903
Elpi Accumulate Db hb.db.
916
904
Elpi Accumulate File "HB/common/stdpp.elpi".
917
905
Elpi 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".
920
907
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
921
908
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
922
909
Elpi Accumulate File "HB/common/utils.elpi".
@@ -958,8 +945,7 @@ Elpi Export HB.builders.
958
945
Elpi Accumulate Db hb.db.
959
946
Elpi Accumulate File "HB/common/stdpp.elpi".
960
947
Elpi 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".
963
949
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
964
950
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
965
951
Elpi Accumulate File "HB/common/utils.elpi".
@@ -1034,8 +1020,7 @@ Export Algebra.Exports.
1034
1020
Elpi Accumulate Db hb.db.
1035
1021
Elpi Accumulate File "HB/common/stdpp.elpi".
1036
1022
Elpi 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".
1039
1024
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
1040
1025
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
1041
1026
Elpi Accumulate File "HB/common/utils.elpi".
@@ -1082,8 +1067,7 @@ Elpi Export HB.export.
1082
1067
Elpi Accumulate Db hb.db.
1083
1068
Elpi Accumulate File "HB/common/stdpp.elpi".
1084
1069
Elpi 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".
1087
1071
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
1088
1072
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
1089
1073
Elpi Accumulate File "HB/common/utils.elpi".
@@ -1167,8 +1151,7 @@ HB.instance Definition _ : Ml ... T := ml.
1167
1151
Elpi Accumulate Db hb.db.
1168
1152
Elpi Accumulate File "HB/common/stdpp.elpi".
1169
1153
Elpi 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".
1172
1155
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
1173
1156
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
1174
1157
Elpi Accumulate File "HB/common/utils.elpi".
@@ -1205,8 +1188,7 @@ Elpi Export HB.declare.
1205
1188
Elpi Accumulate Db hb.db.
1206
1189
Elpi Accumulate File "HB/common/stdpp.elpi".
1207
1190
Elpi 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".
1210
1192
#[skip="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_all.elpi".
1211
1193
#[only="8.1[89].*"] Elpi Accumulate File "HB/common/compat_add_secvar_18_19.elpi".
1212
1194
Elpi Accumulate File "HB/common/utils.elpi".
@@ -1246,8 +1228,3 @@ Notation "`Error_cannot_unify: t1 'with' t2" := (unify t1 t2 None)
1246
1228
Notation "`Error: t `is_not_canonically_a T" := (unify t _ (Some (is_not_canonically_a, T)))
1247
1229
(at level 0, T at level 0, format "`Error: t `is_not_canonically_a T", only printing) :
1248
1230
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