IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
eq atom eq true elim sqequal11 1. x : Atom
2. y : Atom
3. x=yAtom ~ true
x = y
By:
p.
let x,y dest_sqequal (h -1 p) in
(Assert (mk_equal_term bool_term y y)
(THENL
([Auto;SqSubstAtAddr [2] x -1 THENL [Trivial;Id]])
p