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
  (AB) ~ (A ~ B)

By:	Witness: fg.fg/f,g. <f,g,(x.*),(y.*)> | fga.fga/f,#. #/g,a. <f,g>

1

InvFuns(AB;A ~ B   InvFuns;fg.fg/f,g. <f,g,(x.*),(y.*)>;fga.fga/f,#. #/g,a. <f,g>)

18 steps

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