1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
(************************************************************************)
(* * The Coq Proof Assistant / The Coq Development Team *)
(* v * Copyright INRIA, CNRS and contributors *)
(* <O___,, * (see version control and CREDITS file for authors & dates) *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(* * (see LICENSE file for the text of the license) *)
(************************************************************************)
open Names
open Environ
open Entries
open Constrexpr
open Libnames
(** Module internalization errors *)
type module_internalization_error =
| NotAModuleNorModtype of qualid
| NotAModuleType of qualid
| NotAModule of qualid
| IncorrectWithInModule
| IncorrectModuleApplication
exception ModuleInternalizationError of module_internalization_error
(** Module expressions and module types are interpreted relatively to
possible functor or functor signature arguments. When the input kind
is ModAny (i.e. module or module type), we tries to interprete this ast
as a module, and in case of failure, as a module type. The returned
kind is never ModAny, and it is equal to the input kind when this one
isn't ModAny. *)
type module_kind = Module | ModType | ModAny
(** Module internalization, i.e. from AST to module expression *)
val intern_module_ast :
module_kind -> module_ast -> (universe_decl_expr option * constr_expr) Declarations.module_alg_expr * ModPath.t * module_kind
(** Module interpretation, i.e. from module expression to typed module entry *)
val interp_module_ast :
env -> module_kind -> ModPath.t -> (universe_decl_expr option * constr_expr) Declarations.module_alg_expr -> module_struct_entry * Univ.ContextSet.t
|
