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

is mentioned by

Def f(x)?z == if x  dom(f) f(x) else z fi	[fpf-cap]
Def pred(e) Def == if isnull(a(loc(e);time(e)-1)) pred(<loc(e),time(e)-1>) Def == else <loc(e),time(e)-1> fi Def (recursive)	[w-pred]
Def first(e) Def == if time(e)=0 true Def == i; isnull(a(loc(e);time(e)-1)) first(<loc(e),time(e)-1>) Def == else false fi Def (recursive)	[w-first]
Def w-action-dec(TA;M;i)(k) Def == kindcase(k;a.TA(i,a);l,tg.if destination(l) = i M(l,tg) else Void fi)	[w-action-dec]
Def before(e) == if first(e) nil else before(pred(e)) @ [pred(e)] fi Def (recursive)	[es-before]

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

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