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=563e19b9997ea0fbc52253f952d4ca3bee0b0950;hpb=f3cddcf163b36101158ea33b3fad368ac8c62d75;p=helm.git diff --git a/helm/software/lambda-delta/toplevel/meta.ml b/helm/software/lambda-delta/toplevel/meta.ml index 563e19b99..553977251 100644 --- a/helm/software/lambda-delta/toplevel/meta.ml +++ b/helm/software/lambda-delta/toplevel/meta.ml @@ -10,7 +10,6 @@ V_______________________________________________________________ *) type uri = Entity.uri - type id = Entity.id type term = Sort of bool (* sorts: true = TYPE, false = PROP *) @@ -21,7 +20,6 @@ type term = Sort of bool (* sorts: true = TYPE, false = PROP *) type pars = (id * term) list (* parameter declarations: name, type *) -(* entry: line number, parameters, name, domain, (transparent?, body) *) -type entry = int * pars * uri * term * (bool * term) option +type entry = pars * term * term option (* parameters, domain, body *) -type entity = entry option +type entity = entry Entity.entity