Logiweb aspects of sequent eval {MissingArg} term {MissingArg} end eval in pyk

Up Help

The predefined "pyk" aspect

define pyk of sequent eval x term x end eval as text unicode start of text unicode small s unicode small e unicode small q unicode small u unicode small e unicode small n unicode small t unicode space unicode small e unicode small v unicode small a unicode small l 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 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 sequent eval var x term var y 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 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 right parenthesis unicode end of text end unicode text end text end define

The predefined "value" aspect

define value of sequent eval var c term var t end eval as var c tagged guard newline tagged if var t is error then var t else newline tagged if var t term root equal quote x init end quote then seqeval init var c term var t end eval else newline tagged if var t term root equal quote x modus end quote then seqeval modus var c term var t end eval else newline tagged if var t term root equal quote x verify end quote then seqeval verify var c term var t end eval else newline tagged if var t term root equal quote x curry plus end quote then sequent eval plus var c term var t end eval else newline tagged if var t term root equal quote x curry minus end quote then seqeval minus var c term var t end eval else newline tagged if var t term root equal quote x dereference end quote then seqeval deref var c term var t end eval else newline tagged if var t term root equal quote x at x end quote then seqeval at var c term var t end eval else newline tagged if var t term root equal quote x infer x end quote then seqeval infer var c term var t end eval else newline tagged if var t term root equal quote x endorse x end quote then seqeval endorse var c term var t end eval else newline tagged if var t term root equal quote x id est x end quote then seqeval est var c term var t end eval else newline tagged if var t term root equal quote all x indeed x end quote then seqeval all var c term var t end eval else newline tagged if var t term root equal quote x cut x end quote then seqeval cut var c term var t end eval else newline error two quote unicode start of text unicode capital u unicode small n unicode small k unicode small n unicode small o unicode small w unicode small n 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 small o unicode small p unicode small e unicode small r unicode small a unicode small t unicode small o unicode small r unicode colon unicode end of text end unicode text end quote term var t end error end if end if end if end if end if end if end if end if end if end if end if end if end if end define