-extendCaseBndrLvlEnv (float_lams, lvl_env, subst, id_env) (Var scrut_var) case_bndr lvl
- = (float_lams,
- extendVarEnv lvl_env case_bndr lvl,
- extendIdSubst subst case_bndr (Var scrut_var),
- extendVarEnv id_env case_bndr ([scrut_var], Var scrut_var))
+extendCaseBndrLvlEnv le@(LE { le_lvl_env = lvl_env, le_subst = subst, le_env = id_env })
+ (Var scrut_var) case_bndr lvl
+ = le { le_lvl_env = extendVarEnv lvl_env case_bndr lvl
+ , le_subst = extendIdSubst subst case_bndr (Var scrut_var)
+ , le_env = extendVarEnv id_env case_bndr ([scrut_var], Var scrut_var) }