src/ZF/QUniv.thy
author paulson
Tue Jun 18 18:45:07 2002 +0200 (2002-06-18)
changeset 13220 62c899c77151
parent 6112 5e4871c5136b
child 13285 28d1823ce0f2
permissions -rw-r--r--
tidying
     1 (*  Title:      ZF/QUniv.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 
     9 QUniv = Univ + QPair + mono + equalities +
    10 
    11 (*Disjoint sums as a datatype*)
    12 rep_datatype 
    13   elim		sumE
    14   induct	TrueI
    15   case_eqns	case_Inl, case_Inr
    16 
    17 (*Variant disjoint sums as a datatype*)
    18 rep_datatype 
    19   elim		qsumE
    20   induct	TrueI
    21   case_eqns	qcase_QInl, qcase_QInr
    22 
    23 constdefs
    24   quniv :: "i => i"
    25    "quniv(A) == Pow(univ(eclose(A)))"
    26 
    27 end