X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fcomponents%2Ftoplevel%2Fmeta.ml;fp=helm%2Fsoftware%2Flambda-delta%2Fcomponents%2Ftoplevel%2Fmeta.ml;h=55397725113decf38625d8309ba39bd17f9e6891;hb=f12f1b61a608140a65990d36045d978575b2dcb0;hp=0000000000000000000000000000000000000000;hpb=2b1375e4b44e2ef351a6341a5bb0a4823e8daae5;p=helm.git

diff --git a/helm/software/lambda-delta/components/toplevel/meta.ml b/helm/software/lambda-delta/components/toplevel/meta.ml
new file mode 100644
index 000000000..553977251
--- /dev/null
+++ b/helm/software/lambda-delta/components/toplevel/meta.ml
@@ -0,0 +1,25 @@
+(*
+    ||M||  This file is part of HELM, an Hypertextual, Electronic        
+    ||A||  Library of Mathematics, developed at the Computer Science     
+    ||T||  Department, University of Bologna, Italy.                     
+    ||I||                                                                
+    ||T||  HELM is free software; you can redistribute it and/or         
+    ||A||  modify it under the terms of the GNU General Public License   
+    \   /  version 2 or (at your option) any later version.              
+     \ /   This software is distributed as is, NO WARRANTY.              
+      V_______________________________________________________________ *)
+
+type uri = Entity.uri
+type id = Entity.id
+
+type term = Sort of bool                  (* sorts: true = TYPE, false = PROP *)
+	  | LRef of int * int             (* local reference: local environment length, de bruijn index *)
+	  | GRef of int * uri * term list (* global reference: local environment length, name, arguments *)
+	  | Appl of term * term           (* application: argument, function *)
+	  | Abst of id * term * term      (* abstraction: name, domain, scope *)
+
+type pars = (id * term) list (* parameter declarations: name, type *)
+
+type entry = pars * term * term option (* parameters, domain, body *)
+
+type entity = entry Entity.entity