Logiweb aspects of verify four {MissingArg} premises {MissingArg} end verify in pyk

Up Help

The predefined "pyk" aspect

define pyk of verify four x premises x end verify as text unicode start of text unicode small v unicode small e unicode small r unicode small i unicode small f unicode small y unicode space unicode small f unicode small o unicode small u unicode small r unicode space unicode quotation mark unicode space unicode small p unicode small r unicode small e unicode small m unicode small i unicode small s unicode small e unicode small s unicode space unicode quotation mark unicode space unicode small e unicode small n unicode small d unicode space unicode small v unicode small e unicode small r 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 verify four var c premises var p end verify as text unicode start of text unicode newline unicode left brace unicode backslash unicode small c unicode small a unicode small l unicode space unicode capital v unicode right brace unicode underscore unicode four unicode left parenthesis unicode space unicode number sign unicode one unicode period unicode newline unicode comma unicode space unicode number sign unicode two 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 verify four var c premises var p end verify as var c tagged guard newline tagged if var p then true else newline let one lambda var d dot newline tagged if not var d then var d else newline let one lambda var p dot newline let one lambda var r dot newline let one lambda var i dot newline tagged if not var c assoc var r end assoc assoc diagnose hook end assoc then newline error two quote unicode start of text unicode capital r unicode small e unicode small f unicode small e unicode small r unicode small e unicode small n unicode small c unicode small e unicode space unicode small t unicode small o unicode space unicode small e unicode small r unicode small r unicode small o unicode small n unicode small e unicode small o unicode small u unicode small s unicode space unicode small p unicode small a unicode small g unicode small e unicode end of text end unicode text end quote term var p end error else newline tagged if not claims quote verifier end quote cache var c ref var r end claims then newline error two quote unicode start of text unicode capital r unicode small e unicode small f unicode small e unicode small r unicode small e unicode small n unicode small c unicode small e unicode space unicode small t unicode small o unicode space unicode small u unicode small n unicode small c unicode small h unicode small e unicode small c unicode small k unicode small e unicode small d unicode space unicode small l unicode small e unicode small m unicode small m unicode small a unicode end of text end unicode text end quote term var p end error else newline tagged if aspect the proof aspect term var p cache var c end aspect then newline error two quote unicode start of text unicode capital r unicode small e unicode small f unicode small e unicode small r unicode small e unicode small n unicode small c unicode small e unicode space unicode small t unicode small o unicode space unicode small u unicode small n unicode small p unicode small r unicode small o unicode small v unicode small e unicode small d unicode space unicode small l unicode small e unicode small m unicode small m unicode small a unicode end of text end unicode text end quote term var p end error else true end if end if end if apply var p id end let apply var p ref end let apply var p head end let end if apply verify four var c premises var p tail end verify end let end if end define