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  dom(g) & f(x) = g(x)  C(x)

By:	Assert (x  A)

1	x  A	1 step
2	16. x  A   x  dom(g) & f(x) = g(x)  C(x)	18 steps

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