diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/decl_mode/g_decl_mode.ml4 | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/plugins/decl_mode/g_decl_mode.ml4 b/plugins/decl_mode/g_decl_mode.ml4 index 7c437ff567..8ed3ae62d3 100644 --- a/plugins/decl_mode/g_decl_mode.ml4 +++ b/plugins/decl_mode/g_decl_mode.ml4 @@ -38,18 +38,11 @@ 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 (fun () -> is_guarded p) sigma goals + pr_subgoals close_cmd sigma goals *) let pr_proof_instr instr = |