Logiweb aspects of deduction four * conclude * condition * bound * end deduction in pyk

Up Help

The predefined "pyk" aspect

define pyk of deduction four var x conclude var y condition var z bound var u end deduction as text unicode start of text unicode small d unicode small e unicode small d unicode small u unicode small c unicode small t unicode small i unicode small o unicode small n unicode space unicode small f unicode small o unicode small u unicode small r unicode space unicode asterisk unicode space unicode small c unicode small o unicode small n unicode small c unicode small l unicode small u unicode small d unicode small e unicode space unicode asterisk unicode space unicode small c unicode small o unicode small n unicode small d unicode small i unicode small t unicode small i unicode small o unicode small n unicode space unicode asterisk unicode space unicode small b unicode small o unicode small u unicode small n unicode small d unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small d unicode small e unicode small d unicode small u unicode small c unicode small t unicode small i unicode small o unicode small n unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of deduction four var x conclude var y condition var z bound var u end deduction as text unicode start of text unicode newline unicode capital d unicode small e unicode small d unicode underscore unicode four unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode comma unicode number sign unicode two unicode period unicode newline unicode comma unicode number sign unicode three unicode period unicode newline unicode comma unicode number sign unicode four 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 deduction four var p conclude var c condition var s bound var b end deduction as var s tagged guard ( var b tagged guard tagged if var p term root equal quote object var var x end var end quote then lookup var p stack var b default true end lookup term equal var c else tagged if not ( var p term root equal var c ) then false else tagged if var p term root equal quote for all objects var x indeed var y end quote then ( var p first term equal ( var c first ) ) and deduction four var p second conclude var c second condition var s bound ( var p first pair ( var p first ) ) pair var b end deduction else tagged if not ( var p term root equal quote metavar var x end metavar end quote ) then deduction four star var p tail conclude var c tail condition var s bound var b end deduction else ( var p first term equal ( var c first ) ) and deduction five var p condition var s bound var b end deduction end if end if end if end if ) end define