define pyk of proof expand var t state var s cache var c end expand as text unicode start of text unicode small p unicode small r unicode small o unicode small o unicode small f unicode space unicode small e unicode small x unicode small p unicode small a unicode small n unicode small d unicode space unicode asterisk unicode space unicode small s unicode small t unicode small a unicode small t unicode small e unicode space unicode asterisk unicode space unicode small c unicode small a unicode small c unicode small h unicode small e unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small e unicode small x unicode small p unicode small a unicode small n unicode small d unicode end of text end unicode text end text end define
define tex of proof expand var t state var s cache var c end expand as text unicode start of text unicode newline unicode left brace unicode backslash unicode small c unicode small a unicode small l unicode space unicode capital p unicode right brace unicode left parenthesis unicode space unicode number sign unicode one unicode period unicode newline unicode comma unicode space unicode number sign unicode two unicode period unicode newline unicode comma unicode space unicode number sign unicode three unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define value of proof expand var t state var s cache var c end expand as var s tagged guard newline let one lambda var d dot newline tagged if var d then var t head pair proof expand list var t tail state var s cache var c end expand else newline normalizing untag ( ( eval var d third stack true cache var c end eval tagged apply var t ) tagged apply var s ) tagged apply var c end untag end if apply aspect the tactic aspect term var t cache var c end aspect end let end define
The pyk compiler, version 0.grue.20050502+ by Klaus Grue,