X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FcicNotationEnv.ml;h=5b4190eb87b1abecc2782b7de23acb4336d9eecb;hb=4693f3b9de6d867921b51f61e9a7dc36c3da1b77;hp=32d4f0df5e699043505022a31d48d3baa91a7d82;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/acic_content/cicNotationEnv.ml b/helm/software/components/acic_content/cicNotationEnv.ml
index 32d4f0df5..5b4190eb8 100644
--- a/helm/software/components/acic_content/cicNotationEnv.ml
+++ b/helm/software/components/acic_content/cicNotationEnv.ml
@@ -35,7 +35,7 @@ type value =
   | ListValue of value list
 
 type value_type =
-  | TermType
+  | TermType of int
   | StringType
   | NumType
   | OptType of value_type
@@ -98,7 +98,7 @@ let list_declaration (n, ty) = (n, ListType ty)
 let declaration_of_var = function
   | Ast.NumVar s -> s, NumType
   | Ast.IdentVar s -> s, StringType
-  | Ast.TermVar s -> s, TermType
+  | Ast.TermVar (s,(Ast.Self l|Ast.Level l)) -> s, TermType l
   | _ -> assert false
 
 let value_of_term = function
@@ -114,7 +114,7 @@ let term_of_value = function
 
 let rec well_typed ty value =
   match ty, value with
-  | TermType, TermValue _
+  | TermType _, TermValue _
   | StringType, StringValue _
   | OptType _, OptValue None
   | NumType, NumValue _ -> true