src/HOL/Bali/DeclConcepts.thy
changeset 13585 db4005b40cc6
parent 13524 604d0f3622d6
child 13688 a0b16d42d489
     1.1 --- a/src/HOL/Bali/DeclConcepts.thy	Thu Sep 26 10:43:43 2002 +0200
     1.2 +++ b/src/HOL/Bali/DeclConcepts.thy	Thu Sep 26 10:51:29 2002 +0200
     1.3 @@ -2369,9 +2369,8 @@
     1.4        unique (fields G C)" 
     1.5  apply (rule ws_subcls1_induct, assumption, assumption)
     1.6  apply (subst fields_rec, assumption)            
     1.7 -apply (auto intro!: unique_map_inj injI 
     1.8 -            elim!: unique_append ws_unique_fields_lemma fields_norec
     1.9 -            )
    1.10 +apply (auto intro!: unique_map_inj inj_onI 
    1.11 +            elim!: unique_append ws_unique_fields_lemma fields_norec)
    1.12  done
    1.13  
    1.14