1. Id
2. x : Id
3. y : Id
4. k : Knd
5. T : Type
6. A : Type
7. B : Type
8. ABTA
9. y = x
10. x : A  y : B  x:Id fp-> Type
11. k : T  k:Knd fp-> Type
12. s : x@0:Idx : A  y : B(x@0)?Top
13. v : ma-valtype(k : T; k)
14. x : A  y : B(x)?Void = A
15. x : A  y : B(x)?Top = A
16. z : A
17. s(x) = z
18. v  T
  x : A  y : B(y)?Top r B

By:	RWO Thm* eq:EqDecider(A), f,g:a:A fp-> Top, x:A, z:Top. Thm* f  g(x)?z ~ if x  dom(f) f(x)?z else g(x)?z fi 0 THEN SplitOnConclITE THEN Reduce 0

1

19. y  dom(x : A)   x : A(y)?Top r B

1 step

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