1. A : Type
2. A' : Type
3. B : Type
4. B' : Type
5. f1 : AA'
6. g1 : A'A
7. InvFuns(A;A';f1;g1)
8. f : BB'
9. g : B'B
10. InvFuns(B;B';f;g)
11. x:B. g(f(x)) = x
12. y:B'. f(g(y)) = y
13. x:A. g1(f1(x)) = x
14. y:A'. f1(g1(y)) = y
15. Inj(A; A'; f1)
16. Inj(A'; A; g1)
17. Inj(B; B'; f)
18. Inj(B'; B; g)
  (A inj B) ~ (A' inj B')

By:	Witness: h.f o h o g1 with type (A inj B)A' inj B' THEN Witness: h.g o h o f1 with type (A' inj B')A inj B

1	(h.f o h o g1)  (A inj B)A' inj B'	3 steps
2	19. (h.f o h o g1)  (A inj B)A' inj B'   (h.g o h o f1)  (A' inj B')A inj B	1 step
3	19. (h.f o h o g1)  (A inj B)A' inj B' 20. (h.g o h o f1)  (A' inj B')A inj B   InvFuns(A inj B;A' inj B';h.f o h o g1;h.g o h o f1)	7 steps

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