# HG changeset patch
# User blanchet
# Date 1457631132 -3600
# Node ID 969480bdef55d5a2684514b3ab23a9edce3fe198
# Parent  fc5198b44314427f758b9e11328dd1d2a7633ac7
eta-expansion done right in "primcorec"

diff -r fc5198b44314 -r 969480bdef55 src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML
--- a/src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML	Thu Mar 10 12:33:04 2016 +0100
+++ b/src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML	Thu Mar 10 18:32:12 2016 +0100
@@ -359,7 +359,7 @@
 
     fun massage_mutual_call bound_Ts (Type (@{type_name fun}, [_, U2]))
         (Type (@{type_name fun}, [T1, T2])) t =
-        Abs (Name.uu, T1, massage_mutual_call bound_Ts U2 T2 (incr_boundvars 1 t $ Bound 0))
+        Abs (Name.uu, T1, massage_mutual_call (T1 :: bound_Ts) U2 T2 (incr_boundvars 1 t $ Bound 0))
       | massage_mutual_call bound_Ts U T t =
         (if has_call t then massage_call else massage_noncall) bound_Ts U T t;