Mercurial Mercurial > hg > isabelle-cookbook / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
included comment from Sascha
authorChristian Urban <urbanc@in.tum.de>
Wed, 25 Feb 2009 10:09:18 +0000
changeset 138 e4d8dfb7e34a
parent 137 a9685909944d
child 143 f7cf072e72d6
included comment from Sascha
CookBook/FirstSteps.thy file | annotate | diff | comparison | revisions
cookbook.pdf file | annotate | diff | comparison | revisions 
--- a/CookBook/FirstSteps.thy	Tue Feb 24 22:23:07 2009 +0000
+++ b/CookBook/FirstSteps.thy	Wed Feb 25 10:09:18 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
Binary file cookbook.pdf has changed
isabelle-cookbook