diff options
Diffstat (limited to 'interp/discharge.ml')
-rw-r--r-- | interp/discharge.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/interp/discharge.ml b/interp/discharge.ml index e16a955d..0e44a8b4 100644 --- a/interp/discharge.ml +++ b/interp/discharge.ml @@ -111,9 +111,10 @@ let process_inductive info modlist mib = let section_decls' = Context.Named.map discharge section_decls in let (params',inds') = abstract_inductive section_decls' nparamdecls inds in let record = match mib.mind_record with - | Some (Some (id, _, _)) -> Some (Some id) - | Some None -> Some None - | None -> None + | PrimRecord info -> + Some (Some (Array.map pi1 info)) + | FakeRecord -> Some None + | NotRecord -> None in { mind_entry_record = record; mind_entry_finite = mib.mind_finite; |