X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fbasic_ag%2FbagType.mli;h=be444c93ebe8793702c4d0ed2e4c5c69d7cc8188;hb=dd74d1964ef07de249385a48f28302b427c0d287;hp=8f343a62424b456c0fe44cd4a2b9560e046d0e40;hpb=f72311aa07e71090a24eef9e4fb97cc2e95e6b16;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagType.mli b/helm/software/helena/src/basic_ag/bagType.mli
index 8f343a624..be444c93e 100644
--- a/helm/software/helena/src/basic_ag/bagType.mli
+++ b/helm/software/helena/src/basic_ag/bagType.mli
@@ -9,7 +9,11 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
+IFDEF TYPE THEN
+
 val type_of: 
    (Bag.message -> 'a) ->
    (Bag.term -> Bag.term -> 'a) ->
-   Status.status -> Bag.lenv -> Bag.term -> 'a
+   Layer.status -> Bag.lenv -> Bag.term -> 'a
+
+END