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=3af585c3f88deab5b7b87022c0add1000de564eb;hpb=bbc1c6ccb596693c46f4d75d7875b94c79f1d575;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagType.mli b/helm/software/helena/src/basic_ag/bagType.mli
index 3af585c3f..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) ->
    Layer.status -> Bag.lenv -> Bag.term -> 'a
+
+END