| author | wenzelm | 
| Fri, 01 Dec 2000 19:43:06 +0100 | |
| changeset 10569 | e8346dad78e1 | 
| parent 9248 | e1dee89de037 | 
| child 12030 | 46d57d0290a2 | 
| permissions | -rw-r--r-- | 
| 9245 | 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  | 
|
| 2640 | 7  | 
(* for compatibility with old HOLCF-Version *)  | 
| 
9248
 
e1dee89de037
massive tidy-up: goal -> Goal, remove use of prems, etc.
 
paulson 
parents: 
9245 
diff
changeset
 | 
8  | 
Goal "UU = (%x. UU)";  | 
| 9245 | 9  | 
by (simp_tac (HOL_ss addsimps [UU_def,UU_fun_def]) 1);  | 
10  | 
qed "inst_fun_pcpo";  |