src/HOLCF/HOLCF.ML
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 4098 71e05eb27fb6
child 7570 a9391550eea1
permissions -rw-r--r--
made tutorial first;
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();