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