| author | lcp | 
| Thu, 03 Nov 1994 12:06:37 +0100 | |
| changeset 686 | be908d8d41ef | 
| parent 124 | 858ab9a9b047 | 
| child 753 | ec86863e87c8 | 
| 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 |