src/HOL/IMP/Procs_Dyn_Vars_Dyn.thy

 theory Procs_Dyn_Vars_Dyn imports Procs
 begin
 
 subsubsection "Dynamic Scoping of Procedures and Variables"
 
-type_synonym penv = "name \<Rightarrow> com"
+type_synonym penv = "pname \<Rightarrow> com"
 
 inductive
   big_step :: "penv \<Rightarrow> com \<times> state \<Rightarrow> state \<Rightarrow> bool" ("_ \<turnstile> _ \<Rightarrow> _" [60,0,60] 55)
 where
 Skip:    "pe \<turnstile> (SKIP,s) \<Rightarrow> s" |