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