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) & f(x) = g(x)
14. x : A
15. x  dom(f)
  x  A

By:	MoveToConcl -1 THEN BackThru Thm* eq:EqDecider(Y), f:x:X fp-> Top, x:Y. Thm* strong-subtype(X;Y)  x  dom(f)  x  X

None

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