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. State(x : A  y : B)
13. ma-valtype(k : T; k)
  x : A  y : B(x)?Void = A  Type

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

14. x  dom(x : A)   y : B(x)?Void = A  Type

1 step

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