Replaced (s,t) : id by s=t.

--- a/src/HOL/IMP/Denotation.thy	Thu Mar 27 17:46:24 1997 +0100
+++ b/src/HOL/IMP/Denotation.thy	Sun Mar 30 13:40:38 1997 +0200
@@ -13,7 +13,7 @@
 constdefs
   Gamma :: [bexp,com_den] => (com_den => com_den)
            "Gamma b cd == (%phi.{(s,t). (s,t) : (phi O cd) & b(s)} Un 
-                                 {(s,t). (s,t) : id & ~b(s)})"
+                                 {(s,t). s=t & ~b(s)})"
     
 consts
   C     :: com => com_den