src/HOLCF/ex/Dnat.thy
changeset 35532 60647586b173
parent 35443 2e0f9516947e
child 35781 b7738ab762b1
--- a/src/HOLCF/ex/Dnat.thy	Tue Mar 02 20:19:04 2010 -0800
+++ b/src/HOLCF/ex/Dnat.thy	Tue Mar 02 20:36:07 2010 -0800
@@ -55,12 +55,12 @@
   apply (induct_tac x rule: dnat.ind)
     apply fast
    apply (rule allI)
-   apply (rule_tac x = y in dnat.casedist)
+   apply (case_tac y)
      apply simp
     apply simp
    apply simp
   apply (rule allI)
-  apply (rule_tac x = y in dnat.casedist)
+  apply (case_tac y)
     apply (fast intro!: UU_I)
    apply (thin_tac "ALL y. dnat << y --> dnat = UU | dnat = y")
    apply simp