Nuprl - Proof: card sigma distr 1 2

IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: card sigma distr 1 2

1. A : Type
2. B : A

Type
3. C : (x:A

B(x))

Type
4. (

xyz.xyz/xy,z. xy/x,y. <x,y,z>)
4.

(xy:(x:A

B(x))

C(xy))

(x:A

y:B(x)

C(<x,y>))
5. (

xyz.xyz/x,yz. yz/y,z. <<x,y>,z>)
5.

(x:A

y:B(x)

C(<x,y>))

(xy:(x:A

B(x))

C(xy))

InvFuns(xy:(x:A

B(x))

C(xy);x:A

y:B(x)

C(<x,y>)

InvFuns;

xyz.xyz/xy,z. xy/x,y. <x,y,z>;

xyz.xyz/x,yz. yz/y,z. <<x,y>,z>)

By:	Analyze THEN Analyze-1 THENL [Analyze-2;Analyze-1] THEN Reduce Concl

Generated subgoals:

None

About:

IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html