X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Ftoplevel%2Fmeta.ml;h=55397725113decf38625d8309ba39bd17f9e6891;hb=3d23faf2969e2591db93f8bacc61952f3b66e2ca;hp=a7af17273e4b6edf0d0633d1649d5fa62432cf75;hpb=8a4c83c6341976f2bb70eb44a0c70f2aa95ad3ea;p=helm.git diff --git a/helm/software/lambda-delta/toplevel/meta.ml b/helm/software/lambda-delta/toplevel/meta.ml index a7af17273..553977251 100644 --- a/helm/software/lambda-delta/toplevel/meta.ml +++ b/helm/software/lambda-delta/toplevel/meta.ml @@ -9,19 +9,17 @@ \ / This software is distributed as is, NO WARRANTY. V_______________________________________________________________ *) -type uri = Item.uri - -type id = Item.id +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, type, scope *) + | Abst of id * term * term (* abstraction: name, domain, scope *) type pars = (id * term) list (* parameter declarations: name, type *) -(* entry: line number, parameters, name, type, (transparent?, body) *) -type entry = int * pars * uri * term * (bool * term) option +type entry = pars * term * term option (* parameters, domain, body *) -type item = entry option +type entity = entry Entity.entity