src/HOLCF/HOLCF.ML
author wenzelm
Tue, 24 Nov 1998 12:03:09 +0100
changeset 5953 d6017ce6b93e
parent 4098 71e05eb27fb6
child 7570 a9391550eea1
permissions -rw-r--r--
setup Blast.setup; setup Clasimp.setup;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1274
diff changeset
     1
(*  Title:      HOLCF/HOLCF.ML
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     2
    ID:         $Id$
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1274
diff changeset
     3
    Author:     Franz Regensburger
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     4
    Copyright   1993 Technische Universitaet Muenchen
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     5
*)
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     6
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     7
open HOLCF;
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     8
3661
1ea4a45b9412 moved extended adm_tac to new place
mueller
parents: 2355
diff changeset
     9
use"adm.ML";
1ea4a45b9412 moved extended adm_tac to new place
mueller
parents: 2355
diff changeset
    10
4098
71e05eb27fb6 isatool fixclasimp;
wenzelm
parents: 3661
diff changeset
    11
simpset_ref() := simpset() addSolver(fn thms =>
3661
1ea4a45b9412 moved extended adm_tac to new place
mueller
parents: 2355
diff changeset
    12
            (adm_tac (cut_facts_tac thms THEN' cont_tacRs)));
1ea4a45b9412 moved extended adm_tac to new place
mueller
parents: 2355
diff changeset
    13
4098
71e05eb27fb6 isatool fixclasimp;
wenzelm
parents: 3661
diff changeset
    14
val HOLCF_ss = simpset();