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

Up Help

The predefined "pyk" aspect

define pyk of deduction three 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 t unicode small h unicode small r unicode small e unicode small e 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 three 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 three 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 three var p conclude var c condition var s bound var b end deduction as tagged if not ( var c term root equal quote for all objects var x indeed var y end quote ) then deduction four var p conclude var c condition var s bound var b end deduction else tagged if ( var p term root equal quote for all objects var x indeed var y end quote ) and ( var p first term equal ( var c first ) ) then deduction four var p conclude var c condition var s bound var b end deduction else deduction three var p conclude var c second condition var s bound ( var c first pair ( var c first ) ) pair var b end deduction end if end if end define