src/ZF/QUniv.thy

tuned;

(*  Title:      ZF/univ.thy
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1993  University of Cambridge

A small universe for lazy recursive types
*)

QUniv = Univ + QPair + mono + equalities +

global

consts
    quniv        :: i=>i

local

defs
    quniv_def    "quniv(A) == Pow(univ(eclose(A)))"

end