Logiweb aspects of unify two * with * substitution * end unify in pyk

Up Help

The predefined "pyk" aspect

define pyk of unify two var t with var u substitution var s end unify as text unicode start of text unicode small u unicode small n unicode small i unicode small f unicode small y unicode space unicode small t unicode small w unicode small o unicode space unicode asterisk unicode space unicode small w unicode small i unicode small t unicode small h unicode space unicode asterisk unicode space unicode small s unicode small u unicode small b unicode small s unicode small t unicode small i unicode small t unicode small u unicode small t unicode small i unicode small o unicode small n unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small u unicode small n unicode small i unicode small f unicode small y unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of unify two var t with var u substitution var s end unify as text unicode start of text unicode newline unicode small u unicode small n unicode small i unicode small f unicode small y unicode underscore unicode two unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode equal sign unicode number sign unicode two unicode period unicode newline unicode comma unicode number sign unicode three 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 unify two var t with var u substitution var s end unify as newline tagged if var t tagged equal var u then var s else newline let one lambda var t prime dot newline tagged if not ( var t prime ) then unify var t prime with var u substitution var s end unify else newline tagged if circular var t term var u substitution var s end circular then zero else var s set var t to var u end set end if end if apply var s assoc var t end assoc end let end if end define