From 8a90160900bb95133b8e204a4fcadaa2db2f11dd Mon Sep 17 00:00:00 2001 From: acondolu Date: Sun, 16 Jul 2017 16:01:21 +0200 Subject: [PATCH] subst does not replace anymore in branches of maches It was unnecessary: a match cannot expand to a previous branch --- ocaml/num.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ocaml/num.ml b/ocaml/num.ml index c88a101..4e44c79 100644 --- a/ocaml/num.ml +++ b/ocaml/num.ml @@ -250,11 +250,11 @@ and subst truelam delift_by_one what (with_what : nf(*_nob*)) (where : nf) = | `N _ as x -> x | `Match(t,v,bs_lift,bs,args) -> let bs_lift = bs_lift + if delift_by_one then -1 else 0 in - let l' = l - bs_lift in - let with_what' = lift l' (with_what :> nf) in + (* let l' = l - bs_lift in *) + (* let with_what' = lift l' (with_what :> nf) in *) (* The following line should be the identity when delift_by_one = true because we are assuming the ts to not contain lambda-bound variables. *) - bs := List.map (fun (n,t) -> n,subst truelam false what with_what' t) !bs ; + (* bs := List.map (fun (n,t) -> n,subst truelam false what with_what' t) !bs ; *) let body = aux_i_num_var l t in mk_match body v bs_lift bs (List.map (aux l) (args :> nf list)) and aux l(*lift*) = -- 2.39.2