X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;h=f32f6842638e196c3a74db75ea1761d0fbfd58e4;hb=c0495bcd403a681e3abf1261068984f4e4e00128;hp=b2f3351c61ed1164b206260e4f4a4d8c8b7ef801;hpb=e43edcc6a209494839326fece1d141f9f189032a;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCic.ml b/helm/software/components/ng_kernel/nCic.ml
index b2f3351c6..f32f68426 100644
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -13,7 +13,7 @@
 
 (********************************* TERMS ************************************)
 
-type sort = Prop | Set | Type of int | CProp
+type sort = Prop | Type of int | CProp
 
 type implicit_annotation = [ `Closed | `Type | `Hole | `Term ]
 
@@ -60,6 +60,7 @@ type substitution = (int * subst_entry) list
 
 type relevance = bool list (* relevance of arguments for conversion *)
 
+                    (* relevance, name, recno, ty, bo *)
 type inductiveFun = relevance * string * int * term * term 
   (* if coinductive, the int has no meaning and must be set to -1 *)