From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 30 Sep 2009 08:18:31 +0000 (+0000)
Subject: The term contains dummy.conv that was searched over the net.
X-Git-Tag: make_still_working~3413
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=61948e2e9b31460eb6a0bbd627c90a6549d65414;p=helm.git

The term contains dummy.conv that was searched over the net.
---

diff --git a/helm/software/components/ng_refiner/nCicUnifHint.ml b/helm/software/components/ng_refiner/nCicUnifHint.ml
index bdd5b080b..a17d7e8a6 100644
--- a/helm/software/components/ng_refiner/nCicUnifHint.ml
+++ b/helm/software/components/ng_refiner/nCicUnifHint.ml
@@ -342,11 +342,11 @@ let generate_dot_file status fmt =
                (NCicPp.ppterm 
                 ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] r)
             in
-            let hint = 
+            let hint =  "???" (*
               string_of_int precedence ^ "..." ^
               Str.global_substitute (Str.regexp "\n") (fun _ -> "")
                (NCicPp.ppterm 
-                ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] hint)
+                ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] hint)*)
             in
             nodes := (mangle l,l) :: (mangle r,r) :: !nodes;
             edges := (mangle l, mangle r, hint) :: !edges)