added Isar_examples/Cantor.ML;
authorwenzelm
Tue Apr 27 10:45:20 1999 +0200 (1999-04-27)
changeset 651609207771cc7c
parent 6515 18e113be12ee
child 6517 239c0eff6ce8
added Isar_examples/Cantor.ML;
src/HOL/IsaMakefile
src/HOL/Isar_examples/Cantor.ML
     1.1 --- a/src/HOL/IsaMakefile	Tue Apr 27 10:44:42 1999 +0200
     1.2 +++ b/src/HOL/IsaMakefile	Tue Apr 27 10:45:20 1999 +0200
     1.3 @@ -325,8 +325,9 @@
     1.4  HOL-Isar_examples: HOL $(LOG)/HOL-Isar_examples.gz
     1.5  
     1.6  $(LOG)/HOL-Isar_examples.gz: $(OUT)/HOL Isar_examples/BasicLogic.thy \
     1.7 -  Isar_examples/Cantor.thy Isar_examples/ExprCompiler.thy \
     1.8 -  Isar_examples/Peirce.thy Isar_examples/ROOT.ML
     1.9 +  Isar_examples/Cantor.ML Isar_examples/Cantor.thy \
    1.10 +  Isar_examples/ExprCompiler.thy Isar_examples/Peirce.thy \
    1.11 +  Isar_examples/ROOT.ML
    1.12  	@$(ISATOOL) usedir $(OUT)/HOL Isar_examples
    1.13  
    1.14  
     2.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2 +++ b/src/HOL/Isar_examples/Cantor.ML	Tue Apr 27 10:45:20 1999 +0200
     2.3 @@ -0,0 +1,20 @@
     2.4 +
     2.5 +(* tactic script -- single steps *)
     2.6 +
     2.7 +Goal "EX S. S ~: range(f :: 'a => 'a set)";
     2.8 +  br exI 1;
     2.9 +  br notI 1;
    2.10 +  be rangeE 1;
    2.11 +  be equalityCE 1;
    2.12 +  bd CollectD 1;
    2.13 +  by (contr_tac 1);
    2.14 +  by (swap_res_tac [CollectI] 1);
    2.15 +  ba 1;
    2.16 +qed "it";
    2.17 +
    2.18 +
    2.19 +(* tactic script -- automatic *)
    2.20 +
    2.21 +Goal "EX S. S ~: range(f :: 'a => 'a set)";
    2.22 +  by (best_tac (claset() addSEs [equalityCE]) 1);
    2.23 +qed "it";