X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_kernel%2FnCicUntrusted.ml;h=5df06d28d001cdfbc0d74a84e15fbbc2f5f1b91c;hb=348f1670b30f52db99187b2e92b45348e18ebbbe;hp=ba5ad9f5ad6480e744b9ea9bb53a0a3840721412;hpb=b3093b1353395ee96d03d9e3771798c3425ff4ac;p=helm.git

diff --git a/matita/components/ng_kernel/nCicUntrusted.ml b/matita/components/ng_kernel/nCicUntrusted.ml
index ba5ad9f5a..5df06d28d 100644
--- a/matita/components/ng_kernel/nCicUntrusted.ml
+++ b/matita/components/ng_kernel/nCicUntrusted.ml
@@ -269,7 +269,7 @@ let rec replace_in_subst i f = function
 ;;
           
 let set_kind newkind attrs = 
-  newkind :: List.filter (fun x -> not (is_kind x)) attrs 
+  (newkind :> NCic.meta_attr) :: List.filter (fun x -> not (is_kind x)) attrs 
 ;;
 
 let max_kind k1 k2 =