Def if b t else f fi == InjCase(b ; t; f)

is mentioned by

Def valtype(e) == if isrcv(e) rcvtype(e) else acttype(e) fi	[es-valtype]
Def kindcase(k;a.f(a);l,t.g(l;t)) Def == if islocal(k) f(act(k)) else g(lnk(k);tag(k)) fi	[kindcase]

In prior sections: bool 1 mb nat mb list 2 mb event system 1 int 2 list 1 mb list 1 num thy 1

Try larger context: EventSystems IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html