diff options
| author | Amin Timany | 2017-04-06 19:03:24 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-16 04:45:20 +0200 |
| commit | c07215582ab75faeea864827b153eed80a28527a (patch) | |
| tree | e54ac354dad67269d709f065890e373822d7d2b6 /vernac/command.ml | |
| parent | bef2e53ae2286d0a7c61697f7a7a71bfdc0a3c99 (diff) | |
Change the place of inference after sect discharge
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 35b75370e4..2d4f051345 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -660,7 +660,10 @@ let interp_mutual_inductive (paramsl,indl) notations poly prv finite = mind_entry_private = if prv then Some false else None; mind_entry_universes = ground_uinfind; } - in (Inductiveops.infer_inductive_subtyping env_ar_params evd mind_ent), pl, impls + in + (if poly then + Inductiveops.infer_inductive_subtyping env_ar_params evd mind_ent + else mind_ent), pl, impls (* Very syntactical equality *) let eq_local_binders bl1 bl2 = |