X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fbasic_ag%2FbagReduction.mli;h=13a5036733fbe3eb5aa3a252bed31322713043dc;hb=5c92c318030a05c766b3f6070dbd23589cbdee04;hp=90aa4053b8fa4b13e6b0ed3c4836880cdc09288d;hpb=bbc1c6ccb596693c46f4d75d7875b94c79f1d575;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagReduction.mli b/helm/software/helena/src/basic_ag/bagReduction.mli
index 90aa4053b..13a503673 100644
--- a/helm/software/helena/src/basic_ag/bagReduction.mli
+++ b/helm/software/helena/src/basic_ag/bagReduction.mli
@@ -9,6 +9,8 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
+IFDEF TYPE THEN
+
 type ho_whd_result =
    | Sort of int
    | Abst of Bag.term
@@ -18,3 +20,5 @@ val ho_whd:
 
 val are_convertible:
    (bool -> 'a) -> Layer.status -> Bag.lenv -> Bag.term -> Bag.term -> 'a
+
+END