Logiweb aspects of system s in pyk

Up Help

The predefined "pyk" aspect

define pyk of system s as text unicode start of text unicode small s unicode small y unicode small s unicode small t unicode small e unicode small m unicode space unicode small s unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of system s as text unicode start of text unicode newline unicode capital s unicode end of text end unicode text end text end define

The user defined "the statement aspect" aspect

define statement of system s as ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( metavar var a end metavar plus ( metavar var b end metavar suc ) ) equal ( ( metavar var a end metavar plus metavar var b end metavar ) suc ) ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( metavar var a end metavar imply metavar var b end metavar ) infer ( metavar var a end metavar infer metavar var b end metavar ) ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( metavar var a end metavar equal metavar var b end metavar ) infer ( metavar var a end metavar suc equal ( metavar var b end metavar suc ) ) ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( metavar var a end metavar suc equal ( metavar var b end metavar suc ) ) infer ( metavar var a end metavar equal metavar var b end metavar ) ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( lambda var x dot deduction zero quote metavar var a end metavar end quote conclude quote metavar var b end metavar end quote end deduction ) endorse ( metavar var a end metavar infer metavar var b end metavar ) ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed ( ( metavar var a end metavar times ( metavar var b end metavar suc ) ) equal ( ( metavar var a end metavar times metavar var b end metavar ) plus metavar var a end metavar ) ) ) rule plus ( ( all metavar var a end metavar indeed ( ( metavar var a end metavar plus zero ) equal metavar var a end metavar ) ) rule plus ( ( all metavar var a end metavar indeed ( ( not not metavar var a end metavar ) infer metavar var a end metavar ) ) rule plus ( ( all metavar var a end metavar indeed all metavar var b end metavar indeed all metavar var c end metavar indeed ( ( metavar var a end metavar equal metavar var b end metavar ) infer ( ( metavar var a end metavar equal metavar var c end metavar ) infer ( metavar var b end metavar equal metavar var c end metavar ) ) ) ) rule plus ( ( all metavar var x end metavar indeed all metavar var a end metavar indeed all metavar var b end metavar indeed all metavar var c end metavar indeed ( sub zero quote metavar var b end metavar end quote is quote metavar var a end metavar end quote where quote metavar var x end metavar end quote is quote zero end quote end sub endorse ( sub zero quote metavar var c end metavar end quote is quote metavar var a end metavar end quote where quote metavar var x end metavar end quote is quote metavar var x end metavar suc end quote end sub endorse ( metavar var b end metavar infer ( ( metavar var a end metavar imply metavar var c end metavar ) infer metavar var a end metavar ) ) ) ) ) rule plus ( ( all metavar var a end metavar indeed not ( zero equal ( metavar var a end metavar suc ) ) ) rule plus ( ( all metavar var x end metavar indeed all metavar var a end metavar indeed ( metavar var a end metavar infer for all objects metavar var x end metavar indeed metavar var a end metavar ) ) rule plus all metavar var a end metavar indeed ( ( metavar var a end metavar times zero ) equal zero ) ) ) ) ) ) ) ) ) ) ) ) end define