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)