aboutsummaryrefslogtreecommitdiff
path: root/etc
diff options
context:
space:
mode:
authorKazuhiko Sakaguchi2019-09-26 09:48:48 +0200
committerKazuhiko Sakaguchi2019-10-02 11:23:14 +0200
commita899bb7ef1d6a2c35b1b9a646dfeae332972f5f6 (patch)
tree70932b486e720b964eda546c0a51dfbdf002bd69 /etc
parent9a3a4e63a1aa775dab774f261313d0e1031620da (diff)
Fix and improve the test suite and Makefile
- improve an error message produced by the `check_join` tactic, - fix the build of the test suite: `make test-suite`, and - add a new rule `only` to build a subset of MathComp.
Diffstat (limited to 'etc')
-rw-r--r--etc/utils/hierarchy.ml8
1 files changed, 7 insertions, 1 deletions
diff --git a/etc/utils/hierarchy.ml b/etc/utils/hierarchy.ml
index 33d598a..2bb7f6f 100644
--- a/etc/utils/hierarchy.ml
+++ b/etc/utils/hierarchy.ml
@@ -159,7 +159,13 @@ Tactic Notation "check_join"
_ (_ ?Tjoin) => Tjoin | _ ?Tjoin => Tjoin | ?Tjoin => Tjoin
end
in
- is_evar Tjoin;
+ match tt with
+ | _ => is_evar Tjoin
+ | _ =>
+ let Tjoin := eval simpl in (Tjoin : Type) in
+ fail "The join of" t1 "and" t2 "is a concrete type" Tjoin
+ "but is expected to be" tjoin
+ end;
let tjoin' := type of Tjoin in
lazymatch tjoin' with
| tjoin => idtac