diff options
| author | herbelin | 2009-01-11 20:11:18 +0000 |
|---|---|---|
| committer | herbelin | 2009-01-11 20:11:18 +0000 |
| commit | 4d30972530c4ea6792f0c6e47c355a00e3b8c924 (patch) | |
| tree | da589bf0ac0de7fc6f7f29d385b62e2e881c55ee /tactics | |
| parent | 99477c6fb60caf8d780d46aefc763d5e594331a0 (diff) | |
- Deactivation of dynamic loading on Mac OS 10.5 (see bug #2024).
- Added dependency of mltop.ml4 into config/Makefile (see bug #2023).
- Fixed bug #1963 (dependent inversion building a universe-ill-formed
conversion problem).
- Incidentally, moved "Large non-propositional inductive ..." error
message to standard himsg.ml error displayer.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11774 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 46ce6e20b5..ca98cbc6f4 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -109,8 +109,8 @@ let make_inv_predicate env sigma indf realargs id status concl = match dflt_concl with | Some concl -> concl (*assumed it's some [x1..xn,H:I(x1..xn)]C*) | None -> - let sort = get_sort_of env sigma concl in - let p = make_arity env true indf sort in + let sort = get_sort_family_of env sigma concl in + let p = make_arity env true indf (new_sort_in_family sort) in Unification.abstract_list_all env (Evd.create_evar_defs sigma) p concl (realargs@[mkVar id]) in let hyps,bodypred = decompose_lam_n_assum (nrealargs+1) pred in |