((/symbolic/tiny-triangle/tiny-triangle-correct.lisp::|idx| (nil nil nil nil (IF) nil nil) (nil (0) (NOT) (COND) nil nil nil) (nil nil (NATP (< n 1) T) nil nil nil nil) ((n) (1) nil (plus<32>) nil nil nil) (nil (1) (recursive-call) nil nil nil nil) (nil nil nil (-) nil nil nil) ((n) (1) nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tri (nil nil nil nil (IF) nil nil) (nil (0) (NOT) (COND) nil nil nil) (nil nil (NATP (< n 1) T) nil nil nil nil) ((n) (0) nil (plus<32>) nil nil nil) (nil nil (recursive-call |idx|) nil nil nil nil) (nil nil nil (- -) nil nil nil) ((n n) (1 1) nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-cutpoint (nil nil nil (member) nil nil nil) ((*tri-cutpoints*) nil (progc) nil nil nil nil) ((tiny-state) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-assertion (nil nil nil nil nil nil nil) (nil nil (tiny-statep) (signed-byte-p <= equal) (program-loaded) nil (cond)) ((tiny-state *tri-prog* *prog-start-address* tiny-state *word-size* n n *init-dtos*) (0) (dtos (equal (progc tiny-state) *prog-start-address*) (equal (progc tiny-state) *loop-label*) (equal (progc tiny-state) *done-label*) (equal (progc tiny-state) *prog-halt-address*) t) nil nil nil nil) ((tiny-state t) nil nil (and and equal) nil (and) nil) (nil nil (tri) (<= equal <= <= equal equal = equal dtos-val) nil nil nil) ((n n tiny-state n) (0 0 0 0) (|idx| tri tri) (dtos-val dtos-val dtos-val dtos-val memi memi dtos-val memi) nil nil nil) ((tiny-state tiny-state tiny-state tiny-state *idx-adr* tiny-state *tri-adr* tiny-state tiny-state *tri-adr* tiny-state n) (0 0 0 0 0) nil (- -) nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-exitpoint (nil nil nil (equal) nil nil nil) ((*prog-halt-address*) nil (progc) nil nil nil nil) ((tiny-state) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-precondition (nil nil nil nil nil nil nil) (nil nil (tiny-statep) (equal equal <= equal) (program-loaded) nil nil) ((tiny-state *tri-prog* *prog-start-address* tiny-state *init-dtos* *prog-start-address* n) (0) (dtos progc) (dtos-val dtos-val) nil nil nil) ((tiny-state tiny-state tiny-state tiny-state) (0 0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-postcondition (nil nil nil (equal) nil nil nil) (nil nil (tri) (dtos-val) nil nil nil) ((tiny-state n) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-measure (nil nil nil nil (if) nil nil) (nil (0) nil (tiny-tri-exitpoint o+) nil nil nil) ((n tiny-state) nil (nfix) (o*) nil nil nil) ((omega) nil (nfix) (-) nil nil nil) ((*max-prog-address*) nil (progc) (dtos-val) nil nil nil) ((tiny-state tiny-state) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/symbolic/tiny-triangle/tiny-triangle-correct.lisp::tiny-tri-run (nil nil nil nil (if) nil nil) ((tiny-state) nil (zp) (let*) nil nil nil) ((n (tiny-state (next tiny-state))) nil nil (recursive-call) nil nil nil) ((tiny-state) nil (1-) nil nil nil nil) ((n) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))