diff options
| author | Hugo Herbelin | 2020-10-04 23:03:37 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-10-30 15:12:26 +0100 |
| commit | c3dcb5ac72bd33ffa24e0fa64ff3293135267fdd (patch) | |
| tree | cbdffec99c4920bbd790dcd0e3e8cc35ba1126e8 /printing | |
| parent | 473160ebe4a835dde50d6c209ab17c7e1b84979c (diff) | |
Adding support for printing goal names in CoqIDE.
Co-authored-by: Théo Zimmermann <theo.zimmi@gmail.com>
Co-authored-by: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 2 | ||||
| -rw-r--r-- | printing/printer.mli | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index be1cc0d64a..ea718526de 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -45,6 +45,8 @@ let should_gname = ~key:["Printing";"Goal";"Names"] ~value:false +let print_goal_names = should_gname (* for export *) + (**********************************************************************) (** Terms *) diff --git a/printing/printer.mli b/printing/printer.mli index a25cbebe91..ea388ae57e 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -264,3 +264,6 @@ 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 + +(** Tells if flag "Printing Goal Names" is activated *) +val print_goal_names : unit -> bool |