src/ZF/QUniv.thy
changeset 6093 87bf8c03b169
parent 3940 1d5bee4d047f
child 6112 5e4871c5136b
     1.1 --- a/src/ZF/QUniv.thy	Tue Jan 12 13:54:51 1999 +0100
     1.2 +++ b/src/ZF/QUniv.thy	Tue Jan 12 15:17:37 1999 +0100
     1.3 @@ -1,21 +1,15 @@
     1.4 -(*  Title:      ZF/univ.thy
     1.5 +(*  Title:      ZF/QUniv.thy
     1.6      ID:         $Id$
     1.7      Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     1.8      Copyright   1993  University of Cambridge
     1.9  
    1.10 -A small universe for lazy recursive types
    1.11 +A small universe for lazy recursive types.
    1.12  *)
    1.13  
    1.14  QUniv = Univ + QPair + mono + equalities +
    1.15  
    1.16 -global
    1.17 -
    1.18 -consts
    1.19 -    quniv        :: i=>i
    1.20 -
    1.21 -local
    1.22 -
    1.23 -defs
    1.24 -    quniv_def    "quniv(A) == Pow(univ(eclose(A)))"
    1.25 +constdefs
    1.26 +  quniv :: i => i
    1.27 +  "quniv(A) == Pow(univ(eclose(A)))"
    1.28  
    1.29  end