diff options
| author | herbelin | 2011-05-26 10:54:43 +0000 |
|---|---|---|
| committer | herbelin | 2011-05-26 10:54:43 +0000 |
| commit | deb4df6668b6b1ecb6b6bb2164dddc29b1215bf1 (patch) | |
| tree | 8ed112269c8cb673e5ff598525249bed6048c105 /plugins/decl_mode | |
| parent | d4a2d6a80b57485467d6141f1140c2aee577495f (diff) | |
Check if recursive calls are guarded before printing "Proof completed".
(G_decl_mode.pr_open_subgoals still not reactivated...)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14158 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/decl_mode')
| -rw-r--r-- | plugins/decl_mode/g_decl_mode.ml4 | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/plugins/decl_mode/g_decl_mode.ml4 b/plugins/decl_mode/g_decl_mode.ml4 index 8ed3ae62d3..7c437ff567 100644 --- a/plugins/decl_mode/g_decl_mode.ml4 +++ b/plugins/decl_mode/g_decl_mode.ml4 @@ -38,11 +38,18 @@ let pr_goal gs = thesis ++ str " " ++ pc) ++ fnl () (* arnaud: rebrancher ça + +let is_guarded pts = + let { Evd.it=gl ; sigma=sigma } = Proof.V82.top_goal pts in + let c = List.hd (Proof.partial_proof pts) in + try let _ = Inductiveops.control_only_guard (Goal.V82.env sigma gl) c in true + with _ -> false + let pr_open_subgoals () = let p = Proof_global.give_me_the_proof () in let { Evd.it = goals ; sigma = sigma } = Proof.V82.subgoals p in let close_cmd = Decl_mode.get_end_command p in - pr_subgoals close_cmd sigma goals + pr_subgoals close_cmd (fun () -> is_guarded p) sigma goals *) let pr_proof_instr instr = |