diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-08 17:22:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-24 16:22:39 +0200 |
| commit | e8eb53266491bfdd8dd40e8bc6df4399fb23c592 (patch) | |
| tree | 06c388228a544db2e30496d116cfaf7aee8cfdb0 /vernac/record.mli | |
| parent | 8b2a58026afe06d28238c374c0136bf1be6750a6 (diff) | |
Handle mutual record at the vernac level.
Highly spaghetti code, hopefully works.
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 |