| author | wenzelm | 
| Mon, 24 Aug 1998 18:58:12 +0200 | |
| changeset 5369 | 8384e01b6cf8 | 
| parent 3842 | b55686a7b22c | 
| child 9245 | 428385c4bc50 | 
| permissions | -rw-r--r-- | 
| 1461 | 1 | (* Title: HOLCF/fun3.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 Fun3; | 
| 2640 | 8 | |
| 9 | (* for compatibility with old HOLCF-Version *) | |
| 3842 | 10 | qed_goal "inst_fun_pcpo" thy "UU = (%x. UU)" | 
| 2640 | 11 | (fn prems => | 
| 12 | [ | |
| 13 | (simp_tac (HOL_ss addsimps [UU_def,UU_fun_def]) 1) | |
| 14 | ]); |