X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fbasic_ag%2FbagSubstitution.ml;h=a8109c3ffbc82e9bbc6161696752ec11bfa08342;hb=4217fb2c3c93019cdf9c22a80ed46d6814f1cb7d;hp=f35cdf4ff09e7f87ddf759e81c5d84991e6872e7;hpb=fec20705af4705f8eb9542aece87769b82a6a6b4;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagSubstitution.ml b/helm/software/helena/src/basic_ag/bagSubstitution.ml
index f35cdf4ff..a8109c3ff 100644
--- a/helm/software/helena/src/basic_ag/bagSubstitution.ml
+++ b/helm/software/helena/src/basic_ag/bagSubstitution.ml
@@ -12,6 +12,8 @@
 module S = Share
 module Z = Bag
 
+IFDEF TYPE THEN
+
 (* Internal functions *******************************************************)
 
 let rec lref_map_bind f map b = match b with
@@ -46,3 +48,5 @@ and lref_map f map t = match t with
 let subst f new_l old_l t =
    let map i = if i = old_l then new_l else i in
    if new_l = old_l then f t else lref_map f map t
+
+END