| author | wenzelm | 
| Mon, 07 Feb 2000 18:38:51 +0100 | |
| changeset 8203 | 2fcc6017cb72 | 
| parent 7570 | a9391550eea1 | 
| child 9245 | 428385c4bc50 | 
| permissions | -rw-r--r-- | 
| 1461 | 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 | 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 | 9 | use"adm.ML"; | 
| 10 | ||
| 7570 | 11 | simpset_ref() := simpset() addSolver | 
| 12 | (mk_solver "adm_tac" (fn thms => (adm_tac (cut_facts_tac thms THEN' cont_tacRs)))); | |
| 3661 | 13 | |
| 4098 | 14 | val HOLCF_ss = simpset(); |