Subsets of the integers of the form
are especially useful.
We call them intervals, and they are defined as follows.
First we define the symbol <= to mean ``less than or equal to'' with
the following definition:
<x:int>\<=<y:int>==((<y><<x>)->void)}.Now the concept of interval can be defined by
{<n:int>,...,<m:int>}=={x:int| <n><=x # x<=<m>}.
Using intervals we can define the concept of an
array a of type A as
a:{1,...,n}->A.
A very important concept in set theory is the concept of equal cardinality. We shall use the term equipollent to signify the type--theoretic analogue of equal cardinality. As in classical set theory, two types are equipollent if there are a pair of invertible functions between them. This is captured by the following definition.
<A:type> is equipollent with <B:type>==
(some ab:<A>-><B>.some ba:<B>-><A>.all x:<A>.all y:<B>.
ba(ab(x))=x in <A> & ab(ba(y))=y in <B>)
In the constructive account, however, we must exhibit the two functions that
establish equipollence, so it is not permissible to use the Schroeder--Bernstein
theorem, for example, to establish equipollence. Thus equipollence is not
identical to the classical notion of equal cardinality.
The following three Nuprl theorems express basic facts about equipollence.
>>all A:U1. A is equipollent with A
>>all A:U1.all B:U1. A is equipollent with B =>
B is equipollent with A
>>all A:U1.all B:U1.all C:U1.
A is equipollent with B &
B is equipollent with C =>
A is equipollent with C
Using the notions of intervals and equipollence we can define the concept of a finite type. We say that a type A is finite if and only if it is equipollent with some interval.
<A:type> is finite== some n:int.{1,...,n} is
equipollent with <A>
We say that n is the cardinality of A.
A nontrivial statement that can be made with the definitions introduced in this section is the pigeonhole principle. The following Nuprl theorem expresses the principle.
>>all n:int.all m:int. all f:{1,...,m}->{1,...,n}.
0<n<m => some i,j:int.i<j & f(i)=f(j) in int
The proof of such a proposition in Nuprl
will include a procedure which,
given
a function f from the interval