src/HOLCF/ex/Dnat.thy
changeset 35443 2e0f9516947e
parent 35169 31cbcb019003
child 35532 60647586b173
--- a/src/HOLCF/ex/Dnat.thy	Wed Feb 24 14:13:15 2010 -0800
+++ b/src/HOLCF/ex/Dnat.thy	Wed Feb 24 14:20:07 2010 -0800
@@ -62,10 +62,10 @@
   apply (rule allI)
   apply (rule_tac x = y in dnat.casedist)
     apply (fast intro!: UU_I)
-   apply (thin_tac "ALL y. d << y --> d = UU | d = y")
+   apply (thin_tac "ALL y. dnat << y --> dnat = UU | dnat = y")
    apply simp
   apply (simp (no_asm_simp))
-  apply (drule_tac x="da" in spec)
+  apply (drule_tac x="dnata" in spec)
   apply simp
   done