Logiweb aspects of lemma 0<3 in pyk

Up Help

The predefined "pyk" aspect

define pyk of lemma 0<3 as text unicode start of text unicode small l unicode small e unicode small m unicode small m unicode small a unicode space unicode zero unicode less than unicode three unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of lemma 0<3 as text unicode start of text unicode zero unicode less than unicode three unicode end of text end unicode text end text end define

The user defined "the statement aspect" aspect

define statement of lemma 0<3 as system Q infer not0 0 <= 1 + 1 + 1 imply not0 not0 0 = 1 + 1 + 1 end define

The user defined "the proof aspect" aspect

define proof of lemma 0<3 as lambda var c dot lambda var x dot proof expand quote system Q infer lemma 0<2 conclude not0 0 <= 1 + 1 imply not0 not0 0 = 1 + 1 cut lemma lessLeq modus ponens not0 0 <= 1 + 1 imply not0 not0 0 = 1 + 1 conclude 0 <= 1 + 1 cut lemma leqPlus1 modus ponens 0 <= 1 + 1 conclude not0 0 <= 1 + 1 + 1 imply not0 not0 0 = 1 + 1 + 1 cut 1rule repetition modus ponens not0 0 <= 1 + 1 + 1 imply not0 not0 0 = 1 + 1 + 1 conclude not0 0 <= 1 + 1 + 1 imply not0 not0 0 = 1 + 1 + 1 end quote state proof state cache var c end expand end define