diff options
| author | Amin Timany | 2017-04-28 11:12:26 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-16 04:51:16 +0200 |
| commit | 9903b47cdccc2fe98a905ab085cb24ca36de1aed (patch) | |
| tree | 37249aac01e0dcdb8c3c9c9e6c65391f5ee6804f /vernac | |
| parent | 9468e4b49bd2f397b5e1bd2b7994cc84929fb6ac (diff) | |
Disable debug printing
Fix a mistake in record declaration
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/record.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 8a83dceeff..b95131b724 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -584,7 +584,7 @@ let definition_structure (kind,cum,poly,finite,(is_coe,((loc,idstruc),pl)),ps,cf let implfs = List.map (fun impls -> implpars @ Impargs.lift_implicits (succ (List.length params)) impls) implfs in - let ind = declare_structure Finite cum poly (Universes.univ_inf_ind_from_universe_context ctx) idstruc + let ind = declare_structure finite cum poly (Universes.univ_inf_ind_from_universe_context ctx) idstruc idbuild implpars params arity template implfs fields is_coe (List.map (fun coe -> not (Option.is_empty coe)) coers) sign in IndRef ind |