X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.ml;h=57a2a4f178d5056c6131778a9458938c1b25afd1;hb=1f3e810634367e2ce4b929a935ac6f3553870632;hp=655c8f17a06708990d5fcff0a9441a41073a04e0;hpb=0bd584a839bae570f44c4a5f8a06cdbc55fe0726;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index 655c8f17a..57a2a4f17 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -22,14 +22,15 @@ let map_term_fold_a g k f a = function
  | C.Rel _ as t -> a,t
  | C.Appl [] | C.Appl [_] -> assert false
  | C.Appl l as orig ->
-    let a,l = 
+    let a,l1 = 
       (* sharing fold? *)
-      List.fold_right (fun t (a,l) -> let a,t = f k a t in a, t :: l) l (a,[])
+      List.fold_right 
+        (fun t (a,l) -> let a,t = f k a t in a, t :: l) 
+        l (a,[])
     in
-    a, (match l with
+    a, if l1 == l then orig else (match l1 with
        | C.Appl l :: tl -> C.Appl (l@tl)
-       | l1 when l == l1 -> orig
-       | l1 -> C.Appl l1)
+       | _ -> C.Appl l1)
  | C.Prod (n,s,t) as orig ->
      let a,s1 = f k a s in let a,t1 = f (g (n,C.Decl s) k) a t in
      a, if t1 == t && s1 == s then orig else C.Prod (n,s1,t1)
@@ -71,3 +72,12 @@ let metas_of_term subst context term =
     HExtlib.list_uniq (List.sort Pervasives.compare (aux context [] term))
 ;;
 
+module NCicHash =
+ Hashtbl.Make
+  (struct
+    type t = C.term
+    let equal = (==)
+    let hash = Hashtbl.hash_param 100 1000 
+   end)
+;;
+