we now do some static analysis on the Automath text to possibly clear some language...

[helm.git] / helm / software / lambda-delta / automath / aut.ml

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