diff options
| author | coqbot-app[bot] | 2020-10-15 11:14:59 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-15 11:14:59 +0000 |
| commit | fc0ee016b2bbffd73c5a9aa7784f2c255f80d39d (patch) | |
| tree | fad08d6382386ab76fd051e6c36adf5224635132 /printing/printer.ml | |
| parent | 56384cc09d6d9e9446e7c11aee5def865e28a4d5 (diff) | |
| parent | 6acd4e8f15d11d4ed735092428398a3a27590f03 (diff) | |
Merge PR #13140: Documenting Set Printing Goal Names + a small goal display fix
Reviewed-by: ejgallego
Reviewed-by: Zimmi48
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index a1a2d9ae51..bc26caefbe 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -765,9 +765,9 @@ let pr_subgoals ?(pr_first=true) ?(diffs=false) ?os_map v 0 ( int ngoals ++ focused_if_needed ++ str(String.plural ngoals "subgoal") ++ print_extra - ++ str (if (should_gname()) then ", subgoal 1" else "") - ++ (if should_tag() then pr_goal_tag g1 else str"") - ++ pr_goal_name sigma g1 ++ cut () ++ goals + ++ str (if pr_first && (should_gname()) && ngoals > 1 then ", subgoal 1" else "") + ++ (if pr_first && should_tag() then pr_goal_tag g1 else str"") + ++ (if pr_first then pr_goal_name sigma g1 else mt()) ++ cut () ++ goals ++ (if unfocused=[] then str "" else (cut() ++ cut() ++ str "*** Unfocused goals:" ++ cut() ++ pr_rec (List.length rest + 2) unfocused)) |