X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fautomath%2Faut.ml;h=00213b4b3986c9ac7bd300826330b986e5f58a59;hb=34a5ef53f3ad2771cb45f90a2da6713bccdf3608;hp=dc938821eedeb8f2794330eef70f8c7b1de31af3;hpb=960ed22a5a6c415e2cf0ec9e8f5680d75c3ca0cd;p=helm.git

diff --git a/helm/software/lambda-delta/automath/aut.ml b/helm/software/lambda-delta/automath/aut.ml
index dc938821e..00213b4b3 100644
--- a/helm/software/lambda-delta/automath/aut.ml
+++ b/helm/software/lambda-delta/automath/aut.ml
@@ -16,10 +16,10 @@ type qid = id * bool * id list (* qualified identifier: name, local?, path *)
 type term = Sort of bool              (* sorts: true = TYPE, false = PROP *)
 	  | GRef of qid * term list   (* reference: name, arguments *)
 	  | Appl of term * term       (* application: argument, function *)
-	  | Abst of id * term * term  (* abstraction: name, type, body *)
+	  | Abst of id * term * term  (* abstraction: name, domain, scope *)
 	  
-type item = Section of id option           (* section: Some = open/reopen, None = close last *)
-	  | Context of qid option          (* context: Some = last node, None = root *)
-	  | Block of id * term             (* block opener: name, type *)
-	  | Decl of id * term              (* declaration: name, type *)
-	  | Def of id * term * bool * term (* definition: name, type, transparent?, body *)
+type command = Section of (bool * id) option  (* section: Some true = open, Some false = reopen, None = close last *)
+	     | Context of qid option          (* context: Some = last node, None = root *)
+	     | Block of id * term             (* block opener: name, domain *)
+	     | Decl of id * term              (* declaration: name, domain *)
+	     | Def of id * term * bool * term (* definition: name, domain, transparent?, body *)