Logiweb aspects of peano sub * is * where * is * end sub in pyk

Up Help

The predefined "pyk" aspect

define pyk of peano sub var a is var b where var x is var c end sub as text unicode start of text unicode small p unicode small e unicode small a unicode small n unicode small o unicode space unicode small s unicode small u unicode small b unicode space unicode asterisk unicode space unicode small i unicode small s unicode space unicode asterisk unicode space unicode small w unicode small h unicode small e unicode small r unicode small e unicode space unicode asterisk unicode space unicode small i unicode small s unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small s unicode small u unicode small b unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of peano sub var a is var b where var x is var c end sub as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode left brace unicode backslash unicode small e unicode small q unicode small u unicode small i unicode small v unicode right brace unicode backslash unicode small l unicode small a unicode small n unicode small g unicode small l unicode small e unicode space unicode number sign unicode two unicode period unicode newline unicode vertical line unicode number sign unicode three unicode period unicode newline unicode colon unicode equal sign unicode number sign unicode four unicode period unicode newline unicode backslash unicode small r unicode small a unicode small n unicode small g unicode small l unicode small e unicode end of text end unicode text end text end define

The predefined "value" aspect

define value of peano sub var a is var b where var x is var c end sub as var a tagged guard ( var x tagged guard ( var c tagged guard newline tagged if tagged if var b term root equal quote peano all var u indeed var v end quote then var b first term equal var x else false end if then var a term equal var b else newline tagged if var b is peano var and ( var b term equal var x ) then var a term equal var c else tagged if ( newline var a ) term root equal var b then peano sub star var a tail is var b tail where var x is var c end sub else false end if end if end if ) ) end define