--- a/src/ZF/Update.ML Thu Sep 07 21:10:11 2000 +0200
+++ b/src/ZF/Update.ML Thu Sep 07 21:12:49 2000 +0200
@@ -1,4 +1,4 @@
-(* Title: ZF/Update.thy
+(* Title: ZF/Update.ML
ID: $Id$
Author: Lawrence C Paulson, Cambridge University Computer Laboratory
Copyright 1998 University of Cambridge
@@ -6,8 +6,6 @@
Function updates: like theory Map, but for ordinary functions
*)
-open Update;
-
Goal "f(x:=y) ` z = (if z=x then y else f`z)";
by (simp_tac (simpset() addsimps [update_def]) 1);
by (case_tac "z : domain(f)" 1);