diff options
author | Enrico Tassi <gareuselesinge@debian.org> | 2015-07-15 13:15:50 +0200 |
---|---|---|
committer | Enrico Tassi <gareuselesinge@debian.org> | 2015-07-15 13:15:50 +0200 |
commit | e347929583f820a2cc0296597b6382309e930989 (patch) | |
tree | cdc3f18fc5c66a9d3d7cc8404c6a295169e41fcc /toplevel/record.ml | |
parent | c01be74d81a5466c58f8dc6c568db286b0979997 (diff) | |
parent | 0aa2544d04dbd4b6ee665b551ed165e4fb02d2fa (diff) |
Merge tag 'upstream/8.5_beta2+dfsg' into test
Upstream version 8.5~beta2+dfsg
Diffstat (limited to 'toplevel/record.ml')
-rw-r--r-- | toplevel/record.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 55f53351..737b7fb5 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -472,10 +472,15 @@ let add_inductive_class ind = let k = let ctx = oneind.mind_arity_ctxt in let inst = Univ.UContext.instance mind.mind_universes in + let map = function + | (_, Some _, _) -> None + | (_, None, t) -> Some (lazy t) + in + let args = List.map_filter map ctx in let ty = Inductive.type_of_inductive_knowing_parameters (push_rel_context ctx (Global.env ())) ((mind,oneind),inst) - (Array.map (fun x -> lazy x) (Termops.extended_rel_vect 0 ctx)) + (Array.of_list args) in { cl_impl = IndRef ind; cl_context = List.map (const None) ctx, ctx; |