Logiweb aspects of verify two {MissingArg} proofs {MissingArg} end verify in pyk

Up Help

The predefined "pyk" aspect

define pyk of verify two x proofs 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 t unicode small w unicode small o unicode space unicode quotation mark unicode space unicode small p unicode small r unicode small o unicode small o unicode small f 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 two var c proofs 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 two 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 two var c proofs var p end verify as var c tagged guard newline tagged if var p then true else newline tagged if not var p head is cardinal then verify two var c proofs var p head end verify pair verify two var c proofs var p tail end verify else var p head pair newline let one lambda var d dot newline tagged if var d then true else newline let one lambda var r dot newline tagged if var r is error then error two quote unicode start of text unicode capital e unicode small r unicode small r unicode small o unicode small r unicode space unicode small i unicode small n unicode space unicode small p unicode small r unicode small o unicode small o unicode small f unicode space unicode small o unicode small f unicode end of text end unicode text end quote term var d second , text quote unicode start of text unicode newline unicode end of text end unicode text end quote first end text , var r end error else var r end if apply sequent eval var c term normalizing untag eval var d third stack true cache var c end eval tagged apply var c tagged apply var p end untag end eval end let end if apply aspect the proof aspect subcodex var p tail end aspect end let end if end if end define