diff options
| author | herbelin | 2012-10-04 22:08:08 +0000 |
|---|---|---|
| committer | herbelin | 2012-10-04 22:08:08 +0000 |
| commit | aa130b53c16a58c29f017510d876a31b674a2504 (patch) | |
| tree | ab141e0e10aa63aa2dddf899b04c34572580e1f6 /tactics | |
| parent | dcda0fbe3784d9cfa45ee5273e2354f3c7b2c9b8 (diff) | |
Improving error message when abtraction over goal (abstract_list_all
used when applying schemes - induction, rewrite, ...) is well-typed
but not of the right type.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15853 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index d598a97e6e..81c6308842 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -102,8 +102,9 @@ let make_inv_predicate env sigma indf realargs id status concl = | None -> 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 + fst (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 (* We lift to make room for the equations *) (hyps,lift nrealargs bodypred) |