Mercurial Mercurial > repos > isabelle / 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.
a step to help a proof
authorpaulson
Thu, 10 Sep 1998 17:32:07 +0200
changeset 5462 7c5b2a8adbf0
parent 5461 6376d5cbb6ac
child 5463 a5479f5cd482
a step to help a proof
src/HOL/ex/Primrec.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/ex/Primrec.ML	Thu Sep 10 17:30:50 1998 +0200
+++ b/src/HOL/ex/Primrec.ML	Thu Sep 10 17:32:07 1998 +0200
@@ -201,6 +201,7 @@
 by (res_inst_tac [("x","0")] exI 1 THEN Asm_simp_tac 1);
 by Safe_tac;
 by (Asm_simp_tac 1);
+by (rtac exI 1);
 by (blast_tac (claset() addIs [add_less_mono, ack_add_bound, less_trans]) 1);
 qed "COMP_map_lemma";
isabelle