Logiweb aspects of prop three two f t in pyk

Up Help

The predefined "pyk" aspect

define pyk of prop three two f t as text unicode start of text unicode small p unicode small r unicode small o unicode small p unicode space unicode small t unicode small h unicode small r unicode small e unicode small e unicode space unicode small t unicode small w unicode small o unicode space unicode small f unicode space unicode small t unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of prop three two f t as text unicode start of text unicode backslash unicode small m unicode small a unicode small t unicode small h unicode small i unicode small t unicode left brace unicode capital m unicode small e unicode small n unicode small d unicode small e unicode small l unicode small s unicode small o unicode small n unicode space unicode backslash unicode semicolon unicode space unicode three unicode period unicode two unicode left parenthesis unicode small f unicode right parenthesis unicode left parenthesis unicode backslash unicode small d unicode small o unicode small t unicode left brace unicode small t unicode right brace unicode right parenthesis unicode right brace unicode end of text end unicode text end text end define

The user defined "the statement aspect" aspect

define statement of prop three two f t as system prime s infer ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) end define

The user defined "the proof aspect" aspect

define proof of prop three two f t as lambda var c dot lambda var x dot proof expand quote system prime s infer ( ( prop three two f conclude peano all var t peano var indeed ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) cut ( ( ( axiom prime a four at ( var t peano var ) ) conclude ( ( peano all var t peano var indeed ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) peano imply ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) ) cut ( ( ( rule prime mp modus ponens ( ( peano all var t peano var indeed ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) peano imply ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) ) modus ponens peano all var t peano var indeed ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) conclude ( var t peano var peano is ( peano zero peano plus ( var t peano var ) ) ) ) ) ) end quote state proof state cache var c end expand end define