is mentioned by

Thm* a,tr,P:Top. [a / tr] | P ~ if P(kind(a)) [a / tr | P] else tr | P fi	[trace_projection_cons]
Thm* P:Top. nil | P ~ nil	[trace_projection_nil]
Thm* d:Decl, t1,t2:(d) List, P:(Label). t1 @ t2 | P ~ (t1 | P @ t2 | P)	[trace_projection_append]

In prior sections: core well fnd int 1 bool 1 sqequal 1 fun 1 int 2 list 1 prog 1 rel 1 mb basic mb nat union num thy 1 mb list 1 mb label mb declaration mb record

Try larger context: GenAutomata