aboutsummaryrefslogtreecommitdiffhomepage
path: root/checker/inductive.ml
diff options
context:
space:
mode:
authorGravatar Amin Timany <amintimany@gmail.com>2017-05-02 19:53:05 +0200
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-06-16 04:51:17 +0200
commitd6898781f9cd52ac36a4891d7b169ddab7b8af50 (patch)
tree880ef0bcad043f083a6157644d10e068b8185b4c /checker/inductive.ml
parent4bf85270a36a0a3f9517d8bce92d843f882af00a (diff)
Correct coqchk reduction
Diffstat (limited to 'checker/inductive.ml')
-rw-r--r--checker/inductive.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml
index f890adba9..30c5f878a 100644
--- a/checker/inductive.ml
+++ b/checker/inductive.ml
@@ -56,7 +56,7 @@ let inductive_params (mib,_) = mib.mind_nparams
let inductive_instance mib =
if mib.mind_polymorphic then
- UContext.instance mib.mind_universes
+ UContext.instance (UInfoInd.univ_context mib.mind_universes)
else Instance.empty
(************************************************************************)