Added {x.x=a} = a to !simpset.
authornipkow
Fri Aug 01 09:39:28 1997 +0200 (1997-08-01)
changeset 3582b87c86b6c291
parent 3581 0727ebd62b48
child 3583 5a47b869d16a
Added {x.x=a} = a to !simpset.
src/HOL/Set.ML
     1.1 --- a/src/HOL/Set.ML	Fri Jul 25 14:31:48 1997 +0200
     1.2 +++ b/src/HOL/Set.ML	Fri Aug 01 09:39:28 1997 +0200
     1.3 @@ -415,6 +415,10 @@
     1.4      
     1.5  AddSDs [singleton_inject];
     1.6  
     1.7 +goal Set.thy "{x.x=a} = {a}";
     1.8 +by(Blast_tac 1);
     1.9 +qed "singleton_conv";
    1.10 +Addsimps [singleton_conv];
    1.11  
    1.12  section "The universal set -- UNIV";
    1.13