src/LCF/ex/Ex3.ML
author wenzelm
Wed, 13 Jul 2005 16:07:35 +0200
changeset 16813 67140ae50e77
parent 5061 f947332d5465
child 17248 81bf91654e73
permissions -rw-r--r--
removed ad-hoc atp_hook, cal_atp; removed depth_of; tuned;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4905
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     1
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     2
simpset_ref() := LCF_ss;
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     3
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     4
Addsimps [p_strict,p_s];
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     5
5061
f947332d5465 isatool fixgoal;
wenzelm
parents: 4905
diff changeset
     6
Goal "p(FIX(s),y) = FIX(s)";
4905
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     7
by (induct_tac "s" 1);
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     8
by (Simp_tac 1);
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
     9
by (Simp_tac 1);
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
    10
qed "example";
be73ddff6c5a proper thy files;
wenzelm
parents:
diff changeset
    11