Instantiate now uses a global initialSpecialK (ignoring the local one)

[fireball-separation.git] / ocaml / num.ml

diff --git a/ocaml/num.ml b/ocaml/num.ml
index d59d07f49f529f40eb39160acd2d5c313427c8cf..2cb9b731a1dda17d50f9211a694548e7153b89bf 100644 (file)
--- 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