let rec mk_mu_sh_indir p sh x = match p with | D1muI (p', sh', _) when eq_term_opt sh sh' -> mk_mu_sh_indir p' sh x | _ -> D1muI (p, sh, x)