aboutsummaryrefslogtreecommitdiff
path: root/vernac/command.ml
diff options
context:
space:
mode:
authorAmin Timany2017-03-28 19:24:02 +0200
committerEmilio Jesus Gallego Arias2017-06-16 04:45:18 +0200
commit44f462aa380de847452c0809d15c86649d5d6a7a (patch)
tree840d369425f4b5fc2f6c41fb8dba91e90e8cfbc4 /vernac/command.ml
parent1d3703be3ab41d016c776bb29d9f5eff0cdb401d (diff)
Extend definition of inductives to include subtyping info
Diffstat (limited to 'vernac/command.ml')
-rw-r--r--vernac/command.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/command.ml b/vernac/command.ml
index 998e7803e1..5f95a42a37 100644
--- a/vernac/command.ml
+++ b/vernac/command.ml
@@ -656,7 +656,7 @@ let interp_mutual_inductive (paramsl,indl) notations poly prv finite =
mind_entry_inds = entries;
mind_entry_polymorphic = poly;
mind_entry_private = if prv then Some false else None;
- mind_entry_universes = uctx;
+ mind_entry_universes = (uctx, Univ.UContext.empty);
},
pl, impls