diff options
| author | Hugo Herbelin | 2015-02-27 18:59:59 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-02-27 19:01:27 +0100 |
| commit | 9f09cbfe36c38a97644ea98c5497636fe74d98d6 (patch) | |
| tree | bd3b6dfa3d05c3bab72642a59feae667fa201e0d | |
| parent | e43abf43a78a5bbeed720d50cd1ea68fdfc672f2 (diff) | |
Taking current env and not global env in b286c9f4f42f (4 commits ago,
as revealed by #2141).
| -rw-r--r-- | pretyping/retyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index 213d7ddda4..a56861c683 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -109,7 +109,7 @@ let retype ?(polyprop=true) sigma = Inductiveops.find_rectype env sigma t with Not_found -> retype_error BadRecursiveType in - let n = inductive_nrealdecls (fst (fst (dest_ind_family indf))) in + let n = inductive_nrealdecls_env env (fst (fst (dest_ind_family indf))) in let t = betazetaevar_applist sigma n p realargs in (match kind_of_term (whd_betadeltaiota env sigma (type_of env t)) with | Prod _ -> whd_beta sigma (applist (t, [c])) |