diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-06-28 10:54:52 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-06-28 10:54:52 +0200 |
commit | 809eaea3c179ca23036ae807e8f8c1a749a027f7 (patch) | |
tree | 86a7f7a0484eee820dc0d7f57d3707e902210da6 /vernac/record.mli | |
parent | 2a036e512024d522846cc1b900ad06fe71c5733a (diff) | |
parent | 1e3d00fa7ef1641a1439be815ea5aa2624b7e728 (diff) |
Merge PR #7866: Implementation of mutual records in the higher strata
Diffstat (limited to 'vernac/record.mli')
-rw-r--r-- | vernac/record.mli | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/vernac/record.mli b/vernac/record.mli index b2c039f0b..7cf7da1e2 100644 --- a/vernac/record.mli +++ b/vernac/record.mli @@ -26,9 +26,14 @@ val declare_projections : (Name.t * bool) list * Constant.t option list val definition_structure : - inductive_kind * Decl_kinds.cumulative_inductive_flag * Decl_kinds.polymorphic * - Declarations.recursivity_kind * ident_decl with_coercion * local_binder_expr list * + inductive_kind -> Decl_kinds.cumulative_inductive_flag -> Decl_kinds.polymorphic -> + Declarations.recursivity_kind -> + (coercion_flag * + Names.lident * + universe_decl_expr option * + local_binder_expr list * (local_decl_expr with_instance with_priority with_notation) list * - Id.t * constr_expr option -> GlobRef.t + Id.t * constr_expr option) list -> + GlobRef.t list val declare_existing_class : GlobRef.t -> unit |