src/HOL/Nominal/Examples/Class.thy
changeset 26648 25c07f3878b0
parent 26091 f31d4fe763aa
child 26806 40b411ec05aa
equal deleted inserted replaced
26647:147c920ed5f7 26648:25c07f3878b0
  5241 
  5241 
  5242 lemma a_starI:
  5242 lemma a_starI:
  5243   assumes a: "M \<longrightarrow>\<^isub>a M'"
  5243   assumes a: "M \<longrightarrow>\<^isub>a M'"
  5244   shows "M \<longrightarrow>\<^isub>a* M'"
  5244   shows "M \<longrightarrow>\<^isub>a* M'"
  5245 using a by blast
  5245 using a by blast
  5246 
       
  5247 lemma a_star_refl:
       
  5248   shows "M \<longrightarrow>\<^isub>a* M"
       
  5249   by blast
       
  5250 
  5246 
  5251 lemma a_starE:
  5247 lemma a_starE:
  5252   assumes a: "M \<longrightarrow>\<^isub>a* M'"
  5248   assumes a: "M \<longrightarrow>\<^isub>a* M'"
  5253   shows "M = M' \<or> (\<exists>N. M \<longrightarrow>\<^isub>a N \<and> N \<longrightarrow>\<^isub>a* M')"
  5249   shows "M = M' \<or> (\<exists>N. M \<longrightarrow>\<^isub>a N \<and> N \<longrightarrow>\<^isub>a* M')"
  5254 using a 
  5250 using a