diff options
| author | Gaëtan Gilbert | 2019-08-20 12:50:18 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-08-20 12:50:18 +0200 |
| commit | 9e1f8009141345f3232947c1d356b5def4ca7263 (patch) | |
| tree | 6f0f7b0e4f34822035ce8ab819f8c5b93eca806d /printing/printer.mli | |
| parent | 92f38826f767db01dbc51f2372b23e7b4e3b1aaa (diff) | |
| parent | d6d8229dd8d71cf8cac1d116426bf772a9b8821b (diff) | |
Merge PR #10291: Controlling typing flags with commands (no attribute)
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Diffstat (limited to 'printing/printer.mli')
| -rw-r--r-- | printing/printer.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/printing/printer.mli b/printing/printer.mli index a72f319636..788f303aee 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -191,7 +191,8 @@ val print_and_diff : Proof.t option -> Proof.t option -> unit type axiom = | Constant of Constant.t (* An axiom or a constant. *) | Positive of MutInd.t (* A mutually inductive definition which has been assumed positive. *) - | Guarded of Constant.t (* a constant whose (co)fixpoints have been assumed to be guarded *) + | Guarded of GlobRef.t (* a constant whose (co)fixpoints have been assumed to be guarded *) + | TypeInType of GlobRef.t (* a constant which relies on type in type *) type context_object = | Variable of Id.t (* A section variable or a Let definition *) @@ -207,3 +208,5 @@ val pr_assumptionset : env -> evar_map -> types ContextObjectMap.t -> Pp.t val pr_goal_by_id : proof:Proof.t -> Id.t -> Pp.t val pr_goal_emacs : proof:Proof.t option -> int -> int -> Pp.t + +val pr_typing_flags : Declarations.typing_flags -> Pp.t |