diff options
| -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 87f4a7b5f5..4d78ee179a 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) |