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.
added finite_unit;
authorwenzelm
Sun, 16 Jul 2000 20:47:45 +0200
changeset 9351 5d53e3f35152
parent 9350 d855d9d1add9
child 9352 416b2ecd97a1
added finite_unit;
src/HOL/Finite.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Finite.ML	Sun Jul 16 20:47:15 2000 +0200
+++ b/src/HOL/Finite.ML	Sun Jul 16 20:47:45 2000 +0200
@@ -186,6 +186,12 @@
 by (rtac finite 1);
 qed "finite_Prod";
 
+Goal "finite (UNIV :: unit set)";
+by (subgoal_tac "UNIV = {()}" 1);
+by (etac ssubst 1);
+by Auto_tac;
+qed "finite_unit";
+
 (** The powerset of a finite set **)
 
 Goal "finite(Pow A) ==> finite A";
isabelle