X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fnum.ml;h=2cb9b731a1dda17d50f9211a694548e7153b89bf;hb=08d2b663e5089ed046ef771bfb2555a31e525f1c;hp=d59d07f49f529f40eb39160acd2d5c313427c8cf;hpb=6895644003c1c199f1a43d300b04a975959024e8;p=fireball-separation.git

diff --git a/ocaml/num.ml b/ocaml/num.ml
index d59d07f..2cb9b73 100644
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -200,7 +200,7 @@ and subst truelam delift_by_one what (with_what : nf) (where : nf) =
  let aux_propagate_arity ar = function
  | `Lam(false,`Match(`I(v,args),(x,_),liftno,bs,args')) when not delift_by_one ->
     `Lam(false,`Match(`I(v,args),(x,ar),liftno,bs,args'))
- | `Var(i,_) -> `Var(i,ar)
+ | `Var(i,oldar) -> `Var(i, if truelam && oldar = min_int then ar else oldar)
  | _ as t -> t in
  let rec aux_i_num_var l =
   function