X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fbasic_rg%2FbrgUntrusted.ml;fp=helm%2Fsoftware%2Flambda-delta%2Fbasic_rg%2FbrgUntrusted.ml;h=80a9d4fe78d67433636b98e34155c5ce8e600eb6;hb=41bf338d7e638ebb5d97e525055bff05b1f0f045;hp=d08209f120e28ad62a24242ca5c885335af24a8e;hpb=40b85b6717785a7b24f2bc0680e716655b8faf99;p=helm.git

diff --git a/helm/software/lambda-delta/basic_rg/brgUntrusted.ml b/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
index d08209f12..80a9d4fe7 100644
--- a/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
+++ b/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
@@ -11,7 +11,6 @@
 
 module B = Brg
 module E = BrgEnvironment
-module R = BrgReduction
 module T = BrgType
 
 (* Interface functions ******************************************************)
@@ -22,5 +21,5 @@ let type_check f g = function
    | Some ((_, _, B.Abbr t) as obj) ->
        let f tt obj = f (Some (tt, obj)) in
        let f tt = E.set_obj (f tt) obj in
-       T.type_of f g R.empty_context t
+       T.type_of f g B.empty_context t
    | Some (_, _, B.Void)            -> assert false