X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;fp=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic.ml;h=4490ee0485c218a4b7681d5c3c0048c45198abd9;hb=f8d45b2e4fa7817d7ef8312b3bb8a7439bd7fb8c;hp=32b79f02a2f898a2dadd8472b7aef08a38adca36;hpb=8e0e2b06cfc3fb3116e1fce632d9897fdbac9895;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCic.ml b/helm/software/components/ng_kernel/nCic.ml
index 32b79f02a..4490ee048 100644
--- a/helm/software/components/ng_kernel/nCic.ml
+++ b/helm/software/components/ng_kernel/nCic.ml
@@ -56,7 +56,12 @@ type hypothesis = string * context_entry   (* name, entry *)
 
 type context = hypothesis list
 
-type meta_attrs = [`Name of string | `IsSort | `InScope | `OutScope of int] list
+type meta_attr = 
+  [ `Name of string 
+  | `IsTerm | `IsType | `IsSort 
+  | `InScope | `OutScope of int]
+
+type meta_attrs = meta_attr list
 
 type conjecture =  meta_attrs * context * term