parameter sintax added to axiom statement

[helm.git] / helm / software / components / acic_content / cicNotationEnv.ml

diff --git a/helm/software/components/acic_content/cicNotationEnv.ml b/helm/software/components/acic_content/cicNotationEnv.ml
index f0a14846f2e934610f9e2f36b1df6e93e6d96036..5b4190eb87b1abecc2782b7de23acb4336d9eecb 100644 (file)
--- 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 of int option
+  | 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,l) -> s, TermType l
+  | Ast.TermVar (s,(Ast.Self l|Ast.Level l)) -> s, TermType l
   | _ -> assert false
 
 let value_of_term = function