define pyk of seqeval plus one x term x sequent x end eval as text unicode start of text unicode small s unicode small e unicode small q unicode small e unicode small v unicode small a unicode small l unicode space unicode small p unicode small l unicode small u unicode small s unicode space unicode small o unicode small n unicode small e unicode space unicode quotation mark unicode space unicode small t unicode small e unicode small r unicode small m unicode space unicode quotation mark unicode space unicode small s unicode small e unicode small q unicode small u unicode small e unicode small n unicode small t unicode space unicode quotation mark unicode space unicode small e unicode small n unicode small d unicode space unicode small e unicode small v unicode small a unicode small l unicode end of text end unicode text end text end define
define tex of seqeval plus one var x term var y sequent var z end eval 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 s unicode right brace unicode underscore unicode left brace unicode one unicode right brace unicode circumflex unicode left brace unicode plus sign unicode right brace unicode left parenthesis 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 seqeval plus one var c term var t sequent var q end eval as var c tagged guard var t tagged guard newline tagged if var q is error then var q else newline tagged if var q second term root equal quote x infer x end quote and var q second second term root equal quote x infer x end quote then newline var q zeroth pair var q first pair var t color var q second first rule plus var q second second first infer var q second second second end color pair true else newline error two quote unicode start of text unicode capital t unicode small e unicode small r unicode small m unicode semicolon unicode small c unicode small o unicode small n unicode small c unicode small l unicode small u unicode small s unicode small i unicode small o unicode small n unicode space unicode small n unicode small o unicode small t unicode space unicode small f unicode small i unicode small t unicode space unicode small f unicode small o unicode small r unicode space unicode small d unicode small e unicode small c unicode small u unicode small r unicode small r unicode small y unicode small i unicode small n unicode small g unicode colon unicode end of text end unicode text end quote term var t cut var q second end error end if end if end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,