X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fautomath%2Faut.ml;h=4b1dffd9e8b9ebcab2724320fa044c2c7fbd02b8;hb=de66af7241ad8ab71d5857d14570e4662f2488dc;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..4b1dffd9e 100644
--- a/helm/software/lambda-delta/automath/aut.ml
+++ b/helm/software/lambda-delta/automath/aut.ml
@@ -18,7 +18,7 @@ type term = Sort of bool              (* sorts: true = TYPE, false = PROP *)
 	  | Appl of term * term       (* application: argument, function *)
 	  | Abst of id * term * term  (* abstraction: name, type, body *)
 	  
-type item = Section of id option           (* section: Some = open/reopen, None = close last *)
+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 *)