src/HOLCF/HOLCF.ML
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 4098 71e05eb27fb6
child 7570 a9391550eea1
permissions -rw-r--r--
tidying
clasohm@1461
     1
(*  Title:      HOLCF/HOLCF.ML
nipkow@243
     2
    ID:         $Id$
clasohm@1461
     3
    Author:     Franz Regensburger
nipkow@243
     4
    Copyright   1993 Technische Universitaet Muenchen
nipkow@243
     5
*)
nipkow@243
     6
nipkow@243
     7
open HOLCF;
nipkow@243
     8
mueller@3661
     9
use"adm.ML";
mueller@3661
    10
wenzelm@4098
    11
simpset_ref() := simpset() addSolver(fn thms =>
mueller@3661
    12
            (adm_tac (cut_facts_tac thms THEN' cont_tacRs)));
mueller@3661
    13
wenzelm@4098
    14
val HOLCF_ss = simpset();