1. A : Type
2. A' : Type
3. strong-subtype(A;A')
4. B : AType
5. C : A'Type
6. eq : EqDecider(A)
7. eq' : EqDecider(A')
8. f : a:A fp-> B(a)
9. g : a:A fp-> B(a)
10. A r A'
11. eq'  EqDecider(A)
12. a:A. B(a) r C(a)
13. x:A. x  dom(f)  x  dom(g) & 2of(f)(x) = 2of(g)(x)
14. x : A
15. x  dom(f)
16. x  A
17. x  dom(g)
18. 2of(f)(x) = 2of(g)(x)
19. x  dom(g)
  (2of(g)(x)) ~ g(x)

None

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