diff options
| author | herbelin | 2009-01-04 18:41:02 +0000 |
|---|---|---|
| committer | herbelin | 2009-01-04 18:41:02 +0000 |
| commit | 911cb86d51ab4f565996829b4a30cc28c52d7130 (patch) | |
| tree | 1cd043e037b53e62104c378c1e64c7edae72750e | |
| parent | add6407b394715d29d1544ff3e59ee717601230a (diff) | |
Bug dans commit 11743
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11744 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/command.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 1273d43feb..8d480ef2f2 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -1220,7 +1220,8 @@ let start_proof_com kind thms hook = List.iter (fun (strength,ref,imps) -> maybe_declare_manual_implicits false ref imps; hook strength ref) thms_data in - start_proof id kind t ?init_tac:rec_tac ~compute_guard:true hook + start_proof id kind t ?init_tac:rec_tac + ~compute_guard:(rec_tac<>None) hook let check_anonymity id save_ident = if atompart_of_id id <> "Unnamed_thm" then |