update in basic_2

[helm.git] / helm / software / helena / src / basic_ag / bagReduction.mli

diff --git a/helm/software/helena/src/basic_ag/bagReduction.mli b/helm/software/helena/src/basic_ag/bagReduction.mli
index 9a3c849fb146becdf7d724f628d51d88e3a5075b..13a5036733fbe3eb5aa3a252bed31322713043dc 100644 (file)
--- a/helm/software/helena/src/basic_ag/bagReduction.mli
+++ b/helm/software/helena/src/basic_ag/bagReduction.mli
@@ -9,12 +9,16 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
+IFDEF TYPE THEN
+
 type ho_whd_result =
    | Sort of int
    | Abst of Bag.term
 
 val ho_whd: 
-   (ho_whd_result -> 'a) -> Status.status -> Bag.lenv -> Bag.term -> 'a
+   (ho_whd_result -> 'a) -> Layer.status -> Bag.lenv -> Bag.term -> 'a
 
 val are_convertible:
-   (bool -> 'a) -> Status.status -> Bag.lenv -> Bag.term -> Bag.term -> 'a
+   (bool -> 'a) -> Layer.status -> Bag.lenv -> Bag.term -> Bag.term -> 'a
+
+END