diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-27 15:32:01 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-27 15:32:01 +0000 |
| commit | 5a44ea111daaddd4a0eae40068fb6d7ab2e351a9 (patch) | |
| tree | a1d851ea23cd0bacfd5133f88a2f427a93d22332 | |
| parent | a61c2199c86acf44d4b680a7f83596ef11bff316 (diff) | |
Hint Destruct mal affiche
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5007 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppvernacnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 87f4a7b5f..4d78ee179 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -221,7 +221,7 @@ let pr_hints local db h pr_c pr_pat = | HintsDestruct(name,i,loc,c,tac) -> str "Destruct " ++ pr_id name ++ str" :=" ++ spc() ++ hov 0 (int i ++ spc() ++ pr_destruct_location loc ++ spc() ++ - pr_c c ++ str " :=") ++ spc() ++ + pr_c c ++ str " =>") ++ spc() ++ pr_raw_tactic tac in hov 2 (str"Hint "++pr_locality local ++ pph ++ opth) |