| author | kleing | 
| Mon, 21 Jun 2004 10:25:57 +0200 | |
| changeset 14981 | e73f8140af78 | 
| parent 12030 | 46d57d0290a2 | 
| child 15576 | efb95d0d01f7 | 
| permissions | -rw-r--r-- | 
| 2640 | 1  | 
(* Title: HOLCF/One.thy  | 
| 
243
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
2  | 
ID: $Id$  | 
| 2640 | 3  | 
Author: Oscar Slotosch  | 
| 
243
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
4  | 
*)  | 
| 
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
5  | 
|
| 2640 | 6  | 
One = Lift +  | 
| 
243
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
7  | 
|
| 3717 | 8  | 
types one = unit lift  | 
| 
243
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
9  | 
|
| 3717 | 10  | 
constdefs  | 
11  | 
ONE :: "one"  | 
|
12  | 
"ONE == Def ()"  | 
|
| 2640 | 13  | 
|
14  | 
translations  | 
|
| 3717 | 15  | 
"one" <= (type) "unit lift"  | 
| 
243
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
16  | 
|
| 
 
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
 
nipkow 
parents:  
diff
changeset
 | 
17  | 
end  |