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=513bd4a4704cb86a0935825fe37176d5c48a21ee;hpb=f3cddcf163b36101158ea33b3fad368ac8c62d75;p=helm.git

diff --git a/helm/software/lambda-delta/automath/aut.ml b/helm/software/lambda-delta/automath/aut.ml
index 513bd4a47..00213b4b3 100644
--- a/helm/software/lambda-delta/automath/aut.ml
+++ b/helm/software/lambda-delta/automath/aut.ml
@@ -18,8 +18,8 @@ type term = Sort of bool              (* sorts: true = TYPE, false = PROP *)
 	  | Appl of term * term       (* application: argument, function *)
 	  | Abst of id * term * term  (* abstraction: name, domain, scope *)
 	  
-type entity = 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 *)
+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 *)