blob: f4277b6c506514e5ced3d082fd48854d067094a4 (
plain)
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2017 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
open Names
open Environ
open Reductionops
open Libnames
open Globnames
open Misctypes
(** A Pretty-Printer for the Calculus of Inductive Constructions. *)
val assumptions_for_print : Name.t list -> Termops.names_context
val print_closed_sections : bool ref
val print_context : bool -> int option -> Lib.library_segment -> Pp.t
val print_library_entry : bool -> (object_name * Lib.node) -> Pp.t option
val print_full_context : unit -> Pp.t
val print_full_context_typ : unit -> Pp.t
val print_full_pure_context : unit -> Pp.t
val print_sec_context : reference -> Pp.t
val print_sec_context_typ : reference -> Pp.t
val print_judgment : env -> Evd.evar_map -> EConstr.unsafe_judgment -> Pp.t
val print_safe_judgment : env -> Evd.evar_map -> Safe_typing.judgment -> Pp.t
val print_eval :
reduction_function -> env -> Evd.evar_map ->
Constrexpr.constr_expr -> EConstr.unsafe_judgment -> Pp.t
val print_name : reference or_by_notation -> Pp.t
val print_opaque_name : reference -> Pp.t
val print_about : reference or_by_notation -> Pp.t
val print_impargs : reference or_by_notation -> Pp.t
(** Pretty-printing functions for classes and coercions *)
val print_graph : unit -> Pp.t
val print_classes : unit -> Pp.t
val print_coercions : unit -> Pp.t
val print_path_between : Classops.cl_typ -> Classops.cl_typ -> Pp.t
val print_canonical_projections : unit -> Pp.t
(** Pretty-printing functions for type classes and instances *)
val print_typeclasses : unit -> Pp.t
val print_instances : global_reference -> Pp.t
val print_all_instances : unit -> Pp.t
val inspect : int -> Pp.t
(** Locate *)
val print_located_qualid : reference -> Pp.t
val print_located_term : reference -> Pp.t
val print_located_tactic : reference -> Pp.t
val print_located_module : reference -> Pp.t
type object_pr = {
print_inductive : mutual_inductive -> Pp.t;
print_constant_with_infos : constant -> Pp.t;
print_section_variable : variable -> Pp.t;
print_syntactic_def : kernel_name -> Pp.t;
print_module : bool -> Names.module_path -> Pp.t;
print_modtype : module_path -> Pp.t;
print_named_decl : Context.Named.Declaration.t -> Pp.t;
print_library_entry : bool -> (object_name * Lib.node) -> Pp.t option;
print_context : bool -> int option -> Lib.library_segment -> Pp.t;
print_typed_value_in_env : Environ.env -> Evd.evar_map -> EConstr.constr * EConstr.types -> Pp.t;
print_eval : reduction_function -> env -> Evd.evar_map -> Constrexpr.constr_expr -> EConstr.unsafe_judgment -> Pp.t
}
val set_object_pr : object_pr -> unit
val default_object_pr : object_pr
|