transcript: bug fix in the generation of axioms

[helm.git] / helm / software / components / ng_kernel / nCic.ml

diff --git a/helm/software/components/ng_kernel/nCic.ml b/helm/software/components/ng_kernel/nCic.ml
index afd73e53ef231a30a987b854e6eface05cddf5ea..a9cc9a671f39161afc8500eec4f012d2769fc589 100644 (file)
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -16,14 +16,15 @@
 type universe = (bool * NUri.uri) list 
   (* Max of non-empty list of named universes, or their successor (when true) *)
 
-type sort = Prop | Type of universe | CProp
+type sort = Prop | Type of universe
 
 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