let local_scope env vars scope p =
    match scope with
      | Mcfg.SC_Block_in | Mcfg.SC_Function_in ->
          let mem_here = mem_at env Clabels.Here in
          List.fold_left (add_var_decl_hyp mem_here) p vars
      | _ -> p