Logiweb aspects of hypothesize in pyk

Up Help

The predefined "pyk" aspect

define pyk of hypothesize as text unicode start of text unicode small h unicode small y unicode small p unicode small o unicode small t unicode small h unicode small e unicode small s unicode small i unicode small z unicode small e unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of hypothesize as text unicode start of text unicode newline unicode capital h unicode small y unicode small p unicode small o unicode small t unicode small h unicode small e unicode small s unicode small i unicode small z unicode small e unicode end of text end unicode text end text end define

The user defined "the statement aspect" aspect

define statement of hypothesize as system prime s infer all metavar var h end metavar indeed all metavar var a end metavar indeed ( metavar var a end metavar infer ( metavar var h end metavar peano imply metavar var a end metavar ) ) end define

The user defined "the proof aspect" aspect

define proof of hypothesize as lambda var c dot lambda var x dot proof expand quote system prime s infer all metavar var h end metavar indeed all metavar var a end metavar indeed ( metavar var a end metavar infer ( ( axiom prime a one conclude ( metavar var a end metavar peano imply ( metavar var h end metavar peano imply metavar var a end metavar ) ) ) cut ( ( ( rule prime mp modus ponens ( metavar var a end metavar peano imply ( metavar var h end metavar peano imply metavar var a end metavar ) ) ) modus ponens metavar var a end metavar ) conclude ( metavar var h end metavar peano imply metavar var a end metavar ) ) ) ) end quote state proof state cache var c end expand end define