X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;h=e520422160ab7fc77a41069b3970b960c4b2ca6d;hb=828a190748fe67669df59d8813d32e17a3bbfd7a;hp=1f02ee7d8e5406c713f32cff20d1e2926699a436;hpb=7954b6bd597d7999392bf9fe8d02b7c94f71925f;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCic.ml b/helm/software/components/ng_kernel/nCic.ml
index 1f02ee7d8..e52042216 100644
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -14,11 +14,13 @@
 (********************************* TERMS ************************************)
 
 type universe = (bool * NUri.uri) list 
-  (* Max of non-empty list of named universes, or their successor (when true) *)
+  (* Max of non-empty list of named universes, or their successor (when true) 
+   * The empty list represents type0 *)
 
 type sort = Prop | Type of universe
 
-type implicit_annotation = [ `Closed | `Type | `Hole | `Term ]
+type implicit_annotation =
+ [ `Closed | `Type | `Hole | `Term | `Typeof of int | `Vector ]
 
 type lc_kind = Irl of int | Ctx of term list