some renaming. final commit for version 0.8.0

[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 d05e53d036015768a3df88ba836ad508d0607c64..513bd4a4704cb86a0935825fe37176d5c48a21ee 100644 (file)
--- 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 unit = 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 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 *)