X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;h=97733891e8745b4e3251500878f4804abe1743ef;hb=105236d275296be7ab2561f83ec539a1d166b445;hp=d3bc8d793730e7cf8c6b1dc471b254beb98063f4;hpb=57e708bca8555d6146c4e3d07c0a9b6a546373ce;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCic.ml b/helm/software/components/ng_kernel/nCic.ml
index d3bc8d793..97733891e 100644
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -14,16 +14,18 @@
 (********************************* 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 ]
 
 type lc_kind = Irl of int | Ctx of term list
 
 and local_context = int * lc_kind             (* shift (0 -> no shift), 
-                                                 subst (None means id) *) 
+                                                 subst (Irl n means id of
+						 length n) *) 
 and term =
  | Rel      of int                            (* DeBruijn index, 1 based    *)
  | Meta     of int * local_context
@@ -46,7 +48,7 @@ type context_entry =                       (* A declaration or definition *)
  | Decl of term                            (* type *)
  | Def  of term * term                     (* body, type *)
 
-type hypothesis = string * context_entry   
+type hypothesis = string * context_entry   (* name, entry *)
 
 type context = hypothesis list
 
@@ -54,7 +56,7 @@ type conjecture = string option * context * term
 
 type metasenv = (int * conjecture) list
 
-type subst_entry = string option * context * term * term
+type subst_entry = string option * context * term * term (* name,ctx,bo,ty *)
 
 type substitution = (int * subst_entry) list