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

diff --git a/helm/software/lambda-delta/automath/aut.ml b/helm/software/lambda-delta/automath/aut.ml
index 4b1dffd9e..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 (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, 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 *)