diff options
author | 2016-10-02 15:45:17 +0200 | |
---|---|---|
committer | 2016-10-02 15:47:09 +0200 | |
commit | b46020a6ea52d77b49a12e6891575b3516b8d766 (patch) | |
tree | bf1fe9bc6d70ac44111f755dca30ed3c4d90b286 /toplevel/record.ml | |
parent | d02c9c566c58e566a1453827038f2b49b695c0a5 (diff) | |
parent | decdd5b3cc322936f7d1e7cc3bb363a2957d404e (diff) |
Merge branch 'v8.6'
Diffstat (limited to 'toplevel/record.ml')
-rw-r--r-- | toplevel/record.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index de056fa9b..a8f8c9293 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -523,11 +523,9 @@ let add_inductive_class ind = | LocalDef _ -> None | LocalAssum (_, t) -> Some (lazy t) in - let args = List.map_filter map ctx in - let ty = Inductive.type_of_inductive_knowing_parameters + let ty = Inductive.type_of_inductive (push_rel_context ctx (Global.env ())) ((mind,oneind),inst) - (Array.of_list args) in { cl_impl = IndRef ind; cl_context = List.map (const None) ctx, ctx; |