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
Mon, 22 Jun 1998 17:26:46 +0200
changeset 5069 3ea049f7979d
parent 4832 bc11b5b06f87
child 5132 24f992a25adc
permissions -rw-r--r--
isatool fixgoal;

(*  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))";
br iffI 1;
 be 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