X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2Fdiscrimination_tree.ml;h=18bc73eb5447280d159c54d087a434468c4b90e6;hb=d5c1f34cd226898525168e470d3e2ec273699826;hp=bab98921df04691b090c6e8e3020de76e5ccf5bb;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/cic/discrimination_tree.ml b/helm/software/components/cic/discrimination_tree.ml
index bab98921d..18bc73eb5 100644
--- a/helm/software/components/cic/discrimination_tree.ml
+++ b/helm/software/components/cic/discrimination_tree.ml
@@ -37,9 +37,10 @@ module DiscriminationTreeIndexing =
       
       let arities = Hashtbl.create 11;;
 
+      let shared_implicit = [Cic.Implicit None]
 
       let rec path_string_of_term = function
-	| Cic.Meta _ -> [Cic.Implicit None]
+	| Cic.Meta _ -> shared_implicit
 	| Cic.Appl ((hd::tl) as l) ->
 	    if not (Hashtbl.mem arities hd) then
               Hashtbl.add arities hd (List.length tl);