# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1235556790 0
# Node ID f7cf072e72d6a1281aa5b506da8e5d07691bf15f
# Parent  e4d8dfb7e34ae815c5b588e3194af84931fab870# Parent  c06885c3657527a93c250b365cc0813335990f57
merged with Sascha

diff -r c06885c36575 -r f7cf072e72d6 CookBook/FirstSteps.thy
--- a/CookBook/FirstSteps.thy	Wed Feb 25 11:07:43 2009 +0100
+++ b/CookBook/FirstSteps.thy	Wed Feb 25 10:13:10 2009 +0000
@@ -842,14 +842,13 @@
 
 @{ML_response_fake [display,gray]
 "let
-  val thy = @{theory}
 
-  val assm1 = cterm_of thy @{prop \"\<And>(x::nat). P x \<Longrightarrow> Q x\"}
-  val assm2 = cterm_of thy @{prop \"(P::nat\<Rightarrow>bool) t\"}
+  val assm1 = @{cprop \"\<And>(x::nat). P x \<Longrightarrow> Q x\"}
+  val assm2 = @{cprop \"(P::nat\<Rightarrow>bool) t\"}
 
   val Pt_implies_Qt = 
         assume assm1
-        |> forall_elim (cterm_of thy @{term \"t::nat\"});
+        |> forall_elim @{cterm \"t::nat\"};
   
   val Qt = implies_elim Pt_implies_Qt (assume assm2);
 in
diff -r c06885c36575 -r f7cf072e72d6 cookbook.pdf
Binary file cookbook.pdf has changed