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

16. 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