Logiweb aspects of rule one {MissingArg} theory {MissingArg} end rule in pyk

Up Help

The predefined "pyk" aspect

define pyk of rule one x theory x end rule as text unicode start of text unicode small r unicode small u unicode small l unicode small e unicode space unicode small o unicode small n unicode small e unicode space unicode quotation mark unicode space unicode small t unicode small h unicode small e unicode small o unicode small r unicode small y unicode space unicode quotation mark unicode space unicode small e unicode small n unicode small d unicode space unicode small r unicode small u unicode small l unicode small e unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of rule one var s theory var t end rule as text unicode start of text unicode newline unicode small r unicode small u unicode small l unicode small e unicode underscore unicode one 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 right parenthesis unicode end of text end unicode text end text end define

The predefined "value" aspect

define value of rule one var s theory var t end rule as newline tagged if var s term equal var t then true else newline tagged if not var t term root equal quote var x rule plus var y end quote then zero else newline let one lambda var p dot newline tagged if not var p is cardinal then cut head var t end head and var p end cut else newline let one lambda var p dot newline tagged if not var p is cardinal then cut tail var t end tail and var p end cut else zero end if apply rule one var s theory var t second end rule end let end if apply rule one var s theory var t first end rule end let end if end if end define