Some definitions of interest.
Id	Def Id == Atom
	Thm* Id  Type
deq	Def EqDecider(T) == eq:TTx,y:T. x = y  (eq(x,y))
	Thm* T:Type. EqDecider(T)  Type
eq_id	Def a = b == eqof(IdDeq)(a,b)
	Thm* a,b:Id. a = b
eqof	Def eqof(d) == 1of(d)
	Thm* T:Type, d:EqDecider(T). eqof(d)  TT

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