src/HOL/Library/Multiset.thy
changeset 12399 2ba27248af7f
parent 12338 de0f4a63baa5
child 13596 ee5f79b210c1
     1.1 --- a/src/HOL/Library/Multiset.thy	Thu Dec 06 00:40:04 2001 +0100
     1.2 +++ b/src/HOL/Library/Multiset.thy	Thu Dec 06 00:40:19 2001 +0100
     1.3 @@ -1,8 +1,7 @@
     1.4  (*  Title:      HOL/Library/Multiset.thy
     1.5      ID:         $Id$
     1.6 -    Author:     Tobias Nipkow, TU Muenchen
     1.7 -    Author:     Markus Wenzel, TU Muenchen
     1.8 -    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     1.9 +    Author:     Tobias Nipkow, Markus Wenzel, and Lawrence C Paulson
    1.10 +    License:    GPL (GNU GENERAL PUBLIC LICENSE)
    1.11  *)
    1.12  
    1.13  header {*
    1.14 @@ -482,7 +481,7 @@
    1.15    {
    1.16      fix M M0 a
    1.17      assume M0: "M0 \<in> ?W"
    1.18 -      and wf_hyp: "\<forall>b. (b, a) \<in> r --> (\<forall>M \<in> ?W. M + {#b#} \<in> ?W)"
    1.19 +      and wf_hyp: "!!b. (b, a) \<in> r ==> (\<forall>M \<in> ?W. M + {#b#} \<in> ?W)"
    1.20        and acc_hyp: "\<forall>M. (M, M0) \<in> ?R --> M + {#a#} \<in> ?W"
    1.21      have "M0 + {#a#} \<in> ?W"
    1.22      proof (rule accI [of "M0 + {#a#}"])
    1.23 @@ -538,7 +537,7 @@
    1.24      from wf have "\<forall>M \<in> ?W. M + {#a#} \<in> ?W"
    1.25      proof induct
    1.26        fix a
    1.27 -      assume "\<forall>b. (b, a) \<in> r --> (\<forall>M \<in> ?W. M + {#b#} \<in> ?W)"
    1.28 +      assume "!!b. (b, a) \<in> r ==> (\<forall>M \<in> ?W. M + {#b#} \<in> ?W)"
    1.29        show "\<forall>M \<in> ?W. M + {#a#} \<in> ?W"
    1.30        proof
    1.31          fix M assume "M \<in> ?W"