1. A : Type
2. B : Type
3. (fg.fg/f,g. <f,g,(x.*),(y.*)>)  (AB)(A ~ B)
4. (fga.fga/f,#. #/g,a. <f,g>)  (A ~ B)AB
5. fga : A ~ B
  ((fga/f,#. #/g,a. <f,g>)/f,g. <f,g,(x.*),(y.*)>) = fga

1

5. f : AB 6. g : BA 7. a : InvFuns(A;B;f;g)   <f,g,(x.*),(y.*)> = <f,g,a>  (A ~ B)

13 steps

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