# HG changeset patch
# User oheimb
# Date 962800018 -7200
# Node ID ad9f986616de30ff92416d58a1b476368df95a84
# Parent  91423cd08c6f553ffae6ffc1b4974245c1d73a89
disambiguated := ; added Examples (factorial)

diff -r 91423cd08c6f -r ad9f986616de src/HOLCF/IMP/Denotational.thy
--- a/src/HOLCF/IMP/Denotational.thy	Wed Jul 05 10:28:29 2000 +0200
+++ b/src/HOLCF/IMP/Denotational.thy	Wed Jul 05 14:26:58 2000 +0200
@@ -16,7 +16,7 @@
 
 primrec
   "D(SKIP) = (LAM s. Def(undiscr s))"
-  "D(X := a) = (LAM s. Def((undiscr s)[X := a(undiscr s)]))"
+  "D(X :== a) = (LAM s. Def((undiscr s)[X ::= a(undiscr s)]))"
   "D(c0 ; c1) = (dlift(D c1) oo (D c0))"
   "D(IF b THEN c1 ELSE c2) =
 	(LAM s. if b(undiscr s) then (D c1)`s else (D c2)`s)"