is mentioned by

Def tc_vc(v;ds;da;de) == Case(v) Case vc_imp(hc) = > tc_pred(hc.hyp;ds; < > ;de) & tc_pred(hc.concl;ds; < > ;de) Case vc_qimp(qhc) = > tc_pred(qhc.hyp;ds;dec_lookup(da;qhc.lbl);de) & tc_pred(qhc.concl;ds;dec_lookup(da;qhc.lbl);de) Default = > False	[tc_vc]
Def vc_mng(v;rho;ds;da;de;e;s;tr) == Case(v) Case vc_imp(hc) = > [[hc.hyp]] rho ds < > de e s mk_trace_env(nil, tr.proj) [[hc.concl]] rho ds < > de e s mk_trace_env(nil, tr.proj) Case vc_qimp(qhc) = > v:[[dec_lookup(da;qhc.lbl)]] rho. [[qhc.hyp]] rho ds dec_lookup(da;qhc.lbl) de e s v tr [[qhc.concl]] rho ds dec_lookup(da;qhc.lbl) de e s v tappend(tr; < qhc.lbl,v > ) Default = > False	[vc_mng]

Try larger context: GenAutomata