src/HOLCF/HOLCF.ML
author huffman
Sat Apr 02 00:12:38 2005 +0200 (2005-04-02)
changeset 15650 b37dc98fbbc5
parent 14981 e73f8140af78
child 16062 f8110bd9957f
permissions -rw-r--r--
converted to new-style theory
     1 (*  Title:      HOLCF/HOLCF.ML
     2     ID:         $Id$
     3     Author:     Franz Regensburger
     4 *)
     5 
     6 structure HOLCF =
     7 struct
     8   val thy = the_context ();
     9 end;
    10 
    11 use"adm.ML";
    12 
    13 simpset_ref() := simpset() addSolver
    14    (mk_solver "adm_tac" (fn thms => (adm_tac (cut_facts_tac thms THEN' cont_tacRs))));
    15 
    16 val HOLCF_ss = simpset();