X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Funiverse.ml;h=99041ed1ba33a8e1e526d1e96656f7c13a612046;hb=42f43b29d87e84825a3f6a65674dc30cd670333f;hp=6dbdb950ab1b66265ccb087058687fd4085d0bbd;hpb=c766b08f0a88082ec1711a793ef4077f34632c6f;p=helm.git

diff --git a/components/tactics/universe.ml b/components/tactics/universe.ml
index 6dbdb950a..99041ed1b 100644
--- a/components/tactics/universe.ml
+++ b/components/tactics/universe.ml
@@ -41,7 +41,7 @@ let get_candidates univ ty =
 let rec unfold context = function
   | Cic.Prod(name,s,t) -> 
       let t' = unfold ((Some (name,Cic.Decl s))::context) t in
-	Cic.Prod(name,s,t')	
+        Cic.Prod(name,s,t')        
   | t -> ProofEngineReduction.unfold context t
 
 let rec collapse_head_metas t = 
@@ -74,25 +74,26 @@ let rec collapse_head_metas t =
 let rec dummies_of_coercions = 
   function
     | Cic.Appl (c::l) when CoercDb.is_a_coercion' c ->
-	Cic.Meta (-1,[])
+        Cic.Meta (-1,[])
     | Cic.Appl l -> 
-	let l' = List.map dummies_of_coercions l in Cic.Appl l'
+        let l' = List.map dummies_of_coercions l in Cic.Appl l'
     | Cic.Lambda(n,s,t) ->
-	let s' = dummies_of_coercions s in
-	let t' = dummies_of_coercions t in
-	  Cic.Lambda (n,s',t')
+        let s' = dummies_of_coercions s in
+        let t' = dummies_of_coercions t in
+          Cic.Lambda (n,s',t')
     | Cic.Prod(n,s,t) ->
-	let s' = dummies_of_coercions s in
-	let t' = dummies_of_coercions t in
-	  Cic.Prod (n,s',t')	
+        let s' = dummies_of_coercions s in
+        let t' = dummies_of_coercions t in
+          Cic.Prod (n,s',t')        
     | Cic.LetIn(n,s,t) ->
-	let s' = dummies_of_coercions s in
-	let t' = dummies_of_coercions t in
-	  Cic.LetIn (n,s',t')	
+        let s' = dummies_of_coercions s in
+        let t' = dummies_of_coercions t in
+          Cic.LetIn (n,s',t')        
     | Cic.MutCase _ -> Cic.Meta (-1,[])
     | t -> t
 ;;
 
+
 let rec head remove_coercions t = 
   let clean_up t =
     if remove_coercions then dummies_of_coercions t
@@ -118,6 +119,8 @@ let keys context ty =
     [head true ty; head true (unfold context ty)]
   with ProofEngineTypes.Fail _ -> [head true ty]
 
+let key term = head false term
+
 let index_term_and_unfolded_term univ context t ty =
   let key = head true ty in
   let univ = index univ key t in