X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;h=a9cc9a671f39161afc8500eec4f012d2769fc589;hb=f919cce8d299eab1dda92af4c5b53a8a7ac348af;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..a9cc9a671 100644
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -23,7 +23,8 @@ type implicit_annotation = [ `Closed | `Type | `Hole | `Term ]
 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