| author | nipkow | 
| Fri, 01 Dec 2000 19:54:11 +0100 | |
| changeset 10575 | c78d26d5c3c1 | 
| parent 124 | 858ab9a9b047 | 
| permissions | -rw-r--r-- | 
| 0 | 1  | 
(* Title: ZF/univ.thy  | 
2  | 
ID: $Id$  | 
|
3  | 
Author: Lawrence C Paulson, Cambridge University Computer Laboratory  | 
|
4  | 
Copyright 1993 University of Cambridge  | 
|
5  | 
||
6  | 
A small universe for lazy recursive types  | 
|
7  | 
*)  | 
|
8  | 
||
| 124 | 9  | 
QUniv = Univ + QPair + "mono" + "equalities" +  | 
| 0 | 10  | 
consts  | 
11  | 
quniv :: "i=>i"  | 
|
12  | 
||
13  | 
rules  | 
|
14  | 
quniv_def "quniv(A) == Pow(univ(eclose(A)))"  | 
|
15  | 
||
16  | 
end  |