- the connections between the intermediate language and the "bag"

[helm.git] / helm / software / lambda-delta / src / basic_ag / bagSubstitution.ml

diff --git a/helm/software/lambda-delta/src/basic_ag/bagSubstitution.ml b/helm/software/lambda-delta/src/basic_ag/bagSubstitution.ml
index ad75d63b83e06efbefed39b32d6f172ac044329c..f8c34789208be7ab19673e302966f3d09564c60a 100644 (file)
--- a/helm/software/lambda-delta/src/basic_ag/bagSubstitution.ml
+++ b/helm/software/lambda-delta/src/basic_ag/bagSubstitution.ml
@@ -9,35 +9,35 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-module S = Share
-module B = Bag
+module W = Share
+module Z = Bag
 
 (* Internal functions *******************************************************)
 
 let rec lref_map_bind f map b = match b with
-   | B.Abbr v ->
-      let f v' = f (S.sh1 v v' b B.abbr) in
+   | Z.Abbr v ->
+      let f v' = f (W.sh1 v v' b Z.abbr) in
       lref_map f map v      
-   | B.Abst w ->
-      let f w' = f (S.sh1 w w' b B.abst) in
+   | Z.Abst w ->
+      let f w' = f (W.sh1 w w' b Z.abst) in
       lref_map f map w
-   | B.Void   -> f b
+   | Z.Void   -> f b
 
 and lref_map f map t = match t with
-   | B.LRef i            -> 
-      let ii = map i in f (S.sh1 i ii t B.lref)
-   | B.GRef _            -> f t
-   | B.Sort _            -> f t
-   | B.Cast (w, u)       ->
-      let f w' u' = f (S.sh2 w w' u u' t B.cast) in
+   | Z.LRef i            -> 
+      let ii = map i in f (W.sh1 i ii t Z.lref)
+   | Z.GRef _            -> f t
+   | Z.Sort _            -> f t
+   | Z.Cast (w, u)       ->
+      let f w' u' = f (W.sh2 w w' u u' t Z.cast) in
       let f w' = lref_map (f w') map u in 
       lref_map f map w
-   | B.Appl (w, u)       ->
-      let f w' u' = f (S.sh2 w w' u u' t B.appl) in
+   | Z.Appl (w, u)       ->
+      let f w' u' = f (W.sh2 w w' u u' t Z.appl) in
       let f w' = lref_map (f w') map u in 
       lref_map f map w
-   | B.Bind (l, id, b, u) ->
-      let f b' u' = f (S.sh2 b b' u u' t (B.bind l id)) in
+   | Z.Bind (a, l, b, u) ->
+      let f b' u' = f (W.sh2 b b' u u' t (Z.bind a l)) in
       let f b' = lref_map (f b') map u in 
       lref_map_bind f map b