| 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