diff options
| author | Pierre-Marie Pédrot | 2018-12-13 13:47:43 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-13 13:47:43 +0100 |
| commit | 228f0d929bb5098d58cd285fde42bb08d70c6ee8 (patch) | |
| tree | 3ae8d70a8975d862cc8290ffe475cfe149c013be /kernel | |
| parent | caa4a00c4d428325484a8701fbf585e8d522acdf (diff) | |
| parent | 0f3c1f242ec824a5772c47de61a6cddebe2ee8c8 (diff) | |
Merge PR #9032: 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 |