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)
14. x : A  y : B(x)?Void = A
15. x  dom(x : A)
  y : B(x)?Top = A

By:	Analyze -1 THEN RWO Thm* eq:EqDecider(A), x,y:A, v:Top. x  dom(y : v)  x = y 0

None

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