diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-11 15:20:23 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-11 15:20:23 +0000 |
commit | 80105c8482bd487782dcab8161fa1fc1f3fdf635 (patch) | |
tree | c3f53d6b38f1fb70fab98948c17a20d2a0a119dd /parsing | |
parent | ec26ef7bdee30f93b53d53171fc881f8413cb7c1 (diff) |
Simplifying the call to print_no_goals and not calling it when no goal
is ongoing.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12184 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/printer.ml | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 37083eb46..b23f94a70 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -274,7 +274,7 @@ let default_pr_goal g = pr_ltype_env_at_top env g.evar_concl else (str " *** Declarative Mode ***" ++ fnl ()++fnl ()), - (str"thesis := " ++ fnl ()), + (str "thesis := " ++ fnl ()), pr_context_of env, pr_ltype_env_at_top env g.evar_concl in @@ -336,11 +336,11 @@ let default_pr_subgoals close_cmd sigma = function | None -> let exl = Evarutil.non_instantiated sigma in if exl = [] then - (str"Proof completed." ++ fnl ()) + (str"Proof completed." ++ fnl ()) else let pei = pr_evars_int 1 exl in (str "No more subgoals but non-instantiated existential " ++ - str "variables :" ++fnl () ++ (hov 0 pei)) + str "variables:" ++ fnl () ++ (hov 0 pei)) end | [g] -> let pg = default_pr_goal g in @@ -386,20 +386,15 @@ let pr_goal x = !printer_pr.pr_goal x (* End abstraction layer *) (**********************************************************************) -let pr_subgoals_of_pfts pfts = - let close_cmd = Decl_mode.get_end_command pfts in - let gls = fst (Refiner.frontier (proof_of_pftreestate pfts)) in - let sigma = (top_goal_of_pftreestate pfts).sigma in - pr_subgoals close_cmd sigma gls - let pr_open_subgoals () = let pfts = get_pftreestate () in + let gls = fst (frontier (proof_of_pftreestate pfts)) in match focus() with | 0 -> - pr_subgoals_of_pfts pfts + let sigma = (top_goal_of_pftreestate pfts).sigma in + let close_cmd = Decl_mode.get_end_command pfts in + pr_subgoals close_cmd sigma gls | n -> - let pf = proof_of_pftreestate pfts in - let gls = fst (frontier pf) in assert (n > List.length gls); if List.length gls < 2 then pr_subgoal n gls |