IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
fpf-val-single1 A:Type, eq:EqDecider(A), x:A, v,P:Top.
z != x : v(x) ==> P(a,z) ~ (True P(x,v))
By:
UnivCD THEN Unfolds [`fpf-val`;`fpf-single`] 0 THEN Unfold `fpf-dom` 0
THEN
Reduce 0
THEN
Subst' (eqof(eq)(x,x) = true) 0