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.
Suc 0 -> 1
authorpaulson
Thu, 04 May 2000 15:14:56 +0200
changeset 8790 c4aaa5936e0c
parent 8789 5bd6332640f8
child 8791 50b650d19641
Suc 0 -> 1
src/HOL/Univ.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Univ.ML	Thu May 04 15:14:44 2000 +0200
+++ b/src/HOL/Univ.ML	Thu May 04 15:14:56 2000 +0200
@@ -267,7 +267,7 @@
 
 (** Injection nodes **)
 
-Goalw [In0_def] "ntrunc (Suc 0) (In0 M) = {}";
+Goalw [In0_def] "ntrunc 1 (In0 M) = {}";
 by (Simp_tac 1);
 by (rewtac Scons_def);
 by (Blast_tac 1);
@@ -278,7 +278,7 @@
 by (Simp_tac 1);
 qed "ntrunc_In0";
 
-Goalw [In1_def] "ntrunc (Suc 0) (In1 M) = {}";
+Goalw [In1_def] "ntrunc 1 (In1 M) = {}";
 by (Simp_tac 1);
 by (rewtac Scons_def);
 by (Blast_tac 1);
isabelle