Logiweb aspects of seqeval at one * term * sequent * end eval in pyk

Up Help

The predefined "pyk" aspect

define pyk of seqeval at one var c term var t sequent var q 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 a unicode small t unicode space unicode small o unicode small n unicode small e unicode space unicode asterisk unicode space unicode small t unicode small e unicode small r unicode small m unicode space unicode asterisk 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 asterisk 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

The predefined "tex" aspect

define tex of seqeval at one var c term var t sequent var q 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 backslash unicode small c unicode small h unicode small a unicode small r unicode six unicode four 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

The predefined "value" aspect

define value of seqeval at 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 not ( var q second term root equal quote all x indeed x end quote ) then error two quote unicode start of text unicode capital q unicode small u unicode small a unicode small n unicode small t unicode small i unicode small f unicode small i unicode small e unicode small r unicode space unicode small e unicode small l unicode small i unicode small m unicode small i unicode small n unicode small a unicode small t unicode small i unicode small o unicode small n unicode space unicode small r unicode small e unicode small q unicode small u unicode small i unicode small r unicode small e unicode small s unicode space unicode small t unicode small h unicode small e unicode space 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 o unicode small f unicode space unicode small i unicode small t unicode small s unicode space unicode small a unicode small r unicode small g unicode small u unicode small m unicode small e unicode small n unicode small t unicode space unicode small t unicode small o unicode space unicode small b unicode small e unicode space unicode small a unicode space unicode small q unicode small u unicode small a unicode small n unicode small t unicode small i unicode small f unicode small i unicode small e unicode small r unicode colon unicode end of text end unicode text end quote term var t end error else newline tagged if not ( var t second free for var q second first in ( var q second second ) ) then error two quote unicode start of text unicode capital q unicode small u unicode small a unicode small n unicode small t unicode small i unicode small f unicode small i unicode small e unicode small r unicode space unicode small e unicode small l unicode small i unicode small m unicode small i unicode small n unicode small a unicode small t unicode small i unicode small o unicode small n unicode space unicode small l unicode small e unicode small a unicode small d unicode small s unicode space unicode small t unicode small o unicode space unicode small v unicode small a unicode small r unicode small i unicode small a unicode small b unicode small l unicode small e unicode space unicode small c unicode small l unicode small a unicode small s unicode small h unicode colon unicode end of text end unicode text end quote term var t end error else newline ( var q zeroth pair ( var q first pair ( sub var q second second set var q second first to var t second end sub pair true ) ) ) end if end if end if ) end define