Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Lex/RegSet.ML
author wenzelm
Sun, 16 Jul 2000 20:49:13 +0200
changeset 9353 93cd32adc402
parent 6162 484adda70b65
permissions -rw-r--r--
added ex/Tuple.thy;

(*  Title:      HOL/Lex/RegSet.ML
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1998 TUM
*)

AddIffs [star.NilI];
Addsimps [star.ConsI];
AddIs [star.ConsI];

Goal "(!xs: set xss. xs:S) --> concat xss : star S";
by (induct_tac "xss" 1);
by (ALLGOALS Asm_full_simp_tac);
qed_spec_mp "concat_in_star";

Goal
 "w : star U = (? us. (!u : set(us). u : U) & (w = concat us))";
by (rtac iffI 1);
 by (etac star.induct 1);
  by (res_inst_tac [("x","[]")] exI 1);
  by (Simp_tac 1);
 by (Clarify_tac 1);
 by (res_inst_tac [("x","a#us")] exI 1);
 by (Asm_simp_tac 1);
by (Clarify_tac 1);
by (asm_simp_tac (simpset() addsimps [concat_in_star]) 1);
qed "in_star";
isabelle