diff options
| author | Kazuhiko Sakaguchi | 2019-09-26 09:48:48 +0200 |
|---|---|---|
| committer | Kazuhiko Sakaguchi | 2019-10-02 11:23:14 +0200 |
| commit | a899bb7ef1d6a2c35b1b9a646dfeae332972f5f6 (patch) | |
| tree | 70932b486e720b964eda546c0a51dfbdf002bd69 /etc/utils/hierarchy.ml | |
| parent | 9a3a4e63a1aa775dab774f261313d0e1031620da (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/utils/hierarchy.ml')
| -rw-r--r-- | etc/utils/hierarchy.ml | 8 |
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 |
