Thm* 'a,'b:S.
Thm* all
Thm* ( b:'b. all
Thm* ( b:'b. ( a:'a. all
Thm* ( b:'b. ( a:'a. ( y:'b. all
Thm* ( b:'b. ( a:'a. ( y:'b. ( x:'a. equal
Thm* ( b:'b. ( a:'a. ( y:'b. ( x:'a. (equal(pair(x,y),pair(a,b))
Thm* ( b:'b. ( a:'a. ( y:'b. ( x:'a. ,and(equal(x,a),equal(y,b))))))) | [hpair_eq] |
Thm* 'a,'b:S.
Thm* equal
Thm* (rep_prod
Thm* ,select
Thm* ,( rep:hprod('a; 'b)
Thm* ,( 'a
Thm* ,( 'b
Thm* ,( hbool. and
Thm* ,( hbool. (all
Thm* ,( hbool. (( p':hprod('a; 'b). all
Thm* ,( hbool. (( p':hprod('a; 'b). ( p'':hprod('a; 'b). implies
Thm* ,( hbool. (( p':hprod('a; 'b). ( p'':hprod('a; 'b). (equal
Thm* ,( hbool. (( p':hprod('a; 'b). ( p'':hprod('a; 'b). ((rep(p')
Thm* ,( hbool. (( p':hprod('a; 'b). ( p'':hprod('a; 'b). (,rep(p''))
Thm* ,( hbool. (( p':hprod('a; 'b). ( p'':hprod('a; 'b). ,equal(p',p''))))
Thm* ,( hbool. ,all
Thm* ,( hbool. ,( p:'a  'b  hbool. equal
Thm* ,( hbool. ,( p:'a  'b  hbool. (is_pair(p)
Thm* ,( hbool. ,( p:'a  'b  hbool. ,exists
Thm* ,( hbool. ,( p:'a  'b  hbool. ,( p':hprod('a; 'b). equal
Thm* ,( hbool. ,( p:'a  'b  hbool. ,( p':hprod('a; 'b). (p
Thm* ,( hbool. ,( p:'a  'b  hbool. ,( p':hprod('a; 'b). ,rep(p')))))))) | [hrep_prod_wd] |