diff options
| author | Gaëtan Gilbert | 2018-11-20 14:42:05 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-12-12 16:27:12 +0100 |
| commit | 0f3c1f242ec824a5772c47de61a6cddebe2ee8c8 (patch) | |
| tree | eff61fcff7d9d79a9757ee0a4f2d60da506902d0 /kernel | |
| parent | dfd4c4a2b50edf894a19cd50c43517e1804eadc9 (diff) | |
checker: check inductive types by roundtrip through the kernel.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 2 | ||||
| -rw-r--r-- | kernel/univ.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 93a91af1d7..d7c0cf13ec 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1034,6 +1034,8 @@ module ACumulativityInfo = struct type t = AUContext.t * Variance.t array + let repr (auctx,var) = AUContext.repr auctx, var + let pr prl (univs, variance) = AUContext.pr prl ~variance univs diff --git a/kernel/univ.mli b/kernel/univ.mli index 8327ff1644..d7097be570 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -400,6 +400,7 @@ module ACumulativityInfo : sig type t + val repr : t -> CumulativityInfo.t val univ_context : t -> AUContext.t val variance : t -> Variance.t array val leq_constraints : t -> Instance.t constraint_function |