diff options
author | 2003-12-23 20:00:46 +0000 | |
---|---|---|
committer | 2003-12-23 20:00:46 +0000 | |
commit | 442febce538255a19467e98ba8b46a43726ea98c (patch) | |
tree | 6c516dd99e05e872344e0520ff3ccffaf8d8b52d /translate | |
parent | f3d21ba9d52c1f8e7ac032603954067dc574d5cf (diff) |
Reparation semantique casse de Pose en v7
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5138 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
-rw-r--r-- | translate/pptacticnew.ml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 8dd636c29..e0c8331ff 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -494,8 +494,17 @@ and pr_atom1 env = function hov 1 (str"(" ++ pr_name na ++ str " :=" ++ pr_lconstrarg env c ++ str")")) | TacForward (true,Anonymous,c) -> - hov 1 (str "pose" ++ pr_constrarg env c) + if Options.do_translate () then + (* Pose was buggy and was wrongly substituting in conclusion in v7 *) + hov 1 (str "set" ++ pr_constrarg env c) + else + hov 1 (str "pose" ++ pr_constrarg env c) | TacForward (true,Name id,c) -> + if Options.do_translate () then + hov 1 (str "set" ++ spc() ++ + hov 1 (str"(" ++ pr_id id ++ str " :=" ++ + pr_lconstrarg env c ++ str")")) + else hov 1 (str "pose" ++ spc() ++ hov 1 (str"(" ++ pr_id id ++ str " :=" ++ pr_lconstrarg env c ++ str")")) |