Logiweb aspects of exist-sub1 {MissingArg} is {MissingArg} where {MissingArg} is {MissingArg} end sub in pyk

Up Help

The predefined "pyk" aspect

define pyk of exist-sub1 x is x where x is x end sub as text unicode start of text unicode small e unicode small x unicode small i unicode small s unicode small t unicode hyphen unicode small s unicode small u unicode small b unicode one unicode space unicode quotation mark unicode space unicode small i unicode small s unicode space unicode quotation mark unicode space unicode small w unicode small h unicode small e unicode small r unicode small e unicode space unicode quotation mark unicode space unicode small i unicode small s unicode space unicode quotation mark unicode space unicode small e unicode small n unicode small d unicode space unicode small s unicode small u unicode small b unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of exist-sub1 var x is var y where var z is var u end sub as text unicode start of text unicode backslash unicode small l unicode small a unicode small n unicode small g unicode small l unicode small e unicode space unicode number sign unicode one unicode period unicode newline unicode left brace unicode backslash unicode small e unicode small q unicode small u unicode small i unicode small v unicode right brace unicode circumflex unicode one unicode space unicode number sign unicode two unicode period unicode newline unicode vertical line unicode space unicode number sign unicode three unicode period unicode newline unicode left brace unicode colon unicode equal sign unicode equal sign unicode right brace unicode space unicode number sign unicode four unicode period unicode newline unicode backslash unicode small r unicode small a unicode small n unicode small g unicode small l unicode small e unicode underscore unicode left brace unicode capital e unicode small x unicode right brace unicode space unicode end of text end unicode text end text end define

The predefined "value" aspect

define value of exist-sub1 var a is var b where var x is var t end sub as var a tagged guard var x tagged guard var t tagged guard newline tagged if var b term root equal quote for all objects var u indeed var v end quote then false else newline tagged if var b is existential var and var b term equal var x then var a term equal var t else tagged if newline var a term root equal var b then exist-sub* var a tail is var b tail where var x is var t end sub else false end if end if end if end define