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/univ.ml | |
| parent | dfd4c4a2b50edf894a19cd50c43517e1804eadc9 (diff) | |
checker: check inductive types by roundtrip through the kernel.
Diffstat (limited to 'kernel/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 2 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 |