/** ** This file was automatically generated by the Cyclone scheme compiler ** http://justinethier.github.io/cyclone/ ** ** (c) 2014-2017 Justin Ethier ** Version 0.5.3 ** **/ /* "---------------- input program:" */ /* ((import (scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) (define (main) (let* ((count (read)) (input (read)) (output (read)) (s2 (number->string count)) (s1 (number->string input)) (name "sboyer")) (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (and (number? rewrites) (= rewrites output)))))) (define alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (define term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) (define (setup-boyer) #t) (define (test-boyer) #t) (let () (define (setup) (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) 'equal) (pair? (cadr term))) (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas)))) (else (error #f "ADD-LEMMA did not like term: " term)))) (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) '()) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) (define *symbol-records-alist* '()) (define (make-symbol-record sym) (vector sym '())) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) (define (test alist term n) (let ((term (apply-subst (translate-alist alist) (translate-term (do ((term term (list 'or term '(f))) (n n (- n 1))) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) '()) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) '()) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) '() '())) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor '*) (define rewrite-count 0) (define (scons x y original) (if (and (eq? x (car original)) (eq? y (cdr original))) original (cons x y))) (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) '()) (else (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst '*) (define (one-way-unify term1 term2) (begin (set! unify-subst '()) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) (equal? term1 term2)) (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term '*) (define true-term '*) (define (trans-of-implies n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list 'implies 0 1)) (else (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))) (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) (let ((answer (test alist term n))) (if answer rewrite-count #f))))) (define (hide r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x)))) (define (run-r7rs-benchmark name count thunk ok?) (define (rounded x) (/ (round (* 1000 x)) 1000)) (display "Running ") (display name) (newline) (flush-output-port (current-output-port)) (let* ((j/s (jiffies-per-second)) (t0 (current-second)) (j0 (current-jiffy))) (let loop ((i 0) (result #f)) (cond ((< i count) (loop (+ i 1) (thunk))) ((ok? result) (let* ((j1 (current-jiffy)) (t1 (current-second)) (jifs (- j1 j0)) (secs (inexact (/ jifs j/s))) (secs2 (rounded (- t1 t0)))) (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name) (display ",") (display secs) (newline) (flush-output-port (current-output-port))) result) (else (display "ERROR: returned incorrect result: ") (write result) (newline) (flush-output-port (current-output-port)) result))))) (define (this-scheme-implementation-name) (string-append "cyclone-" (Cyc-version))) (main)) */ /* "inline candidates:" */ /* () */ /* "imports:" */ /* ((scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) */ /* "resolved imports:" */ /* ((member scheme base) (assoc scheme base) (cons-source scheme base) (syntax-rules scheme base) (letrec* scheme base) (guard scheme base) (guard-aux scheme base) (define-record-type scheme base) (record? scheme base) (register-simple-type scheme base) (make-type-predicate scheme base) (make-constructor scheme base) (make-getter scheme base) (make-setter scheme base) (slot-set! scheme base) (type-slot-offset scheme base) (receive scheme base) (abs scheme base) (max scheme base) (min scheme base) (modulo scheme base) (floor-remainder scheme base) (even? scheme base) (exact-integer? scheme base) (exact-integer-sqrt scheme base) (exact? scheme base) (inexact? scheme base) (odd? scheme base) (complex? scheme base) (rational? scheme base) (bignum? scheme base) (gcd scheme base) (lcm scheme base) (quotient scheme base) (remainder scheme base) (truncate-quotient scheme base) (truncate-remainder scheme base) (truncate/ scheme base) (floor-quotient scheme base) (floor-remainder scheme base) (floor/ scheme base) (square scheme base) (expt scheme base) (call-with-current-continuation scheme base) (call/cc scheme base) (call-with-values scheme base) (dynamic-wind scheme base) (values scheme base) (char=? scheme base) (char? scheme base) (char<=? scheme base) (char>=? scheme base) (string=? scheme base) (string? scheme base) (string>=? scheme base) (foldl scheme base) (foldr scheme base) (not scheme base) (list? scheme base) (zero? scheme base) (positive? scheme base) (negative? scheme base) (append scheme base) (list scheme base) (make-list scheme base) (list-copy scheme base) (map scheme base) (for-each scheme base) (list-tail scheme base) (list-ref scheme base) (list-set! scheme base) (reverse scheme base) (boolean=? scheme base) (symbol=? scheme base) (Cyc-obj=? scheme base) (vector scheme base) (vector-append scheme base) (vector-copy scheme base) (vector-copy! scheme base) (vector-fill! scheme base) (vector->list scheme base) (vector->string scheme base) (vector-map scheme base) (vector-for-each scheme base) (make-string scheme base) (string scheme base) (string-copy scheme base) (string-copy! scheme base) (string-fill! scheme base) (string->list scheme base) (string->vector scheme base) (string-map scheme base) (string-for-each scheme base) (make-parameter scheme base) (current-output-port scheme base) (current-input-port scheme base) (current-error-port scheme base) (call-with-port scheme base) (error scheme base) (raise scheme base) (raise-continuable scheme base) (with-handler scheme base) (with-exception-handler scheme base) (Cyc-add-exception-handler scheme base) (Cyc-remove-exception-handler scheme base) (newline scheme base) (write-char scheme base) (write-string scheme base) (flush-output-port scheme base) (read-line scheme base) (read-string scheme base) (input-port? scheme base) (output-port? scheme base) (input-port-open? scheme base) (output-port-open? scheme base) (get-output-string scheme base) (open-output-string scheme base) (open-input-string scheme base) (get-output-bytevector scheme base) (open-input-bytevector scheme base) (open-output-bytevector scheme base) (features scheme base) (Cyc-version scheme base) (any scheme base) (every scheme base) (and scheme base) (or scheme base) (let scheme base) (let* scheme base) (letrec scheme base) (let*-values scheme base) (let-values scheme base) (begin scheme base) (case scheme base) (cond scheme base) (cond-expand scheme base) (do scheme base) (when scheme base) (unless scheme base) (quasiquote scheme base) (floor scheme base) (ceiling scheme base) (truncate scheme base) (round scheme base) (exact scheme base) (inexact scheme base) (eof-object scheme base) (syntax-error scheme base) (bytevector-copy scheme base) (bytevector-copy! scheme base) (utf8->string scheme base) (string->utf8 scheme base) (denominator scheme base) (numerator scheme base) (parameterize scheme base) (caar scheme cxr) (cadr scheme cxr) (cdar scheme cxr) (cddr scheme cxr) (caaar scheme cxr) (caadr scheme cxr) (cadar scheme cxr) (caddr scheme cxr) (cdaar scheme cxr) (cdadr scheme cxr) (cddar scheme cxr) (cdddr scheme cxr) (caaaar scheme cxr) (caaadr scheme cxr) (caadar scheme cxr) (caaddr scheme cxr) (cadaar scheme cxr) (cadadr scheme cxr) (caddar scheme cxr) (cadddr scheme cxr) (cdaaar scheme cxr) (cdaadr scheme cxr) (cdadar scheme cxr) (cdaddr scheme cxr) (cddaar scheme cxr) (cddadr scheme cxr) (cdddar scheme cxr) (cddddr scheme cxr) (caaaaar scheme cxr) (read scheme read) (read-all scheme read) (include scheme read) (include-ci scheme read) (display scheme write) (write scheme write) (write-shared scheme write) (write-simple scheme write) (current-second scheme time) (current-jiffy scheme time) (jiffies-per-second scheme time)) */ /* "resolved macros:" */ /* () */ /* "---------------- after macro expansion:" */ /* ((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "sboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (define term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) ((lambda () (define setup (lambda () (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) 'equal) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* '()) (define make-symbol-record (lambda (sym) (vector sym '()))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp$37) (set! lp$37 (lambda (term n) (if (zero? n) term (lp$37 (list 'or term '(f)) (- n 1))))) (lp$37 term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () '())) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) '() '()))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor '*) (define rewrite-count 0) (define scons (lambda (x y original) (if (if (eq? x (car original)) (eq? y (cdr original)) #f) original (cons x y)))) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst '*) (define one-way-unify (lambda (term1 term2) (set! unify-subst '()) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp$117) (if tmp$117 tmp$117 (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp$120) (if tmp$120 tmp$120 (term-member? x lst))) (term-equal? x true-term)))) (define false-term '*) (define true-term '*) (define trans-of-implies (lambda (n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list 'implies 0 1))) ((lambda () (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port (current-output-port)) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name) (display ",") (display secs) (newline) (flush-output-port (current-output-port))))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) (flush-output-port (current-output-port)) result)))))) (loop i result)) #f)) 0 #f)))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (define this-scheme-implementation-name (lambda () (string-append "cyclone-" (Cyc-version)))) (main)) */ /* "---------------- after macro expansion cleanup:" */ /* ((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "sboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (define term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) ((lambda () (define setup (lambda () (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) 'equal) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* '()) (define make-symbol-record (lambda (sym) (vector sym '()))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp$37) (set! lp$37 (lambda (term n) (if (zero? n) term (lp$37 (list 'or term '(f)) (- n 1))))) (lp$37 term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () '())) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) '() '()))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor '*) (define rewrite-count 0) (define scons (lambda (x y original) (if (if (eq? x (car original)) (eq? y (cdr original)) #f) original (cons x y)))) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst '*) (define one-way-unify (lambda (term1 term2) (set! unify-subst '()) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp$117) (if tmp$117 tmp$117 (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp$120) (if tmp$120 tmp$120 (term-member? x lst))) (term-equal? x true-term)))) (define false-term '*) (define true-term '*) (define trans-of-implies (lambda (n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list 'implies 0 1))) ((lambda () (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port (current-output-port)) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name) (display ",") (display secs) (newline) (flush-output-port (current-output-port))))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) (flush-output-port (current-output-port)) result)))))) (loop i result)) #f)) 0 #f)))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (define this-scheme-implementation-name (lambda () (string-append "cyclone-" (Cyc-version)))) (main)) */ /* "---------------- after processing globals" */ /* ((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "sboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port (current-output-port)) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name) (display ",") (display secs) (newline) (flush-output-port (current-output-port))))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) (flush-output-port (current-output-port)) result)))))) (loop i result)) #f)) 0 #f)))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (define this-scheme-implementation-name (lambda () (string-append "cyclone-" (Cyc-version)))) ((lambda () 0 (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) ((lambda () (define setup (lambda () (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) 'equal) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* '()) (define make-symbol-record (lambda (sym) (vector sym '()))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp$37) (set! lp$37 (lambda (term n) (if (zero? n) term (lp$37 (list 'or term '(f)) (- n 1))))) (lp$37 term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () '())) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () '())) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) '() '()))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor '*) (define rewrite-count 0) (define scons (lambda (x y original) (if (if (eq? x (car original)) (eq? y (cdr original)) #f) original (cons x y)))) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () '())) ((lambda () (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst '*) (define one-way-unify (lambda (term1 term2) (set! unify-subst '()) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp$117) (if tmp$117 tmp$117 (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp$120) (if tmp$120 tmp$120 (term-member? x lst))) (term-equal? x true-term)))) (define false-term '*) (define true-term '*) (define trans-of-implies (lambda (n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list 'implies 0 1))) ((lambda () (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (main)))) */ /* "pass thru exports:" */ /* () */ /* "---------------- after alpha conversion:" */ /* ((define main (lambda () ((lambda (count$352) ((lambda (input$353) ((lambda (output$354) ((lambda (s2$355) ((lambda (s1$356) ((lambda (name$357) ((lambda () (run-r7rs-benchmark (string-append name$357 ":" s1$356 ":" s2$355) count$352 (lambda () (setup-boyer) (test-boyer alist term (hide count$352 input$353))) (lambda (rewrites$358) (if (number? rewrites$358) (Cyc-fast-eq rewrites$358 output$354) #f)))))) "sboyer")) (number->string input$353))) (number->string count$352))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) (define hide (lambda (r$348 x$347) (call-with-values (lambda () (values (vector values (lambda (x$351) x$351)) (if (Cyc-fast-lt r$348 100) 0 1))) (lambda (v$350 i$349) ((vector-ref v$350 i$349) x$347))))) (define run-r7rs-benchmark (lambda (name$329 count$328 thunk$327 ok?$326) ((lambda (rounded$331) ((lambda (rounded$332) (set! rounded$331 (lambda (x$346) (Cyc-fast-div (round (Cyc-fast-mul 1000 x$346)) 1000))) (display "Running ") (display name$329) (newline) (flush-output-port (current-output-port)) ((lambda (j/s$333) ((lambda (t0$334) ((lambda (j0$335) ((lambda () ((lambda (i$337 result$336) ((lambda (loop$338) (set! loop$338 (lambda (i$340 result$339) (if (Cyc-fast-lt i$340 count$328) ((lambda () (loop$338 (Cyc-fast-plus i$340 1) (thunk$327)))) (if (ok?$326 result$339) ((lambda () ((lambda (j1$341) ((lambda (t1$342) ((lambda (jifs$343) ((lambda (secs$344) ((lambda (secs2$345) ((lambda () (display "Elapsed time: ") (write secs$344) (display " seconds (") (write secs2$345) (display ") for ") (display name$329) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name$329) (display ",") (display secs$344) (newline) (flush-output-port (current-output-port))))) (rounded$331 (Cyc-fast-sub t1$342 t0$334)))) (inexact (Cyc-fast-div jifs$343 j/s$333)))) (Cyc-fast-sub j1$341 j0$335))) (current-second))) (current-jiffy)) result$339)) ((lambda () (display "ERROR: returned incorrect result: ") (write result$339) (newline) (flush-output-port (current-output-port)) result$339)))))) (loop$338 i$337 result$336)) #f)) 0 #f)))) (current-jiffy))) (current-second))) (jiffies-per-second))) #f)) #f))) (define this-scheme-implementation-name (lambda () (string-append "cyclone-" (Cyc-version)))) ((lambda (*symbol-records-alist*$214 add-lemma$213 add-lemma-lst$212 apply-subst$211 apply-subst-lst$210 false-term$209 falsep$208 get$207 get-lemmas$206 get-name$205 if-constructor$204 make-symbol-record$203 one-way-unify$202 one-way-unify1$201 one-way-unify1-lst$200 put$199 put-lemmas!$198 rewrite$197 rewrite-args$196 rewrite-count$195 rewrite-with-lemmas$194 scons$193 setup$192 symbol->symbol-record$191 symbol-record-equal?$190 tautologyp$189 tautp$188 term-args-equal?$187 term-equal?$186 term-member?$185 test$184 trans-of-implies$183 trans-of-implies1$182 translate-alist$181 translate-args$180 translate-term$179 true-term$178 truep$177 unify-subst$176 untranslate-term$175) ((lambda () 0 (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) ((lambda () ((lambda (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) (set! setup$254 (lambda () (add-lemma-lst$253 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (set! add-lemma-lst$253 (lambda (lst$325) (if (null? lst$325) ((lambda () #t)) ((lambda () (add-lemma$252 (car lst$325)) (add-lemma-lst$253 (cdr lst$325))))))) (set! add-lemma$252 (lambda (term$324) (if (if (pair? term$324) (if (eq? (car term$324) 'equal) (pair? (cadr term$324)) #f) #f) ((lambda () (put$248 (car (cadr term$324)) 'lemmas (cons (translate-term$251 term$324) (get$247 (car (cadr term$324)) 'lemmas))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term$324)))))) (set! translate-term$251 (lambda (term$323) (if (pair? term$323) ((lambda () (cons (symbol->symbol-record$246 (car term$323)) (translate-args$250 (cdr term$323))))) ((lambda () term$323))))) (set! translate-args$250 (lambda (lst$322) (if (null? lst$322) ((lambda () '())) ((lambda () (cons (translate-term$251 (car lst$322)) (translate-args$250 (cdr lst$322)))))))) (set! untranslate-term$249 (lambda (term$321) (if (pair? term$321) ((lambda () (cons (get-name$241 (car term$321)) (map untranslate-term$249 (cdr term$321))))) ((lambda () term$321))))) (set! put$248 (lambda (sym$320 property$319 value$318) (put-lemmas!$243 (symbol->symbol-record$246 sym$320) value$318))) (set! get$247 (lambda (sym$317 property$316) (get-lemmas$242 (symbol->symbol-record$246 sym$317)))) (set! symbol->symbol-record$246 (lambda (sym$313) ((lambda (x$314) (if x$314 (cdr x$314) ((lambda (r$315) (set! *symbol-records-alist*$245 (cons (cons sym$313 r$315) *symbol-records-alist*$245)) r$315) (make-symbol-record$244 sym$313)))) (assq sym$313 *symbol-records-alist*$245)))) (set! *symbol-records-alist*$245 '()) (set! make-symbol-record$244 (lambda (sym$312) (vector sym$312 '()))) (set! put-lemmas!$243 (lambda (symbol-record$311 lemmas$310) (vector-set! symbol-record$311 1 lemmas$310))) (set! get-lemmas$242 (lambda (symbol-record$309) (vector-ref symbol-record$309 1))) (set! get-name$241 (lambda (symbol-record$308) (vector-ref symbol-record$308 0))) (set! symbol-record-equal?$240 (lambda (r1$307 r2$306) (eq? r1$307 r2$306))) (set! test$239 (lambda (alist$299 term$298 n$297) ((lambda (term$305) (tautp$235 term$305)) (apply-subst$237 (translate-alist$238 alist$299) (translate-term$251 ((lambda (term$301 n$300) ((lambda (lp$37$302) (set! lp$37$302 (lambda (term$304 n$303) (if (zero? n$303) term$304 (lp$37$302 (list 'or term$304 '(f)) (Cyc-fast-sub n$303 1))))) (lp$37$302 term$301 n$300)) #f)) term$298 n$297)))))) (set! translate-alist$238 (lambda (alist$296) (if (null? alist$296) ((lambda () '())) ((lambda () (cons (cons (caar alist$296) (translate-term$251 (cdar alist$296))) (translate-alist$238 (cdr alist$296)))))))) (set! apply-subst$237 (lambda (alist$294 term$293) (if (pair? term$293) ((lambda () (cons (car term$293) (apply-subst-lst$236 alist$294 (cdr term$293))))) ((lambda () ((lambda (temp-temp$295) (if temp-temp$295 (cdr temp-temp$295) term$293)) (assq term$293 alist$294))))))) (set! apply-subst-lst$236 (lambda (alist$292 lst$291) (if (null? lst$291) ((lambda () '())) ((lambda () (cons (apply-subst$237 alist$292 (car lst$291)) (apply-subst-lst$236 alist$292 (cdr lst$291)))))))) (set! tautp$235 (lambda (x$290) (tautologyp$234 (rewrite$230 x$290) '() '()))) (set! tautologyp$234 (lambda (x$289 true-lst$288 false-lst$287) (if (truep$222 x$289 true-lst$288) ((lambda () #t)) (if (falsep$223 x$289 false-lst$287) ((lambda () #f)) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) ((lambda () (if (truep$222 (cadr x$289) true-lst$288) ((lambda () (tautologyp$234 (caddr x$289) true-lst$288 false-lst$287))) (if (falsep$223 (cadr x$289) false-lst$287) ((lambda () (tautologyp$234 (cadddr x$289) true-lst$288 false-lst$287))) ((lambda () (if (tautologyp$234 (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287) (tautologyp$234 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) #f))))))) ((lambda () #f))) ((lambda () #f))))))) (set! if-constructor$233 '*) (set! rewrite-count$232 0) (set! scons$231 (lambda (x$286 y$285 original$284) (if (if (eq? x$286 (car original$284)) (eq? y$285 (cdr original$284)) #f) original$284 (cons x$286 y$285)))) (set! rewrite$230 (lambda (term$283) (set! rewrite-count$232 (Cyc-fast-plus rewrite-count$232 1)) (if (pair? term$283) ((lambda () (rewrite-with-lemmas$228 (scons$231 (car term$283) (rewrite-args$229 (cdr term$283)) term$283) (get-lemmas$242 (car term$283))))) ((lambda () term$283))))) (set! rewrite-args$229 (lambda (lst$282) (if (null? lst$282) ((lambda () '())) ((lambda () (scons$231 (rewrite$230 (car lst$282)) (rewrite-args$229 (cdr lst$282)) lst$282)))))) (set! rewrite-with-lemmas$228 (lambda (term$281 lst$280) (if (null? lst$280) ((lambda () term$281)) (if (one-way-unify$226 term$281 (cadr (car lst$280))) ((lambda () (rewrite$230 (apply-subst$237 unify-subst$227 (caddr (car lst$280)))))) ((lambda () (rewrite-with-lemmas$228 term$281 (cdr lst$280)))))))) (set! unify-subst$227 '*) (set! one-way-unify$226 (lambda (term1$279 term2$278) (set! unify-subst$227 '()) (one-way-unify1$225 term1$279 term2$278))) (set! one-way-unify1$225 (lambda (term1$276 term2$275) (if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) ((lambda () (one-way-unify1-lst$224 (cdr term1$276) (cdr term2$275)))) ((lambda () #f))) ((lambda () #f))) ((lambda () ((lambda (temp-temp$277) (if temp-temp$277 ((lambda () (term-equal?$217 term1$276 (cdr temp-temp$277)))) (if (number? term2$275) ((lambda () (equal? term1$276 term2$275))) ((lambda () (set! unify-subst$227 (cons (cons term2$275 term1$276) unify-subst$227)) #t))))) (assq term2$275 unify-subst$227))))))) (set! one-way-unify1-lst$224 (lambda (lst1$274 lst2$273) (if (null? lst1$274) ((lambda () (null? lst2$273))) (if (null? lst2$273) ((lambda () #f)) (if (one-way-unify1$225 (car lst1$274) (car lst2$273)) ((lambda () (one-way-unify1-lst$224 (cdr lst1$274) (cdr lst2$273)))) ((lambda () #f))))))) (set! falsep$223 (lambda (x$271 lst$270) ((lambda (tmp$117$272) (if tmp$117$272 tmp$117$272 (term-member?$215 x$271 lst$270))) (term-equal?$217 x$271 false-term$221)))) (set! truep$222 (lambda (x$268 lst$267) ((lambda (tmp$120$269) (if tmp$120$269 tmp$120$269 (term-member?$215 x$268 lst$267))) (term-equal?$217 x$268 true-term$220)))) (set! false-term$221 '*) (set! true-term$220 '*) (set! trans-of-implies$219 (lambda (n$266) (translate-term$251 (list 'implies (trans-of-implies1$218 n$266) (list 'implies 0 n$266))))) (set! trans-of-implies1$218 (lambda (n$265) (if (equal? n$265 1) ((lambda () (list 'implies 0 1))) ((lambda () (list 'and (list 'implies (Cyc-fast-sub n$265 1) n$265) (trans-of-implies1$218 (Cyc-fast-sub n$265 1)))))))) (set! term-equal?$217 (lambda (x$264 y$263) (if (pair? x$264) ((lambda () (if (pair? y$263) (if (symbol-record-equal?$240 (car x$264) (car y$263)) (term-args-equal?$216 (cdr x$264) (cdr y$263)) #f) #f))) ((lambda () (equal? x$264 y$263)))))) (set! term-args-equal?$216 (lambda (lst1$262 lst2$261) (if (null? lst1$262) ((lambda () (null? lst2$261))) (if (null? lst2$261) ((lambda () #f)) (if (term-equal?$217 (car lst1$262) (car lst2$261)) ((lambda () (term-args-equal?$216 (cdr lst1$262) (cdr lst2$261)))) ((lambda () #f))))))) (set! term-member?$215 (lambda (x$260 lst$259) (if (null? lst$259) ((lambda () #f)) (if (term-equal?$217 x$260 (car lst$259)) ((lambda () #t)) ((lambda () (term-member?$215 x$260 (cdr lst$259)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist*$245 '()) (set! if-constructor$233 (symbol->symbol-record$246 'if)) (set! false-term$221 (translate-term$251 '(f))) (set! true-term$220 (translate-term$251 '(t))) (setup$254))) (set! test-boyer (lambda (alist$257 term$256 n$255) (set! rewrite-count$232 0) ((lambda (answer$258) (if answer$258 rewrite-count$232 #f)) (test$239 alist$257 term$256 n$255))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (main)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ /* "---------------- after func->primitive conversion:" */ /* ((define main (lambda () ((lambda (count$352) ((lambda (input$353) ((lambda (output$354) ((lambda (s2$355) ((lambda (s1$356) ((lambda (name$357) ((lambda () (run-r7rs-benchmark (string-append name$357 ":" s1$356 ":" s2$355) count$352 (lambda () (setup-boyer) (test-boyer alist term (hide count$352 input$353))) (lambda (rewrites$358) (if (number? rewrites$358) (Cyc-fast-eq rewrites$358 output$354) #f)))))) "sboyer")) (number->string input$353))) (number->string count$352))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) (define hide (lambda (r$348 x$347) (call-with-values (lambda () (values (vector values (lambda (x$351) x$351)) (if (Cyc-fast-lt r$348 100) 0 1))) (lambda (v$350 i$349) ((vector-ref v$350 i$349) x$347))))) (define run-r7rs-benchmark (lambda (name$329 count$328 thunk$327 ok?$326) ((lambda (rounded$331) ((lambda (rounded$332) (set! rounded$331 (lambda (x$346) (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) (display "Running ") (display name$329) (newline) (flush-output-port (current-output-port)) ((lambda (j/s$333) ((lambda (t0$334) ((lambda (j0$335) ((lambda () ((lambda (i$337 result$336) ((lambda (loop$338) (set! loop$338 (lambda (i$340 result$339) (if (Cyc-fast-lt i$340 count$328) ((lambda () (loop$338 (Cyc-fast-plus i$340 1) (thunk$327)))) (if (ok?$326 result$339) ((lambda () ((lambda (j1$341) ((lambda (t1$342) ((lambda (jifs$343) ((lambda (secs$344) ((lambda (secs2$345) ((lambda () (display "Elapsed time: ") (write secs$344) (display " seconds (") (write secs2$345) (display ") for ") (display name$329) (newline) (display "+!CSVLINE!+") (display (this-scheme-implementation-name)) (display ",") (display name$329) (display ",") (display secs$344) (newline) (flush-output-port (current-output-port))))) (rounded$331 (Cyc-fast-sub t1$342 t0$334)))) (inexact__inline__ (Cyc-fast-div jifs$343 j/s$333)))) (Cyc-fast-sub j1$341 j0$335))) (current-second))) (current-jiffy)) result$339)) ((lambda () (display "ERROR: returned incorrect result: ") (write result$339) (newline) (flush-output-port (current-output-port)) result$339)))))) (loop$338 i$337 result$336)) #f)) 0 #f)))) (current-jiffy))) (current-second))) (jiffies-per-second))) #f)) #f))) (define this-scheme-implementation-name (lambda () (string-append "cyclone-" (Cyc-version)))) ((lambda (*symbol-records-alist*$214 add-lemma$213 add-lemma-lst$212 apply-subst$211 apply-subst-lst$210 false-term$209 falsep$208 get$207 get-lemmas$206 get-name$205 if-constructor$204 make-symbol-record$203 one-way-unify$202 one-way-unify1$201 one-way-unify1-lst$200 put$199 put-lemmas!$198 rewrite$197 rewrite-args$196 rewrite-count$195 rewrite-with-lemmas$194 scons$193 setup$192 symbol->symbol-record$191 symbol-record-equal?$190 tautologyp$189 tautp$188 term-args-equal?$187 term-equal?$186 term-member?$185 test$184 trans-of-implies$183 trans-of-implies1$182 translate-alist$181 translate-args$180 translate-term$179 true-term$178 truep$177 unify-subst$176 untranslate-term$175) ((lambda () 0 (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) ((lambda () ((lambda (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) (set! setup$254 (lambda () (add-lemma-lst$253 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (set! add-lemma-lst$253 (lambda (lst$325) (if (null? lst$325) ((lambda () #t)) ((lambda () (add-lemma$252 (car lst$325)) (add-lemma-lst$253 (cdr lst$325))))))) (set! add-lemma$252 (lambda (term$324) (if (if (pair? term$324) (if (eq? (car term$324) 'equal) (pair? (cadr term$324)) #f) #f) ((lambda () (put$248 (car (cadr term$324)) 'lemmas (cons (translate-term$251 term$324) (get$247 (car (cadr term$324)) 'lemmas))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term$324)))))) (set! translate-term$251 (lambda (term$323) (if (pair? term$323) ((lambda () (cons (symbol->symbol-record$246 (car term$323)) (translate-args$250 (cdr term$323))))) ((lambda () term$323))))) (set! translate-args$250 (lambda (lst$322) (if (null? lst$322) ((lambda () '())) ((lambda () (cons (translate-term$251 (car lst$322)) (translate-args$250 (cdr lst$322)))))))) (set! untranslate-term$249 (lambda (term$321) (if (pair? term$321) ((lambda () (cons (get-name$241 (car term$321)) (map untranslate-term$249 (cdr term$321))))) ((lambda () term$321))))) (set! put$248 (lambda (sym$320 property$319 value$318) (put-lemmas!$243 (symbol->symbol-record$246 sym$320) value$318))) (set! get$247 (lambda (sym$317 property$316) (get-lemmas$242 (symbol->symbol-record$246 sym$317)))) (set! symbol->symbol-record$246 (lambda (sym$313) ((lambda (x$314) (if x$314 (cdr x$314) ((lambda (r$315) (set! *symbol-records-alist*$245 (cons (cons sym$313 r$315) *symbol-records-alist*$245)) r$315) (make-symbol-record$244 sym$313)))) (assq sym$313 *symbol-records-alist*$245)))) (set! *symbol-records-alist*$245 '()) (set! make-symbol-record$244 (lambda (sym$312) (vector sym$312 '()))) (set! put-lemmas!$243 (lambda (symbol-record$311 lemmas$310) (vector-set! symbol-record$311 1 lemmas$310))) (set! get-lemmas$242 (lambda (symbol-record$309) (vector-ref symbol-record$309 1))) (set! get-name$241 (lambda (symbol-record$308) (vector-ref symbol-record$308 0))) (set! symbol-record-equal?$240 (lambda (r1$307 r2$306) (eq? r1$307 r2$306))) (set! test$239 (lambda (alist$299 term$298 n$297) ((lambda (term$305) (tautp$235 term$305)) (apply-subst$237 (translate-alist$238 alist$299) (translate-term$251 ((lambda (term$301 n$300) ((lambda (lp$37$302) (set! lp$37$302 (lambda (term$304 n$303) (if (zero?__inline__ n$303) term$304 (lp$37$302 (list 'or term$304 '(f)) (Cyc-fast-sub n$303 1))))) (lp$37$302 term$301 n$300)) #f)) term$298 n$297)))))) (set! translate-alist$238 (lambda (alist$296) (if (null? alist$296) ((lambda () '())) ((lambda () (cons (cons (caar alist$296) (translate-term$251 (cdar alist$296))) (translate-alist$238 (cdr alist$296)))))))) (set! apply-subst$237 (lambda (alist$294 term$293) (if (pair? term$293) ((lambda () (cons (car term$293) (apply-subst-lst$236 alist$294 (cdr term$293))))) ((lambda () ((lambda (temp-temp$295) (if temp-temp$295 (cdr temp-temp$295) term$293)) (assq term$293 alist$294))))))) (set! apply-subst-lst$236 (lambda (alist$292 lst$291) (if (null? lst$291) ((lambda () '())) ((lambda () (cons (apply-subst$237 alist$292 (car lst$291)) (apply-subst-lst$236 alist$292 (cdr lst$291)))))))) (set! tautp$235 (lambda (x$290) (tautologyp$234 (rewrite$230 x$290) '() '()))) (set! tautologyp$234 (lambda (x$289 true-lst$288 false-lst$287) (if (truep$222 x$289 true-lst$288) ((lambda () #t)) (if (falsep$223 x$289 false-lst$287) ((lambda () #f)) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) ((lambda () (if (truep$222 (cadr x$289) true-lst$288) ((lambda () (tautologyp$234 (caddr x$289) true-lst$288 false-lst$287))) (if (falsep$223 (cadr x$289) false-lst$287) ((lambda () (tautologyp$234 (cadddr x$289) true-lst$288 false-lst$287))) ((lambda () (if (tautologyp$234 (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287) (tautologyp$234 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) #f))))))) ((lambda () #f))) ((lambda () #f))))))) (set! if-constructor$233 '*) (set! rewrite-count$232 0) (set! scons$231 (lambda (x$286 y$285 original$284) (if (if (eq? x$286 (car original$284)) (eq? y$285 (cdr original$284)) #f) original$284 (cons x$286 y$285)))) (set! rewrite$230 (lambda (term$283) (set! rewrite-count$232 (Cyc-fast-plus rewrite-count$232 1)) (if (pair? term$283) ((lambda () (rewrite-with-lemmas$228 (scons$231 (car term$283) (rewrite-args$229 (cdr term$283)) term$283) (get-lemmas$242 (car term$283))))) ((lambda () term$283))))) (set! rewrite-args$229 (lambda (lst$282) (if (null? lst$282) ((lambda () '())) ((lambda () (scons$231 (rewrite$230 (car lst$282)) (rewrite-args$229 (cdr lst$282)) lst$282)))))) (set! rewrite-with-lemmas$228 (lambda (term$281 lst$280) (if (null? lst$280) ((lambda () term$281)) (if (one-way-unify$226 term$281 (cadr (car lst$280))) ((lambda () (rewrite$230 (apply-subst$237 unify-subst$227 (caddr (car lst$280)))))) ((lambda () (rewrite-with-lemmas$228 term$281 (cdr lst$280)))))))) (set! unify-subst$227 '*) (set! one-way-unify$226 (lambda (term1$279 term2$278) (set! unify-subst$227 '()) (one-way-unify1$225 term1$279 term2$278))) (set! one-way-unify1$225 (lambda (term1$276 term2$275) (if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) ((lambda () (one-way-unify1-lst$224 (cdr term1$276) (cdr term2$275)))) ((lambda () #f))) ((lambda () #f))) ((lambda () ((lambda (temp-temp$277) (if temp-temp$277 ((lambda () (term-equal?$217 term1$276 (cdr temp-temp$277)))) (if (number? term2$275) ((lambda () (equal? term1$276 term2$275))) ((lambda () (set! unify-subst$227 (cons (cons term2$275 term1$276) unify-subst$227)) #t))))) (assq term2$275 unify-subst$227))))))) (set! one-way-unify1-lst$224 (lambda (lst1$274 lst2$273) (if (null? lst1$274) ((lambda () (null? lst2$273))) (if (null? lst2$273) ((lambda () #f)) (if (one-way-unify1$225 (car lst1$274) (car lst2$273)) ((lambda () (one-way-unify1-lst$224 (cdr lst1$274) (cdr lst2$273)))) ((lambda () #f))))))) (set! falsep$223 (lambda (x$271 lst$270) ((lambda (tmp$117$272) (if tmp$117$272 tmp$117$272 (term-member?$215 x$271 lst$270))) (term-equal?$217 x$271 false-term$221)))) (set! truep$222 (lambda (x$268 lst$267) ((lambda (tmp$120$269) (if tmp$120$269 tmp$120$269 (term-member?$215 x$268 lst$267))) (term-equal?$217 x$268 true-term$220)))) (set! false-term$221 '*) (set! true-term$220 '*) (set! trans-of-implies$219 (lambda (n$266) (translate-term$251 (list 'implies (trans-of-implies1$218 n$266) (list 'implies 0 n$266))))) (set! trans-of-implies1$218 (lambda (n$265) (if (equal? n$265 1) ((lambda () (list 'implies 0 1))) ((lambda () (list 'and (list 'implies (Cyc-fast-sub n$265 1) n$265) (trans-of-implies1$218 (Cyc-fast-sub n$265 1)))))))) (set! term-equal?$217 (lambda (x$264 y$263) (if (pair? x$264) ((lambda () (if (pair? y$263) (if (symbol-record-equal?$240 (car x$264) (car y$263)) (term-args-equal?$216 (cdr x$264) (cdr y$263)) #f) #f))) ((lambda () (equal? x$264 y$263)))))) (set! term-args-equal?$216 (lambda (lst1$262 lst2$261) (if (null? lst1$262) ((lambda () (null? lst2$261))) (if (null? lst2$261) ((lambda () #f)) (if (term-equal?$217 (car lst1$262) (car lst2$261)) ((lambda () (term-args-equal?$216 (cdr lst1$262) (cdr lst2$261)))) ((lambda () #f))))))) (set! term-member?$215 (lambda (x$260 lst$259) (if (null? lst$259) ((lambda () #f)) (if (term-equal?$217 x$260 (car lst$259)) ((lambda () #t)) ((lambda () (term-member?$215 x$260 (cdr lst$259)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist*$245 '()) (set! if-constructor$233 (symbol->symbol-record$246 'if)) (set! false-term$221 (translate-term$251 '(f))) (set! true-term$220 (translate-term$251 '(t))) (setup$254))) (set! test-boyer (lambda (alist$257 term$256 n$255) (set! rewrite-count$232 0) ((lambda (answer$258) (if answer$258 rewrite-count$232 #f)) (test$239 alist$257 term$256 n$255))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (main)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ /* "---------------- results of inlinable-top-level-lambda analysis: " */ /* () */ /* "---------------- after CPS:" */ /* ((define main #((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(483 (r$755) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(481 (r$756) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(479 (r$757) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(477 (r$758) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(475 (r$759) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(473 (name$357) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(472 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(467 (r$761) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(464 (r$762) ((run-r7rs-benchmark k$754 r$760 count$352 r$761 r$762)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(465 (r$764) ((if r$764 (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #f)) (number? rewrites$358))) #t)))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)))) #f)) (string-append name$357 ":" s1$356 ":" s2$355))) #f)))) #f)) "sboyer")) #f)) r$759)) #f)) (number->string input$353))) #f)) r$758)) #f)) (number->string count$352))) #f)) r$757)) #f)))) #f)) r$756)) #f)))) #f)) r$755)) #f)))) #t))) (define alist #f) (define term #f) (define setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(463 (k$747) ((k$747 #t)) #t))) (define test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(462 (k$744) ((k$744 #t)) #t))) (define hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(453 (r$731) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(450 (r$732) ((call-with-values k$730 r$731 r$732)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(451 (r$734) ((r$734 k$733 x$347)) #f)) (vector-ref v$350 i$349))) #t)))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(458 (r$740) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(455 (r$739) ((if r$739 (k$738 0) (k$738 1))) #f)) (Cyc-fast-lt r$348 100))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values r$740)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)))) #t))) (define run-r7rs-benchmark #((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(447 (rounded$332) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(443 (r$724) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(436 (r$684) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(434 (r$685) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(432 (r$686) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(430 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(429 (i$337 result$336) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(384 (r$688) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 i$337 result$336)) #f)) (set! loop$338 r$688))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(426 (r$690) ((if r$690 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(387 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(386 (r$691) ((thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 r$691 r$692)) #f)))) #f)) (Cyc-fast-plus i$340 1))) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(418 () ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(417 (r$695) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(415 (r$696) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(413 (r$697) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(412 (jifs$343) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(411 (r$717) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(410 (r$698) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(409 (secs$344) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(408 (r$716) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(407 (r$699) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(405 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) secs$344)) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) secs$344)) #f)) "Elapsed time: ")) #f)))) #f)) r$699)) #f)) r$716)) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)) r$698)) #f)) (inexact__inline__ r$717))) #f)) (Cyc-fast-div jifs$343 j/s$333))) #f)) r$697)) #f)) (Cyc-fast-sub j1$341 j0$335))) #f)) r$696)) #f)))) #f)) r$695)) #f)))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(424 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: ")) #f))))) #f)) result$339))) #f)) (Cyc-fast-lt i$340 count$328))) #t)))) #f)) #f)) #f)) 0 #f)) #f)))) #f)) r$686)) #f)))) #f)) r$685)) #f)))) #f)) r$684)) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 r$724))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(445 (r$727) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(444 (r$726) ((k$725 (Cyc-fast-div r$726 1000))) #f)) (round__inline__ r$727))) #f)) (Cyc-fast-mul 1000 x$346))) #t)))) #f)) #f)) #f)) #f)) #t))) (define this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(380 (*symbol-records-alist*$214 add-lemma$213 add-lemma-lst$212 apply-subst$211 apply-subst-lst$210 false-term$209 falsep$208 get$207 get-lemmas$206 get-name$205 if-constructor$204 make-symbol-record$203 one-way-unify$202 one-way-unify1$201 one-way-unify1-lst$200 put$199 put-lemmas!$198 rewrite$197 rewrite-args$196 rewrite-count$195 rewrite-with-lemmas$194 scons$193 setup$192 symbol->symbol-record$191 symbol-record-equal?$190 tautologyp$189 tautp$188 term-args-equal?$187 term-equal?$186 term-member?$185 test$184 trans-of-implies$183 trans-of-implies1$182 translate-alist$181 translate-args$180 translate-term$179 true-term$178 truep$177 unify-subst$176 untranslate-term$175) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(379 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(378 (r$359) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(377 (r$671) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(376 (r$360) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(375 (r$670) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(374 (r$361) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(373 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(372 (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(369 (r$667) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(368 (r$363) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(360 (r$661) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(359 (r$364) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(339 (r$643) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(338 (r$365) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(329 (r$636) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(328 (r$366) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(319 (r$629) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(318 (r$367) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(309 (r$622) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(308 (r$368) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(305 (r$619) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(304 (r$369) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(301 (r$616) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(300 (r$370) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(291 (r$609) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(290 (r$371) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(289 (r$608) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(288 (r$372) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(285 (r$605) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(284 (r$373) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(282 (r$603) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(281 (r$374) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(279 (r$601) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(278 (r$375) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(276 (r$599) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(275 (r$376) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(273 (r$597) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(272 (r$377) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(255 (r$583) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(254 (r$378) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(243 (r$574) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(242 (r$379) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(232 (r$567) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(231 (r$380) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(222 (r$560) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(221 (r$381) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(216 (r$555) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(215 (r$382) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(187 (r$535) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(186 (r$383) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(185 (r$534) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(184 (r$384) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(183 (r$385) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(176 (r$527) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(175 (r$386) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(162 (r$516) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(161 (r$387) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(152 (r$509) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(151 (r$388) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(138 (r$499) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(137 (r$389) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(136 (r$498) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(135 (r$390) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(131 (r$494) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(130 (r$391) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(107 (r$479) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(106 (r$392) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(93 (r$470) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(92 (r$393) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(88 (r$467) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(87 (r$394) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(83 (r$464) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(82 (r$395) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(81 (r$463) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(80 (r$396) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(79 (r$462) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(78 (r$397) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(71 (r$455) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(70 (r$398) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(58 (r$445) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(57 (r$399) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(46 (r$436) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(45 (r$400) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(32 (r$427) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(31 (r$401) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(22 (r$421) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(21 (r$402) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(8 (r$408) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(7 (r$403) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(2 (r$404) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(1 (r$362) ((main %halt)) #f)) (set! test-boyer r$404))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(4 (r$407) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) r$407)) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t)))) #f)) (set! setup-boyer r$408))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(19 (r$420) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(17 (r$419) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(14 (r$417) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(11 (r$415) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((setup$254 k$409)) #f)) (set! true-term$220 r$414))) #f)) r$415)) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) r$417)) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) r$419)) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 r$420))) #f)) '())) #t)))) #f)) (set! term-member?$215 r$421))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(29 (r$423) ((if r$423 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(23 () ((k$422 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(28 (r$426) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(24 () ((k$422 #t)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(26 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(25 (r$425) ((term-member?$215 k$422 x$260 r$425)) #f)) (cdr lst$259))) #f))))) #f)) x$260 r$426)) #f)) (car lst$259)))) #f)) (null? lst$259))) #t)))) #f)) (set! term-args-equal?$216 r$427))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(43 (r$429) ((if r$429 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(33 () ((k$428 (null? lst2$261))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(42 (r$430) ((if r$430 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(34 () ((k$428 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(41 (r$434) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(40 (r$435) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(37 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(36 (r$432) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(35 (r$433) ((term-args-equal?$216 k$428 r$432 r$433)) #f)) (cdr lst2$261))) #f)) (cdr lst1$262))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(38 () ((k$428 #f)) #f))))) #f)) r$434 r$435)) #f)) (car lst2$261))) #f)) (car lst1$262)))) #f)) (null? lst2$261)))) #f)) (null? lst1$262))) #t)))) #f)) (set! term-equal?$217 r$436))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(55 (r$438) ((if r$438 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(53 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(52 (r$439) ((if r$439 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(51 (r$443) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(50 (r$444) ((symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(49 (r$440) ((if r$440 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(48 (r$441) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(47 (r$442) ((term-args-equal?$216 k$437 r$441 r$442)) #f)) (cdr y$263))) #f)) (cdr x$264)) (k$437 #f))) #f)) r$443 r$444)) #f)) (car y$263))) #f)) (car x$264)) (k$437 #f))) #f)) (pair? y$263))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(54 () ((k$437 (equal? x$264 y$263))) #f))))) #f)) (pair? x$264))) #t)))) #f)) (set! trans-of-implies1$218 r$445))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(60 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(59 (r$448) ((list k$446 r$448 0 1)) #f)) 'implies)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(67 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(66 (r$449) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(65 (r$453) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(62 (r$452) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 r$449 r$450 r$451)) #f)) r$452)) #f)) (Cyc-fast-sub n$265 1))) #f)) r$453 r$454 n$265)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies)) #f)) 'and)) #f))))) #f)) (equal? n$265 1))) #t)))) #f)) (set! trans-of-implies$219 r$455))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(76 (r$458) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(74 (r$461) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) r$458 r$459 r$460)) #f)) r$461 0 n$266)) #f)) 'implies)) #f)) n$266)) #f)) 'implies)) #t)))) #f)) (set! true-term$220 r$462))) #f)) '*)) #f)) (set! false-term$221 r$463))) #f)) '*)) #f)) (set! truep$222 r$464))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(85 (r$466) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) r$466)) #f)) x$268 true-term$220)) #t)))) #f)) (set! falsep$223 r$467))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(90 (r$469) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) r$469)) #f)) x$271 false-term$221)) #t)))) #f)) (set! one-way-unify1-lst$224 r$470))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(104 (r$472) ((if r$472 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(94 () ((k$471 (null? lst2$273))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(103 (r$473) ((if r$473 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(95 () ((k$471 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(102 (r$477) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(101 (r$478) ((one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(98 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(97 (r$475) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(96 (r$476) ((one-way-unify1-lst$224 k$471 r$475 r$476)) #f)) (cdr lst2$273))) #f)) (cdr lst1$274))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(99 () ((k$471 #f)) #f))))) #f)) r$477 r$478)) #f)) (car lst2$273))) #f)) (car lst1$274)))) #f)) (null? lst2$273)))) #f)) (null? lst1$274))) #t)))) #f)) (set! one-way-unify1$225 r$479))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(128 (r$481) ((if r$481 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(116 (r$482) ((if r$482 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(114 (r$486) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(113 (r$487) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(112 (r$483) ((if r$483 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(110 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(109 (r$484) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(108 (r$485) ((one-way-unify1-lst$224 k$480 r$484 r$485)) #f)) (cdr term2$275))) #f)) (cdr term1$276))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(111 () ((k$480 #f)) #f))))) #f)) (eq? r$486 r$487))) #f)) (car term2$275))) #f)) (car term1$276)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(115 () ((k$480 #f)) #f))))) #f)) (pair? term1$276)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(127 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(126 (r$488) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(118 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(117 (r$489) ((term-equal?$217 k$480 term1$276 r$489)) #f)) (cdr temp-temp$277))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(124 (r$490) ((if r$490 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(119 () ((k$480 (equal? term1$276 term2$275))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(123 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(122 (r$493) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons r$493 unify-subst$227))) #f)) (cons term2$275 term1$276))) #f))))) #f)) (number? term2$275)))) #f)) r$488)) #f)) (assq term2$275 unify-subst$227))) #f))))) #f)) (pair? term2$275))) #t)))) #f)) (set! one-way-unify$226 r$494))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(133 (r$497) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 r$497))) #f)) '())) #t)))) #f)) (set! unify-subst$227 r$498))) #f)) '*)) #f)) (set! rewrite-with-lemmas$228 r$499))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(149 (r$501) ((if r$501 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(139 () ((k$500 term$281)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(148 (r$508) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(147 (r$507) ((one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(143 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(142 (r$505) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(141 (r$504) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 r$504)) #f)) (caddr r$505))) #f)) (car lst$280))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(145 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(144 (r$506) ((rewrite-with-lemmas$228 k$500 term$281 r$506)) #f)) (cdr lst$280))) #f))))) #f)) term$281 r$507)) #f)) (cadr r$508))) #f)) (car lst$280)))) #f)) (null? lst$280))) #t)))) #f)) (set! rewrite-args$229 r$509))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(159 (r$511) ((if r$511 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(153 () ((k$510 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(158 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(157 (r$515) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(155 (r$514) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) r$514)) #f)) (cdr lst$282))) #f)) r$515)) #f)) (car lst$282))) #f))))) #f)) (null? lst$282))) #t)))) #f)) (set! rewrite$230 r$516))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(171 (r$519) ((if r$519 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(169 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(168 (r$523) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(167 (r$525) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(164 (r$522) ((get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) r$522)) #f)) (car term$283))) #f)) r$523 r$524 term$283)) #f)) r$525)) #f)) (cdr term$283))) #f)) (car term$283))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(170 () ((k$517 term$283)) #f))))) #f)) (pair? term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t)))) #f)) (set! scons$231 r$527))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(180 (r$533) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(179 (r$531) ((if r$531 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(178 (r$532) ((k$530 (eq? y$285 r$532))) #f)) (cdr original$284)) (k$530 #f))) #f)) (eq? x$286 r$533))) #f)) (car original$284))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t)))) #f)) (set! rewrite-count$232 0))) #f)) (set! if-constructor$233 r$534))) #f)) '*)) #f)) (set! tautologyp$234 r$535))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(188 () ((k$536 #t)) #f))) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(189 () ((k$536 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(211 (r$539) ((if r$539 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(209 (r$554) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(208 (r$540) ((if r$540 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(206 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(205 (r$553) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(191 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(190 (r$542) ((tautologyp$234 k$536 r$542 true-lst$288 false-lst$287)) #f)) (caddr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(203 (r$552) ((falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(193 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(192 (r$544) ((tautologyp$234 k$536 r$544 true-lst$288 false-lst$287)) #f)) (cadddr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(201 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(200 (r$549) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(199 (r$551) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(198 (r$550) ((tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(196 (r$546) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(195 (r$548) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(194 (r$547) ((tautologyp$234 k$536 r$546 true-lst$288 r$547)) #f)) (cons r$548 false-lst$287))) #f)) (cadr x$289))) #f)) (cadddr x$289)) (k$536 #f))) #f)) r$549 r$550 false-lst$287)) #f)) (cons r$551 true-lst$288))) #f)) (cadr x$289))) #f)) (caddr x$289))) #f))))) #f)) r$552 false-lst$287)) #f)) (cadr x$289)))) #f)) r$553 true-lst$288)) #f)) (cadr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(207 () ((k$536 #f)) #f))))) #f)) (eq? r$554 if-constructor$233))) #f)) (car x$289)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(210 () ((k$536 #f)) #f))))) #f)) (pair? x$289)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t)))) #f)) (set! tautp$235 r$555))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(218 (r$558) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(217 (r$559) ((tautologyp$234 k$556 r$557 r$558 r$559)) #f)) '())) #f)) '())) #f)) x$290)) #t)))) #f)) (set! apply-subst-lst$236 r$560))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(229 (r$562) ((if r$562 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(223 () ((k$561 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(228 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(227 (r$566) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(225 (r$565) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 r$565)) #f)) (cdr lst$291))) #f)) alist$292 r$566)) #f)) (car lst$291))) #f))))) #f)) (null? lst$291))) #t)))) #f)) (set! apply-subst$237 r$567))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(240 (r$569) ((if r$569 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(236 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(235 (r$570) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(234 (r$572) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons r$570 r$571))) #f)) alist$294 r$572)) #f)) (cdr term$293))) #f)) (car term$293))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(239 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(238 (r$573) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(237 (temp-temp$295) ((if temp-temp$295 (k$568 (cdr temp-temp$295)) (k$568 term$293))) #f)) r$573)) #f)) (assq term$293 alist$294))) #f))))) #f)) (pair? term$293))) #t)))) #f)) (set! translate-alist$238 r$574))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(252 (r$576) ((if r$576 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(244 () ((k$575 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(251 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(250 (r$580) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(249 (r$582) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(247 (r$577) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(246 (r$579) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons r$577 r$578))) #f)) r$579)) #f)) (cdr alist$296))) #f)) (cons r$580 r$581))) #f)) r$582)) #f)) (cdar alist$296))) #f)) (caar alist$296))) #f))))) #f)) (null? alist$296))) #t)))) #f)) (set! test$239 r$583))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(261 (r$590) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(257 (r$585) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$585)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 r$590))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(266 (r$592) ((if r$592 (k$591 term$304) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(265 (r$595) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(264 (r$596) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(262 (r$594) ((lp$37$302 k$591 r$593 r$594)) #f)) (Cyc-fast-sub n$303 1))) #f)) r$595 term$304 r$596)) #f)) '(f))) #f)) 'or))) #f)) (zero?__inline__ n$303))) #t)))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t)))) #f)) (set! symbol-record-equal?$240 r$597))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t)))) #f)) (set! get-name$241 r$599))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t)))) #f)) (set! get-lemmas$242 r$601))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t)))) #f)) (set! put-lemmas!$243 r$603))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t)))) #f)) (set! make-symbol-record$244 r$605))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(286 (r$607) ((vector k$606 sym$312 r$607)) #f)) '())) #t)))) #f)) (set! *symbol-records-alist*$245 r$608))) #f)) '())) #f)) (set! symbol->symbol-record$246 r$609))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(298 (r$611) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(296 (r$612) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(294 (r$615) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons r$615 *symbol-records-alist*$245))) #f)) (cons sym$313 r$315))) #f)) r$612)) #f)) sym$313))) #f)) r$611)) #f)) (assq sym$313 *symbol-records-alist*$245))) #t)))) #f)) (set! get$247 r$616))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f)) sym$317)) #t)))) #f)) (set! put$248 r$619))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((put-lemmas!$243 k$620 r$621 value$318)) #f)) sym$320)) #t)))) #f)) (set! untranslate-term$249 r$622))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(316 (r$624) ((if r$624 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(314 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(313 (r$628) ((get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(312 (r$625) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(311 (r$627) ((map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons r$625 r$626))) #f)) untranslate-term$249 r$627)) #f)) (cdr term$321))) #f)) r$628)) #f)) (car term$321))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(315 () ((k$623 term$321)) #f))))) #f)) (pair? term$321))) #t)))) #f)) (set! translate-args$250 r$629))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(326 (r$631) ((if r$631 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(320 () ((k$630 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(325 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(324 (r$635) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(322 (r$634) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) r$634)) #f)) (cdr lst$322))) #f)) r$635)) #f)) (car lst$322))) #f))))) #f)) (null? lst$322))) #t)))) #f)) (set! translate-term$251 r$636))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(336 (r$638) ((if r$638 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(334 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(333 (r$642) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(331 (r$641) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) r$641)) #f)) (cdr term$323))) #f)) r$642)) #f)) (car term$323))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(335 () ((k$637 term$323)) #f))))) #f)) (pair? term$323))) #t)))) #f)) (set! add-lemma$252 r$643))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(356 (r$656) ((if r$656 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(355 (r$659) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(354 (r$660) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(353 (r$657) ((if r$657 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(352 (r$658) ((k$655 (pair? r$658))) #f)) (cadr term$324)) (k$655 #f))) #f)) (eq? r$659 r$660))) #f)) 'equal)) #f)) (car term$324)) (k$655 #f))) #f)) (pair? term$324))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(349 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(347 (r$646) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(346 (r$647) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(344 (r$653) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(343 (r$651) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(342 (r$652) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(340 (r$648) ((put$248 k$644 r$646 r$647 r$648)) #f)) (cons r$649 r$650))) #f)) r$651 r$652)) #f)) 'lemmas)) #f)) (car r$653))) #f)) (cadr term$324))) #f)) term$324)) #f)) 'lemmas)) #f)) (car r$654))) #f)) (cadr term$324))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(350 () ((error k$644 #f "ADD-LEMMA did not like term: " term$324)) #f))))) #f)))) #t)))) #f)) (set! add-lemma-lst$253 r$661))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(366 (r$663) ((if r$663 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(361 () ((k$662 #t)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(365 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(364 (r$666) ((add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(362 (r$665) ((add-lemma-lst$253 k$662 r$665)) #f)) (cdr lst$325))) #f)) r$666)) #f)) (car lst$325))) #f))))) #f)) (null? lst$325))) #t)))) #f)) (set! setup$254 r$667))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(370 (r$669) ((add-lemma-lst$253 k$668 r$669)) #f)) '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t)))) #f)) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) #f)))) #f)) (set! term r$670))) #f)) '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) #f)) (set! alist r$671))) #f)) '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) #f)) 0)) #f)))) #f)) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ /* "---------------- cps analysis db:" */ /* #((record-marker) #((record-marker) #f (size hash compare associate entries)) #(1112 #[procedure] #[procedure] #[procedure] #(() ((1 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((k$637 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 2 (335 330) #f #f 2 0 #t #f #t))) (2 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((3 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((4 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f))) (loop$338 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 428 #f #f #f 3 (385 384 383) #f r$688 2 0 #f #f #f)))) ((5 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((6 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$404 test-boyer r$404) #t)))) ((7 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((8 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((9 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((10 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((11 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((12 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((13 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((14 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((15 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((16 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (term2$275 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 7 (129 127 125 123 119 114 109) #f #f 0 7 #t #f #f)))) ((17 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((18 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((19 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (term2$278 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))) ((20 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$408 setup-boyer r$408) #t))) (j1$341 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 416 #f #f #f 1 (414) #f r$695 0 1 #t #f #f)))) ((21 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((22 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((23 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((24 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((25 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((26 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((27 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((28 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((29 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((30 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$421 term-member?$215 r$421) #f)))) ((31 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((32 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((33 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((34 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((35 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$644 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 2 (350 340) #f #f 0 2 #f #f #t))) (36 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((37 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((38 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((39 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((40 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((41 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((42 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((43 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((44 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$427 term-args-equal?$216 r$427) #f)))) ((45 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((46 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((47 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((48 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((49 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((50 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((51 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((52 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((53 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((54 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((55 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (y$263 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (54 53 51 48) #f #f 0 4 #t #f #f)))) ((zero?__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f))) (56 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$436 term-equal?$217 r$436) #f)))) ((57 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((58 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((59 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((60 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((61 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((62 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((63 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((64 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((65 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (get-lemmas$206 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((66 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((67 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((68 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((69 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$445 trans-of-implies1$218 r$445) #f)))) ((70 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((71 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((72 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((73 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((74 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$655 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 357 #f #f #f 3 (356 353 352) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(349 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(347 (r$646) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(346 (r$647) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(344 (r$653) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(343 (r$651) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(342 (r$652) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(340 (r$648) ((put$248 k$644 r$646 r$647 r$648)) #f)) (cons r$649 r$650))) #f)) r$651 r$652)) #f)) 'lemmas)) #f)) (car r$653))) #f)) (cadr term$324))) #f)) term$324)) #f)) 'lemmas)) #f)) (car r$654))) #f)) (cadr term$324))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(350 () ((error k$644 #f "ADD-LEMMA did not like term: " term$324)) #f))))) #f)) 3 0 #t #f #t)))) ((75 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((76 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((77 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$455 trans-of-implies$219 r$455) #f)))) ((78 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((79 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((80 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((81 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((82 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((83 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((84 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((85 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f)))) ((86 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$464 truep$222 r$464) #f)))) ((87 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((88 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((89 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((90 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f)))) ((91 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$467 falsep$223 r$467) #f)))) ((92 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((93 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((94 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((95 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((96 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((97 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((98 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((99 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((100 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((101 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (Cyc-version . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f)))) ((102 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((103 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((104 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((105 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$470 one-way-unify1-lst$224 r$470) #f)))) ((106 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((107 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((108 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$662 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 2 (362 361) #f #f 1 1 #f #f #t)))) ((109 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((110 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((111 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((112 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((113 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((114 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$668 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 371 #f #f #f 1 (370) #f #f 0 1 #f #f #t)))) ((115 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((116 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((117 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (answer$258 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 3 #f #f #f 1 (3) #f r$407 0 0 #t #f #f)))) ((118 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((119 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((120 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((121 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((122 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((123 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((124 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((125 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((126 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((127 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((128 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((129 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$479 one-way-unify1$225 r$479) #t)))) ((130 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((131 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (y$285 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 178) #f #f 0 2 #t #f #f)))) ((132 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((133 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((134 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$494 one-way-unify$226 r$494) #t)))) ((135 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((136 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((137 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((138 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((139 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((140 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (apply-subst-lst$210 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((141 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((142 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((143 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((144 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((145 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((146 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((147 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$674 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t)))) ((148 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((149 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((150 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$499 rewrite-with-lemmas$228 r$499) #f)))) ((k$678 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (383) #f #f 0 1 #f #f #t))) (151 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((152 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((153 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((154 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((155 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((156 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((157 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((158 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((159 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((160 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$509 rewrite-args$229 r$509) #f)))) ((161 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((162 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((163 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((164 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((165 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((166 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((167 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (untranslate-term$175 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((168 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((169 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((170 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((171 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((172 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((173 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((174 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$516 rewrite$230 r$516) #t)))) ((175 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((176 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((177 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$530) #f)))) ((178 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((179 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((180 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (term-equal?$217 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (117 91 86 46 40 28) #f r$436 5 0 #f #f #f)))) ((181 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((182 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$527 scons$231 r$527) #f)))) ((183 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((184 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((185 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((186 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((187 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (rewrite-args$229 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (167 155 152) #f r$509 2 0 #f #f #f)))) ((188 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((189 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$689 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 3 (419 388 385) #f #f 2 1 #f #f #t)))) ((190 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((191 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((192 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((193 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((194 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((195 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((196 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((197 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((198 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((199 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((200 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((201 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((202 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tautologyp$189 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((value$318 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #f))) (203 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (vector . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (286 458) #f #f 2 0 #f #f #f))) (r$501 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 149 #f #f #f 1 (149) #f (null? lst$280) 0 0 #t #f #f)))) ((204 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$502 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f)))) ((205 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$503 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f)))) ((206 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$504 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 141 #f #f #f 1 (141) #f (caddr r$505) 0 1 #t #f #f)))) ((207 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$505 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 142 #f #f #f 1 (142) #f (car lst$280) 0 1 #t #f #f)))) ((208 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$506 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 144 #f #f #f 1 (144) #f (cdr lst$280) 0 1 #t #f #f)))) ((209 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (get-lemmas$242 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (302 279 164) #f r$601 2 0 #f #f #f))) (r$507 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 147 #f #f #f 1 (147) #f (cadr r$508) 0 1 #t #f #f)))) ((210 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$508 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 148 #f #f #f 1 (148) #f (car lst$280) 0 1 #t #f #f)))) ((211 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$509 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 152 #f #f #f 1 (152) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(159 (r$511) ((if r$511 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(153 () ((k$510 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(158 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(157 (r$515) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(155 (r$514) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) r$514)) #f)) (cdr lst$282))) #f)) r$515)) #f)) (car lst$282))) #f))))) #f)) (null? lst$282))) #t)) 0 0 #t #f #f)))) ((212 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((213 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((214 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$535 tautologyp$234 r$535) #f)))) ((215 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((216 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((217 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((218 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((219 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((220 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$555 tautp$235 r$555) #f))) (apply-subst-lst$236 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (234 225 222) #f r$560 2 0 #f #f #f)))) ((221 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((222 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((223 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((224 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((225 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((226 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((227 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((228 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((229 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((230 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$560 apply-subst-lst$236 r$560) #f)))) ((231 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((232 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((233 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((234 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((235 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (string-append . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (381 472) #f #f 2 0 #t #f #f)))) ((236 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((237 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((238 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f))) (unify-subst$176 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((239 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((240 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$511 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 159 #f #f #f 1 (159) #f (null? lst$282) 0 0 #t #f #f)))) ((241 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$567 apply-subst$237 r$567) #f))) (r$512 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 156 #f #f #f 1 (154) #f #f 0 1 #f #f #f)))) ((242 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$513 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f)))) ((243 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$514 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 155 #f #f #f 1 (155) #f (cdr lst$282) 0 1 #t #f #f)))) ((244 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$515 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 157 #f #f #f 1 (157) #f (car lst$282) 0 1 #t #f #f)))) ((245 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$516 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 162 #f #f #f 1 (162) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(171 (r$519) ((if r$519 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(169 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(168 (r$523) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(167 (r$525) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(164 (r$522) ((get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) r$522)) #f)) (car term$283))) #f)) r$523 r$524 term$283)) #f)) r$525)) #f)) (cdr term$283))) #f)) (car term$283))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(170 () ((k$517 term$283)) #f))))) #f)) (pair? term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t)) 0 0 #t #f #f)))) ((246 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((247 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$518 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 172 #f #f #f 0 () #f (set! rewrite-count$232 r$526) 0 0 #t #f #f)))) ((248 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$519 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 171 #f #f #f 1 (171) #f (pair? term$283) 0 0 #t #f #f)))) ((249 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((250 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((251 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((252 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((253 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$574 translate-alist$238 r$574) #f)))) ((254 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((255 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (list . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (264 73 74 61 64 59) #f #f 6 0 #f #f #f)))) ((256 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((257 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f)))) ((258 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((259 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((260 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((261 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((262 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((263 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((264 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((265 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((266 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((267 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$590 lp$37$302 r$590) #f)))) ((268 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((269 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((270 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$259 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (30 29 26) #f #f 0 3 #t #f #f)))) ((271 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$583 test$239 r$583) #t)))) ((272 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((273 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((274 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$597 symbol-record-equal?$240 r$597) #f)))) ((275 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((276 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$520 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 165 #f #f #f 1 (163) #f #f 0 1 #f #f #f)))) ((277 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$599 get-name$241 r$599) #f))) (r$521 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 163 #f #f #f 1 (163) #f #f 0 1 #t #f #f)))) ((278 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$522 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 164 #f #f #f 1 (164) #f (car term$283) 0 1 #t #f #f)))) ((279 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$523 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 168 #f #f #f 1 (166) #f (car term$283) 0 1 #f #f #f)))) ((280 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$601 get-lemmas$242 r$601) #f))) (r$524 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f)))) ((281 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$525 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 167 #f #f #f 1 (167) #f (cdr term$283) 0 1 #t #f #f)))) ((282 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$526 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 173 #f #f #f 1 (173) #f (Cyc-fast-plus rewrite-count$232 1) 0 0 #t #f #f)))) ((283 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$603 put-lemmas!$243 r$603) #t))) (r$527 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 176 #f #f #f 1 (176) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(180 (r$533) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(179 (r$531) ((if r$531 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(178 (r$532) ((k$530 (eq? y$285 r$532))) #f)) (cdr original$284)) (k$530 #f))) #f)) (eq? x$286 r$533))) #f)) (car original$284))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t)) 0 0 #t #f #f)))) ((284 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((285 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$529 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f)))) ((286 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((287 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$605 make-symbol-record$244 r$605) #f)))) ((288 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((289 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((290 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (translate-term$251 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 8 (346 329 324 259 249 72 11 14) #f r$636 7 0 #f #f #f)))) ((291 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((292 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((293 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((294 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((295 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((296 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((297 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((298 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((299 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$609 symbol->symbol-record$246 r$609) #t)))) ((300 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((301 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((302 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((303 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$616 get$247 r$616) #f)))) ((304 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((305 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$267 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 1 (84) #f #f 0 1 #f #f #f)))) ((306 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((307 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$619 put$248 r$619) #f)))) ((308 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((309 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (term$256 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((310 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((311 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((312 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((313 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((314 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$531 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 179 #f #f #f 1 (179) #f (eq? x$286 r$533) 0 0 #t #f #f)))) ((315 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$532 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 178 #f #f #f 1 (178) #f (cdr original$284) 0 1 #t #f #f)))) ((316 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$533 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 180 #f #f #f 1 (180) #f (car original$284) 0 1 #t #f #f)))) ((317 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$622 untranslate-term$249 r$622) #f))) (r$534 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 185 #f #f #f 1 (185) #f '* 0 0 #t #f #f)))) ((318 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$535 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 187 #f #f #f 1 (187) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(188 () ((k$536 #t)) #f))) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(189 () ((k$536 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(211 (r$539) ((if r$539 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(209 (r$554) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(208 (r$540) ((if r$540 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(206 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(205 (r$553) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(191 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(190 (r$542) ((tautologyp$234 k$536 r$542 true-lst$288 false-lst$287)) #f)) (caddr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(203 (r$552) ((falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(193 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(192 (r$544) ((tautologyp$234 k$536 r$544 true-lst$288 false-lst$287)) #f)) (cadddr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(201 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(200 (r$549) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(199 (r$551) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(198 (r$550) ((tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(196 (r$546) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(195 (r$548) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(194 (r$547) ((tautologyp$234 k$536 r$546 true-lst$288 r$547)) #f)) (cons r$548 false-lst$287))) #f)) (cadr x$289))) #f)) (cadddr x$289)) (k$536 #f))) #f)) r$549 r$550 false-lst$287)) #f)) (cons r$551 true-lst$288))) #f)) (cadr x$289))) #f)) (caddr x$289))) #f))))) #f)) r$552 false-lst$287)) #f)) (cadr x$289)))) #f)) r$553 true-lst$288)) #f)) (cadr x$289))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(207 () ((k$536 #f)) #f))))) #f)) (eq? r$554 if-constructor$233))) #f)) (car x$289)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(210 () ((k$536 #f)) #f))))) #f)) (pair? x$289)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t)) 0 0 #t #f #f)))) ((319 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((320 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$537 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f)))) ((321 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$538 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f)))) ((322 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$539 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 211 #f #f #f 1 (211) #f (pair? x$289) 0 0 #t #f #f)))) ((323 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((324 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((325 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((326 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((327 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$629 translate-args$250 r$629) #f)))) ((328 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((329 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((330 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((331 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((332 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((333 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((334 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (lst1$262 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 3 (44 42 37) #f #f 0 3 #t #f #f)))) ((335 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (lst$270 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 1 (89) #f #f 0 1 #f #f #f)))) ((336 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((337 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$636 translate-term$251 r$636) #f)))) ((338 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((339 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((340 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((341 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tmp$117$272 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 89 #f #f #f 2 (89 89) #f r$469 0 1 #t #f #f)))) ((342 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((343 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((344 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((345 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((346 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((347 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((348 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((349 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((350 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$540 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 208 #f #f #f 1 (208) #f (eq? r$554 if-constructor$233) 0 0 #t #f #f)))) ((351 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$655) #f))) (r$541 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f)))) ((352 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$542 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 190 #f #f #f 1 (190) #f (caddr x$289) 0 1 #t #f #f)))) ((353 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$543 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f)))) ((354 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$544 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 192 #f #f #f 1 (192) #f (cadddr x$289) 0 1 #t #f #f)))) ((355 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$545 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f)))) ((356 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$546 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 196 #f #f #f 1 (194) #f (cadddr x$289) 0 1 #f #f #f)))) ((357 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$547 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 194 #f #f #f 1 (194) #f (cons r$548 false-lst$287) 0 1 #t #f #f)))) ((358 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$643 add-lemma$252 r$643) #f))) (r$548 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 195 #f #f #f 1 (195) #f (cadr x$289) 0 1 #t #f #f)))) ((359 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (output$354 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 478 #f #f #f 1 (465) #f r$757 0 1 #t #f #f))) (r$549 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 200 #f #f #f 1 (198) #f (caddr x$289) 0 1 #f #f #f)))) ((360 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (get-name$205 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((361 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((362 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((363 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((364 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((365 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((366 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((367 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$661 add-lemma-lst$253 r$661) #f)))) ((368 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (symbol-record-equal?$190 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((369 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((370 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((371 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$667 setup$254 r$667) #f)))) ((372 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$280 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 4 (150 149 145 143) #f #f 0 4 #t #f #f)))) ((373 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst1$274 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 3 (105 103 98) #f #f 0 3 #t #f #f)))) ((374 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$282 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 4 (160 158 156 154) #f #f 0 4 #f #f #f)))) ((375 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((376 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((377 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((378 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (make-symbol-record$203 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((379 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((380 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((381 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((382 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((383 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((384 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((385 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((386 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((387 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$550 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 198 #f #f #f 1 (198) #f (cons r$551 true-lst$288) 0 1 #t #f #f)))) ((388 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$551 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 199 #f #f #f 1 (199) #f (cadr x$289) 0 1 #t #f #f)))) ((389 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$552 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 203 #f #f #f 1 (203) #f (cadr x$289) 0 1 #t #f #f)))) ((390 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$553 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 205 #f #f #f 1 (205) #f (cadr x$289) 0 1 #t #f #f)))) ((391 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$554 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 209 #f #f #f 1 (209) #f (car x$289) 0 1 #t #f #f)))) ((392 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$555 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 216 #f #f #f 1 (216) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(218 (r$558) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(217 (r$559) ((tautologyp$234 k$556 r$557 r$558 r$559)) #f)) '())) #f)) '())) #f)) x$290)) #t)) 0 0 #t #f #f)))) ((393 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((394 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$557 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 219 #f #f #f 1 (217) #f #f 0 1 #f #f #f)))) ((395 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$558 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 218 #f #f #f 1 (217) #f '() 0 1 #f #f #f)))) ((396 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$559 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 217 #f #f #f 1 (217) #f '() 0 1 #t #f #f)))) ((397 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((398 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((399 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((400 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (symbol->symbol-record$246 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (333 307 303 291 17) #f r$609 4 0 #f #f #f)))) ((401 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((402 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((403 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((404 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((405 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((406 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((407 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f)))) ((408 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((409 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((410 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f))) (lst$291 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 3 (230 228 226) #f #f 0 3 #t #f #f)))) ((411 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((412 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((413 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f)))) ((414 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((415 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f))) (term$281 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (147 144 139) #f #f 0 3 #f #f #f)))) ((416 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((417 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #f))) (term$283 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 6 (172 170 169 168 166 165) #f #f 0 6 #f #f #f)))) ((418 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((419 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((420 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((421 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((422 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((423 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((424 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$560 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 222 #f #f #f 1 (222) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(229 (r$562) ((if r$562 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(223 () ((k$561 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(228 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(227 (r$566) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(225 (r$565) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 r$565)) #f)) (cdr lst$291))) #f)) alist$292 r$566)) #f)) (car lst$291))) #f))))) #f)) (null? lst$291))) #t)) 0 0 #t #f #f)))) ((425 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((426 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$562 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 229 #f #f #f 1 (229) #f (null? lst$291) 0 0 #t #f #f)))) ((427 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$688 loop$338 r$688) #f))) (r$563 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))) ((428 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$564 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))) ((429 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$565 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 225 #f #f #f 1 (225) #f (cdr lst$291) 0 1 #t #f #f)))) ((430 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$566 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 227 #f #f #f 1 (227) #f (car lst$291) 0 1 #t #f #f)))) ((431 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$567 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 232 #f #f #f 1 (232) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(240 (r$569) ((if r$569 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(236 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(235 (r$570) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(234 (r$572) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons r$570 r$571))) #f)) alist$294 r$572)) #f)) (cdr term$293))) #f)) (car term$293))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(239 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(238 (r$573) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(237 (temp-temp$295) ((if temp-temp$295 (k$568 (cdr temp-temp$295)) (k$568 term$293))) #f)) r$573)) #f)) (assq term$293 alist$294))) #f))))) #f)) (pair? term$293))) #t)) 0 0 #t #f #f)))) ((432 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((test-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 462 #f #f 3 (2 -1 468) #t r$404 1 0 #f #f #f))) (433 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$569 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 240 #f #f #f 1 (240) #f (pair? term$293) 0 0 #t #f #f)))) ((434 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((435 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((436 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((437 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((438 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((439 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((440 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((441 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((442 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((443 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((444 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((445 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((446 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$724 rounded$331 r$724) #f))) (s1$356 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 474 #f #f #f 1 (472) #f r$759 0 1 #t #f #f)))) ((447 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((448 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((449 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((450 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((451 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((452 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$732) #f)))) ((453 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((454 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$738) #f))) (term$293 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 5 (241 239 237 236 235) #f #f 0 5 #t #f #f)))) ((455 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (alist$257 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((456 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((457 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((458 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$298 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))) (459 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$740) #f)))) ((460 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$731) #f)))) ((461 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$570 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 235 #f #f #f 1 (233) #f (car term$293) 0 1 #t #f #f)))) ((462 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$571 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f)))) ((463 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$572 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 234 #f #f #f 1 (234) #f (cdr term$293) 0 1 #t #f #f)))) ((464 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$573 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 238 #f #f #f 1 (238) #f (assq term$293 alist$294) 0 1 #t #f #f)))) ((465 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (secs2$345 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 406 #f #f #f 1 (402) #f r$699 0 1 #f #f #f))) (r$574 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 243 #f #f #f 1 (243) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(252 (r$576) ((if r$576 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(244 () ((k$575 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(251 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(250 (r$580) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(249 (r$582) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(247 (r$577) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(246 (r$579) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons r$577 r$578))) #f)) r$579)) #f)) (cdr alist$296))) #f)) (cons r$580 r$581))) #f)) r$582)) #f)) (cdar alist$296))) #f)) (caar alist$296))) #f))))) #f)) (null? alist$296))) #t)) 0 0 #t #f #f)))) ((466 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$762) #f)))) ((467 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$576 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 252 #f #f #f 1 (252) #f (null? alist$296) 0 0 #t #f #f)))) ((468 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$577 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 247 #f #f #f 1 (245) #f (cons r$580 r$581) 0 1 #t #f #f)))) ((469 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$578 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f)))) ((470 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (r$761) #f))) (result$336 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 429 #f #t #f 1 (383) #f #f 0 1 #f #f #f))) (r$579 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 246 #f #f #f 1 (246) #f (cdr alist$296) 0 1 #t #f #f)))) ((471 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((472 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((473 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (result$339 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 4 (426 423 419 388) #f #f 0 4 #f #f #f)))) ((474 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((475 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((476 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((477 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((478 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((479 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((480 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((481 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((482 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((483 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#t ? () #t)))) ((484 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () () () () () () () () () () () ((put$248 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (340 305) #f r$619 1 0 #f #f #f))) (r$580 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 250 #f #f #f 1 (248) #f (caar alist$296) 0 1 #t #f #f)))) ((r$581 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 248 #f #f #f 1 (248) #f #f 0 1 #t #f #f)))) ((r$582 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 249 #f #f #f 1 (249) #f (cdar alist$296) 0 1 #t #f #f)))) ((r$583 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 255 #f #f #f 1 (255) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(261 (r$590) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(257 (r$585) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$585)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 r$590))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(266 (r$592) ((if r$592 (k$591 term$304) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(265 (r$595) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(264 (r$596) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(262 (r$594) ((lp$37$302 k$591 r$593 r$594)) #f)) (Cyc-fast-sub n$303 1))) #f)) r$595 term$304 r$596)) #f)) '(f))) #f)) 'or))) #f)) (zero?__inline__ n$303))) #t)))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t)) 0 0 #t #f #f)))) () ((r$585 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 257 #f #f #f 1 (257) #f #f 0 1 #t #f #f)))) ((r$586 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 270 #f #f #f 1 (258) #f #f 0 1 #f #f #f))) (get-name$241 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (313 276) #f r$599 1 0 #f #f #f)))) ((r$587 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))) ((r$588 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f)))) ((r$589 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 260 #f #f #f 0 () #f (set! lp$37$302 r$590) 0 0 #t #f #f)))) () () () () () () () () () () () () () () () () () () () ((make-symbol-record$244 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (297 285) #f r$605 1 0 #f #f #f)))) () () () () () () () ((r$590 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 261 #f #f #f 1 (261) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(266 (r$592) ((if r$592 (k$591 term$304) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(265 (r$595) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(264 (r$596) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(262 (r$594) ((lp$37$302 k$591 r$593 r$594)) #f)) (Cyc-fast-sub n$303 1))) #f)) r$595 term$304 r$596)) #f)) '(f))) #f)) 'or))) #f)) (zero?__inline__ n$303))) #t)) 0 0 #t #f #f)))) () ((r$592 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 266 #f #f #f 1 (266) #f (zero?__inline__ n$303) 0 0 #t #f #f))) (one-way-unify$202 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$593 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 263 #f #f #f 1 (262) #f #f 0 1 #f #f #f)))) ((r$594 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 262 #f #f #f 1 (262) #f (Cyc-fast-sub n$303 1) 0 1 #t #f #f)))) ((r$595 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 265 #f #f #f 1 (264) #f 'or 0 1 #f #f #f)))) ((r$596 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 264 #f #f #f 1 (264) #f '(f) 0 1 #t #f #f)))) ((r$597 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 273 #f #f #f 1 (273) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t)) 0 0 #t #f #f)))) () ((r$599 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 276 #f #f #f 1 (276) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t)) 0 0 #t #f #f)))) ((trans-of-implies1$182 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () ((truep$222 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (205 214 83) #f r$464 2 0 #f #f #f)))) () () () () () () () () () () () ((rewrite$230 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (220 162 157 140) #f r$516 3 0 #f #f #f)))) ((k$500 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (144 140 139) #f #f 1 2 #f #f #t)))) () () () () () () () () () () ((lst2$261 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (43 41 36 33) #f #f 0 4 #t #f #f)))) () () () () () () () () () () () () () () () () () () () () () ((n$300 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #f #f #f))) (name$329 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 3 (441 400 394) #f #f 0 3 #f #f #f)))) () ((Cyc-fast-div . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (444 412) #f #f 2 0 #t #f #f))) (alist$292 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (227 225) #f #f 0 2 #f #f #f)))) ((n$303 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (267 263) #f #f 0 2 #t #f #f))) (term . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (375 -1 468) #t r$670 0 1 #f #f #f)))) ((k$510 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 2 (154 153) #f #f 1 1 #f #f #t))) (alist$294 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 2 (239 234) #f #f 0 2 #f #f #f)))) () ((test$239 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (255 5) #f r$583 1 0 #f #f #f))) (alist$296 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 4 (253 251 250 247) #f #f 0 4 #t #f #f)))) () () ((alist$299 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f)))) () ((k$517 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 2 (170 163) #f #f 1 1 #f #f #t)))) () () () () () ((lst2$273 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (104 102 97 94) #f #f 0 4 #t #f #f)))) () ((one-way-unify$226 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (147 131) #f r$494 1 0 #f #f #f)))) () () () () ((secs$344 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 409 #f #f #f 2 (404 392) #f r$698 0 2 #f #f #f)))) () () () () () () () ((eq? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (354 274 209 180 178 113) #f #f 6 0 #t #f #f)))) ((current-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (421 390 439) #f #f 3 0 #f #f #f)))) () () () () () () () ((rewrites$358 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (466 465) #f #f 0 2 #t #f #f)))) ((term-args-equal?$187 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () ((k$528 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t)))) () () () () () () () () () () () () () () () ((v$350 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))) (newline . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 4 (422 391 399 440) #f #f 4 0 #f #f #f)))) () () () () () () ((main . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 484 #f #f 2 (1 -1) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(483 (r$755) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(481 (r$756) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(479 (r$757) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(477 (r$758) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(475 (r$759) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(473 (name$357) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(472 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(467 (r$761) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(464 (r$762) ((run-r7rs-benchmark k$754 r$760 count$352 r$761 r$762)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(465 (r$764) ((if r$764 (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #f)) (number? rewrites$358))) #t)))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)))) #f)) (string-append name$357 ":" s1$356 ":" s2$355))) #f)))) #f)) "sboyer")) #f)) r$759)) #f)) (number->string input$353))) #f)) r$758)) #f)) (number->string count$352))) #f)) r$757)) #f)))) #f)) r$756)) #f)))) #f)) r$755)) #f)))) #t))) 1 0 #f #f #f)))) () () () () () ((k$530 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 181 #f #f #f 2 (179 178) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)) 2 0 #t #f #t)))) () () () () () ((k$536 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 8 (210 207 197 194 192 190 189 188) #f #f 5 3 #f #f #t))) (one-way-unify1$201 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () ((s2$355 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 476 #f #f #f 1 (472) #f r$758 0 1 #t #f #f)))) () () () () () () ((scons$193 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () ((name$357 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 473 #f #f #f 1 (472) #f "sboyer" 0 1 #t #f #f)))) () () () () () () () () ((j/s$333 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 435 #f #f #f 1 (412) #f r$684 0 1 #t #f #f)))) () () () () () () () () () () () () () () () () () () () () () ((original$284 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 3 (177 181 179) #f #f 0 3 #t #f #f)))) ((term-member?$185 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () ((this-scheme-implementation-name . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 382 #f #f 2 (-1 397) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) 1 0 #f #f #f)))) () () () ((rewrite-count$232 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (184 174 173 6 3) #t 0 0 2 #f #f #f)))) ((rewrite-with-lemmas$194 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () ((setup$254 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (369 9) #f r$667 1 0 #f #f #f)))) () ((k$556 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (217) #f #f 0 1 #f #f #t)))) () () () ((one-way-unify1$225 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (132 107 101) #f r$479 2 0 #f #f #f)))) () () () ((true-term$220 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (86 79 10) #t r$462 0 1 #f #f #f)))) () () () () () () ((translate-alist$181 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () ((falsep$208 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () ((k$561 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (224 223) #f #f 2 0 #t #f #t)))) () () () () () () ((k$568 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 3 (237 237 233) #f #f 3 0 #t #f #t)))) () () () ((map . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (311) #f #f 1 0 #f #f #f)))) () () () () () () () () () () () () () () () () () () () () () ((trans-of-implies$183 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () ((translate-args$250 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (331 322 319) #f r$629 2 0 #f #f #f)))) () () () () () ((k$575 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 2 (245 244) #f #f 2 0 #t #f #t)))) () ((%halt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f)))) () () () () () () () () () () () () () () () () ((falsep$223 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (203 213 88) #f r$467 2 0 #f #f #f)))) () ((put-lemmas!$198 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () ((t0$334 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 433 #f #f #f 1 (409) #f r$685 0 1 #t #f #f)))) () ((temp-temp$277 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 125 #f #f #f 2 (118 125) #f r$488 0 1 #t #f #f)))) () () () () () () ((k$584 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (256) #f #f 0 1 #f #f #t)))) () () () () () () () () () () () () () () () () () ((r$400 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 45 #f #f #f 0 () #f (set! term-equal?$217 r$436) 0 0 #t #f #f))) (caddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (201 191 142) #f #f 3 0 #t #f #f)))) ((r$401 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 31 #f #f #f 0 () #f (set! term-args-equal?$216 r$427) 0 0 #t #f #f)))) ((r$402 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 21 #f #f #f 0 () #f (set! term-member?$215 r$421) 0 0 #t #f #f)))) ((r$403 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 7 #f #f #f 0 () #f (set! setup-boyer r$408) 0 0 #t #f #f)))) ((r$404 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 2 #f #f #f 1 (2) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(4 (r$407) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) r$407)) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t)) 0 0 #t #f #f)))) ((add-lemma$213 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$406 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 5 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f)))) ((r$407 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 4 #f #f #f 1 (4) #f #f 0 1 #t #f #f)))) ((r$408 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 8 #f #f #f 1 (8) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(19 (r$420) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(17 (r$419) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(14 (r$417) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(11 (r$415) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((setup$254 k$409)) #f)) (set! true-term$220 r$414))) #f)) r$415)) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) r$417)) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) r$419)) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 r$420))) #f)) '())) #t)) 0 0 #t #f #f)))) () () ((r$700 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$701 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$702 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$703 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f))) (one-way-unify1-lst$200 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$704 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((k$591 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (262 266) #f #f 1 1 #f #f #t))) (r$705 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$706 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$707 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$708 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$709 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () ((k$598 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t)))) () () () () () () () () () ((round__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (445) #f #f 1 0 #t #f #f)))) () () () ((r$410 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 18 #f #f #f 0 () #f (set! *symbol-records-alist*$245 r$420) 0 0 #t #f #f))) (cons . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 15 (341 330 321 310 295 294 248 245 233 224 199 195 177 123 122) #f #f 15 0 #t #f #f)))) ((r$411 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 15 #f #f #f 0 () #f (set! if-constructor$233 r$418) 0 0 #t #f #f)))) ((r$412 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 12 #f #f #f 0 () #f (set! false-term$221 r$416) 0 0 #t #f #f)))) ((r$413 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 9 #f #f #f 0 () #f (set! true-term$220 r$414) 0 0 #t #f #f)))) ((r$414 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f)))) ((r$415 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 11 #f #f #f 1 (11) #f '(t) 0 1 #t #f #f)))) ((r$416 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f)))) ((r$417 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 14 #f #f #f 1 (14) #f '(f) 0 1 #t #f #f)))) ((r$418 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f)))) ((r$419 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 17 #f #f #f 1 (17) #f 'if 0 1 #t #f #f)))) ((temp-temp$295 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 237 #f #f #f 2 (237 237) #f r$573 0 1 #t #f #f)))) ((r$710 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$711 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$712 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$713 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$714 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f)))) ((r$715 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f)))) ((r$716 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 408 #f #f #f 1 (408) #f (Cyc-fast-sub t1$342 t0$334) 0 1 #t #f #f)))) ((r$717 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 411 #f #f #f 1 (411) #f (Cyc-fast-div jifs$343 j/s$333) 0 1 #t #f #f)))) ((r$718 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$719 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () () () ((tautp$235 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (256 216) #f r$555 1 0 #f #f #f)))) () () ((r$420 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 19 #f #f #f 1 (19) #f '() 0 0 #t #f #f)))) ((r$421 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 22 #f #f #f 1 (22) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(29 (r$423) ((if r$423 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(23 () ((k$422 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(28 (r$426) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(24 () ((k$422 #t)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(26 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(25 (r$425) ((term-member?$215 k$422 x$260 r$425)) #f)) (cdr lst$259))) #f))))) #f)) x$260 r$426)) #f)) (car lst$259)))) #f)) (null? lst$259))) #t)) 0 0 #t #f #f)))) () ((r$423 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 29 #f #f #f 1 (29) #f (null? lst$259) 0 0 #t #f #f)))) ((r$424 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f)))) ((r$425 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 25 #f #f #f 1 (25) #f (cdr lst$259) 0 1 #t #f #f)))) ((r$426 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 28 #f #f #f 1 (28) #f (car lst$259) 0 1 #t #f #f)))) ((r$427 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 32 #f #f #f 1 (32) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(43 (r$429) ((if r$429 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(33 () ((k$428 (null? lst2$261))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(42 (r$430) ((if r$430 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(34 () ((k$428 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(41 (r$434) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(40 (r$435) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(37 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(36 (r$432) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(35 (r$433) ((term-args-equal?$216 k$428 r$432 r$433)) #f)) (cdr lst2$261))) #f)) (cdr lst1$262))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(38 () ((k$428 #f)) #f))))) #f)) r$434 r$435)) #f)) (car lst2$261))) #f)) (car lst1$262)))) #f)) (null? lst2$261)))) #f)) (null? lst1$262))) #t)) 0 0 #t #f #f)))) () ((r$429 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 43 #f #f #f 1 (43) #f (null? lst1$262) 0 0 #t #f #f)))) () ((r$720 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$721 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$722 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f)))) ((r$723 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f)))) ((r$724 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 443 #f #f #f 1 (443) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(445 (r$727) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(444 (r$726) ((k$725 (Cyc-fast-div r$726 1000))) #f)) (round__inline__ r$727))) #f)) (Cyc-fast-mul 1000 x$346))) #t)) 0 0 #t #f #f)))) () ((r$726 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 444 #f #f #f 1 (444) #f (round__inline__ r$727) 0 1 #t #f #f)))) ((r$727 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 445 #f #f #f 1 (445) #f (Cyc-fast-mul 1000 x$346) 0 1 #t #f #f))) (one-way-unify1-lst$224 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (108 96 93) #f r$470 2 0 #f #f #f)))) () () () ((inexact__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (411) #f #f 1 0 #t #f #f)))) () () () () () () () () () () () () () () ((jiffies-per-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f))) (r$430 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 42 #f #f #f 1 (42) #f (null? lst2$261) 0 0 #t #f #f)))) ((r$431 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f)))) ((r$432 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 36 #f #f #f 1 (35) #f (cdr lst1$262) 0 1 #f #f #f)))) ((r$433 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 35 #f #f #f 1 (35) #f (cdr lst2$261) 0 1 #t #f #f)))) ((r$434 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 41 #f #f #f 1 (40) #f (car lst1$262) 0 1 #f #f #f)))) ((r$435 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 40 #f #f #f 1 (40) #f (car lst2$261) 0 1 #t #f #f)))) ((r$436 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 46 #f #f #f 1 (46) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(55 (r$438) ((if r$438 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(53 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(52 (r$439) ((if r$439 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(51 (r$443) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(50 (r$444) ((symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(49 (r$440) ((if r$440 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(48 (r$441) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(47 (r$442) ((term-args-equal?$216 k$437 r$441 r$442)) #f)) (cdr y$263))) #f)) (cdr x$264)) (k$437 #f))) #f)) r$443 r$444)) #f)) (car y$263))) #f)) (car x$264)) (k$437 #f))) #f)) (pair? y$263))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(54 () ((k$437 (equal? x$264 y$263))) #f))))) #f)) (pair? x$264))) #t)) 0 0 #t #f #f)))) ((x$314 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 297 #f #f #f 2 (297 297) #f r$611 0 1 #t #f #f)))) ((r$438 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 55 #f #f #f 1 (55) #f (pair? x$264) 0 0 #t #f #f)))) ((r$439 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 52 #f #f #f 1 (52) #f (pair? y$263) 0 0 #t #f #f)))) () () ((r$731 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 453 #f #f #f 1 (450) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(458 (r$740) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(455 (r$739) ((if r$739 (k$738 0) (k$738 1))) #f)) (Cyc-fast-lt r$348 100))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values r$740)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) 0 1 #f #f #f)))) ((r$732 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 450 #f #f #f 1 (450) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(451 (r$734) ((r$734 k$733 x$347)) #f)) (vector-ref v$350 i$349))) #t)) 0 1 #t #f #f)))) () ((r$734 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 451 #f #f #f 1 (451) #f (vector-ref v$350 i$349) 1 0 #t #f #f)))) () ((r$736 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f)))) ((r$737 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f)))) () ((r$739 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 455 #f #f #f 1 (455) #f (Cyc-fast-lt r$348 100) 0 0 #t #f #f)))) () () () () () () () () () () () () () () () () ((r$440 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 49 #f #f #f 1 (49) #f #f 0 0 #t #f #f)))) ((r$441 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 48 #f #f #f 1 (47) #f (cdr x$264) 0 1 #f #f #f)))) ((r$442 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 47 #f #f #f 1 (47) #f (cdr y$263) 0 1 #t #f #f)))) ((r$443 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 51 #f #f #f 1 (50) #f (car x$264) 0 1 #f #f #f)))) ((add-lemma$252 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (364 339) #f r$643 1 0 #f #f #f))) (r$444 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 50 #f #f #f 1 (50) #f (car y$263) 0 1 #t #f #f)))) ((r$445 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 58 #f #f #f 1 (58) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(60 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(59 (r$448) ((list k$446 r$448 0 1)) #f)) 'implies)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(67 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(66 (r$449) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(65 (r$453) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(62 (r$452) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 r$449 r$450 r$451)) #f)) r$452)) #f)) (Cyc-fast-sub n$265 1))) #f)) r$453 r$454 n$265)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies)) #f)) 'and)) #f))))) #f)) (equal? n$265 1))) #t)) 0 0 #t #f #f)))) () ((r$447 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 68 #f #f #f 1 (68) #f (equal? n$265 1) 0 0 #t #f #f)))) ((r$448 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 59 #f #f #f 1 (59) #f 'implies 0 1 #t #f #f)))) ((r$449 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 66 #f #f #f 1 (61) #f 'and 0 1 #f #f #f)))) () ((r$740 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 458 #f #f #f 1 (458) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)) 0 1 #t #f #f)))) () () () () () () () () ((setup-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 463 #f #f 3 (8 -1 470) #t r$408 1 0 #f #f #f)))) ((lemmas$310 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f)))) ((translate-term$179 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () ((Cyc-fast-eq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (465) #f #f 1 0 #t #f #f)))) () ((read . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (480 482 484) #f #f 3 0 #f #f #f)))) () () () () () () ((current-jiffy . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (418 433) #f #f 2 0 #f #f #f)))) () () ((Cyc-fast-mul . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f)))) ((r$450 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f)))) ((r$451 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f)))) ((r$452 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 62 #f #f #f 1 (62) #f (Cyc-fast-sub n$265 1) 0 1 #t #f #f)))) ((r$453 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 65 #f #f #f 1 (64) #f 'implies 0 1 #f #f #f)))) ((r$454 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 64 #f #f #f 1 (64) #f (Cyc-fast-sub n$265 1) 0 1 #t #f #f)))) ((r$455 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 71 #f #f #f 1 (71) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(76 (r$458) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(74 (r$461) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) r$458 r$459 r$460)) #f)) r$461 0 n$266)) #f)) 'implies)) #f)) n$266)) #f)) 'implies)) #t)) 0 0 #t #f #f)))) () ((r$457 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f)))) ((r$458 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 76 #f #f #f 1 (73) #f 'implies 0 1 #f #f #f)))) ((r$459 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f)))) () ((Cyc-fast-sub . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 5 (263 65 63 414 409) #f #f 5 0 #t #f #f)))) () () () () ((r$755 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 483 #f #f #f 1 (483) #f #f 0 1 #t #f #f)))) ((r$756 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 481 #f #f #f 1 (481) #f #f 0 1 #t #f #f)))) ((r$757 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 479 #f #f #f 1 (479) #f #f 0 1 #t #f #f)))) ((r$758 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 477 #f #f #f 1 (477) #f (number->string count$352) 0 1 #t #f #f)))) ((r$759 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 475 #f #f #f 1 (475) #f (number->string input$353) 0 1 #t #f #f))) (pair? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 11 (357 352 337 317 241 212 172 129 128 56 53) #f #f 11 0 #t #f #f)))) () () () () () () () () () () () () () () () () ((r$460 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f)))) ((r$461 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 74 #f #f #f 1 (74) #f 'implies 0 1 #t #f #f)))) ((r$462 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 79 #f #f #f 1 (79) #f '* 0 0 #t #f #f)))) ((r$463 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 81 #f #f #f 1 (81) #f '* 0 0 #t #f #f)))) ((r$464 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 83 #f #f #f 1 (83) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(85 (r$466) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) r$466)) #f)) x$268 true-term$220)) #t)) 0 0 #t #f #f)))) () ((r$466 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))) ((r$467 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 88 #f #f #f 1 (88) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(90 (r$469) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) r$469)) #f)) x$271 false-term$221)) #t)) 0 0 #t #f #f)))) () ((x$346 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f))) (r$469 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 90 #f #f #f 1 (90) #f #f 0 1 #t #f #f)))) ((x$347 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (451) #f #f 0 1 #f #f #f)))) ((r$760 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 471 #f #f #f 1 (464) #f (string-append name$357 ":" s1$356 ":" s2$355) 0 1 #f #f #f)))) ((r$761 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 467 #f #f #f 1 (464) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) 0 1 #f #f #f)))) ((r$762 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 464 #f #f #f 1 (464) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(465 (r$764) ((if r$764 (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #f)) (number? rewrites$358))) #t)) 0 1 #t #f #f)))) ((false-term$209 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))) (term-equal?$186 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$764 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 465 #f #f #f 1 (465) #f (number? rewrites$358) 0 0 #t #f #f)))) () ((r$766 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f))) (if-constructor$204 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$767 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f)))) ((rewrite-args$196 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () ((symbol-record$308 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f)))) ((symbol-record$309 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f))) (t1$342 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 414 #f #f #f 1 (409) #f r$696 0 1 #t #f #f)))) () () () () () () () ((property$316 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () ((r$470 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 93 #f #f #f 1 (93) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(104 (r$472) ((if r$472 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(94 () ((k$471 (null? lst2$273))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(103 (r$473) ((if r$473 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(95 () ((k$471 #f)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(102 (r$477) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(101 (r$478) ((one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(98 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(97 (r$475) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(96 (r$476) ((one-way-unify1-lst$224 k$471 r$475 r$476)) #f)) (cdr lst2$273))) #f)) (cdr lst1$274))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(99 () ((k$471 #f)) #f))))) #f)) r$477 r$478)) #f)) (car lst2$273))) #f)) (car lst1$274)))) #f)) (null? lst2$273)))) #f)) (null? lst1$274))) #t)) 0 0 #t #f #f)))) ((property$319 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f))) (get$207 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$472 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 104 #f #f #f 1 (104) #f (null? lst1$274) 0 0 #t #f #f)))) ((r$473 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 103 #f #f #f 1 (103) #f (null? lst2$273) 0 0 #t #f #f)))) ((x$351 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f))) (r$474 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f)))) ((r$475 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 97 #f #f #f 1 (96) #f (cdr lst1$274) 0 1 #f #f #f)))) ((r$476 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 96 #f #f #f 1 (96) #f (cdr lst2$273) 0 1 #t #f #f)))) ((r$477 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 102 #f #f #f 1 (101) #f (car lst1$274) 0 1 #f #f #f)))) ((r$478 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 101 #f #f #f 1 (101) #f (car lst2$273) 0 1 #t #f #f)))) ((r$479 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 107 #f #f #f 1 (107) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(128 (r$481) ((if r$481 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(116 (r$482) ((if r$482 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(114 (r$486) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(113 (r$487) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(112 (r$483) ((if r$483 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(110 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(109 (r$484) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(108 (r$485) ((one-way-unify1-lst$224 k$480 r$484 r$485)) #f)) (cdr term2$275))) #f)) (cdr term1$276))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(111 () ((k$480 #f)) #f))))) #f)) (eq? r$486 r$487))) #f)) (car term2$275))) #f)) (car term1$276)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(115 () ((k$480 #f)) #f))))) #f)) (pair? term1$276)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(127 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(126 (r$488) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(118 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(117 (r$489) ((term-equal?$217 k$480 term1$276 r$489)) #f)) (cdr temp-temp$277))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(124 (r$490) ((if r$490 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(119 () ((k$480 (equal? term1$276 term2$275))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(123 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(122 (r$493) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons r$493 unify-subst$227))) #f)) (cons term2$275 term1$276))) #f))))) #f)) (number? term2$275)))) #f)) r$488)) #f)) (assq term2$275 unify-subst$227))) #f))))) #f)) (pair? term2$275))) #t)) 0 0 #t #f #f)))) () () () () () () () () () ((symbol-record$311 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f)))) () () () () () () () () () () () () () () () () () () ((r$481 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 128 #f #f #f 1 (128) #f (pair? term2$275) 0 0 #t #f #f)))) ((r$482 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 116 #f #f #f 1 (116) #f (pair? term1$276) 0 0 #t #f #f)))) ((r$483 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 112 #f #f #f 1 (112) #f (eq? r$486 r$487) 0 0 #t #f #f)))) ((r$484 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 109 #f #f #f 1 (108) #f (cdr term1$276) 0 1 #f #f #f)))) ((r$485 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 108 #f #f #f 1 (108) #f (cdr term2$275) 0 1 #t #f #f)))) ((false-term$221 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (91 81 13) #t r$463 0 1 #f #f #f))) (r$486 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 114 #f #f #f 1 (113) #f (car term1$276) 0 1 #t #f #f)))) ((r$487 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 113 #f #f #f 1 (113) #f (car term2$275) 0 1 #t #f #f)))) ((r$488 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 126 #f #f #f 1 (126) #f (assq term2$275 unify-subst$227) 0 1 #t #f #f)))) ((r$489 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 117 #f #f #f 1 (117) #f (cdr temp-temp$277) 0 1 #t #f #f)))) () () () () () () () () () () () () () () () () () () () () () ((current-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f)))) () () () () () ((r$490 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 124 #f #f #f 1 (124) #f (number? term2$275) 0 0 #t #f #f)))) ((r$491 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 120 #f #f #f 0 () #f (set! unify-subst$227 r$492) 0 0 #t #f #f)))) ((r$492 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 121 #f #f #f 1 (121) #f (cons r$493 unify-subst$227) 0 0 #t #f #f)))) ((r$493 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 122 #f #f #f 1 (122) #f (cons term2$275 term1$276) 0 1 #t #f #f)))) ((r$494 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 131 #f #f #f 1 (131) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(133 (r$497) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 r$497))) #f)) '())) #t)) 0 0 #t #f #f)))) () ((r$496 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 132 #f #f #f 0 () #f (set! unify-subst$227 r$497) 0 0 #t #f #f)))) ((r$497 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 133 #f #f #f 1 (133) #f '() 0 0 #t #f #f)))) ((r$498 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 136 #f #f #f 1 (136) #f '* 0 0 #t #f #f)))) ((r$499 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 138 #f #f #f 1 (138) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(149 (r$501) ((if r$501 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(139 () ((k$500 term$281)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(148 (r$508) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(147 (r$507) ((one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(143 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(142 (r$505) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(141 (r$504) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 r$504)) #f)) (caddr r$505))) #f)) (car lst$280))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(145 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(144 (r$506) ((rewrite-with-lemmas$228 k$500 term$281 r$506)) #f)) (cdr lst$280))) #f))))) #f)) term$281 r$507)) #f)) (cadr r$508))) #f)) (car lst$280)))) #f)) (null? lst$280))) #t)) 0 0 #t #f #f)))) () () () () () () ((if-constructor$233 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (209 185 16) #t r$534 0 1 #f #f #f)))) () () () () () () () () () () () () () () () () ((k$405 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t)))) () () () ((k$409 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 20 #f #f #f 1 (9) #f #f 0 1 #f #f #t)))) () () () ((call-with-values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (450) #f #f 1 0 #f #f #f))) (*symbol-records-alist*$214 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () ((symbol->symbol-record$191 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () () () () () () () () () () () () () () () () () () () ((get$247 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (342 301) #f r$616 1 0 #f #f #f)))) () () () () () () () () () () () ((thunk$327 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (386) #f #f 1 0 #f #f #f)))) () () () () ((lp$37$302 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 268 #f #f #f 3 (262 261 260) #f r$590 2 0 #f #f #f)))) () () () () () () () () ((Cyc-fast-lt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f)))) () () ((k$422 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (25 24 23) #f #f 2 1 #f #f #t)))) () () () () () ((k$428 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (38 35 34 33) #f #f 3 1 #f #f #t)))) () () () () () () () ((k$725 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (444) #f #f 1 0 #t #f #t)))) () () () () () () () () () () () () () () () () () () () () () () () () ((Cyc-fast-plus . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (174 387) #f #f 2 0 #t #f #f)))) () ((input$353 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 480 #f #f #f 2 (476 469) #f r$756 0 2 #t #f #f)))) ((k$437 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (54 52 49 47) #f #f 3 1 #f #f #t)))) () () ((put$199 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((k$730 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (450) #f #f 0 1 #f #f #t)))) () () ((k$733 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (451) #f #f 0 1 #f #f #t))) (*symbol-records-alist*$245 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (299 294 293 289 19) #t r$614 0 2 #f #f #f)))) () ((k$735 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t)))) () () ((k$738 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 456 #f #f #f 2 (455 455) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)) 2 0 #t #f #t)))) () () () () () () ((rounded$331 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 448 #f #f #f 2 (443 408) #f r$724 1 0 #f #f #f)))) ((rounded$332 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 447 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((tautologyp$234 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (217 194 198 192 190 187) #f r$535 5 0 #f #f #f)))) () () () ((flush-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (420 389 438) #f #f 3 0 #f #f #f)))) () () () ((run-r7rs-benchmark . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 449 #f #f 2 (-1 464) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(447 (rounded$332) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(443 (r$724) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(436 (r$684) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(434 (r$685) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(432 (r$686) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(430 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(429 (i$337 result$336) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(384 (r$688) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 i$337 result$336)) #f)) (set! loop$338 r$688))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(426 (r$690) ((if r$690 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(387 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(386 (r$691) ((thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 r$691 r$692)) #f)))) #f)) (Cyc-fast-plus i$340 1))) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(418 () ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(417 (r$695) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(415 (r$696) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(413 (r$697) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(412 (jifs$343) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(411 (r$717) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(410 (r$698) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(409 (secs$344) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(408 (r$716) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(407 (r$699) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(405 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) secs$344)) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) secs$344)) #f)) "Elapsed time: ")) #f)))) #f)) r$699)) #f)) r$716)) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)) r$698)) #f)) (inexact__inline__ r$717))) #f)) (Cyc-fast-div jifs$343 j/s$333))) #f)) r$697)) #f)) (Cyc-fast-sub j1$341 j0$335))) #f)) r$696)) #f)))) #f)) r$695)) #f)))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(424 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: ")) #f))))) #f)) result$339))) #f)) (Cyc-fast-lt i$340 count$328))) #t)))) #f)) #f)) #f)) 0 #f)) #f)))) #f)) r$686)) #f)))) #f)) r$685)) #f)))) #f)) r$684)) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 r$724))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(445 (r$727) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(444 (r$726) ((k$725 (Cyc-fast-div r$726 1000))) #f)) (round__inline__ r$727))) #f)) (Cyc-fast-mul 1000 x$346))) #t)))) #f)) #f)) #f)) #f)) #t))) 1 0 #f #f #f)))) () () () () () () ((k$446 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 2 (61 59) #f #f 0 2 #f #f #t)))) ((error . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (350) #f #f 1 0 #f #f #f))) (tmp$120$269 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 84 #f #f #f 2 (84 84) #f r$466 0 1 #t #f #f)))) () () () () ((k$741 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t)))) () () ((k$744 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t)))) () () ((k$747 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t)))) () () () () () () () () () () ((truep$177 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () ((unify-subst$227 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (141 136 133 127 122 121) #t r$498 0 3 #f #f #f)))) () () () () () ((untranslate-term$249 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (311 309) #f r$622 0 1 #f #f #f)))) () () () ((k$456 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 1 (72) #f #f 0 1 #f #f #t)))) () () () () () () () () ((k$754 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 484 #f #f #f 1 (464) #f #f 0 1 #f #f #t)))) () () ((car . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 25 (365 348 344 356 334 325 314 236 228 211 181 169 165 158 149 143 116 114 103 102 52 51 42 41 29) #f #f 25 0 #t #f #f)))) () () () () () () () () () () () () ((false-lst$287 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (213 203 198 195 192 190) #f #f 0 6 #f #f #f)))) () ((values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (458 454) #f #f 1 1 #f #f #f)))) ((test$184 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () ((n$255 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) () () () ((k$465 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #f #f #t)))) ((rewrite$197 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () ((k$468 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #f #f #t)))) () () () () () ((k$763 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (465 465) #f #f 2 0 #t #f #t)))) () ((k$765 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t)))) () () () () () () () ((term$301 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f term$298 0 1 #f #f #f)))) () () ((term$304 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (264 266) #f #f 0 2 #f #f #f)))) ((term$305 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 256 #f #f #f 1 (256) #f r$585 0 1 #t #f #f)))) () () () () () () () () () ((k$471 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (99 96 95 94) #f #f 3 1 #f #f #t))) (n$265 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 4 (69 65 64 63) #f #f 0 4 #f #f #f)))) ((n$266 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 2 (76 74) #f #f 0 2 #f #f #f)))) () () () () () () () () ((cadddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (197 193) #f #f 2 0 #t #f #f)))) () () () () () () () () ((lst$322 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 3 (327 325 323) #f #f 0 3 #t #f #f)))) () () ((lst$325 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 3 (367 365 363) #f #f 0 3 #t #f #f)))) () () ((assq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (299 239 127) #f #f 3 0 #t #f #f)))) () () () () () () () () () () ((k$480 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (120 119 117 115 111 108) #f #f 4 2 #f #f #t)))) () () () () () () () () () () () () () ((symbol-record-equal?$240 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (273 50) #f r$597 1 0 #f #f #f)))) ((apply-subst$211 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () ((cdr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 23 (363 332 323 312 297 247 237 235 226 179 168 156 145 118 110 109 98 97 49 48 37 36 26) #f #f 23 0 #t #f #f)))) ((i$337 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 429 #f #t 0 1 (383) #f 0 0 1 #f #f #f)))) () () () () ((term$321 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 4 (317 315 314 312) #f #f 0 4 #t #f #f)))) ((sym$312 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (286) #f #f 0 1 #f #f #f)))) ((term$323 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 4 (337 335 334 332) #f #f 0 4 #t #f #f))) (sym$313 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 3 (299 297 295) #f #f 0 3 #f #f #f)))) ((term$324 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 7 (350 349 346 345 357 356 353) #f #f 0 7 #f #f #f)))) () () ((sym$317 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f)))) () () () ((r$601 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 279 #f #f #f 1 (279) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t)) 0 0 #t #f #f)))) () ((r$603 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 282 #f #f #f 1 (282) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t)) 0 0 #t #f #f)))) () ((r$605 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 285 #f #f #f 1 (285) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(286 (r$607) ((vector k$606 sym$312 r$607)) #f)) '())) #t)) 0 0 #t #f #f)))) ((setup$192 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$607 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 286 #f #f #f 1 (286) #f '() 0 1 #t #f #f)))) ((r$608 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 289 #f #f #f 1 (289) #f '() 0 0 #t #f #f)))) ((k$495 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t))) (r$609 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 291 #f #f #f 1 (291) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(298 (r$611) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(296 (r$612) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(294 (r$615) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons r$615 *symbol-records-alist*$245))) #f)) (cons sym$313 r$315))) #f)) r$612)) #f)) sym$313))) #f)) r$611)) #f)) (assq sym$313 *symbol-records-alist*$245))) #t)) 0 0 #t #f #f)))) ((jifs$343 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 412 #f #f #f 1 (412) #f r$697 0 1 #t #f #f)))) () () () ((r1$307 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))) () ((i$340 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 2 (427 387) #f #f 0 2 #t #f #f)))) () () () () () () () () ((i$349 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))) () ((sym$320 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f)))) () () () ((r$315 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 295 #f #f #f 2 (295 292) #f r$612 0 2 #t #f #f)))) () () () () () () ((r$611 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 298 #f #f #f 1 (298) #f (assq sym$313 *symbol-records-alist*$245) 0 1 #t #f #f)))) ((r$612 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 296 #f #f #f 1 (296) #f #f 0 1 #t #f #f)))) ((r$613 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 292 #f #f #f 0 () #f (set! *symbol-records-alist*$245 r$614) 0 0 #t #f #f))) (translate-args$180 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$614 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 293 #f #f #f 1 (293) #f (cons r$615 *symbol-records-alist*$245) 0 0 #t #f #f)))) ((r$615 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 294 #f #f #f 1 (294) #f (cons sym$313 r$315) 0 1 #t #f #f)))) ((r$616 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 301 #f #f #f 1 (301) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f)) sym$317)) #t)) 0 0 #t #f #f)))) ((n$297 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))) ((r$618 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f)))) ((r$619 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 305 #f #f #f 1 (305) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((put-lemmas!$243 k$620 r$621 value$318)) #f)) sym$320)) #t)) 0 0 #t #f #f)))) () () () () () () () () () () () () ((add-lemma-lst$212 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () ((apply-subst$237 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (258 232 227 141) #f r$567 3 0 #f #f #f)))) ((true-term$178 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () ((r$621 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #f #f)))) ((r$622 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 309 #f #f #f 1 (309) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(316 (r$624) ((if r$624 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(314 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(313 (r$628) ((get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(312 (r$625) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(311 (r$627) ((map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons r$625 r$626))) #f)) untranslate-term$249 r$627)) #f)) (cdr term$321))) #f)) r$628)) #f)) (car term$321))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(315 () ((k$623 term$321)) #f))))) #f)) (pair? term$321))) #t)) 0 0 #t #f #f)))) () ((r$624 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 316 #f #f #f 1 (316) #f (pair? term$321) 0 0 #t #f #f)))) ((r$625 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 312 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))) ((r$626 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))) ((r$627 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 311 #f #f #f 1 (311) #f (cdr term$321) 0 1 #t #f #f))) (rewrite-count$195 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))) ((r$628 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 313 #f #f #f 1 (313) #f (car term$321) 0 1 #t #f #f)))) ((r$629 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 319 #f #f #f 1 (319) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(326 (r$631) ((if r$631 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(320 () ((k$630 '())) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(325 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(324 (r$635) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(322 (r$634) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) r$634)) #f)) (cdr lst$322))) #f)) r$635)) #f)) (car lst$322))) #f))))) #f)) (null? lst$322))) #t)) 0 0 #t #f #f)))) () () () () () () ((trans-of-implies1$218 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (76 62 58) #f r$445 2 0 #f #f #f)))) () () () () () () () () () () () () () () () () () () () () () ((r$631 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 326 #f #f #f 1 (326) #f (null? lst$322) 0 0 #t #f #f)))) ((r$632 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))) ((r$633 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))) ((r$634 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 322 #f #f #f 1 (322) #f (cdr lst$322) 0 1 #t #f #f)))) ((r$635 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 324 #f #f #f 1 (324) #f (car lst$322) 0 1 #t #f #f)))) ((r$636 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 329 #f #f #f 1 (329) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(336 (r$638) ((if r$638 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(334 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(333 (r$642) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(331 (r$641) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) r$641)) #f)) (cdr term$323))) #f)) r$642)) #f)) (car term$323))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(335 () ((k$637 term$323)) #f))))) #f)) (pair? term$323))) #t)) 0 0 #t #f #f)))) () ((r$638 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 336 #f #f #f 1 (336) #f (pair? term$323) 0 0 #t #f #f)))) ((r$639 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) () () () () () () () () () () () () () () () () () () () () () () () () ((r$348 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f)))) () () ((r$640 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) ((r$641 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 331 #f #f #f 1 (331) #f (cdr term$323) 0 1 #t #f #f)))) ((r$642 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 333 #f #f #f 1 (333) #f (car term$323) 0 1 #t #f #f)))) ((r$643 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 339 #f #f #f 1 (339) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(356 (r$656) ((if r$656 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(355 (r$659) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(354 (r$660) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(353 (r$657) ((if r$657 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(352 (r$658) ((k$655 (pair? r$658))) #f)) (cadr term$324)) (k$655 #f))) #f)) (eq? r$659 r$660))) #f)) 'equal)) #f)) (car term$324)) (k$655 #f))) #f)) (pair? term$324))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(349 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(347 (r$646) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(346 (r$647) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(344 (r$653) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(343 (r$651) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(342 (r$652) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(340 (r$648) ((put$248 k$644 r$646 r$647 r$648)) #f)) (cons r$649 r$650))) #f)) r$651 r$652)) #f)) 'lemmas)) #f)) (car r$653))) #f)) (cadr term$324))) #f)) term$324)) #f)) 'lemmas)) #f)) (car r$654))) #f)) (cadr term$324))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(350 () ((error k$644 #f "ADD-LEMMA did not like term: " term$324)) #f))))) #f)))) #t)) 0 0 #t #f #f)))) () ((r$645 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f)))) ((r$646 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 347 #f #f #f 1 (340) #f (car r$654) 0 1 #f #f #f)))) ((r$647 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 346 #f #f #f 1 (340) #f 'lemmas 0 1 #f #f #f)))) ((r$648 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 340 #f #f #f 1 (340) #f (cons r$649 r$650) 0 1 #t #f #f)))) ((r$649 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) () () () () () () () () () () () () ((null? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (367 327 253 230 160 150 105 104 94 44 43 33 30) #f #f 13 0 #t #f #f)))) () () () () () ((term-args-equal?$216 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (47 35 32) #f r$427 2 0 #f #f #f)))) () () ((caar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (251) #f #f 1 0 #t #f #f)))) () () () ((r$359 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 378 #f #t 0 0 () #f 0 0 0 #t #f #f)))) () ((r$650 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) ((r$651 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 343 #f #f #f 1 (342) #f (car r$653) 0 1 #f #f #f)))) ((r$652 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 342 #f #f #f 1 (342) #f 'lemmas 0 1 #t #f #f)))) ((r$653 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 344 #f #f #f 1 (344) #f (cadr term$324) 0 1 #t #f #f)))) ((r$654 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 348 #f #f #f 1 (348) #f (cadr term$324) 0 1 #t #f #f)))) ((cdar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (250) #f #f 1 0 #t #f #f)))) ((r$656 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 356 #f #f #f 1 (356) #f (pair? term$324) 0 0 #t #f #f)))) ((r$657 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 353 #f #f #f 1 (353) #f (eq? r$659 r$660) 0 0 #t #f #f))) (number->string . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f)))) ((r$658 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 352 #f #f #f 1 (352) #f (cadr term$324) 0 1 #t #f #f)))) ((r$659 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 355 #f #f #f 1 (354) #f (car term$324) 0 1 #t #f #f)))) () () () ((number? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f)))) () () () () () () () () ((write . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (423 402 404) #f #f 3 0 #f #f #f)))) ((vector-set! . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (283) #f #f 1 0 #t #f #f))) (add-lemma-lst$253 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (370 362 360) #f r$661 2 0 #f #f #f)))) () () ((r$360 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 376 #f #f #f 0 () #f (set! alist r$671) 0 0 #t #f #f)))) ((r$361 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 374 #f #f #f 0 () #f (set! term r$670) 0 0 #t #f #f)))) ((alist . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (377 -1 468) #t r$671 0 1 #f #f #f))) (r$362 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 1 #f #f #f 0 () #f (set! test-boyer r$404) 0 0 #t #f #f)))) ((r$363 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 368 #f #f #f 0 () #f (set! setup$254 r$667) 0 0 #t #f #f)))) ((r$364 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 359 #f #f #f 0 () #f (set! add-lemma-lst$253 r$661) 0 0 #t #f #f)))) ((r$365 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 338 #f #f #f 0 () #f (set! add-lemma$252 r$643) 0 0 #t #f #f)))) ((r$366 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 328 #f #f #f 0 () #f (set! translate-term$251 r$636) 0 0 #t #f #f)))) ((r$367 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 318 #f #f #f 0 () #f (set! translate-args$250 r$629) 0 0 #t #f #f)))) ((r$368 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 308 #f #f #f 0 () #f (set! untranslate-term$249 r$622) 0 0 #t #f #f)))) ((r$369 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 304 #f #f #f 0 () #f (set! put$248 r$619) 0 0 #t #f #f)))) () ((r$660 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 354 #f #f #f 1 (354) #f 'equal 0 1 #t #f #f)))) ((j0$335 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 431 #f #f #f 1 (414) #f r$686 0 1 #t #f #f))) (r$661 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 360 #f #f #f 1 (360) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(366 (r$663) ((if r$663 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(361 () ((k$662 #t)) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(365 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(364 (r$666) ((add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(362 (r$665) ((add-lemma-lst$253 k$662 r$665)) #f)) (cdr lst$325))) #f)) r$666)) #f)) (car lst$325))) #f))))) #f)) (null? lst$325))) #t)) 0 0 #t #f #f)))) () ((r$663 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 366 #f #f #f 1 (366) #f (null? lst$325) 0 0 #t #f #f)))) ((r$664 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$665 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 362 #f #f #f 1 (362) #f (cdr lst$325) 0 1 #t #f #f)))) ((r$666 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 364 #f #f #f 1 (364) #f (car lst$325) 0 1 #t #f #f)))) ((r$667 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 369 #f #f #f 1 (369) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(370 (r$669) ((add-lemma-lst$253 k$668 r$669)) #f)) '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t)) 0 0 #t #f #f)))) () ((r$669 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 370 #f #f #f 1 (370) #f '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))) 0 1 #t #f #f)))) () () () () () () () () () () () ((count$328 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f)))) () () () () ((tautp$188 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))) (r$370 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 300 #f #f #f 0 () #f (set! get$247 r$616) 0 0 #t #f #f)))) ((r$371 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 290 #f #f #f 0 () #f (set! symbol->symbol-record$246 r$609) 0 0 #t #f #f)))) ((r$372 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 288 #f #f #f 0 () #f (set! *symbol-records-alist*$245 r$608) 0 0 #t #f #f)))) ((r$373 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 284 #f #f #f 0 () #f (set! make-symbol-record$244 r$605) 0 0 #t #f #f)))) ((r$374 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 281 #f #f #f 0 () #f (set! put-lemmas!$243 r$603) 0 0 #t #f #f)))) ((r$375 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 278 #f #f #f 0 () #f (set! get-lemmas$242 r$601) 0 0 #t #f #f))) (term1$276 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (123 119 117 128 116 110) #f #f 0 6 #f #f #f)))) ((r2$306 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))) (r$376 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 275 #f #f #f 0 () #f (set! get-name$241 r$599) 0 0 #t #f #f)))) ((r$377 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 272 #f #f #f 0 () #f (set! symbol-record-equal?$240 r$597) 0 0 #t #f #f)))) ((r$378 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 254 #f #f #f 0 () #f (set! test$239 r$583) 0 0 #t #f #f))) (term1$279 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))) ((r$379 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 242 #f #f #f 0 () #f (set! translate-alist$238 r$574) 0 0 #t #f #f)))) () ((r$670 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 375 #f #f #f 1 (375) #f '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)) 0 0 #t #f #f)))) ((r$671 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 377 #f #f #f 1 (377) #f '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))) 0 0 #t #f #f)))) () () () ((r$675 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f)))) () () ((scons$231 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (176 166 154) #f r$527 2 0 #f #f #f)))) ((r$679 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 442 #f #f #f 0 () #f (set! rounded$331 r$724) 0 0 #t #f #f)))) () () () () () () () ((term-member?$215 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (89 84 25 22) #f r$421 3 0 #f #f #f)))) () ((equal? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (119 69 54) #f #f 3 0 #t #f #f)))) () () () () () () ((r$380 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 231 #f #f #f 0 () #f (set! apply-subst$237 r$567) 0 0 #t #f #f)))) ((r$381 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 221 #f #f #f 0 () #f (set! apply-subst-lst$236 r$560) 0 0 #t #f #f)))) ((r$382 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 215 #f #f #f 0 () #f (set! tautp$235 r$555) 0 0 #t #f #f)))) ((r$383 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 186 #f #f #f 0 () #f (set! tautologyp$234 r$535) 0 0 #t #f #f))) (x$260 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 2 (28 25) #f #f 0 2 #f #f #f)))) ((r$384 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 184 #f #f #f 0 () #f (set! if-constructor$233 r$534) 0 0 #t #f #f)))) ((r$385 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 183 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f))) (cadr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 8 (349 345 353 206 204 200 196 148) #f #f 8 0 #t #f #f)))) ((r$386 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 175 #f #f #f 0 () #f (set! scons$231 r$527) 0 0 #t #f #f)))) ((rewrite-with-lemmas$228 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (163 144 138) #f r$499 2 0 #f #f #f))) (r$387 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 161 #f #f #f 0 () #f (set! rewrite$230 r$516) 0 0 #t #f #f))) (x$264 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 54 52 49) #f #f 0 4 #t #f #f)))) ((r$388 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 151 #f #f #f 0 () #f (set! rewrite-args$229 r$509) 0 0 #t #f #f)))) ((r$389 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 137 #f #f #f 0 () #f (set! rewrite-with-lemmas$228 r$499) 0 0 #t #f #f)))) () ((r$680 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f))) (x$268 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #f #f #f)))) ((r$681 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$682 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$683 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$684 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 436 #f #f #f 1 (436) #f #f 0 1 #t #f #f)))) ((r$685 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 434 #f #f #f 1 (434) #f #f 0 1 #t #f #f)))) ((hide . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 461 #f #f 2 (-1 469) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(453 (r$731) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(450 (r$732) ((call-with-values k$730 r$731 r$732)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(451 (r$734) ((r$734 k$733 x$347)) #f)) (vector-ref v$350 i$349))) #t)))) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(458 (r$740) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(455 (r$739) ((if r$739 (k$738 0) (k$738 1))) #f)) (Cyc-fast-lt r$348 100))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values r$740)) #f)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)))) #t))) 1 0 #f #f #f))) (r$686 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 432 #f #f #f 1 (432) #f #f 0 1 #t #f #f)))) ((r$687 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 383 #f #f #f 0 () #f (set! loop$338 r$688) 0 0 #t #f #f)))) ((r$688 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 384 #f #f #f 1 (384) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(426 (r$690) ((if r$690 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(387 () ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(386 (r$691) ((thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 r$691 r$692)) #f)))) #f)) (Cyc-fast-plus i$340 1))) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(418 () ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(417 (r$695) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(415 (r$696) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(413 (r$697) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(412 (jifs$343) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(411 (r$717) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(410 (r$698) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(409 (secs$344) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(408 (r$716) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(407 (r$699) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(405 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) secs$344)) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) secs$344)) #f)) "Elapsed time: ")) #f)))) #f)) r$699)) #f)) r$716)) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)) r$698)) #f)) (inexact__inline__ r$717))) #f)) (Cyc-fast-div jifs$343 j/s$333))) #f)) r$697)) #f)) (Cyc-fast-sub j1$341 j0$335))) #f)) r$696)) #f)))) #f)) r$695)) #f)))) #f))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(424 () ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: ")) #f))))) #f)) result$339))) #f)) (Cyc-fast-lt i$340 count$328))) #t)) 0 0 #t #f #f)))) () () () () () () () () () () () () () () () () ((true-lst$288 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (214 205 199 194 192 190) #f #f 0 6 #f #f #f)))) ((r$390 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 135 #f #f #f 0 () #f (set! unify-subst$227 r$498) 0 0 #t #f #f)))) ((r$391 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 130 #f #f #f 0 () #f (set! one-way-unify$226 r$494) 0 0 #t #f #f)))) ((r$392 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 106 #f #f #f 0 () #f (set! one-way-unify1$225 r$479) 0 0 #t #f #f)))) ((r$393 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 92 #f #f #f 0 () #f (set! one-way-unify1-lst$224 r$470) 0 0 #t #f #f)))) ((r$394 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 87 #f #f #f 0 () #f (set! falsep$223 r$467) 0 0 #t #f #f))) (x$271 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #f #f #f)))) ((r$395 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 82 #f #f #f 0 () #f (set! truep$222 r$464) 0 0 #t #f #f)))) ((r$396 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 80 #f #f #f 0 () #f (set! false-term$221 r$463) 0 0 #t #f #f)))) ((r$397 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 78 #f #f #f 0 () #f (set! true-term$220 r$462) 0 0 #t #f #f)))) ((r$398 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 70 #f #f #f 0 () #f (set! trans-of-implies$219 r$455) 0 0 #t #f #f)))) ((r$399 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 57 #f #f #f 0 () #f (set! trans-of-implies1$218 r$445) 0 0 #t #f #f)))) () ((display . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (424 392 393 394 395 396 398 400 401 403 405 441 442) #f #f 13 0 #f #f #f))) (r$690 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 426 #f #f #f 1 (426) #f (Cyc-fast-lt i$340 count$328) 0 0 #t #f #f)))) ((r$691 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 386 #f #f #f 1 (385) #f (Cyc-fast-plus i$340 1) 0 1 #f #f #f)))) ((r$692 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f)))) ((r$693 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f)))) ((r$694 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$695 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 417 #f #f #f 1 (417) #f #f 0 1 #t #f #f)))) ((r$696 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 415 #f #f #f 1 (415) #f #f 0 1 #t #f #f)))) ((r$697 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 413 #f #f #f 1 (413) #f (Cyc-fast-sub j1$341 j0$335) 0 1 #t #f #f)))) ((r$698 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 410 #f #f #f 1 (410) #f (inexact__inline__ r$717) 0 1 #t #f #f)))) ((r$699 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 407 #f #f #f 1 (407) #f #f 0 1 #t #f #f)))) () () () () () ((count$352 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 482 #f #f #f 3 (478 469 464) #f r$755 0 3 #f #f #f)))) () () () () () () () () () () () () ((k$600 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t)))) () ((k$602 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t)))) ((trans-of-implies$219 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (71) #f r$455 0 0 #f #f #f)))) ((k$604 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t)))) () ((k$606 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (286) #f #f 0 1 #f #f #t)))) ((x$286 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 180) #f #f 0 2 #t #f #f)))) () () ((x$289 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 12 (214 213 212 211 206 204 201 200 197 196 193 191) #f #f 0 12 #f #f #f)))) () () () () () () () () () () () () () () () () () ((translate-alist$238 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (271 246 243) #f r$574 2 0 #f #f #f)))) () () () () () () () () ((k$610 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t)))) ((x$290 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f)))) () () () () () ((k$617 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (302) #f #f 0 1 #f #f #t)))) () () () () () () () () () () () () () () () () () () () () () () () () () () () () () ((k$620 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #t)))) () () ((k$623 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 2 (315 310) #f #f 2 0 #t #f #t)))) () () () () () () () () () () () () () () () () () ((put-lemmas!$243 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (306 282) #f r$603 1 0 #f #f #f)))) () ((ok?$326 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (426) #f #f 1 0 #f #f #f)))) () () () () () () () () () ((vector-ref . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (280 277 452) #f #f 3 0 #t #f #f)))) () () () ((k$630 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 2 (321 320) #f #f 2 0 #t #f #t)))) () () () ()))) */ /* "---------------- after cps optimizations (1):" */ /* ((define main #((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((run-r7rs-benchmark k$754 r$760 count$352 #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #t)))) #f)) (string-append "sboyer" ":" s1$356 ":" s2$355))) #f)) (number->string input$353))) #f)) (number->string count$352))) #f)))) #f)))) #f)))) #t))) (define alist #f) (define term #f) (define setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(463 (k$747) ((k$747 #t)) #t))) (define test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(462 (k$744) ((k$744 #t)) #t))) (define hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((call-with-values k$730 #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) (((vector-ref v$350 i$349) k$733 x$347)) #t)))) #t))) (define run-r7rs-benchmark #((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 0 #f)) #f)) (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))))) #f)) #f)) #f)))) #f)))) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))))) #f)) #f)) #t))) (define this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(376 (r$360) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(374 (r$361) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(372 (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(368 (r$363) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(359 (r$364) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(338 (r$365) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(328 (r$366) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(318 (r$367) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(308 (r$368) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(304 (r$369) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(300 (r$370) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(290 (r$371) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(288 (r$372) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(284 (r$373) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(281 (r$374) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(278 (r$375) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(275 (r$376) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(272 (r$377) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(254 (r$378) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(242 (r$379) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(231 (r$380) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(221 (r$381) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(215 (r$382) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(186 (r$383) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(184 (r$384) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(183 (r$385) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(175 (r$386) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(161 (r$387) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(151 (r$388) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(137 (r$389) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(135 (r$390) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(130 (r$391) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(106 (r$392) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(92 (r$393) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(87 (r$394) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(82 (r$395) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(80 (r$396) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(78 (r$397) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(70 (r$398) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(57 (r$399) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(45 (r$400) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(31 (r$401) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(21 (r$402) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(7 (r$403) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(1 (r$362) ((main %halt)) #f)) (set! test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t))))) #f)) (set! setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((setup$254 k$409)) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t))))) #f)) (set! term-member?$215 #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t))))) #f)) (set! term-args-equal?$216 #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t))))) #f)) (set! term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(49 (r$440) ((if r$440 (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f))) #f)) (car x$264) (car y$263)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t))))) #f)) (set! trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t))))) #f)) (set! trans-of-implies$219 #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t))))) #f)) (set! true-term$220 '*))) #f)) (set! false-term$221 '*))) #f)) (set! truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t))))) #f)) (set! falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t))))) #f)) (set! one-way-unify1-lst$224 #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t))))) #f)) (set! one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t))))) #f)) (set! one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t))))) #f)) (set! unify-subst$227 '*))) #f)) (set! rewrite-with-lemmas$228 #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t))))) #f)) (set! rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(159 (r$511) ((if r$511 (k$510 '()) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(157 (r$515) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(155 (r$514) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) r$514)) #f)) (cdr lst$282))) #f)) r$515)) #f)) (car lst$282)))) #f)) (null? lst$282))) #t))))) #f)) (set! rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(171 (r$519) ((if r$519 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(168 (r$523) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(167 (r$525) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (car term$283))) #f)) r$523 r$524 term$283)) #f)) r$525)) #f)) (cdr term$283))) #f)) (car term$283)) (k$517 term$283))) #f)) (pair? term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t))))) #f)) (set! scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t))))) #f)) (set! rewrite-count$232 0))) #f)) (set! if-constructor$233 '*))) #f)) (set! tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(198 (r$550) ((tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) r$550 false-lst$287)) #f)) (cons (cadr x$289) true-lst$288)))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t))))) #f)) (set! tautp$235 #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t))))) #f)) (set! apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t))))) #f)) (set! apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(237 (temp-temp$295) ((if temp-temp$295 (k$568 (cdr temp-temp$295)) (k$568 term$293))) #f)) (assq term$293 alist$294)))) #t))))) #f)) (set! translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t))))) #f)) (set! test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t))))) #f)) (set! symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t))))) #f)) (set! get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t))))) #f)) (set! get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t))))) #f)) (set! put-lemmas!$243 #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t))))) #f)) (set! make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t))))) #f)) (set! *symbol-records-alist*$245 '()))) #f)) (set! symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(294 (r$615) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons r$615 *symbol-records-alist*$245))) #f)) (cons sym$313 r$315))) #f)) sym$313))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t))))) #f)) (set! get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f)) sym$317)) #t))))) #f)) (set! put$248 #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((put-lemmas!$243 k$620 r$621 value$318)) #f)) sym$320)) #t))))) #f)) (set! untranslate-term$249 #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(312 (r$625) ((map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons r$625 r$626))) #f)) untranslate-term$249 (cdr term$321))) #f)) (car term$321)) (k$623 term$321))) #t))))) #f)) (set! translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t))))) #f)) (set! translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t))))) #f)) (set! add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t))))) #f)) (set! add-lemma-lst$253 #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t))))) #f)) (set! setup$254 #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t))))) #f)) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) #f)) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) #f)) (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) */ /* "---------------- cps analysis db:" */ /* #((record-marker) #((record-marker) #f (size hash compare associate entries)) #(624 #[procedure] #[procedure] #[procedure] #(() ((1 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((k$637 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 2 (337 330) #f #f 2 0 #t #f #t)))) ((3 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((loop$338 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 428 #f #f #f 3 (385 428 383) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t)) 2 0 #t #f #f)))) ((5 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$440 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 49 #f #f #f 1 (49) #f #f 0 0 #t #f #f)))) ((6 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (test-boyer) #t)))) ((7 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((9 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (add-lemma$252 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (367 359) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t)) 1 0 #f #f #f)))) ((10 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((12 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$447 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 68 #f #f #f 1 (68) #f (equal? n$265 1) 0 0 #t #f #f)))) ((13 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((15 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((16 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (term2$275 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 7 (129 125 125 125 129 129 129) #f #f 0 7 #t #f #f)))) () ((18 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((term2$278 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))) ((20 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (setup-boyer) #t))) (j1$341 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 416 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) ((21 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((setup-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 463 #f #f 3 (21 -1 470) #t #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((setup$254 k$409)) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t)) 1 0 #f #f #f)))) ((lemmas$310 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f)))) ((27 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((Cyc-fast-eq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (466) #f #f 1 0 #t #f #f)))) ((30 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-member?$215) #f)))) ((31 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (read . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (480 482 484) #f #f 3 0 #f #f #f)))) () () () () ((k$644 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 2 (351 341) #f #f 0 2 #f #f #t)))) () ((current-jiffy . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (425 433) #f #f 2 0 #f #f #f)))) ((39 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((Cyc-fast-mul . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f)))) ((r$450 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f)))) ((r$451 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f)))) ((44 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-args-equal?$216) #f)))) ((45 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$454 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 64 #f #f #f 1 (64) #f (Cyc-fast-sub n$265 1) 0 1 #t #f #f)))) () () ((49 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$457 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f)))) () ((r$459 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f)))) () ((Cyc-fast-sub . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (263 68 63 414 404 392) #f #f 6 0 #t #f #f)))) () ((y$263 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 49 56) #f #f 0 4 #t #f #f)))) ((zero?__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f))) (56 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-equal?$217) #f)))) ((57 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((61 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((pair? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 11 (357 357 337 317 241 212 172 129 129 56 56) #f #f 11 0 #t #f #f)))) ((63 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((64 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () ((68 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((69 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (trans-of-implies1$218) #f)))) ((70 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((72 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((73 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$655 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 357 #f #f #f 3 (357 357 357) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)) 3 0 #t #f #t)))) ((75 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((77 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (trans-of-implies$219) #f)))) ((78 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$460 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f)))) ((80 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((82 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((84 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((86 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (truep$222) #f)))) ((87 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((x$346 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f)))) ((89 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (x$347 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (452) #f #f 0 1 #f #f #f)))) ((r$760 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 471 #f #f #f 1 (471) #f (string-append "sboyer" ":" s1$356 ":" s2$355) 0 1 #t #f #f)))) ((91 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (falsep$223) #f)))) ((92 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((r$766 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$767 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f)))) () () ((100 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((Cyc-version . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f)))) () () () ((symbol-record$308 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f))) (105 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify1-lst$224) #f)))) ((symbol-record$309 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f))) (106 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (t1$342 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f)))) () ((k$662 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 2 (363 367) #f #f 1 1 #t #f #t)))) () () () () () ((property$316 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f))) (k$668 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 371 #f #f #f 1 (371) #f #f 0 1 #t #f #t)))) () () ((property$319 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f))) (answer$258 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 3 #f #f #f 1 (3) #f #f 0 0 #t #f #f)))) () () ((120 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (x$351 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f))) (r$474 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f)))) ((121 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((125 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((129 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify1$225) #t)))) ((130 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((y$285 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f)))) ((132 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((134 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify$226) #t)))) ((symbol-record$311 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f))) (135 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((137 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((140 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () () ((146 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$674 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t)))) () () ((150 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite-with-lemmas$228) #f)))) ((k$678 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (383) #f #f 0 1 #t #f #t))) (151 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((154 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((155 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((156 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((157 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((159 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (false-term$221 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (91 82 13) #t '* 0 1 #f #f #f)))) ((160 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite-args$229) #f)))) ((161 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((163 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((165 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((166 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((167 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((168 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((171 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((172 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((173 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((174 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite$230) #t)))) ((175 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((177 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$530) #f)))) () () ((term-equal?$217 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (125 91 86 57 44 30) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(49 (r$440) ((if r$440 (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f))) #f)) (car x$264) (car y$263)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t)) 5 0 #f #f #f)))) ((181 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((182 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (scons$231) #f)))) ((183 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((184 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (current-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f)))) () ((186 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((rewrite-args$229 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (167 155 161) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(159 (r$511) ((if r$511 (k$510 '()) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(157 (r$515) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(155 (r$514) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) r$514)) #f)) (cdr lst$282))) #f)) r$515)) #f)) (car lst$282)))) #f)) (null? lst$282))) #t)) 2 0 #f #f #f)))) () ((k$689 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 3 (419 388 385) #f #f 2 1 #t #f #t)))) () ((r$491 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 120 #f #f #f 0 () #f (set! unify-subst$227 r$492) 0 0 #t #f #f)))) ((r$492 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 121 #f #f #f 1 (121) #f (cons (cons term2$275 term1$276) unify-subst$227) 0 0 #t #f #f)))) () () () ((r$496 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 132 #f #f #f 0 () #f (set! unify-subst$227 '()) 0 0 #t #f #f)))) ((197 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((198 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () ((202 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((value$318 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #f))) (vector . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (287 460) #f #f 2 0 #f #f #f)))) ((r$502 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f))) (204 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$503 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f)))) ((if-constructor$233 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (212 186 16) #t '* 0 1 #f #f #f)))) () () ((get-lemmas$242 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (302 281 165) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t)) 2 0 #f #f #f)))) () () ((212 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((213 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((214 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (tautologyp$234) #f)))) ((215 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((219 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((220 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (tautp$235) #f))) (apply-subst-lst$236 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (241 226 231) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t)) 2 0 #f #f #f)))) ((221 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$405 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t)))) ((224 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((226 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$409 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 20 #f #f #f 1 (9) #f #f 0 1 #t #f #t)))) () () ((230 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (apply-subst-lst$236) #f)))) ((231 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (call-with-values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (461) #f #f 1 0 #f #f #f)))) () ((233 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((string-append . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (381 474) #f #f 2 0 #t #f #f)))) () ((237 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((r$511 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 159 #f #f #f 1 (159) #f (null? lst$282) 0 0 #t #f #f)))) ((r$512 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 156 #f #f #f 1 (154) #f #f 0 1 #t #f #f))) (241 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (apply-subst$237) #f)))) ((r$513 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f))) (242 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$514 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 155 #f #f #f 1 (155) #f (cdr lst$282) 0 1 #t #f #f)))) ((r$515 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 157 #f #f #f 1 (157) #f (car lst$282) 0 1 #t #f #f)))) ((245 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((r$518 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 172 #f #f #f 0 () #f (set! rewrite-count$232 r$526) 0 0 #t #f #f)))) ((r$519 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 171 #f #f #f 1 (171) #f (pair? term$283) 0 0 #t #f #f))) (248 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () ((253 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-alist$238) #f)))) ((254 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((list . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (267 73 75 61 64 68) #f #f 6 0 #f #f #f)))) ((256 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((258 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((259 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((260 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((263 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((get$247 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (345 304) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f)) sym$317)) #t)) 1 0 #f #f #f)))) () ((267 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (lp$37$302) #f)))) ((268 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((269 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((270 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$259 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (30 27 30) #f #f 0 3 #t #f #f)))) ((271 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (test$239) #t)))) ((272 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((274 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (symbol-record-equal?$240) #f)))) ((275 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$520 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 165 #f #f #f 1 (163) #f #f 0 1 #t #f #f)))) ((r$521 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 163 #f #f #f 1 (163) #f #f 0 1 #t #f #f))) (277 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get-name$241) #f))) (thunk$327 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f)))) ((278 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$523 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 168 #f #f #f 1 (166) #f (car term$283) 0 1 #t #f #f)))) ((r$524 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f))) (280 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get-lemmas$242) #f)))) ((r$525 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 167 #f #f #f 1 (167) #f (cdr term$283) 0 1 #t #f #f))) (281 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((lp$37$302 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 268 #f #f #f 3 (263 268 260) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t)) 2 0 #t #f #f))) (r$526 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 173 #f #f #f 1 (173) #f (Cyc-fast-plus rewrite-count$232 1) 0 0 #t #f #f)))) ((283 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (put-lemmas!$243) #t)))) ((284 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$529 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f)))) () ((287 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (make-symbol-record$244) #f)))) ((288 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((290 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (translate-term$251 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 8 (348 338 327 259 253 72 12 15) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t)) 7 0 #f #f #f)))) ((Cyc-fast-lt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f)))) ((292 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((293 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((294 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (k$422 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (27 27 30) #f #f 2 1 #t #f #t)))) ((295 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((297 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((299 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (symbol->symbol-record$246) #t)))) ((k$428 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (39 39 44 44) #f #f 3 1 #t #f #t))) (300 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((302 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((303 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get$247) #f)))) ((304 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((lst$267 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 1 (84) #f #f 0 1 #t #f #f)))) ((306 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((307 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (put$248) #f)))) ((k$725 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (446) #f #f 1 0 #t #f #t))) (308 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((term$256 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((310 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((312 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () ((317 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (untranslate-term$249) #f)))) ((318 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((r$537 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f)))) ((r$538 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f))) (321 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((323 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () ((327 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-args$250) #f)))) ((328 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((330 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((332 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((Cyc-fast-plus . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (174 385) #f #f 2 0 #t #f #f)))) ((lst1$262 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 3 (44 39 44) #f #f 0 3 #t #f #f)))) ((input$353 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 480 #f #f #f 2 (476 469) #f #f 0 2 #t #f #f))) (lst$270 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 1 (89) #f #f 0 1 #t #f #f)))) ((k$437 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 49 49) #f #f 3 1 #t #f #t)))) ((337 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-term$251) #f)))) ((338 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$730 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (461) #f #f 0 1 #t #f #t)))) ((341 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tmp$117$272 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 89 #f #f #f 2 (89 89) #f #f 0 1 #t #f #f)))) () ((k$733 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #t))) (*symbol-records-alist*$245 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (299 294 293 290 20) #t r$614 0 2 #f #f #f)))) () ((k$735 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t))) (345 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((k$738 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 456 #f #f #f 2 (456 456) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)) 2 0 #t #f #t))) (348 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((r$541 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f))) (351 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$655) #f)))) () ((r$543 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f)))) () ((r$545 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f))) (rounded$331 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 448 #f #f #f 2 (448 414) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t)) 1 0 #t #f #f)))) () ((357 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tautologyp$234 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (219 197 198 202 204 215) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(198 (r$550) ((tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) r$550 false-lst$287)) #f)) (cons (cadr x$289) true-lst$288)))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t)) 5 0 #f #f #f)))) ((358 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (add-lemma$252) #f)))) ((359 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (output$354 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 478 #f #f #f 1 (466) #f #f 0 1 #t #f #f)))) () ((flush-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (420 389 438) #f #f 3 0 #f #f #f)))) () ((363 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((run-r7rs-benchmark . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 449 #f #f 2 (-1 471) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 0 #f)) #f)) (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))))) #f)) #f)) #f)))) #f)))) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))))) #f)) #f)) #t))) 1 0 #f #f #f)))) () ((367 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (add-lemma-lst$253) #f)))) ((368 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((371 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (setup$254) #f)))) ((lst$280 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 4 (150 146 146 150) #f #f 0 4 #t #f #f))) (k$446 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 2 (61 68) #f #f 0 2 #f #f #t))) (372 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((error . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (351) #f #f 1 0 #f #f #f))) (tmp$120$269 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 84 #f #f #f 2 (84 84) #f #f 0 1 #t #f #f))) (lst1$274 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 3 (105 100 105) #f #f 0 3 #t #f #f)))) ((lst$282 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 4 (160 159 156 154) #f #f 0 4 #t #f #f))) (374 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((376 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$741 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t)))) () () ((k$744 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t))) (381 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((382 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((383 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$747 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t)))) ((385 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((r$550 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 198 #f #f #f 1 (198) #f (cons (cadr x$289) true-lst$288) 0 1 #t #f #f)))) ((388 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((389 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((390 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((391 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((392 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((393 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$557 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 219 #f #f #f 1 (219) #f #f 0 1 #t #f #f))) (394 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((395 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((396 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((397 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((398 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((399 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (unify-subst$227 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (146 137 134 129 125 121) #t '* 0 3 #f #f #f)))) ((400 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (symbol->symbol-record$246 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (337 307 303 300 18) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(294 (r$615) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons r$615 *symbol-records-alist*$245))) #f)) (cons sym$313 r$315))) #f)) sym$313))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t)) 4 0 #f #f #f)))) ((401 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((402 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((403 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((404 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((untranslate-term$249 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (312 318) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(312 (r$625) ((map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons r$625 r$626))) #f)) untranslate-term$249 (cdr term$321))) #f)) (car term$321)) (k$623 term$321))) #t)) 0 1 #f #f #f)))) ((406 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((k$456 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 1 (72) #f #f 0 1 #t #f #t)))) ((lst$291 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 3 (230 226 230) #f #f 0 3 #t #f #f)))) () () () ((414 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$281 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (150 146 150) #f #f 0 3 #t #f #f)))) ((416 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$283 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 6 (172 171 171 168 166 165) #f #f 0 6 #t #f #f)))) ((k$754 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 484 #f #f #f 1 (471) #f #f 0 1 #f #f #t)))) ((419 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((420 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((421 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (car . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 25 (367 345 341 357 337 327 317 233 230 212 181 171 165 159 150 146 129 129 105 105 56 56 44 44 30) #f #f 25 0 #t #f #f)))) ((422 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((423 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((425 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((r$563 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f))) (427 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (loop$338) #f)))) ((r$564 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f))) (428 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((431 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((433 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (test-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 462 #f #f 3 (7 -1 468) #t #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t)) 1 0 #f #f #f)))) ((false-lst$287 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (213 204 198 197 202 204) #f #f 0 6 #t #f #f)))) ((435 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (460 454) #f #f 1 1 #f #f #f)))) ((437 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((438 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((439 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((440 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((441 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (n$255 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((442 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((k$465 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #t #f #t)))) ((446 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rounded$331) #f))) (s1$356 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 474 #f #f #f 1 (474) #f (number->string input$353) 0 1 #t #f #f)))) () ((k$468 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #t #f #t))) (448 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((449 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((452 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((term$293 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 5 (241 237 241 233 241) #f #f 0 5 #t #f #f))) (454 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$738) #f))) (k$763 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (466 466) #f #f 2 0 #t #f #t)))) ((alist$257 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((456 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$765 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t)))) ((457 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((term$298 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))) (459 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((460 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((461 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$571 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f))) (462 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((463 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$301 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f term$298 0 1 #t #f #f)))) ((secs2$345 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 406 #f #f #f 1 (402) #f #f 0 1 #f #f #f)))) ((466 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$304 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (267 267) #f #f 0 2 #t #f #f)))) ((term$305 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 256 #f #f #f 1 (256) #f #f 0 1 #t #f #f))) (468 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$578 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f))) (469 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((470 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((471 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((result$339 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 4 (427 423 419 388) #f #f 0 4 #f #f #f)))) ((474 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((476 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$471 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (100 100 105 105) #f #f 3 1 #t #f #t))) (478 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (n$265 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 4 (69 68 64 63) #f #f 0 4 #f #f #f)))) ((n$266 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 2 (77 75) #f #f 0 2 #f #f #f)))) ((480 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((482 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((484 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((cadddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (197 202) #f #f 2 0 #t #f #f)))) () () () () () () () () ((lst$322 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 3 (327 323 327) #f #f 0 3 #t #f #f)))) ((put$248 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (341 308) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((put-lemmas!$243 k$620 r$621 value$318)) #f)) sym$320)) #t)) 1 0 #f #f #f)))) ((r$581 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 248 #f #f #f 1 (245) #f #f 0 1 #t #f #f)))) ((lst$325 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 3 (367 363 367) #f #f 0 3 #t #f #f)))) () () ((assq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (299 241 129) #f #f 3 0 #t #f #f)))) ((r$586 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 270 #f #f #f 1 (258) #f #f 0 1 #t #f #f))) (get-name$241 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (317 278) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t)) 1 0 #f #f #f)))) ((r$587 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))) ((r$588 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f)))) ((r$589 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 260 #f #f #f 0 () #f (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))) 0 0 #t #f #f)))) () () () () () () ((k$480 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (120 125 125 129 129 129) #f #f 4 2 #t #f #t)))) () () () () () () () () () () () () ((make-symbol-record$244 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (297 288) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t)) 1 0 #f #f #f)))) ((symbol-record-equal?$240 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (275 56) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t)) 1 0 #f #f #f)))) () () () ((cdr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 23 (363 332 323 312 297 248 237 241 226 181 168 156 146 125 129 129 100 100 49 49 39 39 27) #f #f 23 0 #t #f #f)))) () () () () () ((term$321 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 4 (317 317 312 317) #f #f 0 4 #t #f #f))) (r$593 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 263 #f #f #f 1 (263) #f #f 0 1 #t #f #f)))) ((sym$312 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #f)))) ((term$323 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 4 (337 337 332 337) #f #f 0 4 #t #f #f))) (sym$313 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 3 (299 297 295) #f #f 0 3 #t #f #f)))) ((term$324 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 7 (351 351 348 345 357 357 357) #f #f 0 7 #f #f #f)))) () () ((sym$317 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f)))) () () () () () ((truep$222 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (212 214 87) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t)) 2 0 #f #f #f)))) () () () () () ((k$495 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t)))) () () () () ((r1$307 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))) ((rewrite$230 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (220 175 157 140) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(171 (r$519) ((if r$519 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(168 (r$523) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(167 (r$525) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (car term$283))) #f)) r$523 r$524 term$283)) #f)) r$525)) #f)) (cdr term$283))) #f)) (car term$283)) (k$517 term$283))) #f)) (pair? term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t)) 3 0 #f #f #f)))) ((k$500 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (146 140 150) #f #f 1 2 #f #f #t))) (i$340 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 2 (385 427) #f #f 0 2 #t #f #f)))) () () () () () () () () ((i$349 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))) () ((sym$320 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f))) (lst2$261 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (44 39 44 44) #f #f 0 4 #t #f #f)))) () () () ((r$315 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 295 #f #f #f 2 (295 292) #f #f 0 2 #t #f #f)))) () () () () () () () () ((r$613 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 292 #f #f #f 0 () #f (set! *symbol-records-alist*$245 r$614) 0 0 #t #f #f)))) ((r$614 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 293 #f #f #f 1 (293) #f (cons r$615 *symbol-records-alist*$245) 0 0 #t #f #f)))) ((r$615 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 294 #f #f #f 1 (294) #f (cons sym$313 r$315) 0 1 #t #f #f)))) () ((n$297 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))) ((r$618 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f)))) () () () ((n$300 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #t #f #f))) (name$329 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 3 (441 400 394) #f #f 0 3 #f #f #f)))) () ((alist$292 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (230 226) #f #f 0 2 #t #f #f))) (Cyc-fast-div . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (446 404 392) #f #f 3 0 #t #f #f)))) ((n$303 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (263 267) #f #f 0 2 #t #f #f))) (term . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (376 -1 468) #t '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)) 0 1 #f #f #f)))) ((alist$294 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 2 (241 241) #f #f 0 2 #t #f #f))) (k$510 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 2 (154 159) #f #f 1 1 #t #f #t)))) () ((alist$296 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 4 (253 248 245 253) #f #f 0 4 #t #f #f))) (test$239 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (272 5) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t)) 1 0 #f #f #f)))) () () ((alist$299 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f)))) () ((k$517 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 2 (171 163) #f #f 1 1 #t #f #t)))) () ((apply-subst$237 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (258 242 230 146) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(237 (temp-temp$295) ((if temp-temp$295 (k$568 (cdr temp-temp$295)) (k$568 term$293))) #f)) (assq term$293 alist$294)))) #t)) 3 0 #f #f #f)))) () () () ((lst2$273 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (105 100 105 105) #f #f 0 4 #t #f #f)))) () ((one-way-unify$226 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (150 135) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t)) 1 0 #f #f #f)))) () () () () () () ((r$621 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #f #f)))) () () () ((r$625 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 312 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))) ((r$626 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))) ((eq? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (357 274 212 181 181 129) #f #f 6 0 #t #f #f)))) ((current-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (421 390 439) #f #f 3 0 #f #f #f)))) () () () () () () () ((rewrites$358 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (466 466) #f #f 0 2 #t #f #f))) (trans-of-implies1$218 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (77 63 70) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t)) 2 0 #f #f #f)))) () () () () () () () ((k$528 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t)))) () () () () () () () () () () () () () () ((r$632 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))) ((r$633 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f))) (v$350 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))) (newline . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 4 (422 391 399 440) #f #f 4 0 #f #f #f)))) () () () () () ((r$639 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) ((main . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 484 #f #f 2 (1 -1) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((run-r7rs-benchmark k$754 r$760 count$352 #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #t)))) #f)) (string-append "sboyer" ":" s1$356 ":" s2$355))) #f)) (number->string input$353))) #f)) (number->string count$352))) #f)))) #f)))) #f)))) #t))) 1 0 #f #f #f)))) () () () () () ((k$530 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 181 #f #f #f 2 (181 181) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)) 2 0 #t #f #t)))) () () () () () ((k$536 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 8 (212 212 197 197 202 204 212 213) #f #f 5 3 #t #f #t)))) () () () () () ((s2$355 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 476 #f #f #f 1 (474) #f (number->string count$352) 0 1 #t #f #f)))) () () () () () ((r$348 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f)))) () () ((r$640 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) () () () () ((r$645 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f)))) () () () ((r$649 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) () () () () () () () () () ((j/s$333 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 435 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) () () ((null? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (367 327 253 230 160 150 105 105 105 44 44 44 30) #f #f 13 0 #t #f #f)))) () () () () () ((term-args-equal?$216 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (49 39 45) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t)) 2 0 #f #f #f)))) () () ((caar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (245) #f #f 1 0 #t #f #f)))) () () () () () ((r$650 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) () () () ((r$654 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 348 #f #f #f 1 (341) #f (cadr term$324) 0 1 #t #f #f))) (original$284 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 3 (177 181 181) #f #f 0 3 #t #f #f)))) ((cdar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (253) #f #f 1 0 #t #f #f)))) () ((number->string . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f)))) () () () () ((this-scheme-implementation-name . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 382 #f #f 2 (-1 397) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) 1 0 #f #f #f)))) ((number? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f)))) () () ((rewrite-count$232 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (184 174 173 6 3) #t 0 0 2 #f #f #f)))) () () () ((setup$254 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (372 9) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t)) 1 0 #t #f #f)))) () ((k$556 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (219) #f #f 0 1 #t #f #t))) (write . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (423 402 404) #f #f 3 0 #f #f #f)))) ((vector-set! . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (283) #f #f 1 0 #t #f #f))) (add-lemma-lst$253 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (371 363 368) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t)) 2 0 #f #f #f)))) () () ((r$360 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 376 #f #f #f 0 () #f (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) 0 0 #t #f #f))) (one-way-unify1$225 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (132 130 105) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t)) 2 0 #f #f #f)))) ((r$361 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 374 #f #f #f 0 () #f (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) 0 0 #t #f #f)))) ((alist . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (-1 -1 468) #t '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))) 0 1 #f #f #f))) (r$362 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 1 #f #f #f 0 () #f (set! test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t))) 0 0 #t #f #f)))) ((r$363 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 368 #f #f #f 0 () #f (set! setup$254 #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t))) 0 0 #t #f #f)))) ((true-term$220 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (86 80 10) #t '* 0 1 #f #f #f))) (r$364 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 359 #f #f #f 0 () #f (set! add-lemma-lst$253 #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t))) 0 0 #t #f #f)))) ((r$365 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 338 #f #f #f 0 () #f (set! add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t))) 0 0 #t #f #f)))) ((r$366 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 328 #f #f #f 0 () #f (set! translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t))) 0 0 #t #f #f)))) ((r$367 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 318 #f #f #f 0 () #f (set! translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t))) 0 0 #t #f #f)))) ((r$368 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 308 #f #f #f 0 () #f (set! untranslate-term$249 #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(312 (r$625) ((map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons r$625 r$626))) #f)) untranslate-term$249 (cdr term$321))) #f)) (car term$321)) (k$623 term$321))) #t))) 0 0 #t #f #f)))) ((r$369 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 304 #f #f #f 0 () #f (set! put$248 #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((put-lemmas!$243 k$620 r$621 value$318)) #f)) sym$320)) #t))) 0 0 #t #f #f)))) () () ((j0$335 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 431 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) () () ((r$664 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () () ((k$561 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (224 230) #f #f 2 0 #t #f #t)))) () () () ((count$328 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f)))) () () ((k$568 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 3 (237 237 233) #f #f 3 0 #t #f #t)))) () ((r$370 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 300 #f #f #f 0 () #f (set! get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f)) sym$317)) #t))) 0 0 #t #f #f)))) ((r$371 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 290 #f #f #f 0 () #f (set! symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(294 (r$615) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons r$615 *symbol-records-alist*$245))) #f)) (cons sym$313 r$315))) #f)) sym$313))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t))) 0 0 #t #f #f)))) ((map . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (312) #f #f 1 0 #f #f #f))) (r$372 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 288 #f #f #f 0 () #f (set! *symbol-records-alist*$245 '()) 0 0 #t #f #f)))) ((r$373 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 284 #f #f #f 0 () #f (set! make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t))) 0 0 #t #f #f)))) ((r$374 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 281 #f #f #f 0 () #f (set! put-lemmas!$243 #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t))) 0 0 #t #f #f)))) ((r$375 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 278 #f #f #f 0 () #f (set! get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t))) 0 0 #t #f #f))) (term1$276 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (125 125 125 129 129 129) #f #f 0 6 #t #f #f)))) ((r2$306 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))) (r$376 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 275 #f #f #f 0 () #f (set! get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t))) 0 0 #t #f #f)))) ((r$377 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 272 #f #f #f 0 () #f (set! symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t))) 0 0 #t #f #f)))) ((term1$279 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))) (r$378 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 254 #f #f #f 0 () #f (set! test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t))) 0 0 #t #f #f)))) ((r$379 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 242 #f #f #f 0 () #f (set! translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t))) 0 0 #t #f #f)))) () () () () () () ((r$675 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f)))) () () ((scons$231 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (183 166 154) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t)) 2 0 #f #f #f)))) ((r$679 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 442 #f #f #f 0 () #f (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))) 0 0 #t #f #f)))) () () () () () ((translate-args$250 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (332 323 328) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t)) 2 0 #f #f #f)))) () ((term-member?$215 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (89 84 27 31) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t)) 3 0 #f #f #f)))) () ((equal? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (125 69 56) #f #f 3 0 #t #f #f)))) () ((k$575 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 2 (245 253) #f #f 2 0 #t #f #t)))) () ((%halt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f)))) () () ((r$380 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 231 #f #f #f 0 () #f (set! apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(237 (temp-temp$295) ((if temp-temp$295 (k$568 (cdr temp-temp$295)) (k$568 term$293))) #f)) (assq term$293 alist$294)))) #t))) 0 0 #t #f #f)))) ((r$381 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 221 #f #f #f 0 () #f (set! apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t))) 0 0 #t #f #f)))) ((r$382 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 215 #f #f #f 0 () #f (set! tautp$235 #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t))) 0 0 #t #f #f)))) ((r$383 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 186 #f #f #f 0 () #f (set! tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(198 (r$550) ((tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) r$550 false-lst$287)) #f)) (cons (cadr x$289) true-lst$288)))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t))) 0 0 #t #f #f))) (x$260 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 2 (30 27) #f #f 0 2 #t #f #f)))) ((r$384 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 184 #f #f #f 0 () #f (set! if-constructor$233 '*) 0 0 #t #f #f)))) ((cadr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 8 (351 345 357 212 204 202 197 150) #f #f 8 0 #t #f #f))) (r$385 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 183 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f)))) ((r$386 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 175 #f #f #f 0 () #f (set! scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t))) 0 0 #t #f #f)))) ((rewrite-with-lemmas$228 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (163 146 151) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t)) 2 0 #f #f #f))) (r$387 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 161 #f #f #f 0 () #f (set! rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(171 (r$519) ((if r$519 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(168 (r$523) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(167 (r$525) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (car term$283))) #f)) r$523 r$524 term$283)) #f)) r$525)) #f)) (cdr term$283))) #f)) (car term$283)) (k$517 term$283))) #f)) (pair? term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t))) 0 0 #t #f #f))) (x$264 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 49 56) #f #f 0 4 #t #f #f)))) ((r$388 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 151 #f #f #f 0 () #f (set! rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(159 (r$511) ((if r$511 (k$510 '()) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(157 (r$515) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(155 (r$514) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) r$514)) #f)) (cdr lst$282))) #f)) r$515)) #f)) (car lst$282)))) #f)) (null? lst$282))) #t))) 0 0 #t #f #f)))) ((r$389 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 137 #f #f #f 0 () #f (set! rewrite-with-lemmas$228 #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t))) 0 0 #t #f #f)))) () ((r$680 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f))) (x$268 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #t #f #f)))) ((r$681 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$682 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$683 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))) (falsep$223 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (204 213 92) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t)) 2 0 #f #f #f)))) () () ((hide . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 461 #f #f 2 (-1 469) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((call-with-values k$730 #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) (((vector-ref v$350 i$349) k$733 x$347)) #t)))) #t))) 1 0 #f #f #f)))) ((r$687 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 383 #f #f #f 0 () #f (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))) 0 0 #t #f #f)))) () () () ((t0$334 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 433 #f #f #f 1 (414) #f #f 0 1 #t #f #f)))) () ((temp-temp$277 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 125 #f #f #f 2 (125 125) #f (assq term2$275 unify-subst$227) 0 1 #t #f #f)))) () () () () () () ((k$584 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (256) #f #f 0 1 #t #f #t)))) () () () () ((true-lst$288 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (214 212 202 197 202 204) #f #f 0 6 #t #f #f)))) ((r$390 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 135 #f #f #f 0 () #f (set! unify-subst$227 '*) 0 0 #t #f #f)))) ((r$391 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 130 #f #f #f 0 () #f (set! one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t))) 0 0 #t #f #f)))) ((r$392 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 106 #f #f #f 0 () #f (set! one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t))) 0 0 #t #f #f)))) ((r$393 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 92 #f #f #f 0 () #f (set! one-way-unify1-lst$224 #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t))) 0 0 #t #f #f)))) ((r$394 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 87 #f #f #f 0 () #f (set! falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t))) 0 0 #t #f #f))) (x$271 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #t #f #f)))) ((r$395 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 82 #f #f #f 0 () #f (set! truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t))) 0 0 #t #f #f)))) ((r$396 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 80 #f #f #f 0 () #f (set! false-term$221 '*) 0 0 #t #f #f)))) ((r$397 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 78 #f #f #f 0 () #f (set! true-term$220 '*) 0 0 #t #f #f)))) ((r$398 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 70 #f #f #f 0 () #f (set! trans-of-implies$219 #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t))) 0 0 #t #f #f)))) ((r$399 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 57 #f #f #f 0 () #f (set! trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t))) 0 0 #t #f #f)))) () ((display . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (425 392 393 394 395 396 398 400 401 403 406 441 442) #f #f 13 0 #f #f #f)))) ((caddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (198 204 146) #f #f 3 0 #t #f #f))) (r$400 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 45 #f #f #f 0 () #f (set! term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(49 (r$440) ((if r$440 (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f))) #f)) (car x$264) (car y$263)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t))) 0 0 #t #f #f)))) ((r$692 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f))) (r$401 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 31 #f #f #f 0 () #f (set! term-args-equal?$216 #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t))) 0 0 #t #f #f)))) ((r$693 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f))) (r$402 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 21 #f #f #f 0 () #f (set! term-member?$215 #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t))) 0 0 #t #f #f)))) ((r$694 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f))) (r$403 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 7 #f #f #f 0 () #f (set! setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((setup$254 k$409)) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t))) 0 0 #t #f #f)))) () () ((r$406 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 5 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f)))) () () () () ((r$700 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$701 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$702 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((count$352 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 482 #f #f #f 3 (478 469 471) #f #f 0 3 #f #f #f))) (r$703 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$704 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((k$591 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (263 267) #f #f 1 1 #t #f #t))) (r$705 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$706 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$707 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$708 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$709 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () ((k$598 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t)))) () () () ((k$600 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t)))) () ((k$602 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t)))) ((trans-of-implies$219 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (78) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t)) 0 0 #f #f #f)))) ((k$604 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t)))) () ((k$606 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #t))) (round__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f)))) ((x$286 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f)))) () () ((x$289 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 12 (214 213 212 204 202 198 197 197 202 204 212 212) #f #f 0 12 #t #f #f))) (cons . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 15 (341 330 321 310 295 294 245 245 233 224 202 197 177 125 125) #f #f 15 0 #t #f #f))) (r$410 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 18 #f #f #f 0 () #f (set! *symbol-records-alist*$245 '()) 0 0 #t #f #f)))) ((r$411 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 15 #f #f #f 0 () #f (set! if-constructor$233 r$418) 0 0 #t #f #f)))) ((r$412 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 12 #f #f #f 0 () #f (set! false-term$221 r$416) 0 0 #t #f #f)))) ((r$413 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 9 #f #f #f 0 () #f (set! true-term$220 r$414) 0 0 #t #f #f)))) ((r$414 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f)))) () ((r$416 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f)))) () ((r$418 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f)))) () ((temp-temp$295 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 237 #f #f #f 2 (237 237) #f (assq term$293 alist$294) 0 1 #t #f #f)))) ((r$710 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$711 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$712 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$713 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$714 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f)))) ((r$715 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f)))) () ((translate-alist$238 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (271 248 254) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t)) 2 0 #f #f #f)))) ((r$718 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$719 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () ((k$610 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t)))) ((x$290 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f)))) () () () () () ((k$617 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (302) #f #f 0 1 #t #f #t))) (tautp$235 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (256 221) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t)) 1 0 #f #f #f)))) () () () () () () ((r$424 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f)))) () () () () () () ((r$720 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$721 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$722 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f)))) ((r$723 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f)))) () () () ((one-way-unify1-lst$224 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (129 100 106) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t)) 2 0 #f #f #f)))) () () () ((inexact__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (404 392) #f #f 2 0 #t #f #f)))) () () () () ((k$620 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #t)))) () () ((k$623 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 2 (317 310) #f #f 2 0 #t #f #t)))) () () () () () () ((jiffies-per-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f)))) ((r$431 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f)))) () () () () () ((x$314 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 297 #f #f #f 2 (297 297) #f (assq sym$313 *symbol-records-alist*$245) 0 1 #t #f #f)))) () () () ((put-lemmas!$243 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (306 284) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t)) 1 0 #f #f #f)))) () ((ok?$326 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f)))) () () () ((r$736 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f)))) ((r$737 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f)))) () () () () ((vector-ref . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (280 277 452) #f #f 3 0 #t #f #f)))) () () () ((k$630 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 2 (321 327) #f #f 2 0 #t #f #t)))) () () () ((-1 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(? ? () #t))))))) */ /* "---------------- after cps optimizations (2):" */ /* ((define main #((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((run-r7rs-benchmark k$754 r$760 count$352 #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #t)))) #f)) (string-append "sboyer" ":" s1$356 ":" s2$355))) #f)) (number->string input$353))) #f)) (number->string count$352))) #f)))) #f)))) #f)))) #t))) (define alist #f) (define term #f) (define setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(463 (k$747) ((k$747 #t)) #t))) (define test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(462 (k$744) ((k$744 #t)) #t))) (define hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((call-with-values k$730 #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) (((vector-ref v$350 i$349) k$733 x$347)) #t)))) #t))) (define run-r7rs-benchmark #((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 0 #f)) #f)) (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))))) #f)) #f)) #f)))) #f)))) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))))) #f)) #f)) #t))) (define this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(376 (r$360) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(374 (r$361) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(372 (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(368 (r$363) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(359 (r$364) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(338 (r$365) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(328 (r$366) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(318 (r$367) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(308 (r$368) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(304 (r$369) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(300 (r$370) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(290 (r$371) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(288 (r$372) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(284 (r$373) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(281 (r$374) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(278 (r$375) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(275 (r$376) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(272 (r$377) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(254 (r$378) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(242 (r$379) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(231 (r$380) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(221 (r$381) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(215 (r$382) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(186 (r$383) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(184 (r$384) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(183 (r$385) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(175 (r$386) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(161 (r$387) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(151 (r$388) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(137 (r$389) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(135 (r$390) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(130 (r$391) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(106 (r$392) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(92 (r$393) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(87 (r$394) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(82 (r$395) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(80 (r$396) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(78 (r$397) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(70 (r$398) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(57 (r$399) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(45 (r$400) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(31 (r$401) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(21 (r$402) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(7 (r$403) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(1 (r$362) ((main %halt)) #f)) (set! test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t))))) #f)) (set! setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((add-lemma-lst$253 k$409 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t))))) #f)) (set! term-member?$215 #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t))))) #f)) (set! term-args-equal?$216 #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t))))) #f)) (set! term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t))))) #f)) (set! trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t))))) #f)) (set! trans-of-implies$219 #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t))))) #f)) (set! true-term$220 '*))) #f)) (set! false-term$221 '*))) #f)) (set! truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t))))) #f)) (set! falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t))))) #f)) (set! one-way-unify1-lst$224 #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t))))) #f)) (set! one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t))))) #f)) (set! one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t))))) #f)) (set! unify-subst$227 '*))) #f)) (set! rewrite-with-lemmas$228 #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t))))) #f)) (set! rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((if (null? lst$282) (k$510 '()) (rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) (cdr lst$282))) #f)) (car lst$282)))) #t))))) #f)) (set! rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((if (pair? term$283) (rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (vector-ref (car term$283) 1))) #f)) (car term$283) r$524 term$283)) #f)) (cdr term$283)) (k$517 term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t))))) #f)) (set! scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t))))) #f)) (set! rewrite-count$232 0))) #f)) (set! if-constructor$233 '*))) #f)) (set! tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t))))) #f)) (set! tautp$235 #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t))))) #f)) (set! apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t))))) #f)) (set! apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (if (assq term$293 alist$294) (k$568 (cdr (assq term$293 alist$294))) (k$568 term$293)))) #t))))) #f)) (set! translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t))))) #f)) (set! test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t))))) #f)) (set! symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t))))) #f)) (set! get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t))))) #f)) (set! get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t))))) #f)) (set! put-lemmas!$243 #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t))))) #f)) (set! make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t))))) #f)) (set! *symbol-records-alist*$245 '()))) #f)) (set! symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons (cons sym$313 r$315) *symbol-records-alist*$245))) #f)) sym$313 '()))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t))))) #f)) (set! get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f)) sym$317)) #t))))) #f)) (set! put$248 #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((k$620 (vector-set! r$621 1 value$318))) #f)) sym$320)) #t))))) #f)) (set! untranslate-term$249 #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons (vector-ref (car term$321) 0) r$626))) #f)) untranslate-term$249 (cdr term$321)) (k$623 term$321))) #t))))) #f)) (set! translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t))))) #f)) (set! translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t))))) #f)) (set! add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t))))) #f)) (set! add-lemma-lst$253 #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t))))) #f)) (set! setup$254 #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t))))) #f)) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) #f)) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) #f)) (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) */ /* "---------------- cps analysis db:" */ /* #((record-marker) #((record-marker) #f (size hash compare associate entries)) #(602 #[procedure] #[procedure] #[procedure] #(() ((1 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((k$637 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 2 (337 330) #f #f 2 0 #t #f #t)))) ((3 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((loop$338 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 428 #f #f #f 3 (385 428 383) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t)) 2 0 #t #f #f)))) ((5 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((6 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (test-boyer) #t)))) ((7 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((9 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (add-lemma$252 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (367 359) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t)) 1 0 #f #f #f)))) ((10 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((12 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (r$447 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 68 #f #f #f 1 (68) #f (equal? n$265 1) 0 0 #t #f #f)))) ((13 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((15 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((16 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (term2$275 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 7 (129 125 125 125 129 129 129) #f #f 0 7 #t #f #f)))) () ((18 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((term2$278 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))) ((20 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (setup-boyer) #t))) (j1$341 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 416 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) ((21 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((setup-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 463 #f #f 3 (21 -1 470) #t #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((add-lemma-lst$253 k$409 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t)) 1 0 #f #f #f)))) ((lemmas$310 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f)))) ((27 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((Cyc-fast-eq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (466) #f #f 1 0 #t #f #f)))) ((30 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-member?$215) #f)))) ((31 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (read . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (480 482 484) #f #f 3 0 #f #f #f)))) () () () () ((k$644 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 2 (351 341) #f #f 0 2 #f #f #t)))) () ((current-jiffy . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (425 433) #f #f 2 0 #f #f #f)))) ((39 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((Cyc-fast-mul . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f)))) ((r$450 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f)))) ((r$451 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f)))) ((44 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-args-equal?$216) #f)))) ((45 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$454 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 64 #f #f #f 1 (64) #f (Cyc-fast-sub n$265 1) 0 1 #t #f #f)))) () () ((r$457 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f)))) () ((r$459 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f)))) () ((Cyc-fast-sub . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (263 68 63 414 404 392) #f #f 6 0 #t #f #f)))) () ((y$263 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 56 56) #f #f 0 4 #t #f #f)))) ((zero?__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f))) (56 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (term-equal?$217) #f)))) ((57 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((61 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((pair? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 11 (357 357 337 317 241 212 172 129 129 56 56) #f #f 11 0 #t #f #f)))) ((63 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((64 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () ((68 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((69 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (trans-of-implies1$218) #f)))) ((70 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((72 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((73 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$655 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 357 #f #f #f 3 (357 357 357) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)) 3 0 #t #f #t)))) ((75 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((77 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (trans-of-implies$219) #f)))) ((78 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$460 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f)))) ((80 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((82 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((84 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((86 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (truep$222) #f)))) ((87 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((x$346 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f)))) ((89 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (x$347 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (452) #f #f 0 1 #f #f #f)))) ((r$760 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 471 #f #f #f 1 (471) #f (string-append "sboyer" ":" s1$356 ":" s2$355) 0 1 #t #f #f)))) ((91 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (falsep$223) #f)))) ((92 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((r$766 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$767 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f)))) () () ((100 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((Cyc-version . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f)))) () () () ((symbol-record$308 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f))) (105 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify1-lst$224) #f)))) ((symbol-record$309 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f))) (106 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (t1$342 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f)))) () ((k$662 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 2 (363 367) #f #f 1 1 #t #f #t)))) () () () () () ((property$316 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f))) (k$668 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 371 #f #f #f 1 (371) #f #f 0 1 #t #f #t)))) () () ((property$319 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f))) (answer$258 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 3 #f #f #f 1 (3) #f #f 0 0 #t #f #f)))) () () ((120 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (x$351 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f))) (r$474 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f)))) ((121 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((125 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((129 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify1$225) #t)))) ((130 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((y$285 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f)))) ((132 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((134 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (one-way-unify$226) #t)))) ((symbol-record$311 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f))) (135 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((137 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((140 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () () ((146 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$674 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t)))) () () ((150 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite-with-lemmas$228) #f)))) ((k$678 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (383) #f #f 0 1 #t #f #t))) (151 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((154 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((156 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((false-term$221 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (91 82 13) #t '* 0 1 #f #f #f)))) ((160 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite-args$229) #f)))) ((161 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((163 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((165 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((166 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () () ((172 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((173 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((174 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rewrite$230) #t)))) ((175 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((177 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$530) #f)))) () () ((term-equal?$217 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (125 91 86 57 44 30) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t)) 5 0 #f #f #f)))) ((181 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((182 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (scons$231) #f)))) ((183 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((184 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (current-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f)))) () ((186 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((rewrite-args$229 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (172 156 161) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((if (null? lst$282) (k$510 '()) (rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) (cdr lst$282))) #f)) (car lst$282)))) #t)) 2 0 #f #f #f)))) () ((k$689 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 3 (419 388 385) #f #f 2 1 #t #f #t)))) () ((r$491 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 120 #f #f #f 0 () #f (set! unify-subst$227 r$492) 0 0 #t #f #f)))) ((r$492 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 121 #f #f #f 1 (121) #f (cons (cons term2$275 term1$276) unify-subst$227) 0 0 #t #f #f)))) () () () ((r$496 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 132 #f #f #f 0 () #f (set! unify-subst$227 '()) 0 0 #t #f #f)))) ((197 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () ((202 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((value$318 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 0 1 #t #f #f))) (vector . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (297 287 460) #f #f 3 0 #f #f #f)))) ((204 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (r$502 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f)))) ((r$503 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f)))) ((if-constructor$233 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (212 186 16) #t '* 0 1 #f #f #f)))) () () ((get-lemmas$242 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (281) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t)) 0 0 #f #f #f)))) () () ((212 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((213 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((214 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (tautologyp$234) #f)))) ((215 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((219 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((220 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (tautp$235) #f))) (apply-subst-lst$236 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (241 226 231) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t)) 2 0 #f #f #f)))) ((221 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$405 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t)))) ((224 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((226 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$409 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 20 #f #f #f 1 (9) #f #f 0 1 #t #f #t)))) () () ((230 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (apply-subst-lst$236) #f)))) ((231 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (call-with-values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (461) #f #f 1 0 #f #f #f)))) () ((233 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((string-append . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (381 474) #f #f 2 0 #t #f #f)))) () () () () () ((r$512 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 156 #f #f #f 1 (154) #f #f 0 1 #t #f #f))) (241 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (apply-subst$237) #f)))) ((r$513 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f))) (242 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((245 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((r$518 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 172 #f #f #f 0 () #f (set! rewrite-count$232 r$526) 0 0 #t #f #f)))) ((248 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () ((253 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-alist$238) #f)))) ((254 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((list . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (267 73 75 61 64 68) #f #f 6 0 #f #f #f)))) ((256 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((258 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((259 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((260 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((263 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((get$247 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (345 304) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f)) sym$317)) #t)) 1 0 #f #f #f)))) () ((267 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (lp$37$302) #f)))) ((268 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((269 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((270 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$259 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (30 27 30) #f #f 0 3 #t #f #f)))) ((271 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (test$239) #t)))) ((272 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((274 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (symbol-record-equal?$240) #f)))) ((275 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$520 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 165 #f #f #f 1 (163) #f #f 0 1 #t #f #f)))) ((r$521 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 163 #f #f #f 1 (163) #f (vector-ref (car term$283) 1) 0 1 #t #f #f))) (277 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get-name$241) #f))) (thunk$327 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f)))) ((278 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((r$524 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f))) (280 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get-lemmas$242) #f)))) ((281 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((lp$37$302 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 268 #f #f #f 3 (263 268 260) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t)) 2 0 #t #f #f))) (r$526 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 173 #f #f #f 1 (173) #f (Cyc-fast-plus rewrite-count$232 1) 0 0 #t #f #f)))) ((283 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (put-lemmas!$243) #t)))) ((284 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((r$529 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f)))) () ((287 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (make-symbol-record$244) #f)))) ((288 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((290 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (translate-term$251 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 8 (348 338 327 259 253 72 12 15) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t)) 7 0 #f #f #f)))) ((Cyc-fast-lt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f)))) ((292 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((293 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((k$422 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 3 (27 27 30) #f #f 2 1 #t #f #t)))) ((295 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((297 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((299 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (symbol->symbol-record$246) #t)))) ((k$428 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (39 39 44 44) #f #f 3 1 #t #f #t))) (300 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((302 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((303 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (get$247) #f)))) ((304 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((lst$267 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 1 (84) #f #f 0 1 #t #f #f)))) ((306 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((307 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (put$248) #t)))) ((k$725 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 446 #f #f #f 1 (446) #f #f 1 0 #t #f #t))) (308 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((term$256 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((310 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () () () () ((317 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (untranslate-term$249) #f)))) ((318 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((r$537 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f)))) ((r$538 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f))) (321 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((323 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () () ((327 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-args$250) #f)))) ((328 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((330 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((332 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((Cyc-fast-plus . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (174 385) #f #f 2 0 #t #f #f)))) ((lst1$262 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 3 (44 39 44) #f #f 0 3 #t #f #f)))) ((input$353 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 480 #f #f #f 2 (476 469) #f #f 0 2 #t #f #f))) (lst$270 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 1 (89) #f #f 0 1 #t #f #f)))) ((k$437 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 56 56) #f #f 3 1 #t #f #t)))) ((337 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (translate-term$251) #f)))) ((338 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$730 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (461) #f #f 0 1 #t #f #t)))) ((341 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tmp$117$272 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 89 #f #f #f 2 (89 89) #f #f 0 1 #t #f #f)))) () ((k$733 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #t))) (*symbol-records-alist*$245 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (299 295 293 290 20) #t r$614 0 2 #f #f #f)))) () ((k$735 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t))) (345 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((k$738 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 456 #f #f #f 2 (456 456) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)) 2 0 #t #f #t))) (348 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((r$541 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f))) (351 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$655) #f)))) () ((r$543 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f)))) () ((r$545 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f))) (rounded$331 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 448 #f #f #f 2 (448 414) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t)) 1 0 #t #f #f)))) () ((357 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (tautologyp$234 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (219 197 202 202 204 215) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t)) 5 0 #f #f #f)))) ((358 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (add-lemma$252) #f)))) ((359 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (output$354 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 478 #f #f #f 1 (466) #f #f 0 1 #t #f #f)))) () ((flush-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (420 389 438) #f #f 3 0 #f #f #f)))) () ((363 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((run-r7rs-benchmark . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 449 #f #f 2 (-1 471) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 0 #f)) #f)) (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))))) #f)) #f)) #f)))) #f)))) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))))) #f)) #f)) #t))) 1 0 #f #f #f)))) () ((367 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (add-lemma-lst$253) #f)))) ((368 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((371 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (setup$254) #f)))) ((k$446 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 2 (61 68) #f #f 0 2 #f #f #t))) (372 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (lst$280 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 4 (150 146 146 150) #f #f 0 4 #t #f #f)))) ((error . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (351) #f #f 1 0 #f #f #f))) (tmp$120$269 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 84 #f #f #f 2 (84 84) #f #f 0 1 #t #f #f))) (lst1$274 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 3 (105 100 105) #f #f 0 3 #t #f #f)))) ((lst$282 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 4 (160 156 154 160) #f #f 0 4 #t #f #f))) (374 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((376 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$741 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t)))) () () ((k$744 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t))) (381 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((382 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((383 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((k$747 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t)))) ((385 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((388 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((389 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((390 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((391 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((392 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((393 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$557 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 219 #f #f #f 1 (219) #f #f 0 1 #t #f #f))) (394 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((395 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((396 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((397 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((398 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((399 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (unify-subst$227 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 6 (146 137 134 129 125 121) #t '* 0 3 #f #f #f)))) ((400 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (symbol->symbol-record$246 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (337 307 303 300 18) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons (cons sym$313 r$315) *symbol-records-alist*$245))) #f)) sym$313 '()))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t)) 4 0 #f #f #f)))) ((401 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((402 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((403 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((404 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((untranslate-term$249 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (317 318) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons (vector-ref (car term$321) 0) r$626))) #f)) untranslate-term$249 (cdr term$321)) (k$623 term$321))) #t)) 0 1 #f #f #f)))) ((406 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () () ((k$456 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 1 (72) #f #f 0 1 #t #f #t)))) ((lst$291 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 3 (230 226 230) #f #f 0 3 #t #f #f)))) () () () ((414 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$281 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (150 146 150) #f #f 0 3 #t #f #f)))) ((416 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$283 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 6 (172 172 166 166 165 172) #f #f 0 6 #t #f #f)))) ((k$754 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 484 #f #f #f 1 (471) #f #f 0 1 #f #f #t)))) ((419 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((420 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((421 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (car . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 25 (367 345 341 357 337 327 310 233 230 212 181 166 165 160 150 146 129 129 105 105 56 56 44 44 30) #f #f 25 0 #t #f #f)))) ((422 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((423 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((425 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((r$563 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f))) (427 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (loop$338) #f)))) ((r$564 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f))) (428 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((431 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((433 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (test-boyer . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 462 #f #f 3 (7 -1 468) #t #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t)) 1 0 #f #f #f)))) ((false-lst$287 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (213 204 202 197 202 204) #f #f 0 6 #t #f #f)))) ((435 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((values . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (460 454) #f #f 1 1 #f #f #f)))) ((437 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((438 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((439 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((440 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((441 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (n$255 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((442 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((k$465 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #t #f #t)))) ((446 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (rounded$331) #f))) (s1$356 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 474 #f #f #f 1 (474) #f (number->string input$353) 0 1 #t #f #f)))) () ((k$468 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #t #f #t))) (448 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) ((449 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () ((452 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((term$293 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 6 (241 241 241 241 233 241) #f #f 0 6 #t #f #f))) (454 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? (k$738) #f))) (k$763 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (466 466) #f #f 2 0 #t #f #t)))) ((alist$257 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f)))) ((456 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f))) (k$765 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t)))) ((457 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) () ((term$298 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))) (459 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((460 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((461 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$571 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f))) (462 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((463 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$301 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f term$298 0 1 #t #f #f)))) ((secs2$345 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 406 #f #f #f 1 (402) #f #f 0 1 #f #f #f)))) ((466 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((term$304 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (267 267) #f #f 0 2 #t #f #f)))) ((term$305 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 256 #f #f #f 1 (256) #f #f 0 1 #t #f #f))) (468 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((r$578 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f))) (469 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((470 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #f)))) ((471 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((result$339 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 4 (427 423 419 388) #f #f 0 4 #f #f #f)))) ((474 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((476 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((k$471 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (100 100 105 105) #f #f 3 1 #t #f #t))) (478 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t))) (n$265 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 69 #f #f #f 4 (69 68 64 63) #f #f 0 4 #f #f #f)))) ((n$266 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 77 #f #f #f 2 (77 75) #f #f 0 2 #f #f #f)))) ((480 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((482 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () ((484 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(#f ? () #t)))) () () () ((cadddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (197 202) #f #f 2 0 #t #f #f)))) () () () () () () () () ((lst$322 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 3 (327 323 327) #f #f 0 3 #t #f #f)))) ((put$248 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (341 308) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((k$620 (vector-set! r$621 1 value$318))) #f)) sym$320)) #t)) 1 0 #f #f #f)))) ((r$581 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 248 #f #f #f 1 (245) #f #f 0 1 #t #f #f)))) ((lst$325 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 367 #f #f #f 3 (367 363 367) #f #f 0 3 #t #f #f)))) () () ((assq . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 4 (299 241 241 129) #f #f 4 0 #t #f #f)))) ((r$586 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 270 #f #f #f 1 (258) #f #f 0 1 #t #f #f))) (get-name$241 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (278) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t)) 0 0 #f #f #f)))) ((r$587 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))) ((r$588 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f)))) ((r$589 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 260 #f #f #f 0 () #f (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))) 0 0 #t #f #f)))) () () () () () () ((k$480 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (120 125 125 129 129 129) #f #f 4 2 #t #f #t)))) () () () () () () () () () () () () ((make-symbol-record$244 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (288) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t)) 0 0 #f #f #f)))) ((symbol-record-equal?$240 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (275) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t)) 0 0 #f #f #f)))) () () () ((cdr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 23 (363 332 323 317 297 248 241 241 226 181 172 156 146 125 129 129 100 100 56 56 39 39 27) #f #f 23 0 #t #f #f)))) () () () () () ((term$321 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 4 (317 317 310 317) #f #f 0 4 #t #f #f))) (r$593 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 263 #f #f #f 1 (263) #f #f 0 1 #t #f #f)))) ((sym$312 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #f)))) ((term$323 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 337 #f #f #f 4 (337 337 332 337) #f #f 0 4 #t #f #f))) (sym$313 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 3 (299 297 295) #f #f 0 3 #f #f #f)))) ((term$324 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 358 #f #f #f 7 (351 351 348 345 357 357 357) #f #f 0 7 #f #f #f)))) () () ((sym$317 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f)))) () () () () () ((truep$222 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (212 214 87) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t)) 2 0 #f #f #f)))) () () () () () ((k$495 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t)))) () () () () ((r1$307 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))) ((rewrite$230 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (220 175 160 140) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((if (pair? term$283) (rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (vector-ref (car term$283) 1))) #f)) (car term$283) r$524 term$283)) #f)) (cdr term$283)) (k$517 term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t)) 3 0 #f #f #f)))) ((k$500 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 150 #f #f #f 3 (146 140 150) #f #f 1 2 #f #f #t))) (i$340 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 427 #f #f #f 2 (385 427) #f #f 0 2 #t #f #f)))) () () () () () () () () ((i$349 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))) () ((sym$320 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f))) (lst2$261 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 44 #f #f #f 4 (44 39 44 44) #f #f 0 4 #t #f #f)))) () () () ((r$315 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 295 #f #f #f 2 (295 292) #f #f 0 2 #t #f #f)))) () () () () () () () () ((r$613 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 292 #f #f #f 0 () #f (set! *symbol-records-alist*$245 r$614) 0 0 #t #f #f)))) ((r$614 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 293 #f #f #f 1 (293) #f (cons (cons sym$313 r$315) *symbol-records-alist*$245) 0 0 #t #f #f)))) () () ((n$297 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))) ((r$618 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f)))) () () () ((n$300 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #t #f #f))) (name$329 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 3 (441 400 394) #f #f 0 3 #f #f #f)))) () ((alist$292 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (230 226) #f #f 0 2 #t #f #f))) (Cyc-fast-div . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (446 404 392) #f #f 3 0 #t #f #f)))) ((n$303 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (263 267) #f #f 0 2 #t #f #f))) (term . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (376 -1 468) #t '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)) 0 1 #f #f #f)))) ((alist$294 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 3 (241 241 241) #f #f 0 3 #t #f #f))) (k$510 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 160 #f #f #f 2 (154 160) #f #f 1 1 #t #f #t)))) () ((alist$296 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 4 (253 248 245 253) #f #f 0 4 #t #f #f))) (test$239 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (272 5) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t)) 1 0 #f #f #f)))) () () ((alist$299 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f)))) () ((k$517 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 174 #f #f #f 2 (172 163) #f #f 1 1 #t #f #t)))) () ((apply-subst$237 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (258 242 230 146) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (if (assq term$293 alist$294) (k$568 (cdr (assq term$293 alist$294))) (k$568 term$293)))) #t)) 3 0 #f #f #f)))) () () () ((lst2$273 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 105 #f #f #f 4 (105 100 105 105) #f #f 0 4 #t #f #f)))) () ((one-way-unify$226 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (150 135) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t)) 1 0 #f #f #f)))) () () () () () () ((r$621 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #t #f)))) () () () () ((r$626 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))) ((eq? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 7 (357 274 212 181 181 129 56) #f #f 7 0 #t #f #f)))) ((current-output-port . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (421 390 439) #f #f 3 0 #f #f #f)))) () () () () () () () ((rewrites$358 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 466 #f #f #f 2 (466 466) #f #f 0 2 #t #f #f))) (trans-of-implies1$218 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (77 63 70) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t)) 2 0 #f #f #f)))) () () () () () () () ((k$528 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t)))) () () () () () () () () () () () () () () ((r$632 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))) ((r$633 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f))) (v$350 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))) (newline . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 4 (422 391 399 440) #f #f 4 0 #f #f #f)))) () () () () () ((r$639 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) ((main . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 484 #f #f 2 (1 -1) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((run-r7rs-benchmark k$754 r$760 count$352 #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #t)))) #f)) (string-append "sboyer" ":" s1$356 ":" s2$355))) #f)) (number->string input$353))) #f)) (number->string count$352))) #f)))) #f)))) #f)))) #t))) 1 0 #f #f #f)))) () () () () () ((k$530 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 181 #f #f #f 2 (181 181) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)) 2 0 #t #f #t)))) () () () () () ((k$536 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 8 (212 212 197 197 202 204 212 213) #f #f 5 3 #t #f #t)))) () () () () () ((s2$355 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 476 #f #f #f 1 (474) #f (number->string count$352) 0 1 #t #f #f)))) () () () () () ((r$348 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f)))) () () ((r$640 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f)))) () () () () ((r$645 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f)))) () () () ((r$649 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) () () () () () () () () () ((j/s$333 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 435 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) () () ((null? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (367 327 253 230 160 150 105 105 105 44 44 44 30) #f #f 13 0 #t #f #f)))) () () () () () ((term-args-equal?$216 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (56 39 45) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t)) 2 0 #f #f #f)))) () () ((caar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (245) #f #f 1 0 #t #f #f)))) () () () () () ((r$650 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f)))) () () () ((r$654 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 348 #f #f #f 1 (341) #f (cadr term$324) 0 1 #t #f #f))) (original$284 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 3 (177 181 181) #f #f 0 3 #t #f #f)))) ((cdar . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (253) #f #f 1 0 #t #f #f)))) () ((number->string . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f)))) () () () () ((this-scheme-implementation-name . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 382 #f #f 2 (-1 397) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) 1 0 #f #f #f)))) ((number? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f)))) () () ((rewrite-count$232 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 5 (184 174 173 6 3) #t 0 0 2 #f #f #f)))) () () () ((setup$254 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (372) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t)) 0 0 #t #f #f)))) () ((k$556 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (219) #f #f 0 1 #t #f #t))) (write . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (423 402 404) #f #f 3 0 #f #f #f)))) ((vector-set! . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (306 283) #f #f 2 0 #t #f #f))) (add-lemma-lst$253 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (371 363 368 9) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t)) 3 0 #f #f #f)))) () () ((r$360 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 376 #f #f #f 0 () #f (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) 0 0 #t #f #f))) (one-way-unify1$225 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (132 130 105) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t)) 2 0 #f #f #f)))) ((r$361 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 374 #f #f #f 0 () #f (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))) 0 0 #t #f #f)))) ((alist . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 #f #f #f 3 (-1 -1 468) #t '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))) 0 1 #f #f #f))) (r$362 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 1 #f #f #f 0 () #f (set! test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t))) 0 0 #t #f #f)))) ((r$363 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 368 #f #f #f 0 () #f (set! setup$254 #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t))) 0 0 #t #f #f)))) ((true-term$220 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (86 80 10) #t '* 0 1 #f #f #f))) (r$364 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 359 #f #f #f 0 () #f (set! add-lemma-lst$253 #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t))) 0 0 #t #f #f)))) ((r$365 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 338 #f #f #f 0 () #f (set! add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t))) 0 0 #t #f #f)))) ((r$366 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 328 #f #f #f 0 () #f (set! translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t))) 0 0 #t #f #f)))) ((r$367 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 318 #f #f #f 0 () #f (set! translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t))) 0 0 #t #f #f)))) ((r$368 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 308 #f #f #f 0 () #f (set! untranslate-term$249 #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons (vector-ref (car term$321) 0) r$626))) #f)) untranslate-term$249 (cdr term$321)) (k$623 term$321))) #t))) 0 0 #t #f #f)))) ((r$369 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 304 #f #f #f 0 () #f (set! put$248 #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((k$620 (vector-set! r$621 1 value$318))) #f)) sym$320)) #t))) 0 0 #t #f #f)))) () () ((j0$335 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 431 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f)))) () () ((r$664 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () () () () () () () ((k$561 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 230 #f #f #f 2 (224 230) #f #f 2 0 #t #f #t)))) () () () ((count$328 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f)))) () () ((k$568 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 241 #f #f #f 3 (241 241 233) #f #f 3 0 #t #f #t)))) () ((r$370 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 300 #f #f #f 0 () #f (set! get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f)) sym$317)) #t))) 0 0 #t #f #f)))) ((r$371 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 290 #f #f #f 0 () #f (set! symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons (cons sym$313 r$315) *symbol-records-alist*$245))) #f)) sym$313 '()))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t))) 0 0 #t #f #f)))) ((map . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (317) #f #f 1 0 #f #f #f))) (r$372 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 288 #f #f #f 0 () #f (set! *symbol-records-alist*$245 '()) 0 0 #t #f #f)))) ((r$373 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 284 #f #f #f 0 () #f (set! make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t))) 0 0 #t #f #f)))) ((r$374 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 281 #f #f #f 0 () #f (set! put-lemmas!$243 #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t))) 0 0 #t #f #f)))) ((r$375 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 278 #f #f #f 0 () #f (set! get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t))) 0 0 #t #f #f))) (term1$276 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 129 #f #f #f 6 (125 125 125 129 129 129) #f #f 0 6 #t #f #f)))) ((r2$306 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))) (r$376 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 275 #f #f #f 0 () #f (set! get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t))) 0 0 #t #f #f)))) ((r$377 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 272 #f #f #f 0 () #f (set! symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t))) 0 0 #t #f #f)))) ((r$378 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 254 #f #f #f 0 () #f (set! test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t))) 0 0 #t #f #f))) (term1$279 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))) ((r$379 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 242 #f #f #f 0 () #f (set! translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t))) 0 0 #t #f #f)))) () () () () () () ((r$675 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f)))) () () ((scons$231 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (183 166 154) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t)) 2 0 #f #f #f)))) ((r$679 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 442 #f #f #f 0 () #f (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))) 0 0 #t #f #f)))) () () () () () ((translate-args$250 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (332 323 328) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t)) 2 0 #f #f #f)))) () ((term-member?$215 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 4 (89 84 27 31) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t)) 3 0 #f #f #f)))) () ((equal? . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (125 69 56) #f #f 3 0 #t #f #f)))) () ((k$575 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 253 #f #f #f 2 (245 253) #f #f 2 0 #t #f #t)))) () ((%halt . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f)))) () () ((r$380 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 231 #f #f #f 0 () #f (set! apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (if (assq term$293 alist$294) (k$568 (cdr (assq term$293 alist$294))) (k$568 term$293)))) #t))) 0 0 #t #f #f)))) ((r$381 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 221 #f #f #f 0 () #f (set! apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t))) 0 0 #t #f #f)))) ((r$382 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 215 #f #f #f 0 () #f (set! tautp$235 #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t))) 0 0 #t #f #f)))) ((r$383 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 186 #f #f #f 0 () #f (set! tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t))) 0 0 #t #f #f))) (x$260 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 30 #f #f #f 2 (30 27) #f #f 0 2 #t #f #f)))) ((r$384 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 184 #f #f #f 0 () #f (set! if-constructor$233 '*) 0 0 #t #f #f)))) ((cadr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 8 (351 345 357 212 204 202 197 150) #f #f 8 0 #t #f #f))) (r$385 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 183 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f)))) ((r$386 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 175 #f #f #f 0 () #f (set! scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t))) 0 0 #t #f #f)))) ((rewrite-with-lemmas$228 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (163 146 151) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t)) 2 0 #f #f #f))) (r$387 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 161 #f #f #f 0 () #f (set! rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((if (pair? term$283) (rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(163 (r$521) ((rewrite-with-lemmas$228 k$517 r$520 r$521)) #f)) (vector-ref (car term$283) 1))) #f)) (car term$283) r$524 term$283)) #f)) (cdr term$283)) (k$517 term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t))) 0 0 #t #f #f))) (x$264 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 56 #f #f #f 4 (56 56 56 56) #f #f 0 4 #t #f #f)))) ((r$388 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 151 #f #f #f 0 () #f (set! rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((if (null? lst$282) (k$510 '()) (rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) (cdr lst$282))) #f)) (car lst$282)))) #t))) 0 0 #t #f #f)))) ((r$389 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 137 #f #f #f 0 () #f (set! rewrite-with-lemmas$228 #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t))) 0 0 #t #f #f)))) () ((r$680 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f))) (x$268 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #t #f #f)))) ((r$681 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$682 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$683 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))) (falsep$223 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (204 213 92) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t)) 2 0 #f #f #f)))) () () ((hide . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? -1 461 #f #f 2 (-1 469) #f (#((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((call-with-values k$730 #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) (((vector-ref v$350 i$349) k$733 x$347)) #t)))) #t))) 1 0 #f #f #f)))) ((r$687 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 383 #f #f #f 0 () #f (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))) 0 0 #t #f #f)))) () () () ((t0$334 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 433 #f #f #f 1 (414) #f #f 0 1 #t #f #f)))) () ((temp-temp$277 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 125 #f #f #f 2 (125 125) #f (assq term2$275 unify-subst$227) 0 1 #t #f #f)))) () () () () () () ((k$584 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 271 #f #f #f 1 (256) #f #f 0 1 #t #f #t)))) () () () () ((true-lst$288 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 6 (214 212 202 197 202 204) #f #f 0 6 #t #f #f)))) ((r$390 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 135 #f #f #f 0 () #f (set! unify-subst$227 '*) 0 0 #t #f #f)))) ((r$391 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 130 #f #f #f 0 () #f (set! one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t))) 0 0 #t #f #f)))) ((r$392 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 106 #f #f #f 0 () #f (set! one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t))) 0 0 #t #f #f)))) ((r$393 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 92 #f #f #f 0 () #f (set! one-way-unify1-lst$224 #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t))) 0 0 #t #f #f)))) ((r$394 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 87 #f #f #f 0 () #f (set! falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t))) 0 0 #t #f #f))) (x$271 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #t #f #f)))) ((r$395 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 82 #f #f #f 0 () #f (set! truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t))) 0 0 #t #f #f)))) ((r$396 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 80 #f #f #f 0 () #f (set! false-term$221 '*) 0 0 #t #f #f)))) ((r$397 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 78 #f #f #f 0 () #f (set! true-term$220 '*) 0 0 #t #f #f)))) ((r$398 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 70 #f #f #f 0 () #f (set! trans-of-implies$219 #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t))) 0 0 #t #f #f)))) ((r$399 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 57 #f #f #f 0 () #f (set! trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t))) 0 0 #t #f #f)))) () ((display . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 13 (425 392 393 394 395 396 398 400 401 403 406 441 442) #f #f 13 0 #f #f #f)))) ((r$400 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 45 #f #f #f 0 () #f (set! term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t))) 0 0 #t #f #f))) (caddr . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 3 (202 204 146) #f #f 3 0 #t #f #f)))) ((r$692 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f))) (r$401 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 31 #f #f #f 0 () #f (set! term-args-equal?$216 #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t))) 0 0 #t #f #f)))) ((r$693 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f))) (r$402 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 21 #f #f #f 0 () #f (set! term-member?$215 #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t))) 0 0 #t #f #f)))) ((r$694 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f))) (r$403 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 7 #f #f #f 0 () #f (set! setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((add-lemma-lst$253 k$409 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t))) 0 0 #t #f #f)))) () () ((r$406 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 5 #f #f #f 0 () #f (set! rewrite-count$232 0) 0 0 #t #f #f)))) () () () () ((r$700 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$701 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$702 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((count$352 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 482 #f #f #f 3 (478 469 471) #f #f 0 3 #f #f #f))) (r$703 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$704 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((k$591 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 267 #f #f #f 2 (263 267) #f #f 1 1 #t #f #t))) (r$705 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$706 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$707 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$708 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$709 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () ((k$598 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t)))) () () () ((k$600 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t)))) () ((k$602 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t)))) ((trans-of-implies$219 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (78) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t)) 0 0 #f #f #f)))) ((k$604 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t)))) () ((k$606 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #t))) (round__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f)))) ((x$286 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f)))) () () ((x$289 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 214 #f #f #f 12 (214 213 212 204 202 202 197 197 202 204 212 212) #f #f 0 12 #t #f #f))) (r$410 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 18 #f #f #f 0 () #f (set! *symbol-records-alist*$245 '()) 0 0 #t #f #f))) (cons . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 15 (341 330 321 310 295 295 245 245 233 224 202 197 177 125 125) #f #f 15 0 #t #f #f)))) ((r$411 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 15 #f #f #f 0 () #f (set! if-constructor$233 r$418) 0 0 #t #f #f)))) ((r$412 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 12 #f #f #f 0 () #f (set! false-term$221 r$416) 0 0 #t #f #f)))) ((r$413 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 9 #f #f #f 0 () #f (set! true-term$220 r$414) 0 0 #t #f #f)))) ((r$414 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f)))) () ((r$416 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f)))) () ((r$418 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f)))) () () ((r$710 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$711 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$712 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$713 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$714 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f)))) ((r$715 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f)))) () ((translate-alist$238 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (271 248 254) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t)) 2 0 #f #f #f)))) ((r$718 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$719 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f)))) () () () () () () ((k$610 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t)))) ((x$290 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f)))) () () () () () ((k$617 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 303 #f #f #f 1 (302) #f #f 1 0 #t #f #t))) (tautp$235 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 2 (256 221) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t)) 1 0 #f #f #f)))) () () () () () () ((r$424 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f)))) () () () () () () ((r$720 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$721 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f)))) ((r$722 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f)))) ((r$723 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f)))) () () () ((one-way-unify1-lst$224 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 3 (129 100 106) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t)) 2 0 #f #f #f)))) () () () ((inexact__inline__ . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 2 (404 392) #f #f 2 0 #t #f #f)))) () () () () ((k$620 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 307 #f #f #f 1 (306) #f #f 1 0 #t #f #t)))) () () ((k$623 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 317 #f #f #f 2 (317 310) #f #f 2 0 #t #f #t)))) () () () () () () ((jiffies-per-second . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f)))) ((r$431 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f)))) () () () () () ((x$314 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 297 #f #f #f 2 (297 297) #f (assq sym$313 *symbol-records-alist*$245) 0 1 #t #f #f)))) () () () ((put-lemmas!$243 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 372 #f #f #f 1 (284) #f #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t)) 0 0 #f #f #f)))) () ((ok?$326 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f)))) () () () ((r$736 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f)))) ((r$737 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f)))) () () () () ((vector-ref . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(? ? #f #f #f 6 (310 302 280 277 165 452) #f #f 6 0 #t #f #f)))) () () () ((k$630 . #((record-marker) #((record-marker) #f (global defined-by defines-lambda-id const const-value ref-count ref-by reassigned assigned-value app-fnc-count app-arg-count inlinable mutated-indirectly cont)) #(#f 327 #f #f #f 2 (321 327) #f #f 2 0 #t #f #t)))) () () () ((-1 . #((record-marker) #((record-marker) #f (simple unused-params assigned-to-var side-effects)) #(? ? () #t))))))) */ /* "---------------- after cps optimizations (3):" */ /* ((define main #((record-marker) #((record-marker) #f (id args body has-cont)) #(484 (k$754) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(482 (count$352) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(480 (input$353) ((read #((record-marker) #((record-marker) #f (id args body has-cont)) #(478 (output$354) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(476 (s2$355) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(474 (s1$356) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(471 (r$760) ((run-r7rs-benchmark k$754 r$760 count$352 #((record-marker) #((record-marker) #f (id args body has-cont)) #(470 (k$765) ((setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(469 (r$766) ((hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(468 (r$767) ((test-boyer k$765 alist term r$767)) #f)) count$352 input$353)) #f)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(466 (k$763 rewrites$358) ((if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))) #t)))) #f)) (string-append "sboyer" ":" s1$356 ":" s2$355))) #f)) (number->string input$353))) #f)) (number->string count$352))) #f)))) #f)))) #f)))) #t))) (define alist #f) (define term #f) (define setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(463 (k$747) ((k$747 #t)) #t))) (define test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(462 (k$744) ((k$744 #t)) #t))) (define hide #((record-marker) #((record-marker) #f (id args body has-cont)) #(461 (k$730 r$348 x$347) ((call-with-values k$730 #((record-marker) #((record-marker) #f (id args body has-cont)) #(460 (k$735) ((vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(457 (r$736) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(456 (k$738) ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(454 (r$737) ((values k$735 r$736 r$737)) #f)))) #f)) values #((record-marker) #((record-marker) #f (id args body has-cont)) #(459 (k$741 x$351) ((k$741 x$351)) #t)))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(452 (k$733 v$350 i$349) (((vector-ref v$350 i$349) k$733 x$347)) #t)))) #t))) (define run-r7rs-benchmark #((record-marker) #((record-marker) #f (id args body has-cont)) #(449 (k$678 name$329 count$328 thunk$327 ok?$326) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(448 (rounded$331) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(442 (r$679) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(441 (r$680) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(440 (r$681) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(439 (r$682) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(438 (r$723) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(437 (r$683) ((jiffies-per-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(435 (j/s$333) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(433 (t0$334) ((current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(431 (j0$335) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(428 (loop$338) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(383 (r$687) ((loop$338 k$678 0 #f)) #f)) (set! loop$338 #((record-marker) #((record-marker) #f (id args body has-cont)) #(427 (k$689 i$340 result$339) ((if (Cyc-fast-lt i$340 count$328) (thunk$327 #((record-marker) #((record-marker) #f (id args body has-cont)) #(385 (r$692) ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692)) #f))) (ok?$326 #((record-marker) #((record-marker) #f (id args body has-cont)) #(425 (r$693) ((if r$693 (current-jiffy #((record-marker) #((record-marker) #f (id args body has-cont)) #(416 (j1$341) ((current-second #((record-marker) #((record-marker) #f (id args body has-cont)) #(414 (t1$342) ((rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(406 (secs2$345) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(404 (r$700) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(403 (r$701) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(402 (r$702) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(401 (r$703) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(400 (r$704) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(399 (r$705) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(398 (r$706) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(397 (r$707) ((this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(396 (r$715) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(395 (r$708) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(394 (r$709) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(393 (r$710) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(392 (r$711) ((display #((record-marker) #((record-marker) #f (id args body has-cont)) #(391 (r$712) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(390 (r$713) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(389 (r$714) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(388 (r$694) ((k$689 result$339)) #f)) r$714)) #f)))) #f)))) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) ",")) #f)) name$329)) #f)) ",")) #f)) r$715)) #f)))) #f)) "+!CSVLINE!+")) #f)))) #f)) name$329)) #f)) ") for ")) #f)) secs2$345)) #f)) " seconds (")) #f)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) #f)) "Elapsed time: ")) #f)) (Cyc-fast-sub t1$342 t0$334))) #f)))) #f))) (display #((record-marker) #((record-marker) #f (id args body has-cont)) #(423 (r$718) ((write #((record-marker) #((record-marker) #f (id args body has-cont)) #(422 (r$719) ((newline #((record-marker) #((record-marker) #f (id args body has-cont)) #(421 (r$720) ((current-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(420 (r$722) ((flush-output-port #((record-marker) #((record-marker) #f (id args body has-cont)) #(419 (r$721) ((k$689 result$339)) #f)) r$722)) #f)))) #f)))) #f)) result$339)) #f)) "ERROR: returned incorrect result: "))) #f)) result$339))) #t))))) #f)) #f)) #f)))) #f)))) #f)))) #f)) r$723)) #f)))) #f)))) #f)) name$329)) #f)) "Running ")) #f)) (set! rounded$331 #((record-marker) #((record-marker) #f (id args body has-cont)) #(446 (k$725 x$346) ((k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))) #t))))) #f)) #f)) #t))) (define this-scheme-implementation-name #((record-marker) #((record-marker) #f (id args body has-cont)) #(382 (k$674) ((Cyc-version #((record-marker) #((record-marker) #f (id args body has-cont)) #(381 (r$675) ((k$674 (string-append "cyclone-" r$675))) #f)))) #t))) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(376 (r$360) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(374 (r$361) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(372 (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(368 (r$363) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(359 (r$364) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(338 (r$365) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(328 (r$366) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(318 (r$367) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(308 (r$368) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(304 (r$369) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(300 (r$370) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(290 (r$371) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(288 (r$372) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(284 (r$373) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(281 (r$374) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(278 (r$375) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(275 (r$376) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(272 (r$377) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(254 (r$378) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(242 (r$379) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(231 (r$380) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(221 (r$381) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(215 (r$382) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(186 (r$383) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(184 (r$384) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(183 (r$385) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(175 (r$386) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(161 (r$387) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(151 (r$388) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(137 (r$389) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(135 (r$390) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(130 (r$391) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(106 (r$392) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(92 (r$393) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(87 (r$394) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(82 (r$395) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(80 (r$396) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(78 (r$397) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(70 (r$398) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(57 (r$399) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(45 (r$400) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(31 (r$401) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(21 (r$402) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(7 (r$403) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(1 (r$362) ((main %halt)) #f)) (set! test-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(6 (k$405 alist$257 term$256 n$255) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(5 (r$406) ((test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(3 (answer$258) ((if answer$258 (k$405 rewrite-count$232) (k$405 #f))) #f)) alist$257 term$256 n$255)) #f)) (set! rewrite-count$232 0))) #t))))) #f)) (set! setup-boyer #((record-marker) #((record-marker) #f (id args body has-cont)) #(20 (k$409) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(18 (r$410) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(16 (r$418) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(15 (r$411) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(13 (r$416) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(12 (r$412) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(10 (r$414) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(9 (r$413) ((add-lemma-lst$253 k$409 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #f)) (set! true-term$220 r$414))) #f)) '(t))) #f)) (set! false-term$221 r$416))) #f)) '(f))) #f)) (set! if-constructor$233 r$418))) #f)) 'if)) #f)) (set! *symbol-records-alist*$245 '()))) #t))))) #f)) (set! term-member?$215 #((record-marker) #((record-marker) #f (id args body has-cont)) #(30 (k$422 x$260 lst$259) ((if (null? lst$259) (k$422 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(27 (r$424) ((if r$424 (k$422 #t) (term-member?$215 k$422 x$260 (cdr lst$259)))) #f)) x$260 (car lst$259)))) #t))))) #f)) (set! term-args-equal?$216 #((record-marker) #((record-marker) #f (id args body has-cont)) #(44 (k$428 lst1$262 lst2$261) ((if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) (term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(39 (r$431) ((if r$431 (term-args-equal?$216 k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) #f)) (car lst1$262) (car lst2$261))))) #t))))) #f)) (set! term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(56 (k$437 x$264 y$263) ((if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) (term-args-equal?$216 k$437 (cdr x$264) (cdr y$263)) (k$437 #f)) (k$437 #f)) (k$437 (equal? x$264 y$263)))) #t))))) #f)) (set! trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(69 (k$446 n$265) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(68 (r$447) ((if r$447 (list k$446 'implies 0 1) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(64 (r$454) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(63 (r$450) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(61 (r$451) ((list k$446 'and r$450 r$451)) #f)) (Cyc-fast-sub n$265 1))) #f)) 'implies r$454 n$265)) #f)) (Cyc-fast-sub n$265 1)))) #f)) (equal? n$265 1))) #t))))) #f)) (set! trans-of-implies$219 #((record-marker) #((record-marker) #f (id args body has-cont)) #(77 (k$456 n$266) ((trans-of-implies1$218 #((record-marker) #((record-marker) #f (id args body has-cont)) #(75 (r$459) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(73 (r$460) ((list #((record-marker) #((record-marker) #f (id args body has-cont)) #(72 (r$457) ((translate-term$251 k$456 r$457)) #f)) 'implies r$459 r$460)) #f)) 'implies 0 n$266)) #f)) n$266)) #t))))) #f)) (set! true-term$220 '*))) #f)) (set! false-term$221 '*))) #f)) (set! truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(86 (k$465 x$268 lst$267) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(84 (tmp$120$269) ((if tmp$120$269 (k$465 tmp$120$269) (term-member?$215 k$465 x$268 lst$267))) #f)) x$268 true-term$220)) #t))))) #f)) (set! falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(91 (k$468 x$271 lst$270) ((term-equal?$217 #((record-marker) #((record-marker) #f (id args body has-cont)) #(89 (tmp$117$272) ((if tmp$117$272 (k$468 tmp$117$272) (term-member?$215 k$468 x$271 lst$270))) #f)) x$271 false-term$221)) #t))))) #f)) (set! one-way-unify1-lst$224 #((record-marker) #((record-marker) #f (id args body has-cont)) #(105 (k$471 lst1$274 lst2$273) ((if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) (one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(100 (r$474) ((if r$474 (one-way-unify1-lst$224 k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) #f)) (car lst1$274) (car lst2$273))))) #t))))) #f)) (set! one-way-unify1$225 #((record-marker) #((record-marker) #f (id args body has-cont)) #(129 (k$480 term1$276 term2$275) ((if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) (one-way-unify1-lst$224 k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(125 (temp-temp$277) ((if temp-temp$277 (term-equal?$217 k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) (#((record-marker) #((record-marker) #f (id args body has-cont)) #(121 (r$492) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(120 (r$491) ((k$480 #t)) #f)) (set! unify-subst$227 r$492))) #f)) (cons (cons term2$275 term1$276) unify-subst$227))))) #f)) (assq term2$275 unify-subst$227)))) #t))))) #f)) (set! one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(134 (k$495 term1$279 term2$278) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(132 (r$496) ((one-way-unify1$225 k$495 term1$279 term2$278)) #f)) (set! unify-subst$227 '()))) #t))))) #f)) (set! unify-subst$227 '*))) #f)) (set! rewrite-with-lemmas$228 #((record-marker) #((record-marker) #f (id args body has-cont)) #(150 (k$500 term$281 lst$280) ((if (null? lst$280) (k$500 term$281) (one-way-unify$226 #((record-marker) #((record-marker) #f (id args body has-cont)) #(146 (r$502) ((if r$502 (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(140 (r$503) ((rewrite$230 k$500 r$503)) #f)) unify-subst$227 (caddr (car lst$280))) (rewrite-with-lemmas$228 k$500 term$281 (cdr lst$280)))) #f)) term$281 (cadr (car lst$280))))) #t))))) #f)) (set! rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(160 (k$510 lst$282) ((if (null? lst$282) (k$510 '()) (rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(156 (r$512) ((rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(154 (r$513) ((scons$231 k$510 r$512 r$513 lst$282)) #f)) (cdr lst$282))) #f)) (car lst$282)))) #t))))) #f)) (set! rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(174 (k$517 term$283) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(173 (r$526) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(172 (r$518) ((if (pair? term$283) (rewrite-args$229 #((record-marker) #((record-marker) #f (id args body has-cont)) #(166 (r$524) ((scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(165 (r$520) ((rewrite-with-lemmas$228 k$517 r$520 (vector-ref (car term$283) 1))) #f)) (car term$283) r$524 term$283)) #f)) (cdr term$283)) (k$517 term$283))) #f)) (set! rewrite-count$232 r$526))) #f)) (Cyc-fast-plus rewrite-count$232 1))) #t))))) #f)) (set! scons$231 #((record-marker) #((record-marker) #f (id args body has-cont)) #(182 (k$528 x$286 y$285 original$284) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(181 (k$530) ((if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(177 (r$529) ((if r$529 (k$528 original$284) (k$528 (cons x$286 y$285)))) #f)))) #t))))) #f)) (set! rewrite-count$232 0))) #f)) (set! if-constructor$233 '*))) #f)) (set! tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(214 (k$536 x$289 true-lst$288 false-lst$287) ((truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(213 (r$537) ((if r$537 (k$536 #t) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(212 (r$538) ((if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) if-constructor$233) (truep$222 #((record-marker) #((record-marker) #f (id args body has-cont)) #(204 (r$541) ((if r$541 (tautologyp$234 k$536 (caddr x$289) true-lst$288 false-lst$287) (falsep$223 #((record-marker) #((record-marker) #f (id args body has-cont)) #(202 (r$543) ((if r$543 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 false-lst$287) (tautologyp$234 #((record-marker) #((record-marker) #f (id args body has-cont)) #(197 (r$545) ((if r$545 (tautologyp$234 k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) #f)) (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287))) #f)) (cadr x$289) false-lst$287))) #f)) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) #f)) x$289 false-lst$287))) #f)) x$289 true-lst$288)) #t))))) #f)) (set! tautp$235 #((record-marker) #((record-marker) #f (id args body has-cont)) #(220 (k$556 x$290) ((rewrite$230 #((record-marker) #((record-marker) #f (id args body has-cont)) #(219 (r$557) ((tautologyp$234 k$556 r$557 '() '())) #f)) x$290)) #t))))) #f)) (set! apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(230 (k$561 alist$292 lst$291) ((if (null? lst$291) (k$561 '()) (apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(226 (r$563) ((apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(224 (r$564) ((k$561 (cons r$563 r$564))) #f)) alist$292 (cdr lst$291))) #f)) alist$292 (car lst$291)))) #t))))) #f)) (set! apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(241 (k$568 alist$294 term$293) ((if (pair? term$293) (apply-subst-lst$236 #((record-marker) #((record-marker) #f (id args body has-cont)) #(233 (r$571) ((k$568 (cons (car term$293) r$571))) #f)) alist$294 (cdr term$293)) (if (assq term$293 alist$294) (k$568 (cdr (assq term$293 alist$294))) (k$568 term$293)))) #t))))) #f)) (set! translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(253 (k$575 alist$296) ((if (null? alist$296) (k$575 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(248 (r$581) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(245 (r$578) ((k$575 (cons (cons (caar alist$296) r$581) r$578))) #f)) (cdr alist$296))) #f)) (cdar alist$296)))) #t))))) #f)) (set! test$239 #((record-marker) #((record-marker) #f (id args body has-cont)) #(271 (k$584 alist$299 term$298 n$297) ((translate-alist$238 #((record-marker) #((record-marker) #f (id args body has-cont)) #(270 (r$586) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(269 (term$301 n$300) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(268 (lp$37$302) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(260 (r$589) ((lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(259 (r$588) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(258 (r$587) ((apply-subst$237 #((record-marker) #((record-marker) #f (id args body has-cont)) #(256 (term$305) ((tautp$235 k$584 term$305)) #f)) r$586 r$587)) #f)) r$588)) #f)) term$301 n$300)) #f)) (set! lp$37$302 #((record-marker) #((record-marker) #f (id args body has-cont)) #(267 (k$591 term$304 n$303) ((if (zero?__inline__ n$303) (k$591 term$304) (list #((record-marker) #((record-marker) #f (id args body has-cont)) #(263 (r$593) ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1))) #f)) 'or term$304 '(f)))) #t))))) #f)) #f)) #f)) term$298 n$297)) #f)) alist$299)) #t))))) #f)) (set! symbol-record-equal?$240 #((record-marker) #((record-marker) #f (id args body has-cont)) #(274 (k$598 r1$307 r2$306) ((k$598 (eq? r1$307 r2$306))) #t))))) #f)) (set! get-name$241 #((record-marker) #((record-marker) #f (id args body has-cont)) #(277 (k$600 symbol-record$308) ((k$600 (vector-ref symbol-record$308 0))) #t))))) #f)) (set! get-lemmas$242 #((record-marker) #((record-marker) #f (id args body has-cont)) #(280 (k$602 symbol-record$309) ((k$602 (vector-ref symbol-record$309 1))) #t))))) #f)) (set! put-lemmas!$243 #((record-marker) #((record-marker) #f (id args body has-cont)) #(283 (k$604 symbol-record$311 lemmas$310) ((k$604 (vector-set! symbol-record$311 1 lemmas$310))) #t))))) #f)) (set! make-symbol-record$244 #((record-marker) #((record-marker) #f (id args body has-cont)) #(287 (k$606 sym$312) ((vector k$606 sym$312 '())) #t))))) #f)) (set! *symbol-records-alist*$245 '()))) #f)) (set! symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(299 (k$610 sym$313) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(297 (x$314) ((if x$314 (k$610 (cdr x$314)) (vector #((record-marker) #((record-marker) #f (id args body has-cont)) #(295 (r$315) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(293 (r$614) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(292 (r$613) ((k$610 r$315)) #f)) (set! *symbol-records-alist*$245 r$614))) #f)) (cons (cons sym$313 r$315) *symbol-records-alist*$245))) #f)) sym$313 '()))) #f)) (assq sym$313 *symbol-records-alist*$245))) #t))))) #f)) (set! get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(303 (k$617 sym$317 property$316) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f)) sym$317)) #t))))) #f)) (set! put$248 #((record-marker) #((record-marker) #f (id args body has-cont)) #(307 (k$620 sym$320 property$319 value$318) ((symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(306 (r$621) ((k$620 (vector-set! r$621 1 value$318))) #f)) sym$320)) #t))))) #f)) (set! untranslate-term$249 #((record-marker) #((record-marker) #f (id args body has-cont)) #(317 (k$623 term$321) ((if (pair? term$321) (map #((record-marker) #((record-marker) #f (id args body has-cont)) #(310 (r$626) ((k$623 (cons (vector-ref (car term$321) 0) r$626))) #f)) untranslate-term$249 (cdr term$321)) (k$623 term$321))) #t))))) #f)) (set! translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(327 (k$630 lst$322) ((if (null? lst$322) (k$630 '()) (translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(323 (r$632) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(321 (r$633) ((k$630 (cons r$632 r$633))) #f)) (cdr lst$322))) #f)) (car lst$322)))) #t))))) #f)) (set! translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(337 (k$637 term$323) ((if (pair? term$323) (symbol->symbol-record$246 #((record-marker) #((record-marker) #f (id args body has-cont)) #(332 (r$639) ((translate-args$250 #((record-marker) #((record-marker) #f (id args body has-cont)) #(330 (r$640) ((k$637 (cons r$639 r$640))) #f)) (cdr term$323))) #f)) (car term$323)) (k$637 term$323))) #t))))) #f)) (set! add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(358 (k$644 term$324) ((#((record-marker) #((record-marker) #f (id args body has-cont)) #(357 (k$655) ((if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) #t)) #((record-marker) #((record-marker) #f (id args body has-cont)) #(351 (r$645) ((if r$645 (#((record-marker) #((record-marker) #f (id args body has-cont)) #(348 (r$654) ((translate-term$251 #((record-marker) #((record-marker) #f (id args body has-cont)) #(345 (r$649) ((get$247 #((record-marker) #((record-marker) #f (id args body has-cont)) #(341 (r$650) ((put$248 k$644 (car r$654) 'lemmas (cons r$649 r$650))) #f)) (car (cadr term$324)) 'lemmas)) #f)) term$324)) #f)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324))) #f)))) #t))))) #f)) (set! add-lemma-lst$253 #((record-marker) #((record-marker) #f (id args body has-cont)) #(367 (k$662 lst$325) ((if (null? lst$325) (k$662 #t) (add-lemma$252 #((record-marker) #((record-marker) #f (id args body has-cont)) #(363 (r$664) ((add-lemma-lst$253 k$662 (cdr lst$325))) #f)) (car lst$325)))) #t))))) #f)) (set! setup$254 #((record-marker) #((record-marker) #f (id args body has-cont)) #(371 (k$668) ((add-lemma-lst$253 k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) #t))))) #f)) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) #f)) (set! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) #f)) (set! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) */ /* "---------------- after wrap-mutables:" */ /* ((define main (lambda (k$754) (read (lambda (count$352) (read (lambda (input$353) (read (lambda (output$354) ((lambda (s2$355) ((lambda (s1$356) ((lambda (r$760) (run-r7rs-benchmark k$754 r$760 count$352 (lambda (k$765) (setup-boyer (lambda (r$766) (hide (lambda (r$767) (test-boyer k$765 alist term r$767)) count$352 input$353)))) (lambda (k$763 rewrites$358) (if (number? rewrites$358) (k$763 (Cyc-fast-eq rewrites$358 output$354)) (k$763 #f))))) (string-append "sboyer" ":" s1$356 ":" s2$355))) (number->string input$353))) (number->string count$352)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$747) (k$747 #t))) (define test-boyer (lambda (k$744) (k$744 #t))) (define hide (lambda (k$730 r$348 x$347) (call-with-values k$730 (lambda (k$735) (vector (lambda (r$736) ((lambda (k$738) (if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1))) (lambda (r$737) (values k$735 r$736 r$737)))) values (lambda (k$741 x$351) (k$741 x$351)))) (lambda (k$733 v$350 i$349) ((vector-ref v$350 i$349) k$733 x$347))))) (define run-r7rs-benchmark (lambda (k$678 name$329 count$328 thunk$327 ok?$326) ((lambda (rounded$331) ((lambda (rounded$331) ((lambda (r$679) (display (lambda (r$680) (display (lambda (r$681) (newline (lambda (r$682) (current-output-port (lambda (r$723) (flush-output-port (lambda (r$683) (jiffies-per-second (lambda (j/s$333) (current-second (lambda (t0$334) (current-jiffy (lambda (j0$335) ((lambda (loop$338) ((lambda (loop$338) ((lambda (r$687) ((cell-get loop$338) k$678 0 #f)) (set-cell! loop$338 (lambda (k$689 i$340 result$339) (if (Cyc-fast-lt i$340 count$328) (thunk$327 (lambda (r$692) ((cell-get loop$338) k$689 (Cyc-fast-plus i$340 1) r$692))) (ok?$326 (lambda (r$693) (if r$693 (current-jiffy (lambda (j1$341) (current-second (lambda (t1$342) ((cell-get rounded$331) (lambda (secs2$345) (display (lambda (r$700) (write (lambda (r$701) (display (lambda (r$702) (write (lambda (r$703) (display (lambda (r$704) (display (lambda (r$705) (newline (lambda (r$706) (display (lambda (r$707) (this-scheme-implementation-name (lambda (r$715) (display (lambda (r$708) (display (lambda (r$709) (display (lambda (r$710) (display (lambda (r$711) (display (lambda (r$712) (newline (lambda (r$713) (current-output-port (lambda (r$714) (flush-output-port (lambda (r$694) (k$689 result$339)) r$714)))))) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) ",")) name$329)) ",")) r$715)))) "+!CSVLINE!+")))) name$329)) ") for ")) secs2$345)) " seconds (")) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub j1$341 j0$335) j/s$333)))) "Elapsed time: ")) (Cyc-fast-sub t1$342 t0$334)))))) (display (lambda (r$718) (write (lambda (r$719) (newline (lambda (r$720) (current-output-port (lambda (r$722) (flush-output-port (lambda (r$721) (k$689 result$339)) r$722)))))) result$339)) "ERROR: returned incorrect result: "))) result$339)))))) (cell loop$338))) #f)))))))) r$723)))))) name$329)) "Running ")) (set-cell! rounded$331 (lambda (k$725 x$346) (k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000)))))) (cell rounded$331))) #f))) (define this-scheme-implementation-name (lambda (k$674) (Cyc-version (lambda (r$675) (k$674 (string-append "cyclone-" r$675)))))) ((lambda (r$360) ((lambda (r$361) ((lambda (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((lambda (setup$254) ((lambda (add-lemma-lst$253) ((lambda (add-lemma$252) ((lambda (translate-term$251) ((lambda (translate-args$250) ((lambda (untranslate-term$249) ((lambda (put$248) ((lambda (get$247) ((lambda (symbol->symbol-record$246) ((lambda (*symbol-records-alist*$245) ((lambda (make-symbol-record$244) ((lambda (put-lemmas!$243) ((lambda (get-lemmas$242) ((lambda (get-name$241) ((lambda (symbol-record-equal?$240) ((lambda (test$239) ((lambda (translate-alist$238) ((lambda (apply-subst$237) ((lambda (apply-subst-lst$236) ((lambda (tautp$235) ((lambda (tautologyp$234) ((lambda (if-constructor$233) ((lambda (rewrite-count$232) ((lambda (scons$231) ((lambda (rewrite$230) ((lambda (rewrite-args$229) ((lambda (rewrite-with-lemmas$228) ((lambda (unify-subst$227) ((lambda (one-way-unify$226) ((lambda (one-way-unify1$225) ((lambda (one-way-unify1-lst$224) ((lambda (falsep$223) ((lambda (truep$222) ((lambda (false-term$221) ((lambda (true-term$220) ((lambda (trans-of-implies$219) ((lambda (trans-of-implies1$218) ((lambda (term-equal?$217) ((lambda (term-args-equal?$216) ((lambda (term-member?$215) ((lambda (r$363) ((lambda (r$364) ((lambda (r$365) ((lambda (r$366) ((lambda (r$367) ((lambda (r$368) ((lambda (r$369) ((lambda (r$370) ((lambda (r$371) ((lambda (r$372) ((lambda (r$373) ((lambda (r$374) ((lambda (r$375) ((lambda (r$376) ((lambda (r$377) ((lambda (r$378) ((lambda (r$379) ((lambda (r$380) ((lambda (r$381) ((lambda (r$382) ((lambda (r$383) ((lambda (r$384) ((lambda (r$385) ((lambda (r$386) ((lambda (r$387) ((lambda (r$388) ((lambda (r$389) ((lambda (r$390) ((lambda (r$391) ((lambda (r$392) ((lambda (r$393) ((lambda (r$394) ((lambda (r$395) ((lambda (r$396) ((lambda (r$397) ((lambda (r$398) ((lambda (r$399) ((lambda (r$400) ((lambda (r$401) ((lambda (r$402) ((lambda (r$403) ((lambda (r$362) (main %halt)) (set-global! test-boyer (lambda (k$405 alist$257 term$256 n$255) ((lambda (r$406) ((cell-get test$239) (lambda (answer$258) (if answer$258 (k$405 (cell-get rewrite-count$232)) (k$405 #f))) alist$257 term$256 n$255)) (set-cell! rewrite-count$232 0)))))) (set-global! setup-boyer (lambda (k$409) ((lambda (r$410) ((cell-get symbol->symbol-record$246) (lambda (r$418) ((lambda (r$411) ((cell-get translate-term$251) (lambda (r$416) ((lambda (r$412) ((cell-get translate-term$251) (lambda (r$414) ((lambda (r$413) ((cell-get add-lemma-lst$253) k$409 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (set-cell! true-term$220 r$414))) '(t))) (set-cell! false-term$221 r$416))) '(f))) (set-cell! if-constructor$233 r$418))) 'if)) (set-cell! *symbol-records-alist*$245 '())))))) (set-cell! term-member?$215 (lambda (k$422 x$260 lst$259) (if (null? lst$259) (k$422 #f) ((cell-get term-equal?$217) (lambda (r$424) (if r$424 (k$422 #t) ((cell-get term-member?$215) k$422 x$260 (cdr lst$259)))) x$260 (car lst$259))))))) (set-cell! term-args-equal?$216 (lambda (k$428 lst1$262 lst2$261) (if (null? lst1$262) (k$428 (null? lst2$261)) (if (null? lst2$261) (k$428 #f) ((cell-get term-equal?$217) (lambda (r$431) (if r$431 ((cell-get term-args-equal?$216) k$428 (cdr lst1$262) (cdr lst2$261)) (k$428 #f))) (car lst1$262) (car lst2$261)))))))) (set-cell! term-equal?$217 (lambda (k$437 x$264 y$263) (if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) ((cell-get term-args-equal?$216) k$437 (cdr x$264) (cdr y$263)) (k$437 #f)) (k$437 #f)) (k$437 (equal? x$264 y$263))))))) (set-cell! trans-of-implies1$218 (lambda (k$446 n$265) ((lambda (r$447) (if r$447 (list k$446 'implies 0 1) ((lambda (r$454) (list (lambda (r$450) ((cell-get trans-of-implies1$218) (lambda (r$451) (list k$446 'and r$450 r$451)) (Cyc-fast-sub n$265 1))) 'implies r$454 n$265)) (Cyc-fast-sub n$265 1)))) (equal? n$265 1)))))) (set-cell! trans-of-implies$219 (lambda (k$456 n$266) ((cell-get trans-of-implies1$218) (lambda (r$459) (list (lambda (r$460) (list (lambda (r$457) ((cell-get translate-term$251) k$456 r$457)) 'implies r$459 r$460)) 'implies 0 n$266)) n$266))))) (set-cell! true-term$220 '*))) (set-cell! false-term$221 '*))) (set-cell! truep$222 (lambda (k$465 x$268 lst$267) ((cell-get term-equal?$217) (lambda (tmp$120$269) (if tmp$120$269 (k$465 tmp$120$269) ((cell-get term-member?$215) k$465 x$268 lst$267))) x$268 (cell-get true-term$220)))))) (set-cell! falsep$223 (lambda (k$468 x$271 lst$270) ((cell-get term-equal?$217) (lambda (tmp$117$272) (if tmp$117$272 (k$468 tmp$117$272) ((cell-get term-member?$215) k$468 x$271 lst$270))) x$271 (cell-get false-term$221)))))) (set-cell! one-way-unify1-lst$224 (lambda (k$471 lst1$274 lst2$273) (if (null? lst1$274) (k$471 (null? lst2$273)) (if (null? lst2$273) (k$471 #f) ((cell-get one-way-unify1$225) (lambda (r$474) (if r$474 ((cell-get one-way-unify1-lst$224) k$471 (cdr lst1$274) (cdr lst2$273)) (k$471 #f))) (car lst1$274) (car lst2$273)))))))) (set-cell! one-way-unify1$225 (lambda (k$480 term1$276 term2$275) (if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) ((cell-get one-way-unify1-lst$224) k$480 (cdr term1$276) (cdr term2$275)) (k$480 #f)) (k$480 #f)) ((lambda (temp-temp$277) (if temp-temp$277 ((cell-get term-equal?$217) k$480 term1$276 (cdr temp-temp$277)) (if (number? term2$275) (k$480 (equal? term1$276 term2$275)) ((lambda (r$492) ((lambda (r$491) (k$480 #t)) (set-cell! unify-subst$227 r$492))) (cons (cons term2$275 term1$276) (cell-get unify-subst$227)))))) (assq term2$275 (cell-get unify-subst$227)))))))) (set-cell! one-way-unify$226 (lambda (k$495 term1$279 term2$278) ((lambda (r$496) ((cell-get one-way-unify1$225) k$495 term1$279 term2$278)) (set-cell! unify-subst$227 '())))))) (set-cell! unify-subst$227 '*))) (set-cell! rewrite-with-lemmas$228 (lambda (k$500 term$281 lst$280) (if (null? lst$280) (k$500 term$281) ((cell-get one-way-unify$226) (lambda (r$502) (if r$502 ((cell-get apply-subst$237) (lambda (r$503) ((cell-get rewrite$230) k$500 r$503)) (cell-get unify-subst$227) (caddr (car lst$280))) ((cell-get rewrite-with-lemmas$228) k$500 term$281 (cdr lst$280)))) term$281 (cadr (car lst$280)))))))) (set-cell! rewrite-args$229 (lambda (k$510 lst$282) (if (null? lst$282) (k$510 '()) ((cell-get rewrite$230) (lambda (r$512) ((cell-get rewrite-args$229) (lambda (r$513) ((cell-get scons$231) k$510 r$512 r$513 lst$282)) (cdr lst$282))) (car lst$282))))))) (set-cell! rewrite$230 (lambda (k$517 term$283) ((lambda (r$526) ((lambda (r$518) (if (pair? term$283) ((cell-get rewrite-args$229) (lambda (r$524) ((cell-get scons$231) (lambda (r$520) ((cell-get rewrite-with-lemmas$228) k$517 r$520 (vector-ref (car term$283) 1))) (car term$283) r$524 term$283)) (cdr term$283)) (k$517 term$283))) (set-cell! rewrite-count$232 r$526))) (Cyc-fast-plus (cell-get rewrite-count$232) 1)))))) (set-cell! scons$231 (lambda (k$528 x$286 y$285 original$284) ((lambda (k$530) (if (eq? x$286 (car original$284)) (k$530 (eq? y$285 (cdr original$284))) (k$530 #f))) (lambda (r$529) (if r$529 (k$528 original$284) (k$528 (cons x$286 y$285))))))))) (set-cell! rewrite-count$232 0))) (set-cell! if-constructor$233 '*))) (set-cell! tautologyp$234 (lambda (k$536 x$289 true-lst$288 false-lst$287) ((cell-get truep$222) (lambda (r$537) (if r$537 (k$536 #t) ((cell-get falsep$223) (lambda (r$538) (if r$538 (k$536 #f) (if (pair? x$289) (if (eq? (car x$289) (cell-get if-constructor$233)) ((cell-get truep$222) (lambda (r$541) (if r$541 ((cell-get tautologyp$234) k$536 (caddr x$289) true-lst$288 false-lst$287) ((cell-get falsep$223) (lambda (r$543) (if r$543 ((cell-get tautologyp$234) k$536 (cadddr x$289) true-lst$288 false-lst$287) ((cell-get tautologyp$234) (lambda (r$545) (if r$545 ((cell-get tautologyp$234) k$536 (cadddr x$289) true-lst$288 (cons (cadr x$289) false-lst$287)) (k$536 #f))) (caddr x$289) (cons (cadr x$289) true-lst$288) false-lst$287))) (cadr x$289) false-lst$287))) (cadr x$289) true-lst$288) (k$536 #f)) (k$536 #f)))) x$289 false-lst$287))) x$289 true-lst$288))))) (set-cell! tautp$235 (lambda (k$556 x$290) ((cell-get rewrite$230) (lambda (r$557) ((cell-get tautologyp$234) k$556 r$557 '() '())) x$290))))) (set-cell! apply-subst-lst$236 (lambda (k$561 alist$292 lst$291) (if (null? lst$291) (k$561 '()) ((cell-get apply-subst$237) (lambda (r$563) ((cell-get apply-subst-lst$236) (lambda (r$564) (k$561 (cons r$563 r$564))) alist$292 (cdr lst$291))) alist$292 (car lst$291))))))) (set-cell! apply-subst$237 (lambda (k$568 alist$294 term$293) (if (pair? term$293) ((cell-get apply-subst-lst$236) (lambda (r$571) (k$568 (cons (car term$293) r$571))) alist$294 (cdr term$293)) (if (assq term$293 alist$294) (k$568 (cdr (assq term$293 alist$294))) (k$568 term$293))))))) (set-cell! translate-alist$238 (lambda (k$575 alist$296) (if (null? alist$296) (k$575 '()) ((cell-get translate-term$251) (lambda (r$581) ((cell-get translate-alist$238) (lambda (r$578) (k$575 (cons (cons (caar alist$296) r$581) r$578))) (cdr alist$296))) (cdar alist$296))))))) (set-cell! test$239 (lambda (k$584 alist$299 term$298 n$297) ((cell-get translate-alist$238) (lambda (r$586) ((lambda (term$301 n$300) ((lambda (lp$37$302) ((lambda (lp$37$302) ((lambda (r$589) ((cell-get lp$37$302) (lambda (r$588) ((cell-get translate-term$251) (lambda (r$587) ((cell-get apply-subst$237) (lambda (term$305) ((cell-get tautp$235) k$584 term$305)) r$586 r$587)) r$588)) term$301 n$300)) (set-cell! lp$37$302 (lambda (k$591 term$304 n$303) (if (zero?__inline__ n$303) (k$591 term$304) (list (lambda (r$593) ((cell-get lp$37$302) k$591 r$593 (Cyc-fast-sub n$303 1))) 'or term$304 '(f))))))) (cell lp$37$302))) #f)) term$298 n$297)) alist$299))))) (set-cell! symbol-record-equal?$240 (lambda (k$598 r1$307 r2$306) (k$598 (eq? r1$307 r2$306)))))) (set-cell! get-name$241 (lambda (k$600 symbol-record$308) (k$600 (vector-ref symbol-record$308 0)))))) (set-cell! get-lemmas$242 (lambda (k$602 symbol-record$309) (k$602 (vector-ref symbol-record$309 1)))))) (set-cell! put-lemmas!$243 (lambda (k$604 symbol-record$311 lemmas$310) (k$604 (vector-set! symbol-record$311 1 lemmas$310)))))) (set-cell! make-symbol-record$244 (lambda (k$606 sym$312) (vector k$606 sym$312 '()))))) (set-cell! *symbol-records-alist*$245 '()))) (set-cell! symbol->symbol-record$246 (lambda (k$610 sym$313) ((lambda (x$314) (if x$314 (k$610 (cdr x$314)) (vector (lambda (r$315) ((lambda (r$614) ((lambda (r$613) (k$610 r$315)) (set-cell! *symbol-records-alist*$245 r$614))) (cons (cons sym$313 r$315) (cell-get *symbol-records-alist*$245)))) sym$313 '()))) (assq sym$313 (cell-get *symbol-records-alist*$245))))))) (set-cell! get$247 (lambda (k$617 sym$317 property$316) ((cell-get symbol->symbol-record$246) (lambda (r$618) (k$617 (vector-ref r$618 1))) sym$317))))) (set-cell! put$248 (lambda (k$620 sym$320 property$319 value$318) ((cell-get symbol->symbol-record$246) (lambda (r$621) (k$620 (vector-set! r$621 1 value$318))) sym$320))))) (set-cell! untranslate-term$249 (lambda (k$623 term$321) (if (pair? term$321) (map (lambda (r$626) (k$623 (cons (vector-ref (car term$321) 0) r$626))) (cell-get untranslate-term$249) (cdr term$321)) (k$623 term$321)))))) (set-cell! translate-args$250 (lambda (k$630 lst$322) (if (null? lst$322) (k$630 '()) ((cell-get translate-term$251) (lambda (r$632) ((cell-get translate-args$250) (lambda (r$633) (k$630 (cons r$632 r$633))) (cdr lst$322))) (car lst$322))))))) (set-cell! translate-term$251 (lambda (k$637 term$323) (if (pair? term$323) ((cell-get symbol->symbol-record$246) (lambda (r$639) ((cell-get translate-args$250) (lambda (r$640) (k$637 (cons r$639 r$640))) (cdr term$323))) (car term$323)) (k$637 term$323)))))) (set-cell! add-lemma$252 (lambda (k$644 term$324) ((lambda (k$655) (if (pair? term$324) (if (eq? (car term$324) 'equal) (k$655 (pair? (cadr term$324))) (k$655 #f)) (k$655 #f))) (lambda (r$645) (if r$645 ((lambda (r$654) ((cell-get translate-term$251) (lambda (r$649) ((cell-get get$247) (lambda (r$650) ((cell-get put$248) k$644 (car r$654) 'lemmas (cons r$649 r$650))) (car (cadr term$324)) 'lemmas)) term$324)) (cadr term$324)) (error k$644 #f "ADD-LEMMA did not like term: " term$324)))))))) (set-cell! add-lemma-lst$253 (lambda (k$662 lst$325) (if (null? lst$325) (k$662 #t) ((cell-get add-lemma$252) (lambda (r$664) ((cell-get add-lemma-lst$253) k$662 (cdr lst$325))) (car lst$325))))))) (set-cell! setup$254 (lambda (k$668) ((cell-get add-lemma-lst$253) k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) (cell term-member?$215))) (cell term-args-equal?$216))) (cell term-equal?$217))) (cell trans-of-implies1$218))) (cell trans-of-implies$219))) (cell true-term$220))) (cell false-term$221))) (cell truep$222))) (cell falsep$223))) (cell one-way-unify1-lst$224))) (cell one-way-unify1$225))) (cell one-way-unify$226))) (cell unify-subst$227))) (cell rewrite-with-lemmas$228))) (cell rewrite-args$229))) (cell rewrite$230))) (cell scons$231))) (cell rewrite-count$232))) (cell if-constructor$233))) (cell tautologyp$234))) (cell tautp$235))) (cell apply-subst-lst$236))) (cell apply-subst$237))) (cell translate-alist$238))) (cell test$239))) (cell symbol-record-equal?$240))) (cell get-name$241))) (cell get-lemmas$242))) (cell put-lemmas!$243))) (cell make-symbol-record$244))) (cell *symbol-records-alist*$245))) (cell symbol->symbol-record$246))) (cell get$247))) (cell put$248))) (cell untranslate-term$249))) (cell translate-args$250))) (cell translate-term$251))) (cell add-lemma$252))) (cell add-lemma-lst$253))) (cell setup$254))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) (set-global! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) */ /* "---------------- after closure-convert:" */ /* ((define main (lambda (k$754) ((%closure-ref read 0) read (%closure (lambda (self$1008 count$352) ((%closure-ref read 0) read (%closure (lambda (self$1009 input$353) ((%closure-ref read 0) read (%closure (lambda (self$1010 output$354) ((%closure (lambda (self$1011 s2$355) ((%closure (lambda (self$1012 s1$356) ((%closure (lambda (self$1013 r$760) ((%closure-ref run-r7rs-benchmark 0) run-r7rs-benchmark (%closure-ref self$1013 3) r$760 (%closure-ref self$1013 1) (%closure (lambda (self$1015 k$765) ((%closure-ref setup-boyer 0) setup-boyer (%closure (lambda (self$1016 r$766) ((%closure-ref hide 0) hide (%closure (lambda (self$1017 r$767) ((%closure-ref test-boyer 0) test-boyer (%closure-ref self$1017 1) alist term r$767)) (%closure-ref self$1016 3)) (%closure-ref self$1016 1) (%closure-ref self$1016 2))) (%closure-ref self$1015 1) (%closure-ref self$1015 2) k$765))) (%closure-ref self$1013 1) (%closure-ref self$1013 2)) (%closure (lambda (self$1014 k$763 rewrites$358) (if (number? rewrites$358) ((%closure-ref k$763 0) k$763 (Cyc-fast-eq rewrites$358 (%closure-ref self$1014 1))) ((%closure-ref k$763 0) k$763 #f))) (%closure-ref self$1013 4)))) (%closure-ref self$1012 1) (%closure-ref self$1012 2) (%closure-ref self$1012 3) (%closure-ref self$1012 4)) (string-append "sboyer" ":" s1$356 ":" (%closure-ref self$1012 5)))) (%closure-ref self$1011 1) (%closure-ref self$1011 2) (%closure-ref self$1011 3) (%closure-ref self$1011 4) s2$355) (number->string (%closure-ref self$1011 2)))) (%closure-ref self$1010 1) (%closure-ref self$1010 2) (%closure-ref self$1010 3) output$354) (number->string (%closure-ref self$1010 1)))) (%closure-ref self$1009 1) input$353 (%closure-ref self$1009 2)))) count$352 (%closure-ref self$1008 1)))) k$754)))) (define alist (%closure-ref #f 0) #f) (define term (%closure-ref #f 0) #f) (define setup-boyer (lambda (k$747) ((%closure-ref k$747 0) k$747 #t))) (define test-boyer (lambda (k$744) ((%closure-ref k$744 0) k$744 #t))) (define hide (lambda (k$730 r$348 x$347) ((%closure-ref call-with-values 0) call-with-values k$730 (%closure (lambda (self$1003 k$735) ((%closure-ref vector 0) vector (%closure (lambda (self$1005 r$736) ((%closure (lambda (self$1007 k$738) (if (Cyc-fast-lt (%closure-ref self$1007 1) 100) ((%closure-ref k$738 0) k$738 0) ((%closure-ref k$738 0) k$738 1))) (%closure-ref self$1005 2)) (%closure (lambda (self$1006 r$737) ((%closure-ref values 0) values (%closure-ref self$1006 1) (%closure-ref self$1006 2) r$737)) (%closure-ref self$1005 1) r$736))) k$735 (%closure-ref self$1003 1)) values (%closure (lambda (self$1004 k$741 x$351) ((%closure-ref k$741 0) k$741 x$351))))) r$348) (%closure (lambda (self$1002 k$733 v$350 i$349) ((%closure-ref (vector-ref v$350 i$349) 0) (vector-ref v$350 i$349) k$733 (%closure-ref self$1002 1))) x$347)))) (define run-r7rs-benchmark (lambda (k$678 name$329 count$328 thunk$327 ok?$326) ((%closure (lambda (self$959 rounded$331) ((%closure (lambda (self$960 rounded$331) ((%closure (lambda (self$962 r$679) ((%closure-ref display 0) display (%closure (lambda (self$963 r$680) ((%closure-ref display 0) display (%closure (lambda (self$964 r$681) ((%closure-ref newline 0) newline (%closure (lambda (self$965 r$682) ((%closure-ref current-output-port 0) current-output-port (%closure (lambda (self$966 r$723) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$967 r$683) ((%closure-ref jiffies-per-second 0) jiffies-per-second (%closure (lambda (self$968 j/s$333) ((%closure-ref current-second 0) current-second (%closure (lambda (self$969 t0$334) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$970 j0$335) ((%closure (lambda (self$971 loop$338) ((%closure (lambda (self$972 loop$338) ((%closure (lambda (self$1001 r$687) ((%closure-ref (cell-get (%closure-ref self$1001 2)) 0) (cell-get (%closure-ref self$1001 2)) (%closure-ref self$1001 1) 0 #f)) (%closure-ref self$972 4) loop$338) (set-cell! loop$338 (%closure (lambda (self$973 k$689 i$340 result$339) (if (Cyc-fast-lt i$340 (%closure-ref self$973 1)) ((%closure-ref (%closure-ref self$973 9) 0) (%closure-ref self$973 9) (%closure (lambda (self$1000 r$692) ((%closure-ref (cell-get (%closure-ref self$1000 3)) 0) (cell-get (%closure-ref self$1000 3)) (%closure-ref self$1000 2) (Cyc-fast-plus (%closure-ref self$1000 1) 1) r$692)) i$340 k$689 (%closure-ref self$973 4))) ((%closure-ref (%closure-ref self$973 6) 0) (%closure-ref self$973 6) (%closure (lambda (self$974 r$693) (if r$693 ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$980 j1$341) ((%closure-ref current-second 0) current-second (%closure (lambda (self$981 t1$342) ((%closure-ref (cell-get (%closure-ref self$981 7)) 0) (cell-get (%closure-ref self$981 7)) (%closure (lambda (self$982 secs2$345) ((%closure-ref display 0) display (%closure (lambda (self$983 r$700) ((%closure-ref write 0) write (%closure (lambda (self$984 r$701) ((%closure-ref display 0) display (%closure (lambda (self$985 r$702) ((%closure-ref write 0) write (%closure (lambda (self$986 r$703) ((%closure-ref display 0) display (%closure (lambda (self$987 r$704) ((%closure-ref display 0) display (%closure (lambda (self$988 r$705) ((%closure-ref newline 0) newline (%closure (lambda (self$989 r$706) ((%closure-ref display 0) display (%closure (lambda (self$990 r$707) ((%closure-ref this-scheme-implementation-name 0) this-scheme-implementation-name (%closure (lambda (self$991 r$715) ((%closure-ref display 0) display (%closure (lambda (self$992 r$708) ((%closure-ref display 0) display (%closure (lambda (self$993 r$709) ((%closure-ref display 0) display (%closure (lambda (self$994 r$710) ((%closure-ref display 0) display (%closure (lambda (self$995 r$711) ((%closure-ref display 0) display (%closure (lambda (self$996 r$712) ((%closure-ref newline 0) newline (%closure (lambda (self$997 r$713) ((%closure-ref current-output-port 0) current-output-port (%closure (lambda (self$998 r$714) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$999 r$694) ((%closure-ref (%closure-ref self$999 1) 0) (%closure-ref self$999 1) (%closure-ref self$999 2))) (%closure-ref self$998 1) (%closure-ref self$998 2)) r$714)) (%closure-ref self$997 1) (%closure-ref self$997 2)))) (%closure-ref self$996 1) (%closure-ref self$996 2)))) (%closure-ref self$995 4) (%closure-ref self$995 5)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub (%closure-ref self$995 3) (%closure-ref self$995 2)) (%closure-ref self$995 1))))) (%closure-ref self$994 1) (%closure-ref self$994 2) (%closure-ref self$994 3) (%closure-ref self$994 4) (%closure-ref self$994 5)) ",")) (%closure-ref self$993 1) (%closure-ref self$993 2) (%closure-ref self$993 3) (%closure-ref self$993 4) (%closure-ref self$993 6)) (%closure-ref self$993 5))) (%closure-ref self$992 1) (%closure-ref self$992 2) (%closure-ref self$992 3) (%closure-ref self$992 4) (%closure-ref self$992 5) (%closure-ref self$992 6)) ",")) (%closure-ref self$991 1) (%closure-ref self$991 2) (%closure-ref self$991 3) (%closure-ref self$991 4) (%closure-ref self$991 5) (%closure-ref self$991 6)) r$715)) (%closure-ref self$990 1) (%closure-ref self$990 2) (%closure-ref self$990 3) (%closure-ref self$990 4) (%closure-ref self$990 5) (%closure-ref self$990 6)))) (%closure-ref self$989 1) (%closure-ref self$989 2) (%closure-ref self$989 3) (%closure-ref self$989 4) (%closure-ref self$989 5) (%closure-ref self$989 6)) "+!CSVLINE!+")) (%closure-ref self$988 1) (%closure-ref self$988 2) (%closure-ref self$988 3) (%closure-ref self$988 4) (%closure-ref self$988 5) (%closure-ref self$988 6)))) (%closure-ref self$987 1) (%closure-ref self$987 2) (%closure-ref self$987 3) (%closure-ref self$987 4) (%closure-ref self$987 5) (%closure-ref self$987 6)) (%closure-ref self$987 5))) (%closure-ref self$986 1) (%closure-ref self$986 2) (%closure-ref self$986 3) (%closure-ref self$986 4) (%closure-ref self$986 5) (%closure-ref self$986 6)) ") for ")) (%closure-ref self$985 1) (%closure-ref self$985 2) (%closure-ref self$985 3) (%closure-ref self$985 4) (%closure-ref self$985 5) (%closure-ref self$985 6)) (%closure-ref self$985 7))) (%closure-ref self$984 1) (%closure-ref self$984 2) (%closure-ref self$984 3) (%closure-ref self$984 4) (%closure-ref self$984 5) (%closure-ref self$984 6) (%closure-ref self$984 7)) " seconds (")) (%closure-ref self$983 1) (%closure-ref self$983 2) (%closure-ref self$983 3) (%closure-ref self$983 4) (%closure-ref self$983 5) (%closure-ref self$983 6) (%closure-ref self$983 7)) (inexact__inline__ (Cyc-fast-div (Cyc-fast-sub (%closure-ref self$983 3) (%closure-ref self$983 2)) (%closure-ref self$983 1))))) (%closure-ref self$982 1) (%closure-ref self$982 2) (%closure-ref self$982 3) (%closure-ref self$982 4) (%closure-ref self$982 5) (%closure-ref self$982 6) secs2$345) "Elapsed time: ")) (%closure-ref self$981 1) (%closure-ref self$981 2) (%closure-ref self$981 3) (%closure-ref self$981 4) (%closure-ref self$981 5) (%closure-ref self$981 6)) (Cyc-fast-sub t1$342 (%closure-ref self$981 8)))) (%closure-ref self$980 1) (%closure-ref self$980 2) j1$341 (%closure-ref self$980 3) (%closure-ref self$980 4) (%closure-ref self$980 5) (%closure-ref self$980 6) (%closure-ref self$980 7)))) (%closure-ref self$974 1) (%closure-ref self$974 2) (%closure-ref self$974 3) (%closure-ref self$974 4) (%closure-ref self$974 5) (%closure-ref self$974 6) (%closure-ref self$974 7))) ((%closure-ref display 0) display (%closure (lambda (self$975 r$718) ((%closure-ref write 0) write (%closure (lambda (self$976 r$719) ((%closure-ref newline 0) newline (%closure (lambda (self$977 r$720) ((%closure-ref current-output-port 0) current-output-port (%closure (lambda (self$978 r$722) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$979 r$721) ((%closure-ref (%closure-ref self$979 1) 0) (%closure-ref self$979 1) (%closure-ref self$979 2))) (%closure-ref self$978 1) (%closure-ref self$978 2)) r$722)) (%closure-ref self$977 1) (%closure-ref self$977 2)))) (%closure-ref self$976 1) (%closure-ref self$976 2)))) (%closure-ref self$975 1) (%closure-ref self$975 2)) (%closure-ref self$975 2))) (%closure-ref self$974 3) (%closure-ref self$974 5)) "ERROR: returned incorrect result: "))) (%closure-ref self$973 2) (%closure-ref self$973 3) k$689 (%closure-ref self$973 5) result$339 (%closure-ref self$973 7) (%closure-ref self$973 8)) result$339))) (%closure-ref self$972 1) (%closure-ref self$972 2) (%closure-ref self$972 3) loop$338 (%closure-ref self$972 5) (%closure-ref self$972 6) (%closure-ref self$972 7) (%closure-ref self$972 8) (%closure-ref self$972 9))))) (%closure-ref self$971 1) (%closure-ref self$971 2) (%closure-ref self$971 3) (%closure-ref self$971 4) (%closure-ref self$971 5) (%closure-ref self$971 6) (%closure-ref self$971 7) (%closure-ref self$971 8) (%closure-ref self$971 9)) (cell loop$338))) (%closure-ref self$970 1) (%closure-ref self$970 2) j0$335 (%closure-ref self$970 3) (%closure-ref self$970 4) (%closure-ref self$970 5) (%closure-ref self$970 6) (%closure-ref self$970 7) (%closure-ref self$970 8)) #f)) (%closure-ref self$969 1) (%closure-ref self$969 2) (%closure-ref self$969 3) (%closure-ref self$969 4) (%closure-ref self$969 5) (%closure-ref self$969 6) t0$334 (%closure-ref self$969 7)))) (%closure-ref self$968 1) j/s$333 (%closure-ref self$968 2) (%closure-ref self$968 3) (%closure-ref self$968 4) (%closure-ref self$968 5) (%closure-ref self$968 6)))) (%closure-ref self$967 1) (%closure-ref self$967 2) (%closure-ref self$967 3) (%closure-ref self$967 4) (%closure-ref self$967 5) (%closure-ref self$967 6)))) (%closure-ref self$966 1) (%closure-ref self$966 2) (%closure-ref self$966 3) (%closure-ref self$966 4) (%closure-ref self$966 5) (%closure-ref self$966 6)) r$723)) (%closure-ref self$965 1) (%closure-ref self$965 2) (%closure-ref self$965 3) (%closure-ref self$965 4) (%closure-ref self$965 5) (%closure-ref self$965 6)))) (%closure-ref self$964 1) (%closure-ref self$964 2) (%closure-ref self$964 3) (%closure-ref self$964 4) (%closure-ref self$964 5) (%closure-ref self$964 6)))) (%closure-ref self$963 1) (%closure-ref self$963 2) (%closure-ref self$963 3) (%closure-ref self$963 4) (%closure-ref self$963 5) (%closure-ref self$963 6)) (%closure-ref self$963 3))) (%closure-ref self$962 1) (%closure-ref self$962 2) (%closure-ref self$962 3) (%closure-ref self$962 4) (%closure-ref self$962 5) (%closure-ref self$962 6)) "Running ")) (%closure-ref self$960 1) (%closure-ref self$960 2) (%closure-ref self$960 3) (%closure-ref self$960 4) rounded$331 (%closure-ref self$960 5)) (set-cell! rounded$331 (%closure (lambda (self$961 k$725 x$346) ((%closure-ref k$725 0) k$725 (Cyc-fast-div (round__inline__ (Cyc-fast-mul 1000 x$346)) 1000))))))) (%closure-ref self$959 1) (%closure-ref self$959 2) (%closure-ref self$959 3) (%closure-ref self$959 4) (%closure-ref self$959 5)) (cell rounded$331))) count$328 k$678 name$329 ok?$326 thunk$327) #f))) (define this-scheme-implementation-name (lambda (k$674) ((%closure-ref Cyc-version 0) Cyc-version (%closure (lambda (self$958 r$675) ((%closure-ref (%closure-ref self$958 1) 0) (%closure-ref self$958 1) (string-append "cyclone-" r$675))) k$674)))) ((lambda (r$360) ((lambda (r$361) ((lambda (setup$254 add-lemma-lst$253 add-lemma$252 translate-term$251 translate-args$250 untranslate-term$249 put$248 get$247 symbol->symbol-record$246 *symbol-records-alist*$245 make-symbol-record$244 put-lemmas!$243 get-lemmas$242 get-name$241 symbol-record-equal?$240 test$239 translate-alist$238 apply-subst$237 apply-subst-lst$236 tautp$235 tautologyp$234 if-constructor$233 rewrite-count$232 scons$231 rewrite$230 rewrite-args$229 rewrite-with-lemmas$228 unify-subst$227 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 falsep$223 truep$222 false-term$221 true-term$220 trans-of-implies$219 trans-of-implies1$218 term-equal?$217 term-args-equal?$216 term-member?$215) ((%closure (lambda (self$768 setup$254) ((%closure (lambda (self$769 add-lemma-lst$253) ((%closure (lambda (self$770 add-lemma$252) ((%closure (lambda (self$771 translate-term$251) ((%closure (lambda (self$772 translate-args$250) ((%closure (lambda (self$773 untranslate-term$249) ((%closure (lambda (self$774 put$248) ((%closure (lambda (self$775 get$247) ((%closure (lambda (self$776 symbol->symbol-record$246) ((%closure (lambda (self$777 *symbol-records-alist*$245) ((%closure (lambda (self$778 make-symbol-record$244) ((%closure (lambda (self$779 put-lemmas!$243) ((%closure (lambda (self$780 get-lemmas$242) ((%closure (lambda (self$781 get-name$241) ((%closure (lambda (self$782 symbol-record-equal?$240) ((%closure (lambda (self$783 test$239) ((%closure (lambda (self$784 translate-alist$238) ((%closure (lambda (self$785 apply-subst$237) ((%closure (lambda (self$786 apply-subst-lst$236) ((%closure (lambda (self$787 tautp$235) ((%closure (lambda (self$788 tautologyp$234) ((%closure (lambda (self$789 if-constructor$233) ((%closure (lambda (self$790 rewrite-count$232) ((%closure (lambda (self$791 scons$231) ((%closure (lambda (self$792 rewrite$230) ((%closure (lambda (self$793 rewrite-args$229) ((%closure (lambda (self$794 rewrite-with-lemmas$228) ((%closure (lambda (self$795 unify-subst$227) ((%closure (lambda (self$796 one-way-unify$226) ((%closure (lambda (self$797 one-way-unify1$225) ((%closure (lambda (self$798 one-way-unify1-lst$224) ((%closure (lambda (self$799 falsep$223) ((%closure (lambda (self$800 truep$222) ((%closure (lambda (self$801 false-term$221) ((%closure (lambda (self$802 true-term$220) ((%closure (lambda (self$803 trans-of-implies$219) ((%closure (lambda (self$804 trans-of-implies1$218) ((%closure (lambda (self$805 term-equal?$217) ((%closure (lambda (self$806 term-args-equal?$216) ((%closure (lambda (self$807 term-member?$215) ((%closure (lambda (self$809 r$363) ((%closure (lambda (self$812 r$364) ((%closure (lambda (self$819 r$365) ((%closure (lambda (self$823 r$366) ((%closure (lambda (self$827 r$367) ((%closure (lambda (self$830 r$368) ((%closure (lambda (self$833 r$369) ((%closure (lambda (self$836 r$370) ((%closure (lambda (self$842 r$371) ((%closure (lambda (self$843 r$372) ((%closure (lambda (self$845 r$373) ((%closure (lambda (self$847 r$374) ((%closure (lambda (self$849 r$375) ((%closure (lambda (self$851 r$376) ((%closure (lambda (self$853 r$377) ((%closure (lambda (self$865 r$378) ((%closure (lambda (self$869 r$379) ((%closure (lambda (self$872 r$380) ((%closure (lambda (self$876 r$381) ((%closure (lambda (self$879 r$382) ((%closure (lambda (self$886 r$383) ((%closure (lambda (self$887 r$384) ((%closure (lambda (self$888 r$385) ((%closure (lambda (self$892 r$386) ((%closure (lambda (self$898 r$387) ((%closure (lambda (self$902 r$388) ((%closure (lambda (self$906 r$389) ((%closure (lambda (self$907 r$390) ((%closure (lambda (self$910 r$391) ((%closure (lambda (self$915 r$392) ((%closure (lambda (self$918 r$393) ((%closure (lambda (self$921 r$394) ((%closure (lambda (self$924 r$395) ((%closure (lambda (self$925 r$396) ((%closure (lambda (self$926 r$397) ((%closure (lambda (self$931 r$398) ((%closure (lambda (self$937 r$399) ((%closure (lambda (self$939 r$400) ((%closure (lambda (self$942 r$401) ((%closure (lambda (self$945 r$402) ((%closure (lambda (self$954 r$403) ((lambda (r$362) ((%closure-ref main 0) main %halt)) (set-global! test-boyer (%closure (lambda (self$955 k$405 alist$257 term$256 n$255) ((%closure (lambda (self$956 r$406) ((%closure-ref (cell-get (%closure-ref self$956 6)) 0) (cell-get (%closure-ref self$956 6)) (%closure (lambda (self$957 answer$258) (if answer$258 ((%closure-ref (%closure-ref self$957 1) 0) (%closure-ref self$957 1) (cell-get (%closure-ref self$957 2))) ((%closure-ref (%closure-ref self$957 1) 0) (%closure-ref self$957 1) #f))) (%closure-ref self$956 2) (%closure-ref self$956 4)) (%closure-ref self$956 1) (%closure-ref self$956 5) (%closure-ref self$956 3))) alist$257 k$405 n$255 (%closure-ref self$955 1) term$256 (%closure-ref self$955 2)) (set-cell! (%closure-ref self$955 1) 0))) (%closure-ref self$954 1) (%closure-ref self$954 2))))) (%closure-ref self$945 5) (%closure-ref self$945 7)) (set-global! setup-boyer (%closure (lambda (self$946 k$409) ((%closure (lambda (self$947 r$410) ((%closure-ref (cell-get (%closure-ref self$947 5)) 0) (cell-get (%closure-ref self$947 5)) (%closure (lambda (self$948 r$418) ((%closure (lambda (self$949 r$411) ((%closure-ref (cell-get (%closure-ref self$949 4)) 0) (cell-get (%closure-ref self$949 4)) (%closure (lambda (self$950 r$416) ((%closure (lambda (self$951 r$412) ((%closure-ref (cell-get (%closure-ref self$951 3)) 0) (cell-get (%closure-ref self$951 3)) (%closure (lambda (self$952 r$414) ((%closure (lambda (self$953 r$413) ((%closure-ref (cell-get (%closure-ref self$953 1)) 0) (cell-get (%closure-ref self$953 1)) (%closure-ref self$953 2) '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (%closure-ref self$952 1) (%closure-ref self$952 2)) (set-cell! (%closure-ref self$952 3) r$414))) (%closure-ref self$951 1) (%closure-ref self$951 2) (%closure-ref self$951 4)) '(t))) (%closure-ref self$950 1) (%closure-ref self$950 3) (%closure-ref self$950 4) (%closure-ref self$950 5)) (set-cell! (%closure-ref self$950 2) r$416))) (%closure-ref self$949 1) (%closure-ref self$949 2) (%closure-ref self$949 3) (%closure-ref self$949 4) (%closure-ref self$949 5)) '(f))) (%closure-ref self$948 1) (%closure-ref self$948 2) (%closure-ref self$948 4) (%closure-ref self$948 5) (%closure-ref self$948 6)) (set-cell! (%closure-ref self$948 3) r$418))) (%closure-ref self$947 1) (%closure-ref self$947 2) (%closure-ref self$947 3) (%closure-ref self$947 4) (%closure-ref self$947 6) (%closure-ref self$947 7)) 'if)) (%closure-ref self$946 2) (%closure-ref self$946 3) (%closure-ref self$946 4) k$409 (%closure-ref self$946 5) (%closure-ref self$946 6) (%closure-ref self$946 7)) (set-cell! (%closure-ref self$946 1) '()))) (%closure-ref self$945 1) (%closure-ref self$945 2) (%closure-ref self$945 3) (%closure-ref self$945 4) (%closure-ref self$945 6) (%closure-ref self$945 8) (%closure-ref self$945 9))))) (%closure-ref self$942 1) (%closure-ref self$942 2) (%closure-ref self$942 3) (%closure-ref self$942 4) (%closure-ref self$942 5) (%closure-ref self$942 6) (%closure-ref self$942 9) (%closure-ref self$942 10) (%closure-ref self$942 11)) (set-cell! (%closure-ref self$942 8) (%closure (lambda (self$943 k$422 x$260 lst$259) (if (null? lst$259) ((%closure-ref k$422 0) k$422 #f) ((%closure-ref (cell-get (%closure-ref self$943 1)) 0) (cell-get (%closure-ref self$943 1)) (%closure (lambda (self$944 r$424) (if r$424 ((%closure-ref (%closure-ref self$944 1) 0) (%closure-ref self$944 1) #t) ((%closure-ref (cell-get (%closure-ref self$944 3)) 0) (cell-get (%closure-ref self$944 3)) (%closure-ref self$944 1) (%closure-ref self$944 4) (cdr (%closure-ref self$944 2))))) k$422 lst$259 (%closure-ref self$943 2) x$260) x$260 (car lst$259)))) (%closure-ref self$942 7) (%closure-ref self$942 8))))) (%closure-ref self$939 1) (%closure-ref self$939 2) (%closure-ref self$939 3) (%closure-ref self$939 4) (%closure-ref self$939 5) (%closure-ref self$939 6) (%closure-ref self$939 8) (%closure-ref self$939 9) (%closure-ref self$939 10) (%closure-ref self$939 11) (%closure-ref self$939 12)) (set-cell! (%closure-ref self$939 7) (%closure (lambda (self$940 k$428 lst1$262 lst2$261) (if (null? lst1$262) ((%closure-ref k$428 0) k$428 (null? lst2$261)) (if (null? lst2$261) ((%closure-ref k$428 0) k$428 #f) ((%closure-ref (cell-get (%closure-ref self$940 2)) 0) (cell-get (%closure-ref self$940 2)) (%closure (lambda (self$941 r$431) (if r$431 ((%closure-ref (cell-get (%closure-ref self$941 4)) 0) (cell-get (%closure-ref self$941 4)) (%closure-ref self$941 1) (cdr (%closure-ref self$941 2)) (cdr (%closure-ref self$941 3))) ((%closure-ref (%closure-ref self$941 1) 0) (%closure-ref self$941 1) #f))) k$428 lst1$262 lst2$261 (%closure-ref self$940 1)) (car lst1$262) (car lst2$261))))) (%closure-ref self$939 7) (%closure-ref self$939 8))))) (%closure-ref self$937 1) (%closure-ref self$937 2) (%closure-ref self$937 3) (%closure-ref self$937 4) (%closure-ref self$937 5) (%closure-ref self$937 6) (%closure-ref self$937 7) (%closure-ref self$937 8) (%closure-ref self$937 9) (%closure-ref self$937 10) (%closure-ref self$937 11) (%closure-ref self$937 12)) (set-cell! (%closure-ref self$937 8) (%closure (lambda (self$938 k$437 x$264 y$263) (if (pair? x$264) (if (pair? y$263) (if (eq? (car x$264) (car y$263)) ((%closure-ref (cell-get (%closure-ref self$938 1)) 0) (cell-get (%closure-ref self$938 1)) k$437 (cdr x$264) (cdr y$263)) ((%closure-ref k$437 0) k$437 #f)) ((%closure-ref k$437 0) k$437 #f)) ((%closure-ref k$437 0) k$437 (equal? x$264 y$263)))) (%closure-ref self$937 7))))) (%closure-ref self$931 1) (%closure-ref self$931 2) (%closure-ref self$931 3) (%closure-ref self$931 4) (%closure-ref self$931 5) (%closure-ref self$931 6) (%closure-ref self$931 7) (%closure-ref self$931 8) (%closure-ref self$931 9) (%closure-ref self$931 10) (%closure-ref self$931 12) (%closure-ref self$931 13)) (set-cell! (%closure-ref self$931 11) (%closure (lambda (self$932 k$446 n$265) ((%closure (lambda (self$933 r$447) (if r$447 ((%closure-ref list 0) list (%closure-ref self$933 1) 'implies 0 1) ((%closure (lambda (self$934 r$454) ((%closure-ref list 0) list (%closure (lambda (self$935 r$450) ((%closure-ref (cell-get (%closure-ref self$935 3)) 0) (cell-get (%closure-ref self$935 3)) (%closure (lambda (self$936 r$451) ((%closure-ref list 0) list (%closure-ref self$936 1) 'and (%closure-ref self$936 2) r$451)) (%closure-ref self$935 1) r$450) (Cyc-fast-sub (%closure-ref self$935 2) 1))) (%closure-ref self$934 1) (%closure-ref self$934 2) (%closure-ref self$934 3)) 'implies r$454 (%closure-ref self$934 2))) (%closure-ref self$933 1) (%closure-ref self$933 2) (%closure-ref self$933 3)) (Cyc-fast-sub (%closure-ref self$933 2) 1)))) k$446 n$265 (%closure-ref self$932 1)) (equal? n$265 1))) (%closure-ref self$931 11))))) (%closure-ref self$926 1) (%closure-ref self$926 2) (%closure-ref self$926 3) (%closure-ref self$926 4) (%closure-ref self$926 5) (%closure-ref self$926 6) (%closure-ref self$926 7) (%closure-ref self$926 8) (%closure-ref self$926 9) (%closure-ref self$926 10) (%closure-ref self$926 12) (%closure-ref self$926 13) (%closure-ref self$926 14)) (set-cell! (%closure-ref self$926 11) (%closure (lambda (self$927 k$456 n$266) ((%closure-ref (cell-get (%closure-ref self$927 1)) 0) (cell-get (%closure-ref self$927 1)) (%closure (lambda (self$928 r$459) ((%closure-ref list 0) list (%closure (lambda (self$929 r$460) ((%closure-ref list 0) list (%closure (lambda (self$930 r$457) ((%closure-ref (cell-get (%closure-ref self$930 2)) 0) (cell-get (%closure-ref self$930 2)) (%closure-ref self$930 1) r$457)) (%closure-ref self$929 1) (%closure-ref self$929 3)) 'implies (%closure-ref self$929 2) r$460)) (%closure-ref self$928 1) r$459 (%closure-ref self$928 3)) 'implies 0 (%closure-ref self$928 2))) k$456 n$266 (%closure-ref self$927 2)) n$266)) (%closure-ref self$926 12) (%closure-ref self$926 13))))) (%closure-ref self$925 1) (%closure-ref self$925 2) (%closure-ref self$925 3) (%closure-ref self$925 4) (%closure-ref self$925 5) (%closure-ref self$925 6) (%closure-ref self$925 7) (%closure-ref self$925 8) (%closure-ref self$925 9) (%closure-ref self$925 10) (%closure-ref self$925 11) (%closure-ref self$925 12) (%closure-ref self$925 13) (%closure-ref self$925 14)) (set-cell! (%closure-ref self$925 14) '*))) (%closure-ref self$924 1) (%closure-ref self$924 2) (%closure-ref self$924 3) (%closure-ref self$924 4) (%closure-ref self$924 5) (%closure-ref self$924 6) (%closure-ref self$924 7) (%closure-ref self$924 8) (%closure-ref self$924 9) (%closure-ref self$924 10) (%closure-ref self$924 11) (%closure-ref self$924 12) (%closure-ref self$924 13) (%closure-ref self$924 14)) (set-cell! (%closure-ref self$924 3) '*))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3) (%closure-ref self$921 4) (%closure-ref self$921 5) (%closure-ref self$921 6) (%closure-ref self$921 7) (%closure-ref self$921 8) (%closure-ref self$921 9) (%closure-ref self$921 10) (%closure-ref self$921 11) (%closure-ref self$921 12) (%closure-ref self$921 13) (%closure-ref self$921 14)) (set-cell! (%closure-ref self$921 15) (%closure (lambda (self$922 k$465 x$268 lst$267) ((%closure-ref (cell-get (%closure-ref self$922 1)) 0) (cell-get (%closure-ref self$922 1)) (%closure (lambda (self$923 tmp$120$269) (if tmp$120$269 ((%closure-ref (%closure-ref self$923 1) 0) (%closure-ref self$923 1) tmp$120$269) ((%closure-ref (cell-get (%closure-ref self$923 3)) 0) (cell-get (%closure-ref self$923 3)) (%closure-ref self$923 1) (%closure-ref self$923 4) (%closure-ref self$923 2)))) k$465 lst$267 (%closure-ref self$922 2) x$268) x$268 (cell-get (%closure-ref self$922 3)))) (%closure-ref self$921 8) (%closure-ref self$921 9) (%closure-ref self$921 14))))) (%closure-ref self$918 1) (%closure-ref self$918 2) (%closure-ref self$918 3) (%closure-ref self$918 5) (%closure-ref self$918 6) (%closure-ref self$918 7) (%closure-ref self$918 8) (%closure-ref self$918 9) (%closure-ref self$918 10) (%closure-ref self$918 11) (%closure-ref self$918 12) (%closure-ref self$918 13) (%closure-ref self$918 14) (%closure-ref self$918 15) (%closure-ref self$918 16)) (set-cell! (%closure-ref self$918 4) (%closure (lambda (self$919 k$468 x$271 lst$270) ((%closure-ref (cell-get (%closure-ref self$919 2)) 0) (cell-get (%closure-ref self$919 2)) (%closure (lambda (self$920 tmp$117$272) (if tmp$117$272 ((%closure-ref (%closure-ref self$920 1) 0) (%closure-ref self$920 1) tmp$117$272) ((%closure-ref (cell-get (%closure-ref self$920 3)) 0) (cell-get (%closure-ref self$920 3)) (%closure-ref self$920 1) (%closure-ref self$920 4) (%closure-ref self$920 2)))) k$468 lst$270 (%closure-ref self$919 3) x$271) x$271 (cell-get (%closure-ref self$919 1)))) (%closure-ref self$918 3) (%closure-ref self$918 9) (%closure-ref self$918 10))))) (%closure-ref self$915 1) (%closure-ref self$915 2) (%closure-ref self$915 3) (%closure-ref self$915 4) (%closure-ref self$915 5) (%closure-ref self$915 8) (%closure-ref self$915 9) (%closure-ref self$915 10) (%closure-ref self$915 11) (%closure-ref self$915 12) (%closure-ref self$915 13) (%closure-ref self$915 14) (%closure-ref self$915 15) (%closure-ref self$915 16) (%closure-ref self$915 17) (%closure-ref self$915 18)) (set-cell! (%closure-ref self$915 7) (%closure (lambda (self$916 k$471 lst1$274 lst2$273) (if (null? lst1$274) ((%closure-ref k$471 0) k$471 (null? lst2$273)) (if (null? lst2$273) ((%closure-ref k$471 0) k$471 #f) ((%closure-ref (cell-get (%closure-ref self$916 1)) 0) (cell-get (%closure-ref self$916 1)) (%closure (lambda (self$917 r$474) (if r$474 ((%closure-ref (cell-get (%closure-ref self$917 4)) 0) (cell-get (%closure-ref self$917 4)) (%closure-ref self$917 1) (cdr (%closure-ref self$917 2)) (cdr (%closure-ref self$917 3))) ((%closure-ref (%closure-ref self$917 1) 0) (%closure-ref self$917 1) #f))) k$471 lst1$274 lst2$273 (%closure-ref self$916 2)) (car lst1$274) (car lst2$273))))) (%closure-ref self$915 6) (%closure-ref self$915 7))))) (%closure-ref self$910 1) (%closure-ref self$910 2) (%closure-ref self$910 3) (%closure-ref self$910 4) (%closure-ref self$910 5) (%closure-ref self$910 6) (%closure-ref self$910 7) (%closure-ref self$910 8) (%closure-ref self$910 9) (%closure-ref self$910 10) (%closure-ref self$910 11) (%closure-ref self$910 12) (%closure-ref self$910 13) (%closure-ref self$910 14) (%closure-ref self$910 15) (%closure-ref self$910 16) (%closure-ref self$910 17) (%closure-ref self$910 18)) (set-cell! (%closure-ref self$910 6) (%closure (lambda (self$911 k$480 term1$276 term2$275) (if (pair? term2$275) (if (pair? term1$276) (if (eq? (car term1$276) (car term2$275)) ((%closure-ref (cell-get (%closure-ref self$911 1)) 0) (cell-get (%closure-ref self$911 1)) k$480 (cdr term1$276) (cdr term2$275)) ((%closure-ref k$480 0) k$480 #f)) ((%closure-ref k$480 0) k$480 #f)) ((%closure (lambda (self$912 temp-temp$277) (if temp-temp$277 ((%closure-ref (cell-get (%closure-ref self$912 2)) 0) (cell-get (%closure-ref self$912 2)) (%closure-ref self$912 1) (%closure-ref self$912 3) (cdr temp-temp$277)) (if (number? (%closure-ref self$912 4)) ((%closure-ref (%closure-ref self$912 1) 0) (%closure-ref self$912 1) (equal? (%closure-ref self$912 3) (%closure-ref self$912 4))) ((%closure (lambda (self$913 r$492) ((%closure (lambda (self$914 r$491) ((%closure-ref (%closure-ref self$914 1) 0) (%closure-ref self$914 1) #t)) (%closure-ref self$913 1)) (set-cell! (%closure-ref self$913 2) r$492))) (%closure-ref self$912 1) (%closure-ref self$912 5)) (cons (cons (%closure-ref self$912 4) (%closure-ref self$912 3)) (cell-get (%closure-ref self$912 5))))))) k$480 (%closure-ref self$911 2) term1$276 term2$275 (%closure-ref self$911 3)) (assq term2$275 (cell-get (%closure-ref self$911 3)))))) (%closure-ref self$910 7) (%closure-ref self$910 11) (%closure-ref self$910 19))))) (%closure-ref self$907 1) (%closure-ref self$907 2) (%closure-ref self$907 3) (%closure-ref self$907 4) (%closure-ref self$907 5) (%closure-ref self$907 7) (%closure-ref self$907 8) (%closure-ref self$907 9) (%closure-ref self$907 10) (%closure-ref self$907 11) (%closure-ref self$907 12) (%closure-ref self$907 13) (%closure-ref self$907 14) (%closure-ref self$907 15) (%closure-ref self$907 16) (%closure-ref self$907 17) (%closure-ref self$907 18) (%closure-ref self$907 19) (%closure-ref self$907 20)) (set-cell! (%closure-ref self$907 6) (%closure (lambda (self$908 k$495 term1$279 term2$278) ((%closure (lambda (self$909 r$496) ((%closure-ref (cell-get (%closure-ref self$909 2)) 0) (cell-get (%closure-ref self$909 2)) (%closure-ref self$909 1) (%closure-ref self$909 3) (%closure-ref self$909 4))) k$495 (%closure-ref self$908 1) term1$279 term2$278) (set-cell! (%closure-ref self$908 2) '()))) (%closure-ref self$907 7) (%closure-ref self$907 20))))) (%closure-ref self$906 1) (%closure-ref self$906 2) (%closure-ref self$906 3) (%closure-ref self$906 4) (%closure-ref self$906 5) (%closure-ref self$906 6) (%closure-ref self$906 7) (%closure-ref self$906 8) (%closure-ref self$906 9) (%closure-ref self$906 10) (%closure-ref self$906 11) (%closure-ref self$906 12) (%closure-ref self$906 13) (%closure-ref self$906 14) (%closure-ref self$906 15) (%closure-ref self$906 16) (%closure-ref self$906 17) (%closure-ref self$906 18) (%closure-ref self$906 19) (%closure-ref self$906 20)) (set-cell! (%closure-ref self$906 20) '*))) (%closure-ref self$902 1) (%closure-ref self$902 2) (%closure-ref self$902 4) (%closure-ref self$902 5) (%closure-ref self$902 6) (%closure-ref self$902 7) (%closure-ref self$902 8) (%closure-ref self$902 9) (%closure-ref self$902 11) (%closure-ref self$902 13) (%closure-ref self$902 14) (%closure-ref self$902 15) (%closure-ref self$902 16) (%closure-ref self$902 17) (%closure-ref self$902 18) (%closure-ref self$902 19) (%closure-ref self$902 20) (%closure-ref self$902 21) (%closure-ref self$902 22) (%closure-ref self$902 23)) (set-cell! (%closure-ref self$902 12) (%closure (lambda (self$903 k$500 term$281 lst$280) (if (null? lst$280) ((%closure-ref k$500 0) k$500 term$281) ((%closure-ref (cell-get (%closure-ref self$903 2)) 0) (cell-get (%closure-ref self$903 2)) (%closure (lambda (self$904 r$502) (if r$502 ((%closure-ref (cell-get (%closure-ref self$904 1)) 0) (cell-get (%closure-ref self$904 1)) (%closure (lambda (self$905 r$503) ((%closure-ref (cell-get (%closure-ref self$905 2)) 0) (cell-get (%closure-ref self$905 2)) (%closure-ref self$905 1) r$503)) (%closure-ref self$904 2) (%closure-ref self$904 4)) (cell-get (%closure-ref self$904 7)) (caddr (car (%closure-ref self$904 3)))) ((%closure-ref (cell-get (%closure-ref self$904 5)) 0) (cell-get (%closure-ref self$904 5)) (%closure-ref self$904 2) (%closure-ref self$904 6) (cdr (%closure-ref self$904 3))))) (%closure-ref self$903 1) k$500 lst$280 (%closure-ref self$903 3) (%closure-ref self$903 4) term$281 (%closure-ref self$903 5)) term$281 (cadr (car lst$280))))) (%closure-ref self$902 3) (%closure-ref self$902 7) (%closure-ref self$902 10) (%closure-ref self$902 12) (%closure-ref self$902 23))))) (%closure-ref self$898 1) (%closure-ref self$898 2) (%closure-ref self$898 3) (%closure-ref self$898 4) (%closure-ref self$898 5) (%closure-ref self$898 6) (%closure-ref self$898 7) (%closure-ref self$898 8) (%closure-ref self$898 9) (%closure-ref self$898 10) (%closure-ref self$898 12) (%closure-ref self$898 13) (%closure-ref self$898 15) (%closure-ref self$898 16) (%closure-ref self$898 17) (%closure-ref self$898 18) (%closure-ref self$898 19) (%closure-ref self$898 20) (%closure-ref self$898 21) (%closure-ref self$898 22) (%closure-ref self$898 23) (%closure-ref self$898 24) (%closure-ref self$898 25)) (set-cell! (%closure-ref self$898 11) (%closure (lambda (self$899 k$510 lst$282) (if (null? lst$282) ((%closure-ref k$510 0) k$510 '()) ((%closure-ref (cell-get (%closure-ref self$899 1)) 0) (cell-get (%closure-ref self$899 1)) (%closure (lambda (self$900 r$512) ((%closure-ref (cell-get (%closure-ref self$900 3)) 0) (cell-get (%closure-ref self$900 3)) (%closure (lambda (self$901 r$513) ((%closure-ref (cell-get (%closure-ref self$901 4)) 0) (cell-get (%closure-ref self$901 4)) (%closure-ref self$901 1) (%closure-ref self$901 3) r$513 (%closure-ref self$901 2))) (%closure-ref self$900 1) (%closure-ref self$900 2) r$512 (%closure-ref self$900 4)) (cdr (%closure-ref self$900 2)))) k$510 lst$282 (%closure-ref self$899 2) (%closure-ref self$899 3)) (car lst$282)))) (%closure-ref self$898 10) (%closure-ref self$898 11) (%closure-ref self$898 14))))) (%closure-ref self$892 1) (%closure-ref self$892 2) (%closure-ref self$892 3) (%closure-ref self$892 4) (%closure-ref self$892 5) (%closure-ref self$892 6) (%closure-ref self$892 7) (%closure-ref self$892 8) (%closure-ref self$892 9) (%closure-ref self$892 10) (%closure-ref self$892 11) (%closure-ref self$892 12) (%closure-ref self$892 13) (%closure-ref self$892 14) (%closure-ref self$892 15) (%closure-ref self$892 16) (%closure-ref self$892 17) (%closure-ref self$892 18) (%closure-ref self$892 19) (%closure-ref self$892 20) (%closure-ref self$892 21) (%closure-ref self$892 22) (%closure-ref self$892 23) (%closure-ref self$892 24) (%closure-ref self$892 25)) (set-cell! (%closure-ref self$892 10) (%closure (lambda (self$893 k$517 term$283) ((%closure (lambda (self$894 r$526) ((%closure (lambda (self$895 r$518) (if (pair? (%closure-ref self$895 5)) ((%closure-ref (cell-get (%closure-ref self$895 2)) 0) (cell-get (%closure-ref self$895 2)) (%closure (lambda (self$896 r$524) ((%closure-ref (cell-get (%closure-ref self$896 3)) 0) (cell-get (%closure-ref self$896 3)) (%closure (lambda (self$897 r$520) ((%closure-ref (cell-get (%closure-ref self$897 2)) 0) (cell-get (%closure-ref self$897 2)) (%closure-ref self$897 1) r$520 (vector-ref (car (%closure-ref self$897 3)) 1))) (%closure-ref self$896 1) (%closure-ref self$896 2) (%closure-ref self$896 4)) (car (%closure-ref self$896 4)) r$524 (%closure-ref self$896 4))) (%closure-ref self$895 1) (%closure-ref self$895 3) (%closure-ref self$895 4) (%closure-ref self$895 5)) (cdr (%closure-ref self$895 5))) ((%closure-ref (%closure-ref self$895 1) 0) (%closure-ref self$895 1) (%closure-ref self$895 5)))) (%closure-ref self$894 1) (%closure-ref self$894 2) (%closure-ref self$894 4) (%closure-ref self$894 5) (%closure-ref self$894 6)) (set-cell! (%closure-ref self$894 3) r$526))) k$517 (%closure-ref self$893 1) (%closure-ref self$893 2) (%closure-ref self$893 3) (%closure-ref self$893 4) term$283) (Cyc-fast-plus (cell-get (%closure-ref self$893 2)) 1))) (%closure-ref self$892 11) (%closure-ref self$892 12) (%closure-ref self$892 13) (%closure-ref self$892 14))))) (%closure-ref self$888 1) (%closure-ref self$888 2) (%closure-ref self$888 3) (%closure-ref self$888 4) (%closure-ref self$888 5) (%closure-ref self$888 6) (%closure-ref self$888 7) (%closure-ref self$888 8) (%closure-ref self$888 9) (%closure-ref self$888 10) (%closure-ref self$888 11) (%closure-ref self$888 12) (%closure-ref self$888 13) (%closure-ref self$888 14) (%closure-ref self$888 15) (%closure-ref self$888 16) (%closure-ref self$888 17) (%closure-ref self$888 18) (%closure-ref self$888 19) (%closure-ref self$888 20) (%closure-ref self$888 21) (%closure-ref self$888 22) (%closure-ref self$888 23) (%closure-ref self$888 24) (%closure-ref self$888 25)) (set-cell! (%closure-ref self$888 14) (%closure (lambda (self$889 k$528 x$286 y$285 original$284) ((%closure (lambda (self$891 k$530) (if (eq? (%closure-ref self$891 2) (car (%closure-ref self$891 1))) ((%closure-ref k$530 0) k$530 (eq? (%closure-ref self$891 3) (cdr (%closure-ref self$891 1)))) ((%closure-ref k$530 0) k$530 #f))) original$284 x$286 y$285) (%closure (lambda (self$890 r$529) (if r$529 ((%closure-ref (%closure-ref self$890 1) 0) (%closure-ref self$890 1) (%closure-ref self$890 2)) ((%closure-ref (%closure-ref self$890 1) 0) (%closure-ref self$890 1) (cons (%closure-ref self$890 3) (%closure-ref self$890 4))))) k$528 original$284 x$286 y$285))))))) (%closure-ref self$887 1) (%closure-ref self$887 2) (%closure-ref self$887 3) (%closure-ref self$887 4) (%closure-ref self$887 5) (%closure-ref self$887 6) (%closure-ref self$887 7) (%closure-ref self$887 8) (%closure-ref self$887 9) (%closure-ref self$887 10) (%closure-ref self$887 11) (%closure-ref self$887 12) (%closure-ref self$887 13) (%closure-ref self$887 14) (%closure-ref self$887 15) (%closure-ref self$887 16) (%closure-ref self$887 17) (%closure-ref self$887 18) (%closure-ref self$887 19) (%closure-ref self$887 20) (%closure-ref self$887 21) (%closure-ref self$887 22) (%closure-ref self$887 23) (%closure-ref self$887 24) (%closure-ref self$887 25)) (set-cell! (%closure-ref self$887 12) 0))) (%closure-ref self$886 1) (%closure-ref self$886 2) (%closure-ref self$886 3) (%closure-ref self$886 4) (%closure-ref self$886 5) (%closure-ref self$886 6) (%closure-ref self$886 7) (%closure-ref self$886 8) (%closure-ref self$886 9) (%closure-ref self$886 10) (%closure-ref self$886 11) (%closure-ref self$886 12) (%closure-ref self$886 13) (%closure-ref self$886 14) (%closure-ref self$886 15) (%closure-ref self$886 16) (%closure-ref self$886 17) (%closure-ref self$886 18) (%closure-ref self$886 19) (%closure-ref self$886 20) (%closure-ref self$886 21) (%closure-ref self$886 22) (%closure-ref self$886 23) (%closure-ref self$886 24) (%closure-ref self$886 25)) (set-cell! (%closure-ref self$886 6) '*))) (%closure-ref self$879 1) (%closure-ref self$879 2) (%closure-ref self$879 3) (%closure-ref self$879 4) (%closure-ref self$879 5) (%closure-ref self$879 6) (%closure-ref self$879 7) (%closure-ref self$879 8) (%closure-ref self$879 9) (%closure-ref self$879 10) (%closure-ref self$879 11) (%closure-ref self$879 12) (%closure-ref self$879 13) (%closure-ref self$879 14) (%closure-ref self$879 15) (%closure-ref self$879 17) (%closure-ref self$879 18) (%closure-ref self$879 19) (%closure-ref self$879 20) (%closure-ref self$879 21) (%closure-ref self$879 22) (%closure-ref self$879 23) (%closure-ref self$879 24) (%closure-ref self$879 25) (%closure-ref self$879 26)) (set-cell! (%closure-ref self$879 16) (%closure (lambda (self$880 k$536 x$289 true-lst$288 false-lst$287) ((%closure-ref (cell-get (%closure-ref self$880 4)) 0) (cell-get (%closure-ref self$880 4)) (%closure (lambda (self$881 r$537) (if r$537 ((%closure-ref (%closure-ref self$881 4) 0) (%closure-ref self$881 4) #t) ((%closure-ref (cell-get (%closure-ref self$881 2)) 0) (cell-get (%closure-ref self$881 2)) (%closure (lambda (self$882 r$538) (if r$538 ((%closure-ref (%closure-ref self$882 4) 0) (%closure-ref self$882 4) #f) (if (pair? (%closure-ref self$882 8)) (if (eq? (car (%closure-ref self$882 8)) (cell-get (%closure-ref self$882 3))) ((%closure-ref (cell-get (%closure-ref self$882 7)) 0) (cell-get (%closure-ref self$882 7)) (%closure (lambda (self$883 r$541) (if r$541 ((%closure-ref (cell-get (%closure-ref self$883 4)) 0) (cell-get (%closure-ref self$883 4)) (%closure-ref self$883 3) (caddr (%closure-ref self$883 6)) (%closure-ref self$883 5) (%closure-ref self$883 1)) ((%closure-ref (cell-get (%closure-ref self$883 2)) 0) (cell-get (%closure-ref self$883 2)) (%closure (lambda (self$884 r$543) (if r$543 ((%closure-ref (cell-get (%closure-ref self$884 3)) 0) (cell-get (%closure-ref self$884 3)) (%closure-ref self$884 2) (cadddr (%closure-ref self$884 5)) (%closure-ref self$884 4) (%closure-ref self$884 1)) ((%closure-ref (cell-get (%closure-ref self$884 3)) 0) (cell-get (%closure-ref self$884 3)) (%closure (lambda (self$885 r$545) (if r$545 ((%closure-ref (cell-get (%closure-ref self$885 3)) 0) (cell-get (%closure-ref self$885 3)) (%closure-ref self$885 2) (cadddr (%closure-ref self$885 5)) (%closure-ref self$885 4) (cons (cadr (%closure-ref self$885 5)) (%closure-ref self$885 1))) ((%closure-ref (%closure-ref self$885 2) 0) (%closure-ref self$885 2) #f))) (%closure-ref self$884 1) (%closure-ref self$884 2) (%closure-ref self$884 3) (%closure-ref self$884 4) (%closure-ref self$884 5)) (caddr (%closure-ref self$884 5)) (cons (cadr (%closure-ref self$884 5)) (%closure-ref self$884 4)) (%closure-ref self$884 1)))) (%closure-ref self$883 1) (%closure-ref self$883 3) (%closure-ref self$883 4) (%closure-ref self$883 5) (%closure-ref self$883 6)) (cadr (%closure-ref self$883 6)) (%closure-ref self$883 1)))) (%closure-ref self$882 1) (%closure-ref self$882 2) (%closure-ref self$882 4) (%closure-ref self$882 5) (%closure-ref self$882 6) (%closure-ref self$882 8)) (cadr (%closure-ref self$882 8)) (%closure-ref self$882 6)) ((%closure-ref (%closure-ref self$882 4) 0) (%closure-ref self$882 4) #f)) ((%closure-ref (%closure-ref self$882 4) 0) (%closure-ref self$882 4) #f)))) (%closure-ref self$881 1) (%closure-ref self$881 2) (%closure-ref self$881 3) (%closure-ref self$881 4) (%closure-ref self$881 5) (%closure-ref self$881 6) (%closure-ref self$881 7) (%closure-ref self$881 8)) (%closure-ref self$881 8) (%closure-ref self$881 1)))) false-lst$287 (%closure-ref self$880 1) (%closure-ref self$880 2) k$536 (%closure-ref self$880 3) true-lst$288 (%closure-ref self$880 4) x$289) x$289 true-lst$288)) (%closure-ref self$879 5) (%closure-ref self$879 6) (%closure-ref self$879 16) (%closure-ref self$879 25))))) (%closure-ref self$876 1) (%closure-ref self$876 2) (%closure-ref self$876 3) (%closure-ref self$876 4) (%closure-ref self$876 5) (%closure-ref self$876 6) (%closure-ref self$876 7) (%closure-ref self$876 8) (%closure-ref self$876 9) (%closure-ref self$876 10) (%closure-ref self$876 11) (%closure-ref self$876 12) (%closure-ref self$876 13) (%closure-ref self$876 14) (%closure-ref self$876 15) (%closure-ref self$876 16) (%closure-ref self$876 18) (%closure-ref self$876 19) (%closure-ref self$876 20) (%closure-ref self$876 21) (%closure-ref self$876 22) (%closure-ref self$876 23) (%closure-ref self$876 24) (%closure-ref self$876 25) (%closure-ref self$876 26) (%closure-ref self$876 27)) (set-cell! (%closure-ref self$876 17) (%closure (lambda (self$877 k$556 x$290) ((%closure-ref (cell-get (%closure-ref self$877 1)) 0) (cell-get (%closure-ref self$877 1)) (%closure (lambda (self$878 r$557) ((%closure-ref (cell-get (%closure-ref self$878 2)) 0) (cell-get (%closure-ref self$878 2)) (%closure-ref self$878 1) r$557 '() '())) k$556 (%closure-ref self$877 2)) x$290)) (%closure-ref self$876 10) (%closure-ref self$876 16))))) (%closure-ref self$872 1) (%closure-ref self$872 2) (%closure-ref self$872 3) (%closure-ref self$872 5) (%closure-ref self$872 6) (%closure-ref self$872 7) (%closure-ref self$872 8) (%closure-ref self$872 9) (%closure-ref self$872 10) (%closure-ref self$872 11) (%closure-ref self$872 12) (%closure-ref self$872 13) (%closure-ref self$872 14) (%closure-ref self$872 15) (%closure-ref self$872 16) (%closure-ref self$872 17) (%closure-ref self$872 18) (%closure-ref self$872 19) (%closure-ref self$872 20) (%closure-ref self$872 21) (%closure-ref self$872 22) (%closure-ref self$872 23) (%closure-ref self$872 24) (%closure-ref self$872 25) (%closure-ref self$872 26) (%closure-ref self$872 27) (%closure-ref self$872 28)) (set-cell! (%closure-ref self$872 4) (%closure (lambda (self$873 k$561 alist$292 lst$291) (if (null? lst$291) ((%closure-ref k$561 0) k$561 '()) ((%closure-ref (cell-get (%closure-ref self$873 1)) 0) (cell-get (%closure-ref self$873 1)) (%closure (lambda (self$874 r$563) ((%closure-ref (cell-get (%closure-ref self$874 2)) 0) (cell-get (%closure-ref self$874 2)) (%closure (lambda (self$875 r$564) ((%closure-ref (%closure-ref self$875 1) 0) (%closure-ref self$875 1) (cons (%closure-ref self$875 2) r$564))) (%closure-ref self$874 3) r$563) (%closure-ref self$874 1) (cdr (%closure-ref self$874 4)))) alist$292 (%closure-ref self$873 2) k$561 lst$291) alist$292 (car lst$291)))) (%closure-ref self$872 3) (%closure-ref self$872 4))))) (%closure-ref self$869 1) (%closure-ref self$869 2) (%closure-ref self$869 3) (%closure-ref self$869 4) (%closure-ref self$869 5) (%closure-ref self$869 6) (%closure-ref self$869 7) (%closure-ref self$869 8) (%closure-ref self$869 9) (%closure-ref self$869 10) (%closure-ref self$869 11) (%closure-ref self$869 12) (%closure-ref self$869 13) (%closure-ref self$869 14) (%closure-ref self$869 15) (%closure-ref self$869 16) (%closure-ref self$869 17) (%closure-ref self$869 18) (%closure-ref self$869 19) (%closure-ref self$869 20) (%closure-ref self$869 21) (%closure-ref self$869 22) (%closure-ref self$869 23) (%closure-ref self$869 24) (%closure-ref self$869 25) (%closure-ref self$869 26) (%closure-ref self$869 27) (%closure-ref self$869 28)) (set-cell! (%closure-ref self$869 3) (%closure (lambda (self$870 k$568 alist$294 term$293) (if (pair? term$293) ((%closure-ref (cell-get (%closure-ref self$870 1)) 0) (cell-get (%closure-ref self$870 1)) (%closure (lambda (self$871 r$571) ((%closure-ref (%closure-ref self$871 1) 0) (%closure-ref self$871 1) (cons (car (%closure-ref self$871 2)) r$571))) k$568 term$293) alist$294 (cdr term$293)) (if (assq term$293 alist$294) ((%closure-ref k$568 0) k$568 (cdr (assq term$293 alist$294))) ((%closure-ref k$568 0) k$568 term$293)))) (%closure-ref self$869 4))))) (%closure-ref self$865 1) (%closure-ref self$865 2) (%closure-ref self$865 3) (%closure-ref self$865 4) (%closure-ref self$865 5) (%closure-ref self$865 6) (%closure-ref self$865 7) (%closure-ref self$865 8) (%closure-ref self$865 9) (%closure-ref self$865 10) (%closure-ref self$865 11) (%closure-ref self$865 12) (%closure-ref self$865 13) (%closure-ref self$865 14) (%closure-ref self$865 15) (%closure-ref self$865 16) (%closure-ref self$865 17) (%closure-ref self$865 18) (%closure-ref self$865 19) (%closure-ref self$865 20) (%closure-ref self$865 21) (%closure-ref self$865 22) (%closure-ref self$865 23) (%closure-ref self$865 24) (%closure-ref self$865 26) (%closure-ref self$865 27) (%closure-ref self$865 28) (%closure-ref self$865 29)) (set-cell! (%closure-ref self$865 25) (%closure (lambda (self$866 k$575 alist$296) (if (null? alist$296) ((%closure-ref k$575 0) k$575 '()) ((%closure-ref (cell-get (%closure-ref self$866 2)) 0) (cell-get (%closure-ref self$866 2)) (%closure (lambda (self$867 r$581) ((%closure-ref (cell-get (%closure-ref self$867 3)) 0) (cell-get (%closure-ref self$867 3)) (%closure (lambda (self$868 r$578) ((%closure-ref (%closure-ref self$868 2) 0) (%closure-ref self$868 2) (cons (cons (caar (%closure-ref self$868 1)) (%closure-ref self$868 3)) r$578))) (%closure-ref self$867 1) (%closure-ref self$867 2) r$581) (cdr (%closure-ref self$867 1)))) alist$296 k$575 (%closure-ref self$866 1)) (cdar alist$296)))) (%closure-ref self$865 25) (%closure-ref self$865 26))))) (%closure-ref self$853 1) (%closure-ref self$853 2) (%closure-ref self$853 3) (%closure-ref self$853 4) (%closure-ref self$853 5) (%closure-ref self$853 6) (%closure-ref self$853 7) (%closure-ref self$853 8) (%closure-ref self$853 9) (%closure-ref self$853 10) (%closure-ref self$853 11) (%closure-ref self$853 12) (%closure-ref self$853 13) (%closure-ref self$853 14) (%closure-ref self$853 15) (%closure-ref self$853 16) (%closure-ref self$853 17) (%closure-ref self$853 18) (%closure-ref self$853 19) (%closure-ref self$853 20) (%closure-ref self$853 21) (%closure-ref self$853 22) (%closure-ref self$853 23) (%closure-ref self$853 24) (%closure-ref self$853 25) (%closure-ref self$853 26) (%closure-ref self$853 27) (%closure-ref self$853 28) (%closure-ref self$853 29)) (set-cell! (%closure-ref self$853 22) (%closure (lambda (self$854 k$584 alist$299 term$298 n$297) ((%closure-ref (cell-get (%closure-ref self$854 3)) 0) (cell-get (%closure-ref self$854 3)) (%closure (lambda (self$855 r$586) ((%closure (lambda (self$856 term$301 n$300) ((%closure (lambda (self$857 lp$37$302) ((%closure (lambda (self$858 lp$37$302) ((%closure (lambda (self$861 r$589) ((%closure-ref (cell-get (%closure-ref self$861 3)) 0) (cell-get (%closure-ref self$861 3)) (%closure (lambda (self$862 r$588) ((%closure-ref (cell-get (%closure-ref self$862 5)) 0) (cell-get (%closure-ref self$862 5)) (%closure (lambda (self$863 r$587) ((%closure-ref (cell-get (%closure-ref self$863 1)) 0) (cell-get (%closure-ref self$863 1)) (%closure (lambda (self$864 term$305) ((%closure-ref (cell-get (%closure-ref self$864 2)) 0) (cell-get (%closure-ref self$864 2)) (%closure-ref self$864 1) term$305)) (%closure-ref self$863 2) (%closure-ref self$863 4)) (%closure-ref self$863 3) r$587)) (%closure-ref self$862 1) (%closure-ref self$862 2) (%closure-ref self$862 3) (%closure-ref self$862 4)) r$588)) (%closure-ref self$861 1) (%closure-ref self$861 2) (%closure-ref self$861 5) (%closure-ref self$861 6) (%closure-ref self$861 8)) (%closure-ref self$861 7) (%closure-ref self$861 4))) (%closure-ref self$858 1) (%closure-ref self$858 2) lp$37$302 (%closure-ref self$858 3) (%closure-ref self$858 4) (%closure-ref self$858 5) (%closure-ref self$858 6) (%closure-ref self$858 7)) (set-cell! lp$37$302 (%closure (lambda (self$859 k$591 term$304 n$303) (if (zero?__inline__ n$303) ((%closure-ref k$591 0) k$591 term$304) ((%closure-ref list 0) list (%closure (lambda (self$860 r$593) ((%closure-ref (cell-get (%closure-ref self$860 2)) 0) (cell-get (%closure-ref self$860 2)) (%closure-ref self$860 1) r$593 (Cyc-fast-sub (%closure-ref self$860 3) 1))) k$591 (%closure-ref self$859 1) n$303) 'or term$304 '(f)))) lp$37$302)))) (%closure-ref self$857 1) (%closure-ref self$857 2) (%closure-ref self$857 3) (%closure-ref self$857 4) (%closure-ref self$857 5) (%closure-ref self$857 6) (%closure-ref self$857 7)) (cell lp$37$302))) (%closure-ref self$856 1) (%closure-ref self$856 2) n$300 (%closure-ref self$856 3) (%closure-ref self$856 4) term$301 (%closure-ref self$856 5)) #f)) (%closure-ref self$855 1) (%closure-ref self$855 2) r$586 (%closure-ref self$855 4) (%closure-ref self$855 6)) (%closure-ref self$855 5) (%closure-ref self$855 3))) (%closure-ref self$854 1) k$584 n$297 (%closure-ref self$854 2) term$298 (%closure-ref self$854 4)) alist$299)) (%closure-ref self$853 3) (%closure-ref self$853 18) (%closure-ref self$853 25) (%closure-ref self$853 26))))) (%closure-ref self$851 1) (%closure-ref self$851 2) (%closure-ref self$851 3) (%closure-ref self$851 4) (%closure-ref self$851 5) (%closure-ref self$851 6) (%closure-ref self$851 7) (%closure-ref self$851 8) (%closure-ref self$851 9) (%closure-ref self$851 10) (%closure-ref self$851 11) (%closure-ref self$851 12) (%closure-ref self$851 13) (%closure-ref self$851 14) (%closure-ref self$851 15) (%closure-ref self$851 16) (%closure-ref self$851 18) (%closure-ref self$851 19) (%closure-ref self$851 20) (%closure-ref self$851 21) (%closure-ref self$851 22) (%closure-ref self$851 23) (%closure-ref self$851 24) (%closure-ref self$851 25) (%closure-ref self$851 26) (%closure-ref self$851 27) (%closure-ref self$851 28) (%closure-ref self$851 29) (%closure-ref self$851 30)) (set-cell! (%closure-ref self$851 17) (%closure (lambda (self$852 k$598 r1$307 r2$306) ((%closure-ref k$598 0) k$598 (eq? r1$307 r2$306))))))) (%closure-ref self$849 1) (%closure-ref self$849 2) (%closure-ref self$849 3) (%closure-ref self$849 4) (%closure-ref self$849 5) (%closure-ref self$849 6) (%closure-ref self$849 8) (%closure-ref self$849 9) (%closure-ref self$849 10) (%closure-ref self$849 11) (%closure-ref self$849 12) (%closure-ref self$849 13) (%closure-ref self$849 14) (%closure-ref self$849 15) (%closure-ref self$849 16) (%closure-ref self$849 17) (%closure-ref self$849 18) (%closure-ref self$849 19) (%closure-ref self$849 20) (%closure-ref self$849 21) (%closure-ref self$849 22) (%closure-ref self$849 23) (%closure-ref self$849 24) (%closure-ref self$849 25) (%closure-ref self$849 26) (%closure-ref self$849 27) (%closure-ref self$849 28) (%closure-ref self$849 29) (%closure-ref self$849 30) (%closure-ref self$849 31)) (set-cell! (%closure-ref self$849 7) (%closure (lambda (self$850 k$600 symbol-record$308) ((%closure-ref k$600 0) k$600 (vector-ref symbol-record$308 0))))))) (%closure-ref self$847 1) (%closure-ref self$847 2) (%closure-ref self$847 3) (%closure-ref self$847 4) (%closure-ref self$847 5) (%closure-ref self$847 6) (%closure-ref self$847 8) (%closure-ref self$847 9) (%closure-ref self$847 10) (%closure-ref self$847 11) (%closure-ref self$847 12) (%closure-ref self$847 13) (%closure-ref self$847 14) (%closure-ref self$847 15) (%closure-ref self$847 16) (%closure-ref self$847 17) (%closure-ref self$847 18) (%closure-ref self$847 19) (%closure-ref self$847 20) (%closure-ref self$847 21) (%closure-ref self$847 22) (%closure-ref self$847 23) (%closure-ref self$847 24) (%closure-ref self$847 25) (%closure-ref self$847 26) (%closure-ref self$847 27) (%closure-ref self$847 28) (%closure-ref self$847 29) (%closure-ref self$847 30) (%closure-ref self$847 31) (%closure-ref self$847 32)) (set-cell! (%closure-ref self$847 7) (%closure (lambda (self$848 k$602 symbol-record$309) ((%closure-ref k$602 0) k$602 (vector-ref symbol-record$309 1))))))) (%closure-ref self$845 1) (%closure-ref self$845 2) (%closure-ref self$845 3) (%closure-ref self$845 4) (%closure-ref self$845 5) (%closure-ref self$845 6) (%closure-ref self$845 7) (%closure-ref self$845 8) (%closure-ref self$845 9) (%closure-ref self$845 10) (%closure-ref self$845 11) (%closure-ref self$845 12) (%closure-ref self$845 14) (%closure-ref self$845 15) (%closure-ref self$845 16) (%closure-ref self$845 17) (%closure-ref self$845 18) (%closure-ref self$845 19) (%closure-ref self$845 20) (%closure-ref self$845 21) (%closure-ref self$845 22) (%closure-ref self$845 23) (%closure-ref self$845 24) (%closure-ref self$845 25) (%closure-ref self$845 26) (%closure-ref self$845 27) (%closure-ref self$845 28) (%closure-ref self$845 29) (%closure-ref self$845 30) (%closure-ref self$845 31) (%closure-ref self$845 32) (%closure-ref self$845 33)) (set-cell! (%closure-ref self$845 13) (%closure (lambda (self$846 k$604 symbol-record$311 lemmas$310) ((%closure-ref k$604 0) k$604 (vector-set! symbol-record$311 1 lemmas$310))))))) (%closure-ref self$843 1) (%closure-ref self$843 2) (%closure-ref self$843 3) (%closure-ref self$843 4) (%closure-ref self$843 5) (%closure-ref self$843 6) (%closure-ref self$843 7) (%closure-ref self$843 8) (%closure-ref self$843 9) (%closure-ref self$843 11) (%closure-ref self$843 12) (%closure-ref self$843 13) (%closure-ref self$843 14) (%closure-ref self$843 15) (%closure-ref self$843 16) (%closure-ref self$843 17) (%closure-ref self$843 18) (%closure-ref self$843 19) (%closure-ref self$843 20) (%closure-ref self$843 21) (%closure-ref self$843 22) (%closure-ref self$843 23) (%closure-ref self$843 24) (%closure-ref self$843 25) (%closure-ref self$843 26) (%closure-ref self$843 27) (%closure-ref self$843 28) (%closure-ref self$843 29) (%closure-ref self$843 30) (%closure-ref self$843 31) (%closure-ref self$843 32) (%closure-ref self$843 33) (%closure-ref self$843 34)) (set-cell! (%closure-ref self$843 10) (%closure (lambda (self$844 k$606 sym$312) ((%closure-ref vector 0) vector k$606 sym$312 '())))))) (%closure-ref self$842 1) (%closure-ref self$842 2) (%closure-ref self$842 3) (%closure-ref self$842 4) (%closure-ref self$842 5) (%closure-ref self$842 6) (%closure-ref self$842 7) (%closure-ref self$842 8) (%closure-ref self$842 9) (%closure-ref self$842 10) (%closure-ref self$842 11) (%closure-ref self$842 12) (%closure-ref self$842 13) (%closure-ref self$842 14) (%closure-ref self$842 15) (%closure-ref self$842 16) (%closure-ref self$842 17) (%closure-ref self$842 18) (%closure-ref self$842 19) (%closure-ref self$842 20) (%closure-ref self$842 21) (%closure-ref self$842 22) (%closure-ref self$842 23) (%closure-ref self$842 24) (%closure-ref self$842 25) (%closure-ref self$842 26) (%closure-ref self$842 27) (%closure-ref self$842 28) (%closure-ref self$842 29) (%closure-ref self$842 30) (%closure-ref self$842 31) (%closure-ref self$842 32) (%closure-ref self$842 33) (%closure-ref self$842 34)) (set-cell! (%closure-ref self$842 1) '()))) (%closure-ref self$836 1) (%closure-ref self$836 2) (%closure-ref self$836 3) (%closure-ref self$836 4) (%closure-ref self$836 5) (%closure-ref self$836 6) (%closure-ref self$836 7) (%closure-ref self$836 8) (%closure-ref self$836 9) (%closure-ref self$836 10) (%closure-ref self$836 11) (%closure-ref self$836 12) (%closure-ref self$836 13) (%closure-ref self$836 14) (%closure-ref self$836 15) (%closure-ref self$836 16) (%closure-ref self$836 17) (%closure-ref self$836 18) (%closure-ref self$836 19) (%closure-ref self$836 20) (%closure-ref self$836 21) (%closure-ref self$836 22) (%closure-ref self$836 23) (%closure-ref self$836 24) (%closure-ref self$836 25) (%closure-ref self$836 26) (%closure-ref self$836 27) (%closure-ref self$836 28) (%closure-ref self$836 29) (%closure-ref self$836 30) (%closure-ref self$836 31) (%closure-ref self$836 32) (%closure-ref self$836 33) (%closure-ref self$836 34)) (set-cell! (%closure-ref self$836 20) (%closure (lambda (self$837 k$610 sym$313) ((%closure (lambda (self$838 x$314) (if x$314 ((%closure-ref (%closure-ref self$838 2) 0) (%closure-ref self$838 2) (cdr x$314)) ((%closure-ref vector 0) vector (%closure (lambda (self$839 r$315) ((%closure (lambda (self$840 r$614) ((%closure (lambda (self$841 r$613) ((%closure-ref (%closure-ref self$841 1) 0) (%closure-ref self$841 1) (%closure-ref self$841 2))) (%closure-ref self$840 2) (%closure-ref self$840 3)) (set-cell! (%closure-ref self$840 1) r$614))) (%closure-ref self$839 1) (%closure-ref self$839 2) r$315) (cons (cons (%closure-ref self$839 3) r$315) (cell-get (%closure-ref self$839 1))))) (%closure-ref self$838 1) (%closure-ref self$838 2) (%closure-ref self$838 3)) (%closure-ref self$838 3) '()))) (%closure-ref self$837 1) k$610 sym$313) (assq sym$313 (cell-get (%closure-ref self$837 1))))) (%closure-ref self$836 1))))) (%closure-ref self$833 1) (%closure-ref self$833 2) (%closure-ref self$833 3) (%closure-ref self$833 4) (%closure-ref self$833 5) (%closure-ref self$833 6) (%closure-ref self$833 8) (%closure-ref self$833 9) (%closure-ref self$833 10) (%closure-ref self$833 11) (%closure-ref self$833 12) (%closure-ref self$833 13) (%closure-ref self$833 14) (%closure-ref self$833 15) (%closure-ref self$833 16) (%closure-ref self$833 17) (%closure-ref self$833 18) (%closure-ref self$833 19) (%closure-ref self$833 20) (%closure-ref self$833 21) (%closure-ref self$833 22) (%closure-ref self$833 23) (%closure-ref self$833 24) (%closure-ref self$833 25) (%closure-ref self$833 26) (%closure-ref self$833 27) (%closure-ref self$833 28) (%closure-ref self$833 29) (%closure-ref self$833 30) (%closure-ref self$833 31) (%closure-ref self$833 32) (%closure-ref self$833 33) (%closure-ref self$833 34) (%closure-ref self$833 35)) (set-cell! (%closure-ref self$833 7) (%closure (lambda (self$834 k$617 sym$317 property$316) ((%closure-ref (cell-get (%closure-ref self$834 1)) 0) (cell-get (%closure-ref self$834 1)) (%closure (lambda (self$835 r$618) ((%closure-ref (%closure-ref self$835 1) 0) (%closure-ref self$835 1) (vector-ref r$618 1))) k$617) sym$317)) (%closure-ref self$833 21))))) (%closure-ref self$830 1) (%closure-ref self$830 2) (%closure-ref self$830 3) (%closure-ref self$830 4) (%closure-ref self$830 5) (%closure-ref self$830 6) (%closure-ref self$830 7) (%closure-ref self$830 8) (%closure-ref self$830 9) (%closure-ref self$830 10) (%closure-ref self$830 11) (%closure-ref self$830 12) (%closure-ref self$830 13) (%closure-ref self$830 14) (%closure-ref self$830 16) (%closure-ref self$830 17) (%closure-ref self$830 18) (%closure-ref self$830 19) (%closure-ref self$830 20) (%closure-ref self$830 21) (%closure-ref self$830 22) (%closure-ref self$830 23) (%closure-ref self$830 24) (%closure-ref self$830 25) (%closure-ref self$830 26) (%closure-ref self$830 27) (%closure-ref self$830 28) (%closure-ref self$830 29) (%closure-ref self$830 30) (%closure-ref self$830 31) (%closure-ref self$830 32) (%closure-ref self$830 33) (%closure-ref self$830 34) (%closure-ref self$830 35) (%closure-ref self$830 36)) (set-cell! (%closure-ref self$830 15) (%closure (lambda (self$831 k$620 sym$320 property$319 value$318) ((%closure-ref (cell-get (%closure-ref self$831 1)) 0) (cell-get (%closure-ref self$831 1)) (%closure (lambda (self$832 r$621) ((%closure-ref (%closure-ref self$832 1) 0) (%closure-ref self$832 1) (vector-set! r$621 1 (%closure-ref self$832 2)))) k$620 value$318) sym$320)) (%closure-ref self$830 22))))) (%closure-ref self$827 1) (%closure-ref self$827 2) (%closure-ref self$827 3) (%closure-ref self$827 4) (%closure-ref self$827 5) (%closure-ref self$827 6) (%closure-ref self$827 7) (%closure-ref self$827 8) (%closure-ref self$827 9) (%closure-ref self$827 10) (%closure-ref self$827 11) (%closure-ref self$827 12) (%closure-ref self$827 13) (%closure-ref self$827 14) (%closure-ref self$827 15) (%closure-ref self$827 16) (%closure-ref self$827 17) (%closure-ref self$827 18) (%closure-ref self$827 19) (%closure-ref self$827 20) (%closure-ref self$827 21) (%closure-ref self$827 22) (%closure-ref self$827 23) (%closure-ref self$827 24) (%closure-ref self$827 25) (%closure-ref self$827 26) (%closure-ref self$827 27) (%closure-ref self$827 28) (%closure-ref self$827 29) (%closure-ref self$827 30) (%closure-ref self$827 31) (%closure-ref self$827 32) (%closure-ref self$827 33) (%closure-ref self$827 34) (%closure-ref self$827 35) (%closure-ref self$827 36)) (set-cell! (%closure-ref self$827 37) (%closure (lambda (self$828 k$623 term$321) (if (pair? term$321) ((%closure-ref map 0) map (%closure (lambda (self$829 r$626) ((%closure-ref (%closure-ref self$829 1) 0) (%closure-ref self$829 1) (cons (vector-ref (car (%closure-ref self$829 2)) 0) r$626))) k$623 term$321) (cell-get (%closure-ref self$828 1)) (cdr term$321)) ((%closure-ref k$623 0) k$623 term$321))) (%closure-ref self$827 37))))) (%closure-ref self$823 1) (%closure-ref self$823 2) (%closure-ref self$823 3) (%closure-ref self$823 4) (%closure-ref self$823 5) (%closure-ref self$823 6) (%closure-ref self$823 7) (%closure-ref self$823 8) (%closure-ref self$823 9) (%closure-ref self$823 10) (%closure-ref self$823 11) (%closure-ref self$823 12) (%closure-ref self$823 13) (%closure-ref self$823 14) (%closure-ref self$823 15) (%closure-ref self$823 16) (%closure-ref self$823 17) (%closure-ref self$823 18) (%closure-ref self$823 19) (%closure-ref self$823 20) (%closure-ref self$823 21) (%closure-ref self$823 22) (%closure-ref self$823 23) (%closure-ref self$823 24) (%closure-ref self$823 25) (%closure-ref self$823 26) (%closure-ref self$823 27) (%closure-ref self$823 28) (%closure-ref self$823 29) (%closure-ref self$823 30) (%closure-ref self$823 31) (%closure-ref self$823 32) (%closure-ref self$823 34) (%closure-ref self$823 35) (%closure-ref self$823 36) (%closure-ref self$823 37) (%closure-ref self$823 38)) (set-cell! (%closure-ref self$823 33) (%closure (lambda (self$824 k$630 lst$322) (if (null? lst$322) ((%closure-ref k$630 0) k$630 '()) ((%closure-ref (cell-get (%closure-ref self$824 2)) 0) (cell-get (%closure-ref self$824 2)) (%closure (lambda (self$825 r$632) ((%closure-ref (cell-get (%closure-ref self$825 3)) 0) (cell-get (%closure-ref self$825 3)) (%closure (lambda (self$826 r$633) ((%closure-ref (%closure-ref self$826 1) 0) (%closure-ref self$826 1) (cons (%closure-ref self$826 2) r$633))) (%closure-ref self$825 1) r$632) (cdr (%closure-ref self$825 2)))) k$630 lst$322 (%closure-ref self$824 1)) (car lst$322)))) (%closure-ref self$823 33) (%closure-ref self$823 34))))) (%closure-ref self$819 1) (%closure-ref self$819 2) (%closure-ref self$819 3) (%closure-ref self$819 4) (%closure-ref self$819 5) (%closure-ref self$819 6) (%closure-ref self$819 7) (%closure-ref self$819 8) (%closure-ref self$819 9) (%closure-ref self$819 10) (%closure-ref self$819 11) (%closure-ref self$819 12) (%closure-ref self$819 13) (%closure-ref self$819 14) (%closure-ref self$819 15) (%closure-ref self$819 16) (%closure-ref self$819 17) (%closure-ref self$819 18) (%closure-ref self$819 19) (%closure-ref self$819 20) (%closure-ref self$819 21) (%closure-ref self$819 22) (%closure-ref self$819 23) (%closure-ref self$819 24) (%closure-ref self$819 25) (%closure-ref self$819 26) (%closure-ref self$819 27) (%closure-ref self$819 28) (%closure-ref self$819 29) (%closure-ref self$819 30) (%closure-ref self$819 31) (%closure-ref self$819 32) (%closure-ref self$819 33) (%closure-ref self$819 34) (%closure-ref self$819 35) (%closure-ref self$819 36) (%closure-ref self$819 37) (%closure-ref self$819 38)) (set-cell! (%closure-ref self$819 34) (%closure (lambda (self$820 k$637 term$323) (if (pair? term$323) ((%closure-ref (cell-get (%closure-ref self$820 1)) 0) (cell-get (%closure-ref self$820 1)) (%closure (lambda (self$821 r$639) ((%closure-ref (cell-get (%closure-ref self$821 3)) 0) (cell-get (%closure-ref self$821 3)) (%closure (lambda (self$822 r$640) ((%closure-ref (%closure-ref self$822 1) 0) (%closure-ref self$822 1) (cons (%closure-ref self$822 2) r$640))) (%closure-ref self$821 1) r$639) (cdr (%closure-ref self$821 2)))) k$637 term$323 (%closure-ref self$820 2)) (car term$323)) ((%closure-ref k$637 0) k$637 term$323))) (%closure-ref self$819 22) (%closure-ref self$819 33))))) (%closure-ref self$812 1) (%closure-ref self$812 3) (%closure-ref self$812 4) (%closure-ref self$812 5) (%closure-ref self$812 6) (%closure-ref self$812 7) (%closure-ref self$812 8) (%closure-ref self$812 9) (%closure-ref self$812 10) (%closure-ref self$812 11) (%closure-ref self$812 12) (%closure-ref self$812 13) (%closure-ref self$812 14) (%closure-ref self$812 15) (%closure-ref self$812 16) (%closure-ref self$812 17) (%closure-ref self$812 18) (%closure-ref self$812 19) (%closure-ref self$812 20) (%closure-ref self$812 21) (%closure-ref self$812 22) (%closure-ref self$812 23) (%closure-ref self$812 24) (%closure-ref self$812 25) (%closure-ref self$812 26) (%closure-ref self$812 27) (%closure-ref self$812 28) (%closure-ref self$812 29) (%closure-ref self$812 30) (%closure-ref self$812 31) (%closure-ref self$812 32) (%closure-ref self$812 33) (%closure-ref self$812 34) (%closure-ref self$812 35) (%closure-ref self$812 36) (%closure-ref self$812 37) (%closure-ref self$812 38) (%closure-ref self$812 39)) (set-cell! (%closure-ref self$812 2) (%closure (lambda (self$813 k$644 term$324) ((%closure (lambda (self$818 k$655) (if (pair? (%closure-ref self$818 1)) (if (eq? (car (%closure-ref self$818 1)) 'equal) ((%closure-ref k$655 0) k$655 (pair? (cadr (%closure-ref self$818 1)))) ((%closure-ref k$655 0) k$655 #f)) ((%closure-ref k$655 0) k$655 #f))) term$324) (%closure (lambda (self$814 r$645) (if r$645 ((%closure (lambda (self$815 r$654) ((%closure-ref (cell-get (%closure-ref self$815 5)) 0) (cell-get (%closure-ref self$815 5)) (%closure (lambda (self$816 r$649) ((%closure-ref (cell-get (%closure-ref self$816 1)) 0) (cell-get (%closure-ref self$816 1)) (%closure (lambda (self$817 r$650) ((%closure-ref (cell-get (%closure-ref self$817 2)) 0) (cell-get (%closure-ref self$817 2)) (%closure-ref self$817 1) (car (%closure-ref self$817 4)) 'lemmas (cons (%closure-ref self$817 3) r$650))) (%closure-ref self$816 2) (%closure-ref self$816 3) r$649 (%closure-ref self$816 4)) (car (cadr (%closure-ref self$816 5))) 'lemmas)) (%closure-ref self$815 1) (%closure-ref self$815 2) (%closure-ref self$815 3) r$654 (%closure-ref self$815 4)) (%closure-ref self$815 4))) (%closure-ref self$814 1) (%closure-ref self$814 2) (%closure-ref self$814 3) (%closure-ref self$814 4) (%closure-ref self$814 5)) (cadr (%closure-ref self$814 4))) ((%closure-ref error 0) error (%closure-ref self$814 2) #f "ADD-LEMMA did not like term: " (%closure-ref self$814 4)))) (%closure-ref self$813 1) k$644 (%closure-ref self$813 2) term$324 (%closure-ref self$813 3)))) (%closure-ref self$812 8) (%closure-ref self$812 16) (%closure-ref self$812 35))))) (%closure-ref self$809 1) (%closure-ref self$809 2) (%closure-ref self$809 3) (%closure-ref self$809 4) (%closure-ref self$809 5) (%closure-ref self$809 6) (%closure-ref self$809 7) (%closure-ref self$809 8) (%closure-ref self$809 9) (%closure-ref self$809 10) (%closure-ref self$809 11) (%closure-ref self$809 12) (%closure-ref self$809 13) (%closure-ref self$809 14) (%closure-ref self$809 15) (%closure-ref self$809 16) (%closure-ref self$809 17) (%closure-ref self$809 18) (%closure-ref self$809 19) (%closure-ref self$809 20) (%closure-ref self$809 21) (%closure-ref self$809 22) (%closure-ref self$809 23) (%closure-ref self$809 24) (%closure-ref self$809 25) (%closure-ref self$809 26) (%closure-ref self$809 27) (%closure-ref self$809 28) (%closure-ref self$809 29) (%closure-ref self$809 30) (%closure-ref self$809 31) (%closure-ref self$809 32) (%closure-ref self$809 33) (%closure-ref self$809 34) (%closure-ref self$809 35) (%closure-ref self$809 36) (%closure-ref self$809 37) (%closure-ref self$809 38) (%closure-ref self$809 39)) (set-cell! (%closure-ref self$809 3) (%closure (lambda (self$810 k$662 lst$325) (if (null? lst$325) ((%closure-ref k$662 0) k$662 #t) ((%closure-ref (cell-get (%closure-ref self$810 1)) 0) (cell-get (%closure-ref self$810 1)) (%closure (lambda (self$811 r$664) ((%closure-ref (cell-get (%closure-ref self$811 1)) 0) (cell-get (%closure-ref self$811 1)) (%closure-ref self$811 2) (cdr (%closure-ref self$811 3)))) (%closure-ref self$810 2) k$662 lst$325) (car lst$325)))) (%closure-ref self$809 2) (%closure-ref self$809 3))))) (%closure-ref self$807 1) (%closure-ref self$807 2) (%closure-ref self$807 3) (%closure-ref self$807 4) (%closure-ref self$807 5) (%closure-ref self$807 6) (%closure-ref self$807 7) (%closure-ref self$807 8) (%closure-ref self$807 9) (%closure-ref self$807 10) (%closure-ref self$807 11) (%closure-ref self$807 12) (%closure-ref self$807 13) (%closure-ref self$807 14) (%closure-ref self$807 15) (%closure-ref self$807 16) (%closure-ref self$807 17) (%closure-ref self$807 18) (%closure-ref self$807 19) (%closure-ref self$807 20) (%closure-ref self$807 21) (%closure-ref self$807 22) (%closure-ref self$807 24) (%closure-ref self$807 25) (%closure-ref self$807 26) (%closure-ref self$807 27) (%closure-ref self$807 28) (%closure-ref self$807 29) term-member?$215 (%closure-ref self$807 30) (%closure-ref self$807 31) (%closure-ref self$807 32) (%closure-ref self$807 33) (%closure-ref self$807 34) (%closure-ref self$807 35) (%closure-ref self$807 36) (%closure-ref self$807 37) (%closure-ref self$807 38) (%closure-ref self$807 39)) (set-cell! (%closure-ref self$807 23) (%closure (lambda (self$808 k$668) ((%closure-ref (cell-get (%closure-ref self$808 1)) 0) (cell-get (%closure-ref self$808 1)) k$668 '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (%closure-ref self$807 3))))) (%closure-ref self$806 1) (%closure-ref self$806 2) (%closure-ref self$806 3) (%closure-ref self$806 4) (%closure-ref self$806 5) (%closure-ref self$806 6) (%closure-ref self$806 7) (%closure-ref self$806 8) (%closure-ref self$806 9) (%closure-ref self$806 10) (%closure-ref self$806 11) (%closure-ref self$806 12) (%closure-ref self$806 13) (%closure-ref self$806 14) (%closure-ref self$806 15) (%closure-ref self$806 16) (%closure-ref self$806 17) (%closure-ref self$806 18) (%closure-ref self$806 19) (%closure-ref self$806 20) (%closure-ref self$806 21) (%closure-ref self$806 22) (%closure-ref self$806 23) (%closure-ref self$806 24) (%closure-ref self$806 25) (%closure-ref self$806 26) (%closure-ref self$806 27) term-args-equal?$216 (%closure-ref self$806 28) (%closure-ref self$806 30) (%closure-ref self$806 31) (%closure-ref self$806 32) (%closure-ref self$806 33) (%closure-ref self$806 34) (%closure-ref self$806 35) (%closure-ref self$806 36) (%closure-ref self$806 37) (%closure-ref self$806 38) (%closure-ref self$806 39)) (cell (%closure-ref self$806 29)))) (%closure-ref self$805 1) (%closure-ref self$805 2) (%closure-ref self$805 3) (%closure-ref self$805 4) (%closure-ref self$805 5) (%closure-ref self$805 6) (%closure-ref self$805 7) (%closure-ref self$805 8) (%closure-ref self$805 9) (%closure-ref self$805 10) (%closure-ref self$805 11) (%closure-ref self$805 12) (%closure-ref self$805 13) (%closure-ref self$805 14) (%closure-ref self$805 15) (%closure-ref self$805 16) (%closure-ref self$805 17) (%closure-ref self$805 18) (%closure-ref self$805 19) (%closure-ref self$805 20) (%closure-ref self$805 21) (%closure-ref self$805 22) (%closure-ref self$805 23) (%closure-ref self$805 24) (%closure-ref self$805 25) (%closure-ref self$805 26) (%closure-ref self$805 27) term-equal?$217 (%closure-ref self$805 29) (%closure-ref self$805 30) (%closure-ref self$805 31) (%closure-ref self$805 32) (%closure-ref self$805 33) (%closure-ref self$805 34) (%closure-ref self$805 35) (%closure-ref self$805 36) (%closure-ref self$805 37) (%closure-ref self$805 38) (%closure-ref self$805 39)) (cell (%closure-ref self$805 28)))) (%closure-ref self$804 1) (%closure-ref self$804 2) (%closure-ref self$804 3) (%closure-ref self$804 4) (%closure-ref self$804 5) (%closure-ref self$804 6) (%closure-ref self$804 7) (%closure-ref self$804 8) (%closure-ref self$804 9) (%closure-ref self$804 10) (%closure-ref self$804 11) (%closure-ref self$804 12) (%closure-ref self$804 13) (%closure-ref self$804 14) (%closure-ref self$804 15) (%closure-ref self$804 16) (%closure-ref self$804 17) (%closure-ref self$804 18) (%closure-ref self$804 19) (%closure-ref self$804 20) (%closure-ref self$804 21) (%closure-ref self$804 22) (%closure-ref self$804 23) (%closure-ref self$804 24) (%closure-ref self$804 25) (%closure-ref self$804 26) (%closure-ref self$804 27) (%closure-ref self$804 28) (%closure-ref self$804 30) (%closure-ref self$804 31) (%closure-ref self$804 32) trans-of-implies1$218 (%closure-ref self$804 33) (%closure-ref self$804 34) (%closure-ref self$804 35) (%closure-ref self$804 36) (%closure-ref self$804 37) (%closure-ref self$804 38) (%closure-ref self$804 39)) (cell (%closure-ref self$804 29)))) (%closure-ref self$803 1) (%closure-ref self$803 2) (%closure-ref self$803 3) (%closure-ref self$803 4) (%closure-ref self$803 5) (%closure-ref self$803 6) (%closure-ref self$803 7) (%closure-ref self$803 8) (%closure-ref self$803 9) (%closure-ref self$803 10) (%closure-ref self$803 11) (%closure-ref self$803 12) (%closure-ref self$803 13) (%closure-ref self$803 14) (%closure-ref self$803 15) (%closure-ref self$803 16) (%closure-ref self$803 17) (%closure-ref self$803 18) (%closure-ref self$803 19) (%closure-ref self$803 20) (%closure-ref self$803 21) (%closure-ref self$803 22) (%closure-ref self$803 23) (%closure-ref self$803 24) (%closure-ref self$803 25) (%closure-ref self$803 26) (%closure-ref self$803 27) (%closure-ref self$803 28) (%closure-ref self$803 29) (%closure-ref self$803 30) (%closure-ref self$803 31) trans-of-implies$219 (%closure-ref self$803 33) (%closure-ref self$803 34) (%closure-ref self$803 35) (%closure-ref self$803 36) (%closure-ref self$803 37) (%closure-ref self$803 38) (%closure-ref self$803 39)) (cell (%closure-ref self$803 32)))) (%closure-ref self$802 1) (%closure-ref self$802 2) (%closure-ref self$802 3) (%closure-ref self$802 4) (%closure-ref self$802 5) (%closure-ref self$802 6) (%closure-ref self$802 7) (%closure-ref self$802 8) (%closure-ref self$802 9) (%closure-ref self$802 10) (%closure-ref self$802 11) (%closure-ref self$802 12) (%closure-ref self$802 13) (%closure-ref self$802 14) (%closure-ref self$802 15) (%closure-ref self$802 16) (%closure-ref self$802 17) (%closure-ref self$802 18) (%closure-ref self$802 19) (%closure-ref self$802 20) (%closure-ref self$802 21) (%closure-ref self$802 22) (%closure-ref self$802 23) (%closure-ref self$802 24) (%closure-ref self$802 25) (%closure-ref self$802 26) (%closure-ref self$802 27) (%closure-ref self$802 28) (%closure-ref self$802 29) (%closure-ref self$802 30) (%closure-ref self$802 31) (%closure-ref self$802 33) (%closure-ref self$802 34) (%closure-ref self$802 35) (%closure-ref self$802 36) true-term$220 (%closure-ref self$802 37) (%closure-ref self$802 38) (%closure-ref self$802 39)) (cell (%closure-ref self$802 32)))) (%closure-ref self$801 1) (%closure-ref self$801 2) (%closure-ref self$801 3) (%closure-ref self$801 4) (%closure-ref self$801 5) false-term$221 (%closure-ref self$801 6) (%closure-ref self$801 7) (%closure-ref self$801 8) (%closure-ref self$801 9) (%closure-ref self$801 10) (%closure-ref self$801 11) (%closure-ref self$801 12) (%closure-ref self$801 13) (%closure-ref self$801 14) (%closure-ref self$801 15) (%closure-ref self$801 16) (%closure-ref self$801 17) (%closure-ref self$801 18) (%closure-ref self$801 19) (%closure-ref self$801 20) (%closure-ref self$801 21) (%closure-ref self$801 22) (%closure-ref self$801 23) (%closure-ref self$801 24) (%closure-ref self$801 25) (%closure-ref self$801 26) (%closure-ref self$801 27) (%closure-ref self$801 28) (%closure-ref self$801 29) (%closure-ref self$801 30) (%closure-ref self$801 31) (%closure-ref self$801 32) (%closure-ref self$801 33) (%closure-ref self$801 34) (%closure-ref self$801 35) (%closure-ref self$801 37) (%closure-ref self$801 38) (%closure-ref self$801 39)) (cell (%closure-ref self$801 36)))) (%closure-ref self$800 1) (%closure-ref self$800 2) (%closure-ref self$800 3) (%closure-ref self$800 4) (%closure-ref self$800 5) (%closure-ref self$800 7) (%closure-ref self$800 8) (%closure-ref self$800 9) (%closure-ref self$800 10) (%closure-ref self$800 11) (%closure-ref self$800 12) (%closure-ref self$800 13) (%closure-ref self$800 14) (%closure-ref self$800 15) (%closure-ref self$800 16) (%closure-ref self$800 17) (%closure-ref self$800 18) (%closure-ref self$800 19) (%closure-ref self$800 20) (%closure-ref self$800 21) (%closure-ref self$800 22) (%closure-ref self$800 23) (%closure-ref self$800 24) (%closure-ref self$800 25) (%closure-ref self$800 26) (%closure-ref self$800 27) (%closure-ref self$800 28) (%closure-ref self$800 29) (%closure-ref self$800 30) (%closure-ref self$800 31) (%closure-ref self$800 32) (%closure-ref self$800 33) (%closure-ref self$800 34) (%closure-ref self$800 35) (%closure-ref self$800 36) (%closure-ref self$800 37) truep$222 (%closure-ref self$800 38) (%closure-ref self$800 39)) (cell (%closure-ref self$800 6)))) (%closure-ref self$799 1) (%closure-ref self$799 2) (%closure-ref self$799 3) (%closure-ref self$799 4) (%closure-ref self$799 5) (%closure-ref self$799 6) falsep$223 (%closure-ref self$799 7) (%closure-ref self$799 8) (%closure-ref self$799 9) (%closure-ref self$799 10) (%closure-ref self$799 11) (%closure-ref self$799 12) (%closure-ref self$799 13) (%closure-ref self$799 14) (%closure-ref self$799 15) (%closure-ref self$799 16) (%closure-ref self$799 17) (%closure-ref self$799 18) (%closure-ref self$799 19) (%closure-ref self$799 20) (%closure-ref self$799 21) (%closure-ref self$799 22) (%closure-ref self$799 23) (%closure-ref self$799 24) (%closure-ref self$799 25) (%closure-ref self$799 26) (%closure-ref self$799 27) (%closure-ref self$799 28) (%closure-ref self$799 29) (%closure-ref self$799 30) (%closure-ref self$799 31) (%closure-ref self$799 32) (%closure-ref self$799 33) (%closure-ref self$799 34) (%closure-ref self$799 35) (%closure-ref self$799 36) (%closure-ref self$799 38) (%closure-ref self$799 39)) (cell (%closure-ref self$799 37)))) (%closure-ref self$798 1) (%closure-ref self$798 2) (%closure-ref self$798 3) (%closure-ref self$798 4) (%closure-ref self$798 5) (%closure-ref self$798 6) (%closure-ref self$798 8) (%closure-ref self$798 9) (%closure-ref self$798 10) (%closure-ref self$798 11) (%closure-ref self$798 12) (%closure-ref self$798 13) (%closure-ref self$798 14) one-way-unify1-lst$224 (%closure-ref self$798 15) (%closure-ref self$798 16) (%closure-ref self$798 17) (%closure-ref self$798 18) (%closure-ref self$798 19) (%closure-ref self$798 20) (%closure-ref self$798 21) (%closure-ref self$798 22) (%closure-ref self$798 23) (%closure-ref self$798 24) (%closure-ref self$798 25) (%closure-ref self$798 26) (%closure-ref self$798 27) (%closure-ref self$798 28) (%closure-ref self$798 29) (%closure-ref self$798 30) (%closure-ref self$798 31) (%closure-ref self$798 32) (%closure-ref self$798 33) (%closure-ref self$798 34) (%closure-ref self$798 35) (%closure-ref self$798 36) (%closure-ref self$798 37) (%closure-ref self$798 38) (%closure-ref self$798 39)) (cell (%closure-ref self$798 7)))) (%closure-ref self$797 1) (%closure-ref self$797 2) (%closure-ref self$797 3) (%closure-ref self$797 4) (%closure-ref self$797 5) (%closure-ref self$797 6) (%closure-ref self$797 7) (%closure-ref self$797 8) (%closure-ref self$797 9) (%closure-ref self$797 10) (%closure-ref self$797 11) (%closure-ref self$797 12) (%closure-ref self$797 13) one-way-unify1$225 (%closure-ref self$797 15) (%closure-ref self$797 16) (%closure-ref self$797 17) (%closure-ref self$797 18) (%closure-ref self$797 19) (%closure-ref self$797 20) (%closure-ref self$797 21) (%closure-ref self$797 22) (%closure-ref self$797 23) (%closure-ref self$797 24) (%closure-ref self$797 25) (%closure-ref self$797 26) (%closure-ref self$797 27) (%closure-ref self$797 28) (%closure-ref self$797 29) (%closure-ref self$797 30) (%closure-ref self$797 31) (%closure-ref self$797 32) (%closure-ref self$797 33) (%closure-ref self$797 34) (%closure-ref self$797 35) (%closure-ref self$797 36) (%closure-ref self$797 37) (%closure-ref self$797 38) (%closure-ref self$797 39)) (cell (%closure-ref self$797 14)))) (%closure-ref self$796 1) (%closure-ref self$796 2) (%closure-ref self$796 3) (%closure-ref self$796 4) (%closure-ref self$796 5) (%closure-ref self$796 6) (%closure-ref self$796 7) (%closure-ref self$796 8) (%closure-ref self$796 9) (%closure-ref self$796 10) (%closure-ref self$796 11) (%closure-ref self$796 12) one-way-unify$226 (%closure-ref self$796 14) (%closure-ref self$796 15) (%closure-ref self$796 16) (%closure-ref self$796 17) (%closure-ref self$796 18) (%closure-ref self$796 19) (%closure-ref self$796 20) (%closure-ref self$796 21) (%closure-ref self$796 22) (%closure-ref self$796 23) (%closure-ref self$796 24) (%closure-ref self$796 25) (%closure-ref self$796 26) (%closure-ref self$796 27) (%closure-ref self$796 28) (%closure-ref self$796 29) (%closure-ref self$796 30) (%closure-ref self$796 31) (%closure-ref self$796 32) (%closure-ref self$796 33) (%closure-ref self$796 34) (%closure-ref self$796 35) (%closure-ref self$796 36) (%closure-ref self$796 37) (%closure-ref self$796 38) (%closure-ref self$796 39)) (cell (%closure-ref self$796 13)))) (%closure-ref self$795 1) (%closure-ref self$795 2) (%closure-ref self$795 3) (%closure-ref self$795 4) (%closure-ref self$795 5) (%closure-ref self$795 6) (%closure-ref self$795 7) (%closure-ref self$795 8) (%closure-ref self$795 9) (%closure-ref self$795 10) (%closure-ref self$795 11) (%closure-ref self$795 12) (%closure-ref self$795 14) (%closure-ref self$795 15) (%closure-ref self$795 16) (%closure-ref self$795 17) (%closure-ref self$795 18) (%closure-ref self$795 19) (%closure-ref self$795 20) (%closure-ref self$795 21) (%closure-ref self$795 22) (%closure-ref self$795 23) (%closure-ref self$795 24) (%closure-ref self$795 25) (%closure-ref self$795 26) (%closure-ref self$795 27) (%closure-ref self$795 28) (%closure-ref self$795 29) (%closure-ref self$795 30) (%closure-ref self$795 31) (%closure-ref self$795 32) (%closure-ref self$795 33) (%closure-ref self$795 34) (%closure-ref self$795 35) (%closure-ref self$795 36) (%closure-ref self$795 37) (%closure-ref self$795 38) unify-subst$227 (%closure-ref self$795 39)) (cell (%closure-ref self$795 13)))) (%closure-ref self$794 1) (%closure-ref self$794 2) (%closure-ref self$794 3) (%closure-ref self$794 4) (%closure-ref self$794 5) (%closure-ref self$794 6) (%closure-ref self$794 7) (%closure-ref self$794 8) (%closure-ref self$794 9) (%closure-ref self$794 10) (%closure-ref self$794 11) (%closure-ref self$794 12) (%closure-ref self$794 13) (%closure-ref self$794 14) (%closure-ref self$794 15) (%closure-ref self$794 16) (%closure-ref self$794 17) (%closure-ref self$794 18) (%closure-ref self$794 19) (%closure-ref self$794 20) rewrite-with-lemmas$228 (%closure-ref self$794 21) (%closure-ref self$794 22) (%closure-ref self$794 23) (%closure-ref self$794 24) (%closure-ref self$794 25) (%closure-ref self$794 26) (%closure-ref self$794 27) (%closure-ref self$794 28) (%closure-ref self$794 29) (%closure-ref self$794 30) (%closure-ref self$794 31) (%closure-ref self$794 32) (%closure-ref self$794 33) (%closure-ref self$794 34) (%closure-ref self$794 35) (%closure-ref self$794 36) (%closure-ref self$794 37) (%closure-ref self$794 39)) (cell (%closure-ref self$794 38)))) (%closure-ref self$793 1) (%closure-ref self$793 2) (%closure-ref self$793 3) (%closure-ref self$793 4) (%closure-ref self$793 5) (%closure-ref self$793 6) (%closure-ref self$793 7) (%closure-ref self$793 8) (%closure-ref self$793 9) (%closure-ref self$793 10) (%closure-ref self$793 11) (%closure-ref self$793 12) (%closure-ref self$793 13) (%closure-ref self$793 14) (%closure-ref self$793 15) (%closure-ref self$793 16) (%closure-ref self$793 17) (%closure-ref self$793 18) rewrite-args$229 (%closure-ref self$793 19) (%closure-ref self$793 21) (%closure-ref self$793 22) (%closure-ref self$793 23) (%closure-ref self$793 24) (%closure-ref self$793 25) (%closure-ref self$793 26) (%closure-ref self$793 27) (%closure-ref self$793 28) (%closure-ref self$793 29) (%closure-ref self$793 30) (%closure-ref self$793 31) (%closure-ref self$793 32) (%closure-ref self$793 33) (%closure-ref self$793 34) (%closure-ref self$793 35) (%closure-ref self$793 36) (%closure-ref self$793 37) (%closure-ref self$793 38) (%closure-ref self$793 39)) (cell (%closure-ref self$793 20)))) (%closure-ref self$792 1) (%closure-ref self$792 2) (%closure-ref self$792 3) (%closure-ref self$792 4) (%closure-ref self$792 5) (%closure-ref self$792 6) (%closure-ref self$792 7) (%closure-ref self$792 8) (%closure-ref self$792 9) (%closure-ref self$792 10) (%closure-ref self$792 11) (%closure-ref self$792 12) (%closure-ref self$792 13) (%closure-ref self$792 14) (%closure-ref self$792 15) (%closure-ref self$792 16) (%closure-ref self$792 17) rewrite$230 (%closure-ref self$792 19) (%closure-ref self$792 20) (%closure-ref self$792 21) (%closure-ref self$792 22) (%closure-ref self$792 23) (%closure-ref self$792 24) (%closure-ref self$792 25) (%closure-ref self$792 26) (%closure-ref self$792 27) (%closure-ref self$792 28) (%closure-ref self$792 29) (%closure-ref self$792 30) (%closure-ref self$792 31) (%closure-ref self$792 32) (%closure-ref self$792 33) (%closure-ref self$792 34) (%closure-ref self$792 35) (%closure-ref self$792 36) (%closure-ref self$792 37) (%closure-ref self$792 38) (%closure-ref self$792 39)) (cell (%closure-ref self$792 18)))) (%closure-ref self$791 1) (%closure-ref self$791 2) (%closure-ref self$791 3) (%closure-ref self$791 4) (%closure-ref self$791 5) (%closure-ref self$791 6) (%closure-ref self$791 7) (%closure-ref self$791 8) (%closure-ref self$791 9) (%closure-ref self$791 10) (%closure-ref self$791 11) (%closure-ref self$791 12) (%closure-ref self$791 13) (%closure-ref self$791 14) (%closure-ref self$791 15) (%closure-ref self$791 16) (%closure-ref self$791 17) (%closure-ref self$791 19) (%closure-ref self$791 20) (%closure-ref self$791 21) scons$231 (%closure-ref self$791 22) (%closure-ref self$791 23) (%closure-ref self$791 24) (%closure-ref self$791 25) (%closure-ref self$791 26) (%closure-ref self$791 27) (%closure-ref self$791 28) (%closure-ref self$791 29) (%closure-ref self$791 30) (%closure-ref self$791 31) (%closure-ref self$791 32) (%closure-ref self$791 33) (%closure-ref self$791 34) (%closure-ref self$791 35) (%closure-ref self$791 36) (%closure-ref self$791 37) (%closure-ref self$791 38) (%closure-ref self$791 39)) (cell (%closure-ref self$791 18)))) (%closure-ref self$790 1) (%closure-ref self$790 2) (%closure-ref self$790 3) (%closure-ref self$790 4) (%closure-ref self$790 5) (%closure-ref self$790 6) (%closure-ref self$790 7) (%closure-ref self$790 8) (%closure-ref self$790 9) (%closure-ref self$790 10) (%closure-ref self$790 11) (%closure-ref self$790 12) (%closure-ref self$790 13) (%closure-ref self$790 14) (%closure-ref self$790 15) (%closure-ref self$790 16) (%closure-ref self$790 17) (%closure-ref self$790 18) (%closure-ref self$790 19) rewrite-count$232 (%closure-ref self$790 20) (%closure-ref self$790 22) (%closure-ref self$790 23) (%closure-ref self$790 24) (%closure-ref self$790 25) (%closure-ref self$790 26) (%closure-ref self$790 27) (%closure-ref self$790 28) (%closure-ref self$790 29) (%closure-ref self$790 30) (%closure-ref self$790 31) (%closure-ref self$790 32) (%closure-ref self$790 33) (%closure-ref self$790 34) (%closure-ref self$790 35) (%closure-ref self$790 36) (%closure-ref self$790 37) (%closure-ref self$790 38) (%closure-ref self$790 39)) (cell (%closure-ref self$790 21)))) (%closure-ref self$789 1) (%closure-ref self$789 2) (%closure-ref self$789 3) (%closure-ref self$789 4) (%closure-ref self$789 5) (%closure-ref self$789 6) (%closure-ref self$789 7) (%closure-ref self$789 8) (%closure-ref self$789 9) (%closure-ref self$789 10) if-constructor$233 (%closure-ref self$789 11) (%closure-ref self$789 12) (%closure-ref self$789 13) (%closure-ref self$789 14) (%closure-ref self$789 15) (%closure-ref self$789 16) (%closure-ref self$789 17) (%closure-ref self$789 18) (%closure-ref self$789 20) (%closure-ref self$789 21) (%closure-ref self$789 22) (%closure-ref self$789 23) (%closure-ref self$789 24) (%closure-ref self$789 25) (%closure-ref self$789 26) (%closure-ref self$789 27) (%closure-ref self$789 28) (%closure-ref self$789 29) (%closure-ref self$789 30) (%closure-ref self$789 31) (%closure-ref self$789 32) (%closure-ref self$789 33) (%closure-ref self$789 34) (%closure-ref self$789 35) (%closure-ref self$789 36) (%closure-ref self$789 37) (%closure-ref self$789 38) (%closure-ref self$789 39)) (cell (%closure-ref self$789 19)))) (%closure-ref self$788 1) (%closure-ref self$788 2) (%closure-ref self$788 3) (%closure-ref self$788 4) (%closure-ref self$788 5) (%closure-ref self$788 6) (%closure-ref self$788 7) (%closure-ref self$788 8) (%closure-ref self$788 9) (%closure-ref self$788 10) (%closure-ref self$788 12) (%closure-ref self$788 13) (%closure-ref self$788 14) (%closure-ref self$788 15) (%closure-ref self$788 16) (%closure-ref self$788 17) (%closure-ref self$788 18) (%closure-ref self$788 19) (%closure-ref self$788 20) (%closure-ref self$788 21) (%closure-ref self$788 22) (%closure-ref self$788 23) (%closure-ref self$788 24) (%closure-ref self$788 25) tautologyp$234 (%closure-ref self$788 26) (%closure-ref self$788 27) (%closure-ref self$788 28) (%closure-ref self$788 29) (%closure-ref self$788 30) (%closure-ref self$788 31) (%closure-ref self$788 32) (%closure-ref self$788 33) (%closure-ref self$788 34) (%closure-ref self$788 35) (%closure-ref self$788 36) (%closure-ref self$788 37) (%closure-ref self$788 38) (%closure-ref self$788 39)) (cell (%closure-ref self$788 11)))) (%closure-ref self$787 1) (%closure-ref self$787 2) (%closure-ref self$787 3) (%closure-ref self$787 4) (%closure-ref self$787 5) (%closure-ref self$787 6) (%closure-ref self$787 7) (%closure-ref self$787 8) (%closure-ref self$787 9) (%closure-ref self$787 10) (%closure-ref self$787 11) (%closure-ref self$787 12) (%closure-ref self$787 13) (%closure-ref self$787 14) (%closure-ref self$787 15) (%closure-ref self$787 16) (%closure-ref self$787 17) (%closure-ref self$787 18) (%closure-ref self$787 19) (%closure-ref self$787 20) (%closure-ref self$787 21) (%closure-ref self$787 22) (%closure-ref self$787 23) (%closure-ref self$787 24) (%closure-ref self$787 25) tautp$235 (%closure-ref self$787 27) (%closure-ref self$787 28) (%closure-ref self$787 29) (%closure-ref self$787 30) (%closure-ref self$787 31) (%closure-ref self$787 32) (%closure-ref self$787 33) (%closure-ref self$787 34) (%closure-ref self$787 35) (%closure-ref self$787 36) (%closure-ref self$787 37) (%closure-ref self$787 38) (%closure-ref self$787 39)) (cell (%closure-ref self$787 26)))) (%closure-ref self$786 1) (%closure-ref self$786 2) (%closure-ref self$786 3) (%closure-ref self$786 4) apply-subst-lst$236 (%closure-ref self$786 5) (%closure-ref self$786 6) (%closure-ref self$786 7) (%closure-ref self$786 8) (%closure-ref self$786 9) (%closure-ref self$786 10) (%closure-ref self$786 11) (%closure-ref self$786 12) (%closure-ref self$786 13) (%closure-ref self$786 14) (%closure-ref self$786 15) (%closure-ref self$786 16) (%closure-ref self$786 17) (%closure-ref self$786 18) (%closure-ref self$786 19) (%closure-ref self$786 20) (%closure-ref self$786 21) (%closure-ref self$786 22) (%closure-ref self$786 23) (%closure-ref self$786 24) (%closure-ref self$786 25) (%closure-ref self$786 27) (%closure-ref self$786 28) (%closure-ref self$786 29) (%closure-ref self$786 30) (%closure-ref self$786 31) (%closure-ref self$786 32) (%closure-ref self$786 33) (%closure-ref self$786 34) (%closure-ref self$786 35) (%closure-ref self$786 36) (%closure-ref self$786 37) (%closure-ref self$786 38) (%closure-ref self$786 39)) (cell (%closure-ref self$786 26)))) (%closure-ref self$785 1) (%closure-ref self$785 2) (%closure-ref self$785 3) apply-subst$237 (%closure-ref self$785 5) (%closure-ref self$785 6) (%closure-ref self$785 7) (%closure-ref self$785 8) (%closure-ref self$785 9) (%closure-ref self$785 10) (%closure-ref self$785 11) (%closure-ref self$785 12) (%closure-ref self$785 13) (%closure-ref self$785 14) (%closure-ref self$785 15) (%closure-ref self$785 16) (%closure-ref self$785 17) (%closure-ref self$785 18) (%closure-ref self$785 19) (%closure-ref self$785 20) (%closure-ref self$785 21) (%closure-ref self$785 22) (%closure-ref self$785 23) (%closure-ref self$785 24) (%closure-ref self$785 25) (%closure-ref self$785 26) (%closure-ref self$785 27) (%closure-ref self$785 28) (%closure-ref self$785 29) (%closure-ref self$785 30) (%closure-ref self$785 31) (%closure-ref self$785 32) (%closure-ref self$785 33) (%closure-ref self$785 34) (%closure-ref self$785 35) (%closure-ref self$785 36) (%closure-ref self$785 37) (%closure-ref self$785 38) (%closure-ref self$785 39)) (cell (%closure-ref self$785 4)))) (%closure-ref self$784 1) (%closure-ref self$784 2) (%closure-ref self$784 3) (%closure-ref self$784 5) (%closure-ref self$784 6) (%closure-ref self$784 7) (%closure-ref self$784 8) (%closure-ref self$784 9) (%closure-ref self$784 10) (%closure-ref self$784 11) (%closure-ref self$784 12) (%closure-ref self$784 13) (%closure-ref self$784 14) (%closure-ref self$784 15) (%closure-ref self$784 16) (%closure-ref self$784 17) (%closure-ref self$784 18) (%closure-ref self$784 19) (%closure-ref self$784 20) (%closure-ref self$784 21) (%closure-ref self$784 22) (%closure-ref self$784 23) (%closure-ref self$784 24) (%closure-ref self$784 25) (%closure-ref self$784 26) (%closure-ref self$784 27) (%closure-ref self$784 28) (%closure-ref self$784 29) (%closure-ref self$784 30) (%closure-ref self$784 31) (%closure-ref self$784 32) (%closure-ref self$784 33) translate-alist$238 (%closure-ref self$784 34) (%closure-ref self$784 35) (%closure-ref self$784 36) (%closure-ref self$784 37) (%closure-ref self$784 38) (%closure-ref self$784 39)) (cell (%closure-ref self$784 4)))) (%closure-ref self$783 1) (%closure-ref self$783 2) (%closure-ref self$783 3) (%closure-ref self$783 4) (%closure-ref self$783 5) (%closure-ref self$783 6) (%closure-ref self$783 7) (%closure-ref self$783 8) (%closure-ref self$783 9) (%closure-ref self$783 10) (%closure-ref self$783 11) (%closure-ref self$783 12) (%closure-ref self$783 13) (%closure-ref self$783 14) (%closure-ref self$783 15) (%closure-ref self$783 16) (%closure-ref self$783 17) (%closure-ref self$783 18) (%closure-ref self$783 19) (%closure-ref self$783 20) (%closure-ref self$783 21) (%closure-ref self$783 22) (%closure-ref self$783 23) (%closure-ref self$783 24) (%closure-ref self$783 25) (%closure-ref self$783 26) (%closure-ref self$783 27) (%closure-ref self$783 28) (%closure-ref self$783 29) (%closure-ref self$783 30) test$239 (%closure-ref self$783 31) (%closure-ref self$783 32) (%closure-ref self$783 34) (%closure-ref self$783 35) (%closure-ref self$783 36) (%closure-ref self$783 37) (%closure-ref self$783 38) (%closure-ref self$783 39)) (cell (%closure-ref self$783 33)))) (%closure-ref self$782 1) (%closure-ref self$782 2) (%closure-ref self$782 3) (%closure-ref self$782 4) (%closure-ref self$782 5) (%closure-ref self$782 6) (%closure-ref self$782 7) (%closure-ref self$782 8) (%closure-ref self$782 9) (%closure-ref self$782 10) (%closure-ref self$782 11) (%closure-ref self$782 12) (%closure-ref self$782 13) (%closure-ref self$782 14) (%closure-ref self$782 15) (%closure-ref self$782 16) (%closure-ref self$782 17) (%closure-ref self$782 18) (%closure-ref self$782 19) (%closure-ref self$782 20) (%closure-ref self$782 21) (%closure-ref self$782 22) (%closure-ref self$782 23) (%closure-ref self$782 24) symbol-record-equal?$240 (%closure-ref self$782 25) (%closure-ref self$782 26) (%closure-ref self$782 27) (%closure-ref self$782 28) (%closure-ref self$782 29) (%closure-ref self$782 31) (%closure-ref self$782 32) (%closure-ref self$782 33) (%closure-ref self$782 34) (%closure-ref self$782 35) (%closure-ref self$782 36) (%closure-ref self$782 37) (%closure-ref self$782 38) (%closure-ref self$782 39)) (cell (%closure-ref self$782 30)))) (%closure-ref self$781 1) (%closure-ref self$781 2) (%closure-ref self$781 3) (%closure-ref self$781 4) (%closure-ref self$781 5) (%closure-ref self$781 6) (%closure-ref self$781 7) (%closure-ref self$781 8) (%closure-ref self$781 9) get-name$241 (%closure-ref self$781 10) (%closure-ref self$781 11) (%closure-ref self$781 12) (%closure-ref self$781 13) (%closure-ref self$781 14) (%closure-ref self$781 15) (%closure-ref self$781 16) (%closure-ref self$781 17) (%closure-ref self$781 18) (%closure-ref self$781 19) (%closure-ref self$781 20) (%closure-ref self$781 21) (%closure-ref self$781 22) (%closure-ref self$781 23) (%closure-ref self$781 25) (%closure-ref self$781 26) (%closure-ref self$781 27) (%closure-ref self$781 28) (%closure-ref self$781 29) (%closure-ref self$781 30) (%closure-ref self$781 31) (%closure-ref self$781 32) (%closure-ref self$781 33) (%closure-ref self$781 34) (%closure-ref self$781 35) (%closure-ref self$781 36) (%closure-ref self$781 37) (%closure-ref self$781 38) (%closure-ref self$781 39)) (cell (%closure-ref self$781 24)))) (%closure-ref self$780 1) (%closure-ref self$780 2) (%closure-ref self$780 3) (%closure-ref self$780 4) (%closure-ref self$780 5) (%closure-ref self$780 6) (%closure-ref self$780 7) (%closure-ref self$780 8) get-lemmas$242 (%closure-ref self$780 10) (%closure-ref self$780 11) (%closure-ref self$780 12) (%closure-ref self$780 13) (%closure-ref self$780 14) (%closure-ref self$780 15) (%closure-ref self$780 16) (%closure-ref self$780 17) (%closure-ref self$780 18) (%closure-ref self$780 19) (%closure-ref self$780 20) (%closure-ref self$780 21) (%closure-ref self$780 22) (%closure-ref self$780 23) (%closure-ref self$780 24) (%closure-ref self$780 25) (%closure-ref self$780 26) (%closure-ref self$780 27) (%closure-ref self$780 28) (%closure-ref self$780 29) (%closure-ref self$780 30) (%closure-ref self$780 31) (%closure-ref self$780 32) (%closure-ref self$780 33) (%closure-ref self$780 34) (%closure-ref self$780 35) (%closure-ref self$780 36) (%closure-ref self$780 37) (%closure-ref self$780 38) (%closure-ref self$780 39)) (cell (%closure-ref self$780 9)))) (%closure-ref self$779 1) (%closure-ref self$779 2) (%closure-ref self$779 3) (%closure-ref self$779 4) (%closure-ref self$779 5) (%closure-ref self$779 6) (%closure-ref self$779 7) (%closure-ref self$779 8) (%closure-ref self$779 10) (%closure-ref self$779 11) (%closure-ref self$779 12) (%closure-ref self$779 13) (%closure-ref self$779 14) (%closure-ref self$779 15) (%closure-ref self$779 16) put-lemmas!$243 (%closure-ref self$779 17) (%closure-ref self$779 18) (%closure-ref self$779 19) (%closure-ref self$779 20) (%closure-ref self$779 21) (%closure-ref self$779 22) (%closure-ref self$779 23) (%closure-ref self$779 24) (%closure-ref self$779 25) (%closure-ref self$779 26) (%closure-ref self$779 27) (%closure-ref self$779 28) (%closure-ref self$779 29) (%closure-ref self$779 30) (%closure-ref self$779 31) (%closure-ref self$779 32) (%closure-ref self$779 33) (%closure-ref self$779 34) (%closure-ref self$779 35) (%closure-ref self$779 36) (%closure-ref self$779 37) (%closure-ref self$779 38) (%closure-ref self$779 39)) (cell (%closure-ref self$779 9)))) (%closure-ref self$778 1) (%closure-ref self$778 2) (%closure-ref self$778 3) (%closure-ref self$778 4) (%closure-ref self$778 5) (%closure-ref self$778 6) (%closure-ref self$778 7) (%closure-ref self$778 8) (%closure-ref self$778 9) (%closure-ref self$778 10) (%closure-ref self$778 11) make-symbol-record$244 (%closure-ref self$778 12) (%closure-ref self$778 13) (%closure-ref self$778 14) (%closure-ref self$778 15) (%closure-ref self$778 17) (%closure-ref self$778 18) (%closure-ref self$778 19) (%closure-ref self$778 20) (%closure-ref self$778 21) (%closure-ref self$778 22) (%closure-ref self$778 23) (%closure-ref self$778 24) (%closure-ref self$778 25) (%closure-ref self$778 26) (%closure-ref self$778 27) (%closure-ref self$778 28) (%closure-ref self$778 29) (%closure-ref self$778 30) (%closure-ref self$778 31) (%closure-ref self$778 32) (%closure-ref self$778 33) (%closure-ref self$778 34) (%closure-ref self$778 35) (%closure-ref self$778 36) (%closure-ref self$778 37) (%closure-ref self$778 38) (%closure-ref self$778 39)) (cell (%closure-ref self$778 16)))) *symbol-records-alist*$245 (%closure-ref self$777 1) (%closure-ref self$777 2) (%closure-ref self$777 3) (%closure-ref self$777 4) (%closure-ref self$777 5) (%closure-ref self$777 6) (%closure-ref self$777 7) (%closure-ref self$777 8) (%closure-ref self$777 9) (%closure-ref self$777 10) (%closure-ref self$777 12) (%closure-ref self$777 13) (%closure-ref self$777 14) (%closure-ref self$777 15) (%closure-ref self$777 16) (%closure-ref self$777 17) (%closure-ref self$777 18) (%closure-ref self$777 19) (%closure-ref self$777 20) (%closure-ref self$777 21) (%closure-ref self$777 22) (%closure-ref self$777 23) (%closure-ref self$777 24) (%closure-ref self$777 25) (%closure-ref self$777 26) (%closure-ref self$777 27) (%closure-ref self$777 28) (%closure-ref self$777 29) (%closure-ref self$777 30) (%closure-ref self$777 31) (%closure-ref self$777 32) (%closure-ref self$777 33) (%closure-ref self$777 34) (%closure-ref self$777 35) (%closure-ref self$777 36) (%closure-ref self$777 37) (%closure-ref self$777 38) (%closure-ref self$777 39)) (cell (%closure-ref self$777 11)))) (%closure-ref self$776 2) (%closure-ref self$776 3) (%closure-ref self$776 4) (%closure-ref self$776 5) (%closure-ref self$776 6) (%closure-ref self$776 7) (%closure-ref self$776 8) (%closure-ref self$776 9) (%closure-ref self$776 10) (%closure-ref self$776 11) (%closure-ref self$776 12) (%closure-ref self$776 13) (%closure-ref self$776 14) (%closure-ref self$776 15) (%closure-ref self$776 16) (%closure-ref self$776 17) (%closure-ref self$776 18) (%closure-ref self$776 19) (%closure-ref self$776 20) (%closure-ref self$776 21) (%closure-ref self$776 22) (%closure-ref self$776 23) symbol->symbol-record$246 (%closure-ref self$776 24) (%closure-ref self$776 25) (%closure-ref self$776 26) (%closure-ref self$776 27) (%closure-ref self$776 28) (%closure-ref self$776 29) (%closure-ref self$776 30) (%closure-ref self$776 31) (%closure-ref self$776 32) (%closure-ref self$776 33) (%closure-ref self$776 34) (%closure-ref self$776 35) (%closure-ref self$776 36) (%closure-ref self$776 37) (%closure-ref self$776 38) (%closure-ref self$776 39)) (cell (%closure-ref self$776 1)))) (%closure-ref self$775 1) (%closure-ref self$775 2) (%closure-ref self$775 3) (%closure-ref self$775 4) (%closure-ref self$775 5) (%closure-ref self$775 6) (%closure-ref self$775 7) get$247 (%closure-ref self$775 8) (%closure-ref self$775 9) (%closure-ref self$775 10) (%closure-ref self$775 11) (%closure-ref self$775 12) (%closure-ref self$775 13) (%closure-ref self$775 14) (%closure-ref self$775 15) (%closure-ref self$775 16) (%closure-ref self$775 17) (%closure-ref self$775 18) (%closure-ref self$775 19) (%closure-ref self$775 20) (%closure-ref self$775 21) (%closure-ref self$775 22) (%closure-ref self$775 24) (%closure-ref self$775 25) (%closure-ref self$775 26) (%closure-ref self$775 27) (%closure-ref self$775 28) (%closure-ref self$775 29) (%closure-ref self$775 30) (%closure-ref self$775 31) (%closure-ref self$775 32) (%closure-ref self$775 33) (%closure-ref self$775 34) (%closure-ref self$775 35) (%closure-ref self$775 36) (%closure-ref self$775 37) (%closure-ref self$775 38) (%closure-ref self$775 39)) (cell (%closure-ref self$775 23)))) (%closure-ref self$774 1) (%closure-ref self$774 2) (%closure-ref self$774 3) (%closure-ref self$774 4) (%closure-ref self$774 5) (%closure-ref self$774 6) (%closure-ref self$774 7) (%closure-ref self$774 9) (%closure-ref self$774 10) (%closure-ref self$774 11) (%closure-ref self$774 12) (%closure-ref self$774 13) (%closure-ref self$774 14) (%closure-ref self$774 15) put$248 (%closure-ref self$774 16) (%closure-ref self$774 17) (%closure-ref self$774 18) (%closure-ref self$774 19) (%closure-ref self$774 20) (%closure-ref self$774 21) (%closure-ref self$774 22) (%closure-ref self$774 23) (%closure-ref self$774 24) (%closure-ref self$774 25) (%closure-ref self$774 26) (%closure-ref self$774 27) (%closure-ref self$774 28) (%closure-ref self$774 29) (%closure-ref self$774 30) (%closure-ref self$774 31) (%closure-ref self$774 32) (%closure-ref self$774 33) (%closure-ref self$774 34) (%closure-ref self$774 35) (%closure-ref self$774 36) (%closure-ref self$774 37) (%closure-ref self$774 38) (%closure-ref self$774 39)) (cell (%closure-ref self$774 8)))) (%closure-ref self$773 1) (%closure-ref self$773 2) (%closure-ref self$773 3) (%closure-ref self$773 4) (%closure-ref self$773 5) (%closure-ref self$773 6) (%closure-ref self$773 7) (%closure-ref self$773 8) (%closure-ref self$773 9) (%closure-ref self$773 10) (%closure-ref self$773 11) (%closure-ref self$773 12) (%closure-ref self$773 13) (%closure-ref self$773 14) (%closure-ref self$773 15) (%closure-ref self$773 17) (%closure-ref self$773 18) (%closure-ref self$773 19) (%closure-ref self$773 20) (%closure-ref self$773 21) (%closure-ref self$773 22) (%closure-ref self$773 23) (%closure-ref self$773 24) (%closure-ref self$773 25) (%closure-ref self$773 26) (%closure-ref self$773 27) (%closure-ref self$773 28) (%closure-ref self$773 29) (%closure-ref self$773 30) (%closure-ref self$773 31) (%closure-ref self$773 32) (%closure-ref self$773 33) (%closure-ref self$773 34) (%closure-ref self$773 35) (%closure-ref self$773 36) (%closure-ref self$773 37) (%closure-ref self$773 38) (%closure-ref self$773 39) untranslate-term$249) (cell (%closure-ref self$773 16)))) (%closure-ref self$772 1) (%closure-ref self$772 2) (%closure-ref self$772 3) (%closure-ref self$772 4) (%closure-ref self$772 5) (%closure-ref self$772 6) (%closure-ref self$772 7) (%closure-ref self$772 8) (%closure-ref self$772 9) (%closure-ref self$772 10) (%closure-ref self$772 11) (%closure-ref self$772 12) (%closure-ref self$772 13) (%closure-ref self$772 14) (%closure-ref self$772 15) (%closure-ref self$772 16) (%closure-ref self$772 17) (%closure-ref self$772 18) (%closure-ref self$772 19) (%closure-ref self$772 20) (%closure-ref self$772 21) (%closure-ref self$772 22) (%closure-ref self$772 23) (%closure-ref self$772 24) (%closure-ref self$772 25) (%closure-ref self$772 26) (%closure-ref self$772 27) (%closure-ref self$772 28) (%closure-ref self$772 29) (%closure-ref self$772 30) (%closure-ref self$772 31) (%closure-ref self$772 32) (%closure-ref self$772 33) (%closure-ref self$772 34) translate-args$250 (%closure-ref self$772 35) (%closure-ref self$772 36) (%closure-ref self$772 37) (%closure-ref self$772 38)) (cell (%closure-ref self$772 39)))) (%closure-ref self$771 1) (%closure-ref self$771 2) (%closure-ref self$771 3) (%closure-ref self$771 4) (%closure-ref self$771 5) (%closure-ref self$771 6) (%closure-ref self$771 7) (%closure-ref self$771 8) (%closure-ref self$771 9) (%closure-ref self$771 10) (%closure-ref self$771 11) (%closure-ref self$771 12) (%closure-ref self$771 13) (%closure-ref self$771 14) (%closure-ref self$771 15) (%closure-ref self$771 16) (%closure-ref self$771 17) (%closure-ref self$771 18) (%closure-ref self$771 19) (%closure-ref self$771 20) (%closure-ref self$771 21) (%closure-ref self$771 22) (%closure-ref self$771 23) (%closure-ref self$771 24) (%closure-ref self$771 25) (%closure-ref self$771 26) (%closure-ref self$771 27) (%closure-ref self$771 28) (%closure-ref self$771 29) (%closure-ref self$771 30) (%closure-ref self$771 31) (%closure-ref self$771 32) (%closure-ref self$771 33) (%closure-ref self$771 34) translate-term$251 (%closure-ref self$771 36) (%closure-ref self$771 37) (%closure-ref self$771 38) (%closure-ref self$771 39)) (cell (%closure-ref self$771 35)))) (%closure-ref self$770 1) add-lemma$252 (%closure-ref self$770 2) (%closure-ref self$770 3) (%closure-ref self$770 4) (%closure-ref self$770 5) (%closure-ref self$770 6) (%closure-ref self$770 7) (%closure-ref self$770 8) (%closure-ref self$770 9) (%closure-ref self$770 10) (%closure-ref self$770 11) (%closure-ref self$770 12) (%closure-ref self$770 13) (%closure-ref self$770 14) (%closure-ref self$770 15) (%closure-ref self$770 16) (%closure-ref self$770 17) (%closure-ref self$770 18) (%closure-ref self$770 19) (%closure-ref self$770 20) (%closure-ref self$770 21) (%closure-ref self$770 22) (%closure-ref self$770 23) (%closure-ref self$770 24) (%closure-ref self$770 25) (%closure-ref self$770 26) (%closure-ref self$770 27) (%closure-ref self$770 28) (%closure-ref self$770 29) (%closure-ref self$770 30) (%closure-ref self$770 31) (%closure-ref self$770 32) (%closure-ref self$770 33) (%closure-ref self$770 34) (%closure-ref self$770 36) (%closure-ref self$770 37) (%closure-ref self$770 38) (%closure-ref self$770 39)) (cell (%closure-ref self$770 35)))) (%closure-ref self$769 1) add-lemma-lst$253 (%closure-ref self$769 3) (%closure-ref self$769 4) (%closure-ref self$769 5) (%closure-ref self$769 6) (%closure-ref self$769 7) (%closure-ref self$769 8) (%closure-ref self$769 9) (%closure-ref self$769 10) (%closure-ref self$769 11) (%closure-ref self$769 12) (%closure-ref self$769 13) (%closure-ref self$769 14) (%closure-ref self$769 15) (%closure-ref self$769 16) (%closure-ref self$769 17) (%closure-ref self$769 18) (%closure-ref self$769 19) (%closure-ref self$769 20) (%closure-ref self$769 21) (%closure-ref self$769 22) (%closure-ref self$769 23) (%closure-ref self$769 24) (%closure-ref self$769 25) (%closure-ref self$769 26) (%closure-ref self$769 27) (%closure-ref self$769 28) (%closure-ref self$769 29) (%closure-ref self$769 30) (%closure-ref self$769 31) (%closure-ref self$769 32) (%closure-ref self$769 33) (%closure-ref self$769 34) (%closure-ref self$769 35) (%closure-ref self$769 36) (%closure-ref self$769 37) (%closure-ref self$769 38) (%closure-ref self$769 39)) (cell (%closure-ref self$769 2)))) (%closure-ref self$768 1) (%closure-ref self$768 2) (%closure-ref self$768 4) (%closure-ref self$768 5) (%closure-ref self$768 6) (%closure-ref self$768 7) (%closure-ref self$768 8) (%closure-ref self$768 9) (%closure-ref self$768 10) (%closure-ref self$768 11) (%closure-ref self$768 12) (%closure-ref self$768 13) (%closure-ref self$768 14) (%closure-ref self$768 15) (%closure-ref self$768 16) (%closure-ref self$768 17) (%closure-ref self$768 18) (%closure-ref self$768 19) (%closure-ref self$768 20) (%closure-ref self$768 21) (%closure-ref self$768 22) setup$254 (%closure-ref self$768 23) (%closure-ref self$768 24) (%closure-ref self$768 25) (%closure-ref self$768 26) (%closure-ref self$768 27) (%closure-ref self$768 28) (%closure-ref self$768 29) (%closure-ref self$768 30) (%closure-ref self$768 31) (%closure-ref self$768 32) (%closure-ref self$768 33) (%closure-ref self$768 34) (%closure-ref self$768 35) (%closure-ref self$768 36) (%closure-ref self$768 37) (%closure-ref self$768 38) (%closure-ref self$768 39)) (cell (%closure-ref self$768 3)))) *symbol-records-alist*$245 add-lemma$252 add-lemma-lst$253 apply-subst$237 apply-subst-lst$236 false-term$221 falsep$223 get$247 get-lemmas$242 get-name$241 if-constructor$233 make-symbol-record$244 one-way-unify$226 one-way-unify1$225 one-way-unify1-lst$224 put$248 put-lemmas!$243 rewrite$230 rewrite-args$229 rewrite-count$232 rewrite-with-lemmas$228 scons$231 symbol->symbol-record$246 symbol-record-equal?$240 tautologyp$234 tautp$235 term-args-equal?$216 term-equal?$217 term-member?$215 test$239 trans-of-implies$219 trans-of-implies1$218 translate-alist$238 translate-args$250 translate-term$251 true-term$220 truep$222 unify-subst$227 untranslate-term$249) (cell setup$254))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) (set-global! term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) */ /* "---------------- C headers: " */ /* () */ /* "---------------- module globals: " */ /* (this-scheme-implementation-name run-r7rs-benchmark hide test-boyer setup-boyer term alist main) */ /* "---------------- C code:" */ #define closcall1(td, clo,a1) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 0, (closure)(a1), clo); \ } else { \ ((clo)->fn)(td, 1, clo,a1);\ } #define return_closcall1(td, clo,a1) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[1]; buf[0] = a1;\ GC(td, clo, buf, 1); \ return; \ } else {\ closcall1(td, (closure) (clo),a1); \ return;\ } \ } #define return_direct1(td, _fn,a1) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[1]; buf[0] = a1; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 1); \ return; \ } else { \ (_fn)(td, 1, (closure)_fn,a1); \ }} #define closcall2(td, clo,a1,a2) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 1, (closure)(a1), clo,a2); \ } else { \ ((clo)->fn)(td, 2, clo,a1,a2);\ } #define return_closcall2(td, clo,a1,a2) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[2]; buf[0] = a1;buf[1] = a2;\ GC(td, clo, buf, 2); \ return; \ } else {\ closcall2(td, (closure) (clo),a1,a2); \ return;\ } \ } #define return_direct2(td, _fn,a1,a2) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[2]; buf[0] = a1;buf[1] = a2; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 2); \ return; \ } else { \ (_fn)(td, 2, (closure)_fn,a1,a2); \ }} #define closcall3(td, clo,a1,a2,a3) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ } else { \ ((clo)->fn)(td, 3, clo,a1,a2,a3);\ } #define return_closcall3(td, clo,a1,a2,a3) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ GC(td, clo, buf, 3); \ return; \ } else {\ closcall3(td, (closure) (clo),a1,a2,a3); \ return;\ } \ } #define return_direct3(td, _fn,a1,a2,a3) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 3); \ return; \ } else { \ (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ }} #define closcall4(td, clo,a1,a2,a3,a4) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ } else { \ ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ } #define return_closcall4(td, clo,a1,a2,a3,a4) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ GC(td, clo, buf, 4); \ return; \ } else {\ closcall4(td, (closure) (clo),a1,a2,a3,a4); \ return;\ } \ } #define return_direct4(td, _fn,a1,a2,a3,a4) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 4); \ return; \ } else { \ (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ }} #define closcall5(td, clo,a1,a2,a3,a4,a5) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ } else { \ ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ } #define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ GC(td, clo, buf, 5); \ return; \ } else {\ closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ return;\ } \ } #define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 5); \ return; \ } else { \ (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ }} #define closcall40(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) \ if (type_is_pair_prim(clo)) { \ Cyc_apply(td, 39, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); \ } else { \ ((clo)->fn)(td, 40, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40);\ } #define return_closcall40(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[40]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;\ GC(td, clo, buf, 40); \ return; \ } else {\ closcall40(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); \ return;\ } \ } #define return_direct40(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[40]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40; \ mclosure0(c1, (function_type) _fn); \ GC(td, &c1, buf, 40); \ return; \ } else { \ (_fn)(td, 40, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); \ }} #include "cyclone/types.h" object __glo_this_91scheme_91implementation_91name = NULL; object __glo_run_91r7rs_91benchmark = NULL; object __glo_hide = NULL; object __glo_test_91boyer = NULL; object __glo_setup_91boyer = NULL; object __glo_term = NULL; object __glo_alist = NULL; object __glo_main = NULL; extern object __glo_member_scheme_base; extern object __glo_assoc_scheme_base; extern object __glo_cons_91source_scheme_base; extern object __glo_syntax_91rules_scheme_base; extern object __glo_letrec_85_scheme_base; extern object __glo_guard_scheme_base; extern object __glo_guard_91aux_scheme_base; extern object __glo_define_91record_91type_scheme_base; extern object __glo_record_127_scheme_base; extern object __glo_register_91simple_91type_scheme_base; extern object __glo_make_91type_91predicate_scheme_base; extern object __glo_make_91constructor_scheme_base; extern object __glo_make_91getter_scheme_base; extern object __glo_make_91setter_scheme_base; extern object __glo_slot_91set_67_scheme_base; extern object __glo_type_91slot_91offset_scheme_base; extern object __glo_receive_scheme_base; extern object __glo_abs_scheme_base; extern object __glo_max_scheme_base; extern object __glo_min_scheme_base; extern object __glo_modulo_scheme_base; extern object __glo_floor_91remainder_scheme_base; extern object __glo_even_127_scheme_base; extern object __glo_exact_91integer_127_scheme_base; extern object __glo_exact_91integer_91sqrt_scheme_base; extern object __glo_exact_127_scheme_base; extern object __glo_inexact_127_scheme_base; extern object __glo_odd_127_scheme_base; extern object __glo_complex_127_scheme_base; extern object __glo_rational_127_scheme_base; extern object __glo_bignum_127_scheme_base; extern object __glo_gcd_scheme_base; extern object __glo_lcm_scheme_base; extern object __glo_quotient_scheme_base; extern object __glo_remainder_scheme_base; extern object __glo_truncate_91quotient_scheme_base; extern object __glo_truncate_91remainder_scheme_base; extern object __glo_truncate_95_scheme_base; extern object __glo_floor_91quotient_scheme_base; extern object __glo_floor_91remainder_scheme_base; extern object __glo_floor_95_scheme_base; extern object __glo_square_scheme_base; extern object __glo_expt_scheme_base; extern object __glo_call_91with_91current_91continuation_scheme_base; extern object __glo_call_95cc_scheme_base; extern object __glo_call_91with_91values_scheme_base; extern object __glo_dynamic_91wind_scheme_base; extern object __glo_values_scheme_base; extern object __glo_char_123_127_scheme_base; extern object __glo_char_121_127_scheme_base; extern object __glo_char_125_127_scheme_base; extern object __glo_char_121_123_127_scheme_base; extern object __glo_char_125_123_127_scheme_base; extern object __glo_string_123_127_scheme_base; extern object __glo_string_121_127_scheme_base; extern object __glo_string_121_123_127_scheme_base; extern object __glo_string_125_127_scheme_base; extern object __glo_string_125_123_127_scheme_base; extern object __glo_foldl_scheme_base; extern object __glo_foldr_scheme_base; extern object __glo_not_scheme_base; extern object __glo_list_127_scheme_base; extern object __glo_zero_127_scheme_base; extern object __glo_positive_127_scheme_base; extern object __glo_negative_127_scheme_base; extern object __glo_append_scheme_base; extern object __glo__list_scheme_base; extern object __glo_make_91list_scheme_base; extern object __glo_list_91copy_scheme_base; extern object __glo_map_scheme_base; extern object __glo_for_91each_scheme_base; extern object __glo_list_91tail_scheme_base; extern object __glo_list_91ref_scheme_base; extern object __glo_list_91set_67_scheme_base; extern object __glo_reverse_scheme_base; extern object __glo_boolean_123_127_scheme_base; extern object __glo_symbol_123_127_scheme_base; extern object __glo_Cyc_91obj_123_127_scheme_base; extern object __glo_vector_scheme_base; extern object __glo_vector_91append_scheme_base; extern object __glo_vector_91copy_scheme_base; extern object __glo_vector_91copy_67_scheme_base; extern object __glo_vector_91fill_67_scheme_base; extern object __glo_vector_91_125list_scheme_base; extern object __glo_vector_91_125string_scheme_base; extern object __glo_vector_91map_scheme_base; extern object __glo_vector_91for_91each_scheme_base; extern object __glo_make_91string_scheme_base; extern object __glo_string_scheme_base; extern object __glo_string_91copy_scheme_base; extern object __glo_string_91copy_67_scheme_base; extern object __glo_string_91fill_67_scheme_base; extern object __glo_string_91_125list_scheme_base; extern object __glo_string_91_125vector_scheme_base; extern object __glo_string_91map_scheme_base; extern object __glo_string_91for_91each_scheme_base; extern object __glo_make_91parameter_scheme_base; extern object __glo_current_91output_91port_scheme_base; extern object __glo_current_91input_91port_scheme_base; extern object __glo_current_91error_91port_scheme_base; extern object __glo_call_91with_91port_scheme_base; extern object __glo_error_scheme_base; extern object __glo_raise_scheme_base; extern object __glo_raise_91continuable_scheme_base; extern object __glo_with_91handler_scheme_base; extern object __glo_with_91exception_91handler_scheme_base; extern object __glo_Cyc_91add_91exception_91handler_scheme_base; extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; extern object __glo_newline_scheme_base; extern object __glo_write_91char_scheme_base; extern object __glo_write_91string_scheme_base; extern object __glo_flush_91output_91port_scheme_base; extern object __glo_read_91line_scheme_base; extern object __glo_read_91string_scheme_base; extern object __glo_input_91port_127_scheme_base; extern object __glo_output_91port_127_scheme_base; extern object __glo_input_91port_91open_127_scheme_base; extern object __glo_output_91port_91open_127_scheme_base; extern object __glo_get_91output_91string_scheme_base; extern object __glo_open_91output_91string_scheme_base; extern object __glo_open_91input_91string_scheme_base; extern object __glo_get_91output_91bytevector_scheme_base; extern object __glo_open_91input_91bytevector_scheme_base; extern object __glo_open_91output_91bytevector_scheme_base; extern object __glo_features_scheme_base; extern object __glo_Cyc_91version_scheme_base; extern object __glo_any_scheme_base; extern object __glo_every_scheme_base; extern object __glo_and_scheme_base; extern object __glo_or_scheme_base; extern object __glo_let_scheme_base; extern object __glo_let_85_scheme_base; extern object __glo_letrec_scheme_base; extern object __glo_let_85_91values_scheme_base; extern object __glo_let_91values_scheme_base; extern object __glo_begin_scheme_base; extern object __glo__case_scheme_base; extern object __glo_cond_scheme_base; extern object __glo_cond_91expand_scheme_base; extern object __glo__do_scheme_base; extern object __glo_when_scheme_base; extern object __glo_unless_scheme_base; extern object __glo_quasiquote_scheme_base; extern object __glo_floor_scheme_base; extern object __glo_ceiling_scheme_base; extern object __glo_truncate_scheme_base; extern object __glo_round_scheme_base; extern object __glo_exact_scheme_base; extern object __glo_inexact_scheme_base; extern object __glo_eof_91object_scheme_base; extern object __glo_syntax_91error_scheme_base; extern object __glo_bytevector_91copy_scheme_base; extern object __glo_bytevector_91copy_67_scheme_base; extern object __glo_utf8_91_125string_scheme_base; extern object __glo_string_91_125utf8_scheme_base; extern object __glo_denominator_scheme_base; extern object __glo_numerator_scheme_base; extern object __glo_parameterize_scheme_base; extern object __glo_caar_scheme_cxr; extern object __glo_cadr_scheme_cxr; extern object __glo_cdar_scheme_cxr; extern object __glo_cddr_scheme_cxr; extern object __glo_caaar_scheme_cxr; extern object __glo_caadr_scheme_cxr; extern object __glo_cadar_scheme_cxr; extern object __glo_caddr_scheme_cxr; extern object __glo_cdaar_scheme_cxr; extern object __glo_cdadr_scheme_cxr; extern object __glo_cddar_scheme_cxr; extern object __glo_cdddr_scheme_cxr; extern object __glo_caaaar_scheme_cxr; extern object __glo_caaadr_scheme_cxr; extern object __glo_caadar_scheme_cxr; extern object __glo_caaddr_scheme_cxr; extern object __glo_cadaar_scheme_cxr; extern object __glo_cadadr_scheme_cxr; extern object __glo_caddar_scheme_cxr; extern object __glo_cadddr_scheme_cxr; extern object __glo_cdaaar_scheme_cxr; extern object __glo_cdaadr_scheme_cxr; extern object __glo_cdadar_scheme_cxr; extern object __glo_cdaddr_scheme_cxr; extern object __glo_cddaar_scheme_cxr; extern object __glo_cddadr_scheme_cxr; extern object __glo_cdddar_scheme_cxr; extern object __glo_cddddr_scheme_cxr; extern object __glo_caaaaar_scheme_cxr; extern object __glo_read_scheme_read; extern object __glo_read_91all_scheme_read; extern object __glo_include_scheme_read; extern object __glo_include_91ci_scheme_read; extern object __glo_display_scheme_write; extern object __glo_write_scheme_write; extern object __glo_write_91shared_scheme_write; extern object __glo_write_91simple_scheme_write; extern object __glo_current_91second_scheme_time; extern object __glo_current_91jiffy_scheme_time; extern object __glo_jiffies_91per_91second_scheme_time; extern object __glo_string_123_127_191_191inline_191_191_scheme_base; extern object __glo_string_121_127_191_191inline_191_191_scheme_base; extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base; extern object __glo_string_125_127_191_191inline_191_191_scheme_base; extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base; extern object __glo_not_191_191inline_191_191_scheme_base; extern object __glo_zero_127_191_191inline_191_191_scheme_base; extern object __glo_positive_127_191_191inline_191_191_scheme_base; extern object __glo_negative_127_191_191inline_191_191_scheme_base; extern object __glo_floor_191_191inline_191_191_scheme_base; extern object __glo_ceiling_191_191inline_191_191_scheme_base; extern object __glo_truncate_191_191inline_191_191_scheme_base; extern object __glo_round_191_191inline_191_191_scheme_base; extern object __glo_inexact_191_191inline_191_191_scheme_base; extern object __glo_sqrt_191_191inline_191_191_scheme_base; extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base; extern object __glo_exact_127_191_191inline_191_191_scheme_base; extern object __glo_denominator_191_191inline_191_191_scheme_base; extern object __glo_numerator_191_191inline_191_191_scheme_base; extern object __glo_quotient_191_191inline_191_191_scheme_base; extern object __glo_square_191_191inline_191_191_scheme_base; extern object __glo_eof_91object_191_191inline_191_191_scheme_base; extern object __glo_in_91port_117get_91buf_191_191inline_191_191_scheme_read; extern object __glo_in_91port_117get_91lnum_191_191inline_191_191_scheme_read; extern object __glo_in_91port_117get_91cnum_191_191inline_191_191_scheme_read; #include "cyclone/runtime.h" #include "cyclone/runtime-main.h" defsymbol(u); defsymbol(lemmas); defsymbol(_85); defsymbol(mem); defsymbol(val); defsymbol(set); defsymbol(get); defsymbol(cdr); defsymbol(assignedp); defsymbol(assignment); defsymbol(car); defsymbol(last); defsymbol(sigma); defsymbol(x7); defsymbol(x6); defsymbol(x5); defsymbol(x4); defsymbol(x3); defsymbol(x2); defsymbol(x1); defsymbol(dsort); defsymbol(sort2); defsymbol(delete); defsymbol(prime_91list); defsymbol(times_91list); defsymbol(greatest_91factor); defsymbol(samefringe); defsymbol(gopher); defsymbol(listp); defsymbol(nlistp); defsymbol(value); defsymbol(w); defsymbol(gcd); defsymbol(power_91rep); defsymbol(big_91plus); defsymbol(base); defsymbol(big_91plus1); defsymbol(power_91eval); defsymbol(quotient); defsymbol(sort_91lp); defsymbol(count_91list); defsymbol(k); defsymbol(j); defsymbol(exp); defsymbol(nth); defsymbol(intersect); defsymbol(length); defsymbol(member); defsymbol(flatten); defsymbol(mc_91flatten); defsymbol(envrn); defsymbol(pds); defsymbol(exec); defsymbol(times); defsymbol(plus_91fringe); defsymbol(append); defsymbol(plus_91tree); defsymbol(meaning); defsymbol(difference); defsymbol(z); defsymbol(plus); defsymbol(e); defsymbol(d); defsymbol(c); defsymbol(b); defsymbol(a); defsymbol(numberp); defsymbol(q); defsymbol(p); defsymbol(prime1); defsymbol(add1); defsymbol(prime); defsymbol(falsify1); defsymbol(falsify); defsymbol(normalize); defsymbol(tautologyp); defsymbol(tautology_91checker); defsymbol(assume_91false); defsymbol(cons); defsymbol(alist); defsymbol(var); defsymbol(assume_91true); defsymbol(remainder); defsymbol(divides); defsymbol(reverse_91loop); defsymbol(reverse_91); defsymbol(fact_91loop); defsymbol(i); defsymbol(fact_91); defsymbol(zero); defsymbol(countps_91loop); defsymbol(pred); defsymbol(l); defsymbol(countps_91); defsymbol(_1911_91); defsymbol(odd); defsymbol(zerop); defsymbol(_if); defsymbol(even1); defsymbol(implies); defsymbol(and); defsymbol(iff); defsymbol(f); defsymbol(t); defsymbol(or); defsymbol(boolean); defsymbol(greatereqp); defsymbol(not); defsymbol(lesseqp); defsymbol(lessp); defsymbol(greaterp); defsymbol(fix); defsymbol(y); defsymbol(x); defsymbol(eqp); defsymbol(nil); defsymbol(optimize); defsymbol(codegen); defsymbol(reverse); defsymbol(form); defsymbol(compile); defsymbol(equal); static void __lambda_259(void *data, int argc, closure _,object r_73360) ; static void __lambda_258(void *data, int argc, closure _,object r_73361) ; static void __lambda_257(void *data, int argc, closure _,object setup_73254, object add_91lemma_91lst_73253, object add_91lemma_73252, object translate_91term_73251, object translate_91args_73250, object untranslate_91term_73249, object put_73248, object get_73247, object symbol_91_125symbol_91record_73246, object _85symbol_91records_91alist_85_73245, object make_91symbol_91record_73244, object put_91lemmas_67_73243, object get_91lemmas_73242, object get_91name_73241, object symbol_91record_91equal_127_73240, object test_73239, object translate_91alist_73238, object apply_91subst_73237, object apply_91subst_91lst_73236, object tautp_73235, object tautologyp_73234, object if_91constructor_73233, object rewrite_91count_73232, object scons_73231, object rewrite_73230, object rewrite_91args_73229, object rewrite_91with_91lemmas_73228, object unify_91subst_73227, object one_91way_91unify_73226, object one_91way_91unify1_73225, object one_91way_91unify1_91lst_73224, object falsep_73223, object truep_73222, object false_91term_73221, object true_91term_73220, object trans_91of_91implies_73219, object trans_91of_91implies1_73218, object term_91equal_127_73217, object term_91args_91equal_127_73216, object term_91member_127_73215) ; static void __lambda_256(void *data, int argc, object self_73768, object setup_73254) ; static void __lambda_255(void *data, int argc, object self_73769, object add_91lemma_91lst_73253) ; static void __lambda_254(void *data, int argc, object self_73770, object add_91lemma_73252) ; static void __lambda_253(void *data, int argc, object self_73771, object translate_91term_73251) ; static void __lambda_252(void *data, int argc, object self_73772, object translate_91args_73250) ; static void __lambda_251(void *data, int argc, object self_73773, object untranslate_91term_73249) ; static void __lambda_250(void *data, int argc, object self_73774, object put_73248) ; static void __lambda_249(void *data, int argc, object self_73775, object get_73247) ; static void __lambda_248(void *data, int argc, object self_73776, object symbol_91_125symbol_91record_73246) ; static void __lambda_247(void *data, int argc, object self_73777, object _85symbol_91records_91alist_85_73245) ; static void __lambda_246(void *data, int argc, object self_73778, object make_91symbol_91record_73244) ; static void __lambda_245(void *data, int argc, object self_73779, object put_91lemmas_67_73243) ; static void __lambda_244(void *data, int argc, object self_73780, object get_91lemmas_73242) ; static void __lambda_243(void *data, int argc, object self_73781, object get_91name_73241) ; static void __lambda_242(void *data, int argc, object self_73782, object symbol_91record_91equal_127_73240) ; static void __lambda_241(void *data, int argc, object self_73783, object test_73239) ; static void __lambda_240(void *data, int argc, object self_73784, object translate_91alist_73238) ; static void __lambda_239(void *data, int argc, object self_73785, object apply_91subst_73237) ; static void __lambda_238(void *data, int argc, object self_73786, object apply_91subst_91lst_73236) ; static void __lambda_237(void *data, int argc, object self_73787, object tautp_73235) ; static void __lambda_236(void *data, int argc, object self_73788, object tautologyp_73234) ; static void __lambda_235(void *data, int argc, object self_73789, object if_91constructor_73233) ; static void __lambda_234(void *data, int argc, object self_73790, object rewrite_91count_73232) ; static void __lambda_233(void *data, int argc, object self_73791, object scons_73231) ; static void __lambda_232(void *data, int argc, object self_73792, object rewrite_73230) ; static void __lambda_231(void *data, int argc, object self_73793, object rewrite_91args_73229) ; static void __lambda_230(void *data, int argc, object self_73794, object rewrite_91with_91lemmas_73228) ; static void __lambda_229(void *data, int argc, object self_73795, object unify_91subst_73227) ; static void __lambda_228(void *data, int argc, object self_73796, object one_91way_91unify_73226) ; static void __lambda_227(void *data, int argc, object self_73797, object one_91way_91unify1_73225) ; static void __lambda_226(void *data, int argc, object self_73798, object one_91way_91unify1_91lst_73224) ; static void __lambda_225(void *data, int argc, object self_73799, object falsep_73223) ; static void __lambda_224(void *data, int argc, object self_73800, object truep_73222) ; static void __lambda_223(void *data, int argc, object self_73801, object false_91term_73221) ; static void __lambda_222(void *data, int argc, object self_73802, object true_91term_73220) ; static void __lambda_221(void *data, int argc, object self_73803, object trans_91of_91implies_73219) ; static void __lambda_220(void *data, int argc, object self_73804, object trans_91of_91implies1_73218) ; static void __lambda_219(void *data, int argc, object self_73805, object term_91equal_127_73217) ; static void __lambda_218(void *data, int argc, object self_73806, object term_91args_91equal_127_73216) ; static void __lambda_217(void *data, int argc, object self_73807, object term_91member_127_73215) ; static void __lambda_216(void *data, int argc, object self_73808, object k_73668) ; static void __lambda_215(void *data, int argc, object self_73809, object r_73363) ; static void __lambda_214(void *data, int argc, object self_73810, object k_73662, object lst_73325) ; static void __lambda_213(void *data, int argc, object self_73811, object r_73664) ; static void __lambda_212(void *data, int argc, object self_73812, object r_73364) ; static void __lambda_211(void *data, int argc, object self_73813, object k_73644, object term_73324) ; static void __lambda_210(void *data, int argc, object self_73814, object r_73645) ; static void __lambda_209(void *data, int argc, object self_73815, object r_73654) ; static void __lambda_208(void *data, int argc, object self_73816, object r_73649) ; static void __lambda_207(void *data, int argc, object self_73817, object r_73650) ; static void __lambda_206(void *data, int argc, object self_73818, object k_73655) ; static void __lambda_205(void *data, int argc, object self_73819, object r_73365) ; static void __lambda_204(void *data, int argc, object self_73820, object k_73637, object term_73323) ; static void __lambda_203(void *data, int argc, object self_73821, object r_73639) ; static void __lambda_202(void *data, int argc, object self_73822, object r_73640) ; static void __lambda_201(void *data, int argc, object self_73823, object r_73366) ; static void __lambda_200(void *data, int argc, object self_73824, object k_73630, object lst_73322) ; static void __lambda_199(void *data, int argc, object self_73825, object r_73632) ; static void __lambda_198(void *data, int argc, object self_73826, object r_73633) ; static void __lambda_197(void *data, int argc, object self_73827, object r_73367) ; static void __lambda_196(void *data, int argc, object self_73828, object k_73623, object term_73321) ; static void __lambda_195(void *data, int argc, object self_73829, object r_73626) ; static void __lambda_194(void *data, int argc, object self_73830, object r_73368) ; static void __lambda_193(void *data, int argc, object self_73831, object k_73620, object sym_73320, object property_73319, object value_73318) ; static void __lambda_192(void *data, int argc, object self_73832, object r_73621) ; static void __lambda_191(void *data, int argc, object self_73833, object r_73369) ; static void __lambda_190(void *data, int argc, object self_73834, object k_73617, object sym_73317, object property_73316) ; static void __lambda_189(void *data, int argc, object self_73835, object r_73618) ; static void __lambda_188(void *data, int argc, object self_73836, object r_73370) ; static void __lambda_187(void *data, int argc, object self_73837, object k_73610, object sym_73313) ; static void __lambda_186(void *data, int argc, object self_73838, object x_73314) ; static void __lambda_185(void *data, int argc, object self_73839, object r_73315) ; static void __lambda_184(void *data, int argc, object self_73840, object r_73614) ; static void __lambda_183(void *data, int argc, object self_73841, object r_73613) ; static void __lambda_182(void *data, int argc, object self_73842, object r_73371) ; static void __lambda_181(void *data, int argc, object self_73843, object r_73372) ; static void __lambda_180(void *data, int argc, object self_73844, object k_73606, object sym_73312) ; static void __lambda_179(void *data, int argc, object self_73845, object r_73373) ; static void __lambda_178(void *data, int argc, object self_73846, object k_73604, object symbol_91record_73311, object lemmas_73310) ; static void __lambda_177(void *data, int argc, object self_73847, object r_73374) ; static void __lambda_176(void *data, int argc, object self_73848, object k_73602, object symbol_91record_73309) ; static void __lambda_175(void *data, int argc, object self_73849, object r_73375) ; static void __lambda_174(void *data, int argc, object self_73850, object k_73600, object symbol_91record_73308) ; static void __lambda_173(void *data, int argc, object self_73851, object r_73376) ; static void __lambda_172(void *data, int argc, object self_73852, object k_73598, object r1_73307, object r2_73306) ; static void __lambda_171(void *data, int argc, object self_73853, object r_73377) ; static void __lambda_170(void *data, int argc, object self_73854, object k_73584, object alist_73299, object term_73298, object n_73297) ; static void __lambda_169(void *data, int argc, object self_73855, object r_73586) ; static void __lambda_168(void *data, int argc, object self_73856, object term_73301, object n_73300) ; static void __lambda_167(void *data, int argc, object self_73857, object lp_7337_73302) ; static void __lambda_166(void *data, int argc, object self_73858, object lp_7337_73302) ; static void __lambda_165(void *data, int argc, object self_73859, object k_73591, object term_73304, object n_73303) ; static void __lambda_164(void *data, int argc, object self_73860, object r_73593) ; static void __lambda_163(void *data, int argc, object self_73861, object r_73589) ; static void __lambda_162(void *data, int argc, object self_73862, object r_73588) ; static void __lambda_161(void *data, int argc, object self_73863, object r_73587) ; static void __lambda_160(void *data, int argc, object self_73864, object term_73305) ; static void __lambda_159(void *data, int argc, object self_73865, object r_73378) ; static void __lambda_158(void *data, int argc, object self_73866, object k_73575, object alist_73296) ; static void __lambda_157(void *data, int argc, object self_73867, object r_73581) ; static void __lambda_156(void *data, int argc, object self_73868, object r_73578) ; static void __lambda_155(void *data, int argc, object self_73869, object r_73379) ; static void __lambda_154(void *data, int argc, object self_73870, object k_73568, object alist_73294, object term_73293) ; static void __lambda_153(void *data, int argc, object self_73871, object r_73571) ; static void __lambda_152(void *data, int argc, object self_73872, object r_73380) ; static void __lambda_151(void *data, int argc, object self_73873, object k_73561, object alist_73292, object lst_73291) ; static void __lambda_150(void *data, int argc, object self_73874, object r_73563) ; static void __lambda_149(void *data, int argc, object self_73875, object r_73564) ; static void __lambda_148(void *data, int argc, object self_73876, object r_73381) ; static void __lambda_147(void *data, int argc, object self_73877, object k_73556, object x_73290) ; static void __lambda_146(void *data, int argc, object self_73878, object r_73557) ; static void __lambda_145(void *data, int argc, object self_73879, object r_73382) ; static void __lambda_144(void *data, int argc, object self_73880, object k_73536, object x_73289, object true_91lst_73288, object false_91lst_73287) ; static void __lambda_143(void *data, int argc, object self_73881, object r_73537) ; static void __lambda_142(void *data, int argc, object self_73882, object r_73538) ; static void __lambda_141(void *data, int argc, object self_73883, object r_73541) ; static void __lambda_140(void *data, int argc, object self_73884, object r_73543) ; static void __lambda_139(void *data, int argc, object self_73885, object r_73545) ; static void __lambda_138(void *data, int argc, object self_73886, object r_73383) ; static void __lambda_137(void *data, int argc, object self_73887, object r_73384) ; static void __lambda_136(void *data, int argc, object self_73888, object r_73385) ; static void __lambda_135(void *data, int argc, object self_73889, object k_73528, object x_73286, object y_73285, object original_73284) ; static void __lambda_134(void *data, int argc, object self_73890, object r_73529) ; static void __lambda_133(void *data, int argc, object self_73891, object k_73530) ; static void __lambda_132(void *data, int argc, object self_73892, object r_73386) ; static void __lambda_131(void *data, int argc, object self_73893, object k_73517, object term_73283) ; static void __lambda_130(void *data, int argc, object self_73894, object r_73526) ; static void __lambda_129(void *data, int argc, object self_73895, object r_73518) ; static void __lambda_128(void *data, int argc, object self_73896, object r_73524) ; static void __lambda_127(void *data, int argc, object self_73897, object r_73520) ; static void __lambda_126(void *data, int argc, object self_73898, object r_73387) ; static void __lambda_125(void *data, int argc, object self_73899, object k_73510, object lst_73282) ; static void __lambda_124(void *data, int argc, object self_73900, object r_73512) ; static void __lambda_123(void *data, int argc, object self_73901, object r_73513) ; static void __lambda_122(void *data, int argc, object self_73902, object r_73388) ; static void __lambda_121(void *data, int argc, object self_73903, object k_73500, object term_73281, object lst_73280) ; static void __lambda_120(void *data, int argc, object self_73904, object r_73502) ; static void __lambda_119(void *data, int argc, object self_73905, object r_73503) ; static void __lambda_118(void *data, int argc, object self_73906, object r_73389) ; static void __lambda_117(void *data, int argc, object self_73907, object r_73390) ; static void __lambda_116(void *data, int argc, object self_73908, object k_73495, object term1_73279, object term2_73278) ; static void __lambda_115(void *data, int argc, object self_73909, object r_73496) ; static void __lambda_114(void *data, int argc, object self_73910, object r_73391) ; static void __lambda_113(void *data, int argc, object self_73911, object k_73480, object term1_73276, object term2_73275) ; static void __lambda_112(void *data, int argc, object self_73912, object temp_91temp_73277) ; static void __lambda_111(void *data, int argc, object self_73913, object r_73492) ; static void __lambda_110(void *data, int argc, object self_73914, object r_73491) ; static void __lambda_109(void *data, int argc, object self_73915, object r_73392) ; static void __lambda_108(void *data, int argc, object self_73916, object k_73471, object lst1_73274, object lst2_73273) ; static void __lambda_107(void *data, int argc, object self_73917, object r_73474) ; static void __lambda_106(void *data, int argc, object self_73918, object r_73393) ; static void __lambda_105(void *data, int argc, object self_73919, object k_73468, object x_73271, object lst_73270) ; static void __lambda_104(void *data, int argc, object self_73920, object tmp_73117_73272) ; static void __lambda_103(void *data, int argc, object self_73921, object r_73394) ; static void __lambda_102(void *data, int argc, object self_73922, object k_73465, object x_73268, object lst_73267) ; static void __lambda_101(void *data, int argc, object self_73923, object tmp_73120_73269) ; static void __lambda_100(void *data, int argc, object self_73924, object r_73395) ; static void __lambda_99(void *data, int argc, object self_73925, object r_73396) ; static void __lambda_98(void *data, int argc, object self_73926, object r_73397) ; static void __lambda_97(void *data, int argc, object self_73927, object k_73456, object n_73266) ; static void __lambda_96(void *data, int argc, object self_73928, object r_73459) ; static void __lambda_95(void *data, int argc, object self_73929, object r_73460) ; static void __lambda_94(void *data, int argc, object self_73930, object r_73457) ; static void __lambda_93(void *data, int argc, object self_73931, object r_73398) ; static void __lambda_92(void *data, int argc, object self_73932, object k_73446, object n_73265) ; static void __lambda_91(void *data, int argc, object self_73933, object r_73447) ; static void __lambda_90(void *data, int argc, object self_73934, object r_73454) ; static void __lambda_89(void *data, int argc, object self_73935, object r_73450) ; static void __lambda_88(void *data, int argc, object self_73936, object r_73451) ; static void __lambda_87(void *data, int argc, object self_73937, object r_73399) ; static void __lambda_86(void *data, int argc, object self_73938, object k_73437, object x_73264, object y_73263) ; static void __lambda_85(void *data, int argc, object self_73939, object r_73400) ; static void __lambda_84(void *data, int argc, object self_73940, object k_73428, object lst1_73262, object lst2_73261) ; static void __lambda_83(void *data, int argc, object self_73941, object r_73431) ; static void __lambda_82(void *data, int argc, object self_73942, object r_73401) ; static void __lambda_81(void *data, int argc, object self_73943, object k_73422, object x_73260, object lst_73259) ; static void __lambda_80(void *data, int argc, object self_73944, object r_73424) ; static void __lambda_79(void *data, int argc, object self_73945, object r_73402) ; static void __lambda_78(void *data, int argc, object self_73946, object k_73409) ; static void __lambda_77(void *data, int argc, object self_73947, object r_73410) ; static void __lambda_76(void *data, int argc, object self_73948, object r_73418) ; static void __lambda_75(void *data, int argc, object self_73949, object r_73411) ; static void __lambda_74(void *data, int argc, object self_73950, object r_73416) ; static void __lambda_73(void *data, int argc, object self_73951, object r_73412) ; static void __lambda_72(void *data, int argc, object self_73952, object r_73414) ; static void __lambda_71(void *data, int argc, object self_73953, object r_73413) ; static void __lambda_70(void *data, int argc, object self_73954, object r_73403) ; static void __lambda_69(void *data, int argc, object self_73955, object k_73405, object alist_73257, object term_73256, object n_73255) ; static void __lambda_68(void *data, int argc, object self_73956, object r_73406) ; static void __lambda_67(void *data, int argc, object self_73957, object answer_73258) ; static void __lambda_66(void *data, int argc, closure _,object r_73362) ; static void __lambda_65(void *data, int argc, closure _,object k_73674) ; static void __lambda_64(void *data, int argc, object self_73958, object r_73675) ; static void __lambda_63(void *data, int argc, closure _,object k_73678, object name_73329, object count_73328, object thunk_73327, object ok_127_73326) ; static void __lambda_62(void *data, int argc, object self_73959, object rounded_73331) ; static void __lambda_61(void *data, int argc, object self_73960, object rounded_73331) ; static void __lambda_60(void *data, int argc, object self_73961, object k_73725, object x_73346) ; static void __lambda_59(void *data, int argc, object self_73962, object r_73679) ; static void __lambda_58(void *data, int argc, object self_73963, object r_73680) ; static void __lambda_57(void *data, int argc, object self_73964, object r_73681) ; static void __lambda_56(void *data, int argc, object self_73965, object r_73682) ; static void __lambda_55(void *data, int argc, object self_73966, object r_73723) ; static void __lambda_54(void *data, int argc, object self_73967, object r_73683) ; static void __lambda_53(void *data, int argc, object self_73968, object j_95s_73333) ; static void __lambda_52(void *data, int argc, object self_73969, object t0_73334) ; static void __lambda_51(void *data, int argc, object self_73970, object j0_73335) ; static void __lambda_50(void *data, int argc, object self_73971, object loop_73338) ; static void __lambda_49(void *data, int argc, object self_73972, object loop_73338) ; static void __lambda_48(void *data, int argc, object self_73973, object k_73689, object i_73340, object result_73339) ; static void __lambda_47(void *data, int argc, object self_73974, object r_73693) ; static void __lambda_46(void *data, int argc, object self_73975, object r_73718) ; static void __lambda_45(void *data, int argc, object self_73976, object r_73719) ; static void __lambda_44(void *data, int argc, object self_73977, object r_73720) ; static void __lambda_43(void *data, int argc, object self_73978, object r_73722) ; static void __lambda_42(void *data, int argc, object self_73979, object r_73721) ; static void __lambda_41(void *data, int argc, object self_73980, object j1_73341) ; static void __lambda_40(void *data, int argc, object self_73981, object t1_73342) ; static void __lambda_39(void *data, int argc, object self_73982, object secs2_73345) ; static void __lambda_38(void *data, int argc, object self_73983, object r_73700) ; static void __lambda_37(void *data, int argc, object self_73984, object r_73701) ; static void __lambda_36(void *data, int argc, object self_73985, object r_73702) ; static void __lambda_35(void *data, int argc, object self_73986, object r_73703) ; static void __lambda_34(void *data, int argc, object self_73987, object r_73704) ; static void __lambda_33(void *data, int argc, object self_73988, object r_73705) ; static void __lambda_32(void *data, int argc, object self_73989, object r_73706) ; static void __lambda_31(void *data, int argc, object self_73990, object r_73707) ; static void __lambda_30(void *data, int argc, object self_73991, object r_73715) ; static void __lambda_29(void *data, int argc, object self_73992, object r_73708) ; static void __lambda_28(void *data, int argc, object self_73993, object r_73709) ; static void __lambda_27(void *data, int argc, object self_73994, object r_73710) ; static void __lambda_26(void *data, int argc, object self_73995, object r_73711) ; static void __lambda_25(void *data, int argc, object self_73996, object r_73712) ; static void __lambda_24(void *data, int argc, object self_73997, object r_73713) ; static void __lambda_23(void *data, int argc, object self_73998, object r_73714) ; static void __lambda_22(void *data, int argc, object self_73999, object r_73694) ; static void __lambda_21(void *data, int argc, object self_731000, object r_73692) ; static void __lambda_20(void *data, int argc, object self_731001, object r_73687) ; static void __lambda_19(void *data, int argc, closure _,object k_73730, object r_73348, object x_73347) ; static void __lambda_18(void *data, int argc, object self_731002, object k_73733, object v_73350, object i_73349) ; static void __lambda_17(void *data, int argc, object self_731003, object k_73735) ; static void __lambda_16(void *data, int argc, object self_731004, object k_73741, object x_73351) ; static void __lambda_15(void *data, int argc, object self_731005, object r_73736) ; static void __lambda_14(void *data, int argc, object self_731006, object r_73737) ; static void __lambda_13(void *data, int argc, object self_731007, object k_73738) ; static void __lambda_12(void *data, int argc, closure _,object k_73744) ; static void __lambda_11(void *data, int argc, closure _,object k_73747) ; static void __lambda_10(void *data, int argc, closure _,object k_73754) ; static void __lambda_9(void *data, int argc, object self_731008, object count_73352) ; static void __lambda_8(void *data, int argc, object self_731009, object input_73353) ; static void __lambda_7(void *data, int argc, object self_731010, object output_73354) ; static void __lambda_6(void *data, int argc, object self_731011, object s2_73355) ; static void __lambda_5(void *data, int argc, object self_731012, object s1_73356) ; static void __lambda_4(void *data, int argc, object self_731013, object r_73760) ; static void __lambda_3(void *data, int argc, object self_731014, object k_73763, object rewrites_73358) ; static void __lambda_2(void *data, int argc, object self_731015, object k_73765) ; static void __lambda_1(void *data, int argc, object self_731016, object r_73766) ; static void __lambda_0(void *data, int argc, object self_731017, object r_73767) ; static void __lambda_259(void *data, int argc, closure _,object r_73360) { make_pair(c_736404,quote_y,NULL); make_pair(c_736403,quote_x,&c_736404); make_pair(c_736402,quote_implies,&c_736403); make_pair(c_736410,quote_z,NULL); make_pair(c_736409,quote_y,&c_736410); make_pair(c_736408,quote_implies,&c_736409); make_pair(c_736416,quote_u,NULL); make_pair(c_736415,quote_z,&c_736416); make_pair(c_736414,quote_implies,&c_736415); make_pair(c_736420,quote_w,NULL); make_pair(c_736419,quote_u,&c_736420); make_pair(c_736418,quote_implies,&c_736419); make_pair(c_736417,&c_736418,NULL); make_pair(c_736413,&c_736414,&c_736417); make_pair(c_736412,quote_and,&c_736413); make_pair(c_736411,&c_736412,NULL); make_pair(c_736407,&c_736408,&c_736411); make_pair(c_736406,quote_and,&c_736407); make_pair(c_736405,&c_736406,NULL); make_pair(c_736401,&c_736402,&c_736405); make_pair(c_736400,quote_and,&c_736401); make_pair(c_736424,quote_w,NULL); make_pair(c_736423,quote_x,&c_736424); make_pair(c_736422,quote_implies,&c_736423); make_pair(c_736421,&c_736422,NULL); make_pair(c_736399,&c_736400,&c_736421); make_pair(c_736398,quote_implies,&c_736399); return_direct1(data,__lambda_258,global_set(__glo_term, &c_736398));; } static void __lambda_258(void *data, int argc, closure _,object r_73361) { return_direct40(data,__lambda_257,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; } static void __lambda_257(void *data, int argc, closure _,object setup_73254, object add_91lemma_91lst_73253, object add_91lemma_73252, object translate_91term_73251, object translate_91args_73250, object untranslate_91term_73249, object put_73248, object get_73247, object symbol_91_125symbol_91record_73246, object _85symbol_91records_91alist_85_73245, object make_91symbol_91record_73244, object put_91lemmas_67_73243, object get_91lemmas_73242, object get_91name_73241, object symbol_91record_91equal_127_73240, object test_73239, object translate_91alist_73238, object apply_91subst_73237, object apply_91subst_91lst_73236, object tautp_73235, object tautologyp_73234, object if_91constructor_73233, object rewrite_91count_73232, object scons_73231, object rewrite_73230, object rewrite_91args_73229, object rewrite_91with_91lemmas_73228, object unify_91subst_73227, object one_91way_91unify_73226, object one_91way_91unify1_73225, object one_91way_91unify1_91lst_73224, object falsep_73223, object truep_73222, object false_91term_73221, object true_91term_73220, object trans_91of_91implies_73219, object trans_91of_91implies1_73218, object term_91equal_127_73217, object term_91args_91equal_127_73216, object term_91member_127_73215) { closureN_type c_731294; c_731294.hdr.mark = gc_color_red; c_731294.hdr.grayed = 0; c_731294.tag = closureN_tag; c_731294.fn = (function_type)__lambda_256; c_731294.num_args = 1; c_731294.num_elements = 39; c_731294.elements = (object *)alloca(sizeof(object) * 39); c_731294.elements[0] = _85symbol_91records_91alist_85_73245; c_731294.elements[1] = add_91lemma_73252; c_731294.elements[2] = add_91lemma_91lst_73253; c_731294.elements[3] = apply_91subst_73237; c_731294.elements[4] = apply_91subst_91lst_73236; c_731294.elements[5] = false_91term_73221; c_731294.elements[6] = falsep_73223; c_731294.elements[7] = get_73247; c_731294.elements[8] = get_91lemmas_73242; c_731294.elements[9] = get_91name_73241; c_731294.elements[10] = if_91constructor_73233; c_731294.elements[11] = make_91symbol_91record_73244; c_731294.elements[12] = one_91way_91unify_73226; c_731294.elements[13] = one_91way_91unify1_73225; c_731294.elements[14] = one_91way_91unify1_91lst_73224; c_731294.elements[15] = put_73248; c_731294.elements[16] = put_91lemmas_67_73243; c_731294.elements[17] = rewrite_73230; c_731294.elements[18] = rewrite_91args_73229; c_731294.elements[19] = rewrite_91count_73232; c_731294.elements[20] = rewrite_91with_91lemmas_73228; c_731294.elements[21] = scons_73231; c_731294.elements[22] = symbol_91_125symbol_91record_73246; c_731294.elements[23] = symbol_91record_91equal_127_73240; c_731294.elements[24] = tautologyp_73234; c_731294.elements[25] = tautp_73235; c_731294.elements[26] = term_91args_91equal_127_73216; c_731294.elements[27] = term_91equal_127_73217; c_731294.elements[28] = term_91member_127_73215; c_731294.elements[29] = test_73239; c_731294.elements[30] = trans_91of_91implies_73219; c_731294.elements[31] = trans_91of_91implies1_73218; c_731294.elements[32] = translate_91alist_73238; c_731294.elements[33] = translate_91args_73250; c_731294.elements[34] = translate_91term_73251; c_731294.elements[35] = true_91term_73220; c_731294.elements[36] = truep_73222; c_731294.elements[37] = unify_91subst_73227; c_731294.elements[38] = untranslate_91term_73249; make_cell(c_736395,setup_73254); return_closcall1(data,(closure)&c_731294, &c_736395);; } static void __lambda_256(void *data, int argc, object self_73768, object setup_73254) { closureN_type c_731296; c_731296.hdr.mark = gc_color_red; c_731296.hdr.grayed = 0; c_731296.tag = closureN_tag; c_731296.fn = (function_type)__lambda_255; c_731296.num_args = 1; c_731296.num_elements = 39; c_731296.elements = (object *)alloca(sizeof(object) * 39); c_731296.elements[0] = ((closureN)self_73768)->elements[0]; c_731296.elements[1] = ((closureN)self_73768)->elements[1]; c_731296.elements[2] = ((closureN)self_73768)->elements[3]; c_731296.elements[3] = ((closureN)self_73768)->elements[4]; c_731296.elements[4] = ((closureN)self_73768)->elements[5]; c_731296.elements[5] = ((closureN)self_73768)->elements[6]; c_731296.elements[6] = ((closureN)self_73768)->elements[7]; c_731296.elements[7] = ((closureN)self_73768)->elements[8]; c_731296.elements[8] = ((closureN)self_73768)->elements[9]; c_731296.elements[9] = ((closureN)self_73768)->elements[10]; c_731296.elements[10] = ((closureN)self_73768)->elements[11]; c_731296.elements[11] = ((closureN)self_73768)->elements[12]; c_731296.elements[12] = ((closureN)self_73768)->elements[13]; c_731296.elements[13] = ((closureN)self_73768)->elements[14]; c_731296.elements[14] = ((closureN)self_73768)->elements[15]; c_731296.elements[15] = ((closureN)self_73768)->elements[16]; c_731296.elements[16] = ((closureN)self_73768)->elements[17]; c_731296.elements[17] = ((closureN)self_73768)->elements[18]; c_731296.elements[18] = ((closureN)self_73768)->elements[19]; c_731296.elements[19] = ((closureN)self_73768)->elements[20]; c_731296.elements[20] = ((closureN)self_73768)->elements[21]; c_731296.elements[21] = setup_73254; c_731296.elements[22] = ((closureN)self_73768)->elements[22]; c_731296.elements[23] = ((closureN)self_73768)->elements[23]; c_731296.elements[24] = ((closureN)self_73768)->elements[24]; c_731296.elements[25] = ((closureN)self_73768)->elements[25]; c_731296.elements[26] = ((closureN)self_73768)->elements[26]; c_731296.elements[27] = ((closureN)self_73768)->elements[27]; c_731296.elements[28] = ((closureN)self_73768)->elements[28]; c_731296.elements[29] = ((closureN)self_73768)->elements[29]; c_731296.elements[30] = ((closureN)self_73768)->elements[30]; c_731296.elements[31] = ((closureN)self_73768)->elements[31]; c_731296.elements[32] = ((closureN)self_73768)->elements[32]; c_731296.elements[33] = ((closureN)self_73768)->elements[33]; c_731296.elements[34] = ((closureN)self_73768)->elements[34]; c_731296.elements[35] = ((closureN)self_73768)->elements[35]; c_731296.elements[36] = ((closureN)self_73768)->elements[36]; c_731296.elements[37] = ((closureN)self_73768)->elements[37]; c_731296.elements[38] = ((closureN)self_73768)->elements[38]; make_cell(c_736391,((closureN)self_73768)->elements[2]); return_closcall1(data,(closure)&c_731296, &c_736391);; } static void __lambda_255(void *data, int argc, object self_73769, object add_91lemma_91lst_73253) { closureN_type c_731298; c_731298.hdr.mark = gc_color_red; c_731298.hdr.grayed = 0; c_731298.tag = closureN_tag; c_731298.fn = (function_type)__lambda_254; c_731298.num_args = 1; c_731298.num_elements = 39; c_731298.elements = (object *)alloca(sizeof(object) * 39); c_731298.elements[0] = ((closureN)self_73769)->elements[0]; c_731298.elements[1] = add_91lemma_91lst_73253; c_731298.elements[2] = ((closureN)self_73769)->elements[2]; c_731298.elements[3] = ((closureN)self_73769)->elements[3]; c_731298.elements[4] = ((closureN)self_73769)->elements[4]; c_731298.elements[5] = ((closureN)self_73769)->elements[5]; c_731298.elements[6] = ((closureN)self_73769)->elements[6]; c_731298.elements[7] = ((closureN)self_73769)->elements[7]; c_731298.elements[8] = ((closureN)self_73769)->elements[8]; c_731298.elements[9] = ((closureN)self_73769)->elements[9]; c_731298.elements[10] = ((closureN)self_73769)->elements[10]; c_731298.elements[11] = ((closureN)self_73769)->elements[11]; c_731298.elements[12] = ((closureN)self_73769)->elements[12]; c_731298.elements[13] = ((closureN)self_73769)->elements[13]; c_731298.elements[14] = ((closureN)self_73769)->elements[14]; c_731298.elements[15] = ((closureN)self_73769)->elements[15]; c_731298.elements[16] = ((closureN)self_73769)->elements[16]; c_731298.elements[17] = ((closureN)self_73769)->elements[17]; c_731298.elements[18] = ((closureN)self_73769)->elements[18]; c_731298.elements[19] = ((closureN)self_73769)->elements[19]; c_731298.elements[20] = ((closureN)self_73769)->elements[20]; c_731298.elements[21] = ((closureN)self_73769)->elements[21]; c_731298.elements[22] = ((closureN)self_73769)->elements[22]; c_731298.elements[23] = ((closureN)self_73769)->elements[23]; c_731298.elements[24] = ((closureN)self_73769)->elements[24]; c_731298.elements[25] = ((closureN)self_73769)->elements[25]; c_731298.elements[26] = ((closureN)self_73769)->elements[26]; c_731298.elements[27] = ((closureN)self_73769)->elements[27]; c_731298.elements[28] = ((closureN)self_73769)->elements[28]; c_731298.elements[29] = ((closureN)self_73769)->elements[29]; c_731298.elements[30] = ((closureN)self_73769)->elements[30]; c_731298.elements[31] = ((closureN)self_73769)->elements[31]; c_731298.elements[32] = ((closureN)self_73769)->elements[32]; c_731298.elements[33] = ((closureN)self_73769)->elements[33]; c_731298.elements[34] = ((closureN)self_73769)->elements[34]; c_731298.elements[35] = ((closureN)self_73769)->elements[35]; c_731298.elements[36] = ((closureN)self_73769)->elements[36]; c_731298.elements[37] = ((closureN)self_73769)->elements[37]; c_731298.elements[38] = ((closureN)self_73769)->elements[38]; make_cell(c_736387,((closureN)self_73769)->elements[1]); return_closcall1(data,(closure)&c_731298, &c_736387);; } static void __lambda_254(void *data, int argc, object self_73770, object add_91lemma_73252) { closureN_type c_731300; c_731300.hdr.mark = gc_color_red; c_731300.hdr.grayed = 0; c_731300.tag = closureN_tag; c_731300.fn = (function_type)__lambda_253; c_731300.num_args = 1; c_731300.num_elements = 39; c_731300.elements = (object *)alloca(sizeof(object) * 39); c_731300.elements[0] = ((closureN)self_73770)->elements[0]; c_731300.elements[1] = add_91lemma_73252; c_731300.elements[2] = ((closureN)self_73770)->elements[1]; c_731300.elements[3] = ((closureN)self_73770)->elements[2]; c_731300.elements[4] = ((closureN)self_73770)->elements[3]; c_731300.elements[5] = ((closureN)self_73770)->elements[4]; c_731300.elements[6] = ((closureN)self_73770)->elements[5]; c_731300.elements[7] = ((closureN)self_73770)->elements[6]; c_731300.elements[8] = ((closureN)self_73770)->elements[7]; c_731300.elements[9] = ((closureN)self_73770)->elements[8]; c_731300.elements[10] = ((closureN)self_73770)->elements[9]; c_731300.elements[11] = ((closureN)self_73770)->elements[10]; c_731300.elements[12] = ((closureN)self_73770)->elements[11]; c_731300.elements[13] = ((closureN)self_73770)->elements[12]; c_731300.elements[14] = ((closureN)self_73770)->elements[13]; c_731300.elements[15] = ((closureN)self_73770)->elements[14]; c_731300.elements[16] = ((closureN)self_73770)->elements[15]; c_731300.elements[17] = ((closureN)self_73770)->elements[16]; c_731300.elements[18] = ((closureN)self_73770)->elements[17]; c_731300.elements[19] = ((closureN)self_73770)->elements[18]; c_731300.elements[20] = ((closureN)self_73770)->elements[19]; c_731300.elements[21] = ((closureN)self_73770)->elements[20]; c_731300.elements[22] = ((closureN)self_73770)->elements[21]; c_731300.elements[23] = ((closureN)self_73770)->elements[22]; c_731300.elements[24] = ((closureN)self_73770)->elements[23]; c_731300.elements[25] = ((closureN)self_73770)->elements[24]; c_731300.elements[26] = ((closureN)self_73770)->elements[25]; c_731300.elements[27] = ((closureN)self_73770)->elements[26]; c_731300.elements[28] = ((closureN)self_73770)->elements[27]; c_731300.elements[29] = ((closureN)self_73770)->elements[28]; c_731300.elements[30] = ((closureN)self_73770)->elements[29]; c_731300.elements[31] = ((closureN)self_73770)->elements[30]; c_731300.elements[32] = ((closureN)self_73770)->elements[31]; c_731300.elements[33] = ((closureN)self_73770)->elements[32]; c_731300.elements[34] = ((closureN)self_73770)->elements[33]; c_731300.elements[35] = ((closureN)self_73770)->elements[35]; c_731300.elements[36] = ((closureN)self_73770)->elements[36]; c_731300.elements[37] = ((closureN)self_73770)->elements[37]; c_731300.elements[38] = ((closureN)self_73770)->elements[38]; make_cell(c_736383,((closureN)self_73770)->elements[34]); return_closcall1(data,(closure)&c_731300, &c_736383);; } static void __lambda_253(void *data, int argc, object self_73771, object translate_91term_73251) { closureN_type c_731302; c_731302.hdr.mark = gc_color_red; c_731302.hdr.grayed = 0; c_731302.tag = closureN_tag; c_731302.fn = (function_type)__lambda_252; c_731302.num_args = 1; c_731302.num_elements = 39; c_731302.elements = (object *)alloca(sizeof(object) * 39); c_731302.elements[0] = ((closureN)self_73771)->elements[0]; c_731302.elements[1] = ((closureN)self_73771)->elements[1]; c_731302.elements[2] = ((closureN)self_73771)->elements[2]; c_731302.elements[3] = ((closureN)self_73771)->elements[3]; c_731302.elements[4] = ((closureN)self_73771)->elements[4]; c_731302.elements[5] = ((closureN)self_73771)->elements[5]; c_731302.elements[6] = ((closureN)self_73771)->elements[6]; c_731302.elements[7] = ((closureN)self_73771)->elements[7]; c_731302.elements[8] = ((closureN)self_73771)->elements[8]; c_731302.elements[9] = ((closureN)self_73771)->elements[9]; c_731302.elements[10] = ((closureN)self_73771)->elements[10]; c_731302.elements[11] = ((closureN)self_73771)->elements[11]; c_731302.elements[12] = ((closureN)self_73771)->elements[12]; c_731302.elements[13] = ((closureN)self_73771)->elements[13]; c_731302.elements[14] = ((closureN)self_73771)->elements[14]; c_731302.elements[15] = ((closureN)self_73771)->elements[15]; c_731302.elements[16] = ((closureN)self_73771)->elements[16]; c_731302.elements[17] = ((closureN)self_73771)->elements[17]; c_731302.elements[18] = ((closureN)self_73771)->elements[18]; c_731302.elements[19] = ((closureN)self_73771)->elements[19]; c_731302.elements[20] = ((closureN)self_73771)->elements[20]; c_731302.elements[21] = ((closureN)self_73771)->elements[21]; c_731302.elements[22] = ((closureN)self_73771)->elements[22]; c_731302.elements[23] = ((closureN)self_73771)->elements[23]; c_731302.elements[24] = ((closureN)self_73771)->elements[24]; c_731302.elements[25] = ((closureN)self_73771)->elements[25]; c_731302.elements[26] = ((closureN)self_73771)->elements[26]; c_731302.elements[27] = ((closureN)self_73771)->elements[27]; c_731302.elements[28] = ((closureN)self_73771)->elements[28]; c_731302.elements[29] = ((closureN)self_73771)->elements[29]; c_731302.elements[30] = ((closureN)self_73771)->elements[30]; c_731302.elements[31] = ((closureN)self_73771)->elements[31]; c_731302.elements[32] = ((closureN)self_73771)->elements[32]; c_731302.elements[33] = ((closureN)self_73771)->elements[33]; c_731302.elements[34] = translate_91term_73251; c_731302.elements[35] = ((closureN)self_73771)->elements[35]; c_731302.elements[36] = ((closureN)self_73771)->elements[36]; c_731302.elements[37] = ((closureN)self_73771)->elements[37]; c_731302.elements[38] = ((closureN)self_73771)->elements[38]; make_cell(c_736379,((closureN)self_73771)->elements[34]); return_closcall1(data,(closure)&c_731302, &c_736379);; } static void __lambda_252(void *data, int argc, object self_73772, object translate_91args_73250) { closureN_type c_731304; c_731304.hdr.mark = gc_color_red; c_731304.hdr.grayed = 0; c_731304.tag = closureN_tag; c_731304.fn = (function_type)__lambda_251; c_731304.num_args = 1; c_731304.num_elements = 39; c_731304.elements = (object *)alloca(sizeof(object) * 39); c_731304.elements[0] = ((closureN)self_73772)->elements[0]; c_731304.elements[1] = ((closureN)self_73772)->elements[1]; c_731304.elements[2] = ((closureN)self_73772)->elements[2]; c_731304.elements[3] = ((closureN)self_73772)->elements[3]; c_731304.elements[4] = ((closureN)self_73772)->elements[4]; c_731304.elements[5] = ((closureN)self_73772)->elements[5]; c_731304.elements[6] = ((closureN)self_73772)->elements[6]; c_731304.elements[7] = ((closureN)self_73772)->elements[7]; c_731304.elements[8] = ((closureN)self_73772)->elements[8]; c_731304.elements[9] = ((closureN)self_73772)->elements[9]; c_731304.elements[10] = ((closureN)self_73772)->elements[10]; c_731304.elements[11] = ((closureN)self_73772)->elements[11]; c_731304.elements[12] = ((closureN)self_73772)->elements[12]; c_731304.elements[13] = ((closureN)self_73772)->elements[13]; c_731304.elements[14] = ((closureN)self_73772)->elements[14]; c_731304.elements[15] = ((closureN)self_73772)->elements[15]; c_731304.elements[16] = ((closureN)self_73772)->elements[16]; c_731304.elements[17] = ((closureN)self_73772)->elements[17]; c_731304.elements[18] = ((closureN)self_73772)->elements[18]; c_731304.elements[19] = ((closureN)self_73772)->elements[19]; c_731304.elements[20] = ((closureN)self_73772)->elements[20]; c_731304.elements[21] = ((closureN)self_73772)->elements[21]; c_731304.elements[22] = ((closureN)self_73772)->elements[22]; c_731304.elements[23] = ((closureN)self_73772)->elements[23]; c_731304.elements[24] = ((closureN)self_73772)->elements[24]; c_731304.elements[25] = ((closureN)self_73772)->elements[25]; c_731304.elements[26] = ((closureN)self_73772)->elements[26]; c_731304.elements[27] = ((closureN)self_73772)->elements[27]; c_731304.elements[28] = ((closureN)self_73772)->elements[28]; c_731304.elements[29] = ((closureN)self_73772)->elements[29]; c_731304.elements[30] = ((closureN)self_73772)->elements[30]; c_731304.elements[31] = ((closureN)self_73772)->elements[31]; c_731304.elements[32] = ((closureN)self_73772)->elements[32]; c_731304.elements[33] = ((closureN)self_73772)->elements[33]; c_731304.elements[34] = translate_91args_73250; c_731304.elements[35] = ((closureN)self_73772)->elements[34]; c_731304.elements[36] = ((closureN)self_73772)->elements[35]; c_731304.elements[37] = ((closureN)self_73772)->elements[36]; c_731304.elements[38] = ((closureN)self_73772)->elements[37]; make_cell(c_736375,((closureN)self_73772)->elements[38]); return_closcall1(data,(closure)&c_731304, &c_736375);; } static void __lambda_251(void *data, int argc, object self_73773, object untranslate_91term_73249) { closureN_type c_731306; c_731306.hdr.mark = gc_color_red; c_731306.hdr.grayed = 0; c_731306.tag = closureN_tag; c_731306.fn = (function_type)__lambda_250; c_731306.num_args = 1; c_731306.num_elements = 39; c_731306.elements = (object *)alloca(sizeof(object) * 39); c_731306.elements[0] = ((closureN)self_73773)->elements[0]; c_731306.elements[1] = ((closureN)self_73773)->elements[1]; c_731306.elements[2] = ((closureN)self_73773)->elements[2]; c_731306.elements[3] = ((closureN)self_73773)->elements[3]; c_731306.elements[4] = ((closureN)self_73773)->elements[4]; c_731306.elements[5] = ((closureN)self_73773)->elements[5]; c_731306.elements[6] = ((closureN)self_73773)->elements[6]; c_731306.elements[7] = ((closureN)self_73773)->elements[7]; c_731306.elements[8] = ((closureN)self_73773)->elements[8]; c_731306.elements[9] = ((closureN)self_73773)->elements[9]; c_731306.elements[10] = ((closureN)self_73773)->elements[10]; c_731306.elements[11] = ((closureN)self_73773)->elements[11]; c_731306.elements[12] = ((closureN)self_73773)->elements[12]; c_731306.elements[13] = ((closureN)self_73773)->elements[13]; c_731306.elements[14] = ((closureN)self_73773)->elements[14]; c_731306.elements[15] = ((closureN)self_73773)->elements[16]; c_731306.elements[16] = ((closureN)self_73773)->elements[17]; c_731306.elements[17] = ((closureN)self_73773)->elements[18]; c_731306.elements[18] = ((closureN)self_73773)->elements[19]; c_731306.elements[19] = ((closureN)self_73773)->elements[20]; c_731306.elements[20] = ((closureN)self_73773)->elements[21]; c_731306.elements[21] = ((closureN)self_73773)->elements[22]; c_731306.elements[22] = ((closureN)self_73773)->elements[23]; c_731306.elements[23] = ((closureN)self_73773)->elements[24]; c_731306.elements[24] = ((closureN)self_73773)->elements[25]; c_731306.elements[25] = ((closureN)self_73773)->elements[26]; c_731306.elements[26] = ((closureN)self_73773)->elements[27]; c_731306.elements[27] = ((closureN)self_73773)->elements[28]; c_731306.elements[28] = ((closureN)self_73773)->elements[29]; c_731306.elements[29] = ((closureN)self_73773)->elements[30]; c_731306.elements[30] = ((closureN)self_73773)->elements[31]; c_731306.elements[31] = ((closureN)self_73773)->elements[32]; c_731306.elements[32] = ((closureN)self_73773)->elements[33]; c_731306.elements[33] = ((closureN)self_73773)->elements[34]; c_731306.elements[34] = ((closureN)self_73773)->elements[35]; c_731306.elements[35] = ((closureN)self_73773)->elements[36]; c_731306.elements[36] = ((closureN)self_73773)->elements[37]; c_731306.elements[37] = ((closureN)self_73773)->elements[38]; c_731306.elements[38] = untranslate_91term_73249; make_cell(c_736371,((closureN)self_73773)->elements[15]); return_closcall1(data,(closure)&c_731306, &c_736371);; } static void __lambda_250(void *data, int argc, object self_73774, object put_73248) { closureN_type c_731308; c_731308.hdr.mark = gc_color_red; c_731308.hdr.grayed = 0; c_731308.tag = closureN_tag; c_731308.fn = (function_type)__lambda_249; c_731308.num_args = 1; c_731308.num_elements = 39; c_731308.elements = (object *)alloca(sizeof(object) * 39); c_731308.elements[0] = ((closureN)self_73774)->elements[0]; c_731308.elements[1] = ((closureN)self_73774)->elements[1]; c_731308.elements[2] = ((closureN)self_73774)->elements[2]; c_731308.elements[3] = ((closureN)self_73774)->elements[3]; c_731308.elements[4] = ((closureN)self_73774)->elements[4]; c_731308.elements[5] = ((closureN)self_73774)->elements[5]; c_731308.elements[6] = ((closureN)self_73774)->elements[6]; c_731308.elements[7] = ((closureN)self_73774)->elements[8]; c_731308.elements[8] = ((closureN)self_73774)->elements[9]; c_731308.elements[9] = ((closureN)self_73774)->elements[10]; c_731308.elements[10] = ((closureN)self_73774)->elements[11]; c_731308.elements[11] = ((closureN)self_73774)->elements[12]; c_731308.elements[12] = ((closureN)self_73774)->elements[13]; c_731308.elements[13] = ((closureN)self_73774)->elements[14]; c_731308.elements[14] = put_73248; c_731308.elements[15] = ((closureN)self_73774)->elements[15]; c_731308.elements[16] = ((closureN)self_73774)->elements[16]; c_731308.elements[17] = ((closureN)self_73774)->elements[17]; c_731308.elements[18] = ((closureN)self_73774)->elements[18]; c_731308.elements[19] = ((closureN)self_73774)->elements[19]; c_731308.elements[20] = ((closureN)self_73774)->elements[20]; c_731308.elements[21] = ((closureN)self_73774)->elements[21]; c_731308.elements[22] = ((closureN)self_73774)->elements[22]; c_731308.elements[23] = ((closureN)self_73774)->elements[23]; c_731308.elements[24] = ((closureN)self_73774)->elements[24]; c_731308.elements[25] = ((closureN)self_73774)->elements[25]; c_731308.elements[26] = ((closureN)self_73774)->elements[26]; c_731308.elements[27] = ((closureN)self_73774)->elements[27]; c_731308.elements[28] = ((closureN)self_73774)->elements[28]; c_731308.elements[29] = ((closureN)self_73774)->elements[29]; c_731308.elements[30] = ((closureN)self_73774)->elements[30]; c_731308.elements[31] = ((closureN)self_73774)->elements[31]; c_731308.elements[32] = ((closureN)self_73774)->elements[32]; c_731308.elements[33] = ((closureN)self_73774)->elements[33]; c_731308.elements[34] = ((closureN)self_73774)->elements[34]; c_731308.elements[35] = ((closureN)self_73774)->elements[35]; c_731308.elements[36] = ((closureN)self_73774)->elements[36]; c_731308.elements[37] = ((closureN)self_73774)->elements[37]; c_731308.elements[38] = ((closureN)self_73774)->elements[38]; make_cell(c_736367,((closureN)self_73774)->elements[7]); return_closcall1(data,(closure)&c_731308, &c_736367);; } static void __lambda_249(void *data, int argc, object self_73775, object get_73247) { closureN_type c_731310; c_731310.hdr.mark = gc_color_red; c_731310.hdr.grayed = 0; c_731310.tag = closureN_tag; c_731310.fn = (function_type)__lambda_248; c_731310.num_args = 1; c_731310.num_elements = 39; c_731310.elements = (object *)alloca(sizeof(object) * 39); c_731310.elements[0] = ((closureN)self_73775)->elements[0]; c_731310.elements[1] = ((closureN)self_73775)->elements[1]; c_731310.elements[2] = ((closureN)self_73775)->elements[2]; c_731310.elements[3] = ((closureN)self_73775)->elements[3]; c_731310.elements[4] = ((closureN)self_73775)->elements[4]; c_731310.elements[5] = ((closureN)self_73775)->elements[5]; c_731310.elements[6] = ((closureN)self_73775)->elements[6]; c_731310.elements[7] = get_73247; c_731310.elements[8] = ((closureN)self_73775)->elements[7]; c_731310.elements[9] = ((closureN)self_73775)->elements[8]; c_731310.elements[10] = ((closureN)self_73775)->elements[9]; c_731310.elements[11] = ((closureN)self_73775)->elements[10]; c_731310.elements[12] = ((closureN)self_73775)->elements[11]; c_731310.elements[13] = ((closureN)self_73775)->elements[12]; c_731310.elements[14] = ((closureN)self_73775)->elements[13]; c_731310.elements[15] = ((closureN)self_73775)->elements[14]; c_731310.elements[16] = ((closureN)self_73775)->elements[15]; c_731310.elements[17] = ((closureN)self_73775)->elements[16]; c_731310.elements[18] = ((closureN)self_73775)->elements[17]; c_731310.elements[19] = ((closureN)self_73775)->elements[18]; c_731310.elements[20] = ((closureN)self_73775)->elements[19]; c_731310.elements[21] = ((closureN)self_73775)->elements[20]; c_731310.elements[22] = ((closureN)self_73775)->elements[21]; c_731310.elements[23] = ((closureN)self_73775)->elements[23]; c_731310.elements[24] = ((closureN)self_73775)->elements[24]; c_731310.elements[25] = ((closureN)self_73775)->elements[25]; c_731310.elements[26] = ((closureN)self_73775)->elements[26]; c_731310.elements[27] = ((closureN)self_73775)->elements[27]; c_731310.elements[28] = ((closureN)self_73775)->elements[28]; c_731310.elements[29] = ((closureN)self_73775)->elements[29]; c_731310.elements[30] = ((closureN)self_73775)->elements[30]; c_731310.elements[31] = ((closureN)self_73775)->elements[31]; c_731310.elements[32] = ((closureN)self_73775)->elements[32]; c_731310.elements[33] = ((closureN)self_73775)->elements[33]; c_731310.elements[34] = ((closureN)self_73775)->elements[34]; c_731310.elements[35] = ((closureN)self_73775)->elements[35]; c_731310.elements[36] = ((closureN)self_73775)->elements[36]; c_731310.elements[37] = ((closureN)self_73775)->elements[37]; c_731310.elements[38] = ((closureN)self_73775)->elements[38]; make_cell(c_736363,((closureN)self_73775)->elements[22]); return_closcall1(data,(closure)&c_731310, &c_736363);; } static void __lambda_248(void *data, int argc, object self_73776, object symbol_91_125symbol_91record_73246) { closureN_type c_731312; c_731312.hdr.mark = gc_color_red; c_731312.hdr.grayed = 0; c_731312.tag = closureN_tag; c_731312.fn = (function_type)__lambda_247; c_731312.num_args = 1; c_731312.num_elements = 39; c_731312.elements = (object *)alloca(sizeof(object) * 39); c_731312.elements[0] = ((closureN)self_73776)->elements[1]; c_731312.elements[1] = ((closureN)self_73776)->elements[2]; c_731312.elements[2] = ((closureN)self_73776)->elements[3]; c_731312.elements[3] = ((closureN)self_73776)->elements[4]; c_731312.elements[4] = ((closureN)self_73776)->elements[5]; c_731312.elements[5] = ((closureN)self_73776)->elements[6]; c_731312.elements[6] = ((closureN)self_73776)->elements[7]; c_731312.elements[7] = ((closureN)self_73776)->elements[8]; c_731312.elements[8] = ((closureN)self_73776)->elements[9]; c_731312.elements[9] = ((closureN)self_73776)->elements[10]; c_731312.elements[10] = ((closureN)self_73776)->elements[11]; c_731312.elements[11] = ((closureN)self_73776)->elements[12]; c_731312.elements[12] = ((closureN)self_73776)->elements[13]; c_731312.elements[13] = ((closureN)self_73776)->elements[14]; c_731312.elements[14] = ((closureN)self_73776)->elements[15]; c_731312.elements[15] = ((closureN)self_73776)->elements[16]; c_731312.elements[16] = ((closureN)self_73776)->elements[17]; c_731312.elements[17] = ((closureN)self_73776)->elements[18]; c_731312.elements[18] = ((closureN)self_73776)->elements[19]; c_731312.elements[19] = ((closureN)self_73776)->elements[20]; c_731312.elements[20] = ((closureN)self_73776)->elements[21]; c_731312.elements[21] = ((closureN)self_73776)->elements[22]; c_731312.elements[22] = symbol_91_125symbol_91record_73246; c_731312.elements[23] = ((closureN)self_73776)->elements[23]; c_731312.elements[24] = ((closureN)self_73776)->elements[24]; c_731312.elements[25] = ((closureN)self_73776)->elements[25]; c_731312.elements[26] = ((closureN)self_73776)->elements[26]; c_731312.elements[27] = ((closureN)self_73776)->elements[27]; c_731312.elements[28] = ((closureN)self_73776)->elements[28]; c_731312.elements[29] = ((closureN)self_73776)->elements[29]; c_731312.elements[30] = ((closureN)self_73776)->elements[30]; c_731312.elements[31] = ((closureN)self_73776)->elements[31]; c_731312.elements[32] = ((closureN)self_73776)->elements[32]; c_731312.elements[33] = ((closureN)self_73776)->elements[33]; c_731312.elements[34] = ((closureN)self_73776)->elements[34]; c_731312.elements[35] = ((closureN)self_73776)->elements[35]; c_731312.elements[36] = ((closureN)self_73776)->elements[36]; c_731312.elements[37] = ((closureN)self_73776)->elements[37]; c_731312.elements[38] = ((closureN)self_73776)->elements[38]; make_cell(c_736359,((closureN)self_73776)->elements[0]); return_closcall1(data,(closure)&c_731312, &c_736359);; } static void __lambda_247(void *data, int argc, object self_73777, object _85symbol_91records_91alist_85_73245) { closureN_type c_731314; c_731314.hdr.mark = gc_color_red; c_731314.hdr.grayed = 0; c_731314.tag = closureN_tag; c_731314.fn = (function_type)__lambda_246; c_731314.num_args = 1; c_731314.num_elements = 39; c_731314.elements = (object *)alloca(sizeof(object) * 39); c_731314.elements[0] = _85symbol_91records_91alist_85_73245; c_731314.elements[1] = ((closureN)self_73777)->elements[0]; c_731314.elements[2] = ((closureN)self_73777)->elements[1]; c_731314.elements[3] = ((closureN)self_73777)->elements[2]; c_731314.elements[4] = ((closureN)self_73777)->elements[3]; c_731314.elements[5] = ((closureN)self_73777)->elements[4]; c_731314.elements[6] = ((closureN)self_73777)->elements[5]; c_731314.elements[7] = ((closureN)self_73777)->elements[6]; c_731314.elements[8] = ((closureN)self_73777)->elements[7]; c_731314.elements[9] = ((closureN)self_73777)->elements[8]; c_731314.elements[10] = ((closureN)self_73777)->elements[9]; c_731314.elements[11] = ((closureN)self_73777)->elements[11]; c_731314.elements[12] = ((closureN)self_73777)->elements[12]; c_731314.elements[13] = ((closureN)self_73777)->elements[13]; c_731314.elements[14] = ((closureN)self_73777)->elements[14]; c_731314.elements[15] = ((closureN)self_73777)->elements[15]; c_731314.elements[16] = ((closureN)self_73777)->elements[16]; c_731314.elements[17] = ((closureN)self_73777)->elements[17]; c_731314.elements[18] = ((closureN)self_73777)->elements[18]; c_731314.elements[19] = ((closureN)self_73777)->elements[19]; c_731314.elements[20] = ((closureN)self_73777)->elements[20]; c_731314.elements[21] = ((closureN)self_73777)->elements[21]; c_731314.elements[22] = ((closureN)self_73777)->elements[22]; c_731314.elements[23] = ((closureN)self_73777)->elements[23]; c_731314.elements[24] = ((closureN)self_73777)->elements[24]; c_731314.elements[25] = ((closureN)self_73777)->elements[25]; c_731314.elements[26] = ((closureN)self_73777)->elements[26]; c_731314.elements[27] = ((closureN)self_73777)->elements[27]; c_731314.elements[28] = ((closureN)self_73777)->elements[28]; c_731314.elements[29] = ((closureN)self_73777)->elements[29]; c_731314.elements[30] = ((closureN)self_73777)->elements[30]; c_731314.elements[31] = ((closureN)self_73777)->elements[31]; c_731314.elements[32] = ((closureN)self_73777)->elements[32]; c_731314.elements[33] = ((closureN)self_73777)->elements[33]; c_731314.elements[34] = ((closureN)self_73777)->elements[34]; c_731314.elements[35] = ((closureN)self_73777)->elements[35]; c_731314.elements[36] = ((closureN)self_73777)->elements[36]; c_731314.elements[37] = ((closureN)self_73777)->elements[37]; c_731314.elements[38] = ((closureN)self_73777)->elements[38]; make_cell(c_736355,((closureN)self_73777)->elements[10]); return_closcall1(data,(closure)&c_731314, &c_736355);; } static void __lambda_246(void *data, int argc, object self_73778, object make_91symbol_91record_73244) { closureN_type c_731316; c_731316.hdr.mark = gc_color_red; c_731316.hdr.grayed = 0; c_731316.tag = closureN_tag; c_731316.fn = (function_type)__lambda_245; c_731316.num_args = 1; c_731316.num_elements = 39; c_731316.elements = (object *)alloca(sizeof(object) * 39); c_731316.elements[0] = ((closureN)self_73778)->elements[0]; c_731316.elements[1] = ((closureN)self_73778)->elements[1]; c_731316.elements[2] = ((closureN)self_73778)->elements[2]; c_731316.elements[3] = ((closureN)self_73778)->elements[3]; c_731316.elements[4] = ((closureN)self_73778)->elements[4]; c_731316.elements[5] = ((closureN)self_73778)->elements[5]; c_731316.elements[6] = ((closureN)self_73778)->elements[6]; c_731316.elements[7] = ((closureN)self_73778)->elements[7]; c_731316.elements[8] = ((closureN)self_73778)->elements[8]; c_731316.elements[9] = ((closureN)self_73778)->elements[9]; c_731316.elements[10] = ((closureN)self_73778)->elements[10]; c_731316.elements[11] = make_91symbol_91record_73244; c_731316.elements[12] = ((closureN)self_73778)->elements[11]; c_731316.elements[13] = ((closureN)self_73778)->elements[12]; c_731316.elements[14] = ((closureN)self_73778)->elements[13]; c_731316.elements[15] = ((closureN)self_73778)->elements[14]; c_731316.elements[16] = ((closureN)self_73778)->elements[16]; c_731316.elements[17] = ((closureN)self_73778)->elements[17]; c_731316.elements[18] = ((closureN)self_73778)->elements[18]; c_731316.elements[19] = ((closureN)self_73778)->elements[19]; c_731316.elements[20] = ((closureN)self_73778)->elements[20]; c_731316.elements[21] = ((closureN)self_73778)->elements[21]; c_731316.elements[22] = ((closureN)self_73778)->elements[22]; c_731316.elements[23] = ((closureN)self_73778)->elements[23]; c_731316.elements[24] = ((closureN)self_73778)->elements[24]; c_731316.elements[25] = ((closureN)self_73778)->elements[25]; c_731316.elements[26] = ((closureN)self_73778)->elements[26]; c_731316.elements[27] = ((closureN)self_73778)->elements[27]; c_731316.elements[28] = ((closureN)self_73778)->elements[28]; c_731316.elements[29] = ((closureN)self_73778)->elements[29]; c_731316.elements[30] = ((closureN)self_73778)->elements[30]; c_731316.elements[31] = ((closureN)self_73778)->elements[31]; c_731316.elements[32] = ((closureN)self_73778)->elements[32]; c_731316.elements[33] = ((closureN)self_73778)->elements[33]; c_731316.elements[34] = ((closureN)self_73778)->elements[34]; c_731316.elements[35] = ((closureN)self_73778)->elements[35]; c_731316.elements[36] = ((closureN)self_73778)->elements[36]; c_731316.elements[37] = ((closureN)self_73778)->elements[37]; c_731316.elements[38] = ((closureN)self_73778)->elements[38]; make_cell(c_736351,((closureN)self_73778)->elements[15]); return_closcall1(data,(closure)&c_731316, &c_736351);; } static void __lambda_245(void *data, int argc, object self_73779, object put_91lemmas_67_73243) { closureN_type c_731318; c_731318.hdr.mark = gc_color_red; c_731318.hdr.grayed = 0; c_731318.tag = closureN_tag; c_731318.fn = (function_type)__lambda_244; c_731318.num_args = 1; c_731318.num_elements = 39; c_731318.elements = (object *)alloca(sizeof(object) * 39); c_731318.elements[0] = ((closureN)self_73779)->elements[0]; c_731318.elements[1] = ((closureN)self_73779)->elements[1]; c_731318.elements[2] = ((closureN)self_73779)->elements[2]; c_731318.elements[3] = ((closureN)self_73779)->elements[3]; c_731318.elements[4] = ((closureN)self_73779)->elements[4]; c_731318.elements[5] = ((closureN)self_73779)->elements[5]; c_731318.elements[6] = ((closureN)self_73779)->elements[6]; c_731318.elements[7] = ((closureN)self_73779)->elements[7]; c_731318.elements[8] = ((closureN)self_73779)->elements[9]; c_731318.elements[9] = ((closureN)self_73779)->elements[10]; c_731318.elements[10] = ((closureN)self_73779)->elements[11]; c_731318.elements[11] = ((closureN)self_73779)->elements[12]; c_731318.elements[12] = ((closureN)self_73779)->elements[13]; c_731318.elements[13] = ((closureN)self_73779)->elements[14]; c_731318.elements[14] = ((closureN)self_73779)->elements[15]; c_731318.elements[15] = put_91lemmas_67_73243; c_731318.elements[16] = ((closureN)self_73779)->elements[16]; c_731318.elements[17] = ((closureN)self_73779)->elements[17]; c_731318.elements[18] = ((closureN)self_73779)->elements[18]; c_731318.elements[19] = ((closureN)self_73779)->elements[19]; c_731318.elements[20] = ((closureN)self_73779)->elements[20]; c_731318.elements[21] = ((closureN)self_73779)->elements[21]; c_731318.elements[22] = ((closureN)self_73779)->elements[22]; c_731318.elements[23] = ((closureN)self_73779)->elements[23]; c_731318.elements[24] = ((closureN)self_73779)->elements[24]; c_731318.elements[25] = ((closureN)self_73779)->elements[25]; c_731318.elements[26] = ((closureN)self_73779)->elements[26]; c_731318.elements[27] = ((closureN)self_73779)->elements[27]; c_731318.elements[28] = ((closureN)self_73779)->elements[28]; c_731318.elements[29] = ((closureN)self_73779)->elements[29]; c_731318.elements[30] = ((closureN)self_73779)->elements[30]; c_731318.elements[31] = ((closureN)self_73779)->elements[31]; c_731318.elements[32] = ((closureN)self_73779)->elements[32]; c_731318.elements[33] = ((closureN)self_73779)->elements[33]; c_731318.elements[34] = ((closureN)self_73779)->elements[34]; c_731318.elements[35] = ((closureN)self_73779)->elements[35]; c_731318.elements[36] = ((closureN)self_73779)->elements[36]; c_731318.elements[37] = ((closureN)self_73779)->elements[37]; c_731318.elements[38] = ((closureN)self_73779)->elements[38]; make_cell(c_736347,((closureN)self_73779)->elements[8]); return_closcall1(data,(closure)&c_731318, &c_736347);; } static void __lambda_244(void *data, int argc, object self_73780, object get_91lemmas_73242) { closureN_type c_731320; c_731320.hdr.mark = gc_color_red; c_731320.hdr.grayed = 0; c_731320.tag = closureN_tag; c_731320.fn = (function_type)__lambda_243; c_731320.num_args = 1; c_731320.num_elements = 39; c_731320.elements = (object *)alloca(sizeof(object) * 39); c_731320.elements[0] = ((closureN)self_73780)->elements[0]; c_731320.elements[1] = ((closureN)self_73780)->elements[1]; c_731320.elements[2] = ((closureN)self_73780)->elements[2]; c_731320.elements[3] = ((closureN)self_73780)->elements[3]; c_731320.elements[4] = ((closureN)self_73780)->elements[4]; c_731320.elements[5] = ((closureN)self_73780)->elements[5]; c_731320.elements[6] = ((closureN)self_73780)->elements[6]; c_731320.elements[7] = ((closureN)self_73780)->elements[7]; c_731320.elements[8] = get_91lemmas_73242; c_731320.elements[9] = ((closureN)self_73780)->elements[9]; c_731320.elements[10] = ((closureN)self_73780)->elements[10]; c_731320.elements[11] = ((closureN)self_73780)->elements[11]; c_731320.elements[12] = ((closureN)self_73780)->elements[12]; c_731320.elements[13] = ((closureN)self_73780)->elements[13]; c_731320.elements[14] = ((closureN)self_73780)->elements[14]; c_731320.elements[15] = ((closureN)self_73780)->elements[15]; c_731320.elements[16] = ((closureN)self_73780)->elements[16]; c_731320.elements[17] = ((closureN)self_73780)->elements[17]; c_731320.elements[18] = ((closureN)self_73780)->elements[18]; c_731320.elements[19] = ((closureN)self_73780)->elements[19]; c_731320.elements[20] = ((closureN)self_73780)->elements[20]; c_731320.elements[21] = ((closureN)self_73780)->elements[21]; c_731320.elements[22] = ((closureN)self_73780)->elements[22]; c_731320.elements[23] = ((closureN)self_73780)->elements[23]; c_731320.elements[24] = ((closureN)self_73780)->elements[24]; c_731320.elements[25] = ((closureN)self_73780)->elements[25]; c_731320.elements[26] = ((closureN)self_73780)->elements[26]; c_731320.elements[27] = ((closureN)self_73780)->elements[27]; c_731320.elements[28] = ((closureN)self_73780)->elements[28]; c_731320.elements[29] = ((closureN)self_73780)->elements[29]; c_731320.elements[30] = ((closureN)self_73780)->elements[30]; c_731320.elements[31] = ((closureN)self_73780)->elements[31]; c_731320.elements[32] = ((closureN)self_73780)->elements[32]; c_731320.elements[33] = ((closureN)self_73780)->elements[33]; c_731320.elements[34] = ((closureN)self_73780)->elements[34]; c_731320.elements[35] = ((closureN)self_73780)->elements[35]; c_731320.elements[36] = ((closureN)self_73780)->elements[36]; c_731320.elements[37] = ((closureN)self_73780)->elements[37]; c_731320.elements[38] = ((closureN)self_73780)->elements[38]; make_cell(c_736343,((closureN)self_73780)->elements[8]); return_closcall1(data,(closure)&c_731320, &c_736343);; } static void __lambda_243(void *data, int argc, object self_73781, object get_91name_73241) { closureN_type c_731322; c_731322.hdr.mark = gc_color_red; c_731322.hdr.grayed = 0; c_731322.tag = closureN_tag; c_731322.fn = (function_type)__lambda_242; c_731322.num_args = 1; c_731322.num_elements = 39; c_731322.elements = (object *)alloca(sizeof(object) * 39); c_731322.elements[0] = ((closureN)self_73781)->elements[0]; c_731322.elements[1] = ((closureN)self_73781)->elements[1]; c_731322.elements[2] = ((closureN)self_73781)->elements[2]; c_731322.elements[3] = ((closureN)self_73781)->elements[3]; c_731322.elements[4] = ((closureN)self_73781)->elements[4]; c_731322.elements[5] = ((closureN)self_73781)->elements[5]; c_731322.elements[6] = ((closureN)self_73781)->elements[6]; c_731322.elements[7] = ((closureN)self_73781)->elements[7]; c_731322.elements[8] = ((closureN)self_73781)->elements[8]; c_731322.elements[9] = get_91name_73241; c_731322.elements[10] = ((closureN)self_73781)->elements[9]; c_731322.elements[11] = ((closureN)self_73781)->elements[10]; c_731322.elements[12] = ((closureN)self_73781)->elements[11]; c_731322.elements[13] = ((closureN)self_73781)->elements[12]; c_731322.elements[14] = ((closureN)self_73781)->elements[13]; c_731322.elements[15] = ((closureN)self_73781)->elements[14]; c_731322.elements[16] = ((closureN)self_73781)->elements[15]; c_731322.elements[17] = ((closureN)self_73781)->elements[16]; c_731322.elements[18] = ((closureN)self_73781)->elements[17]; c_731322.elements[19] = ((closureN)self_73781)->elements[18]; c_731322.elements[20] = ((closureN)self_73781)->elements[19]; c_731322.elements[21] = ((closureN)self_73781)->elements[20]; c_731322.elements[22] = ((closureN)self_73781)->elements[21]; c_731322.elements[23] = ((closureN)self_73781)->elements[22]; c_731322.elements[24] = ((closureN)self_73781)->elements[24]; c_731322.elements[25] = ((closureN)self_73781)->elements[25]; c_731322.elements[26] = ((closureN)self_73781)->elements[26]; c_731322.elements[27] = ((closureN)self_73781)->elements[27]; c_731322.elements[28] = ((closureN)self_73781)->elements[28]; c_731322.elements[29] = ((closureN)self_73781)->elements[29]; c_731322.elements[30] = ((closureN)self_73781)->elements[30]; c_731322.elements[31] = ((closureN)self_73781)->elements[31]; c_731322.elements[32] = ((closureN)self_73781)->elements[32]; c_731322.elements[33] = ((closureN)self_73781)->elements[33]; c_731322.elements[34] = ((closureN)self_73781)->elements[34]; c_731322.elements[35] = ((closureN)self_73781)->elements[35]; c_731322.elements[36] = ((closureN)self_73781)->elements[36]; c_731322.elements[37] = ((closureN)self_73781)->elements[37]; c_731322.elements[38] = ((closureN)self_73781)->elements[38]; make_cell(c_736339,((closureN)self_73781)->elements[23]); return_closcall1(data,(closure)&c_731322, &c_736339);; } static void __lambda_242(void *data, int argc, object self_73782, object symbol_91record_91equal_127_73240) { closureN_type c_731324; c_731324.hdr.mark = gc_color_red; c_731324.hdr.grayed = 0; c_731324.tag = closureN_tag; c_731324.fn = (function_type)__lambda_241; c_731324.num_args = 1; c_731324.num_elements = 39; c_731324.elements = (object *)alloca(sizeof(object) * 39); c_731324.elements[0] = ((closureN)self_73782)->elements[0]; c_731324.elements[1] = ((closureN)self_73782)->elements[1]; c_731324.elements[2] = ((closureN)self_73782)->elements[2]; c_731324.elements[3] = ((closureN)self_73782)->elements[3]; c_731324.elements[4] = ((closureN)self_73782)->elements[4]; c_731324.elements[5] = ((closureN)self_73782)->elements[5]; c_731324.elements[6] = ((closureN)self_73782)->elements[6]; c_731324.elements[7] = ((closureN)self_73782)->elements[7]; c_731324.elements[8] = ((closureN)self_73782)->elements[8]; c_731324.elements[9] = ((closureN)self_73782)->elements[9]; c_731324.elements[10] = ((closureN)self_73782)->elements[10]; c_731324.elements[11] = ((closureN)self_73782)->elements[11]; c_731324.elements[12] = ((closureN)self_73782)->elements[12]; c_731324.elements[13] = ((closureN)self_73782)->elements[13]; c_731324.elements[14] = ((closureN)self_73782)->elements[14]; c_731324.elements[15] = ((closureN)self_73782)->elements[15]; c_731324.elements[16] = ((closureN)self_73782)->elements[16]; c_731324.elements[17] = ((closureN)self_73782)->elements[17]; c_731324.elements[18] = ((closureN)self_73782)->elements[18]; c_731324.elements[19] = ((closureN)self_73782)->elements[19]; c_731324.elements[20] = ((closureN)self_73782)->elements[20]; c_731324.elements[21] = ((closureN)self_73782)->elements[21]; c_731324.elements[22] = ((closureN)self_73782)->elements[22]; c_731324.elements[23] = ((closureN)self_73782)->elements[23]; c_731324.elements[24] = symbol_91record_91equal_127_73240; c_731324.elements[25] = ((closureN)self_73782)->elements[24]; c_731324.elements[26] = ((closureN)self_73782)->elements[25]; c_731324.elements[27] = ((closureN)self_73782)->elements[26]; c_731324.elements[28] = ((closureN)self_73782)->elements[27]; c_731324.elements[29] = ((closureN)self_73782)->elements[28]; c_731324.elements[30] = ((closureN)self_73782)->elements[30]; c_731324.elements[31] = ((closureN)self_73782)->elements[31]; c_731324.elements[32] = ((closureN)self_73782)->elements[32]; c_731324.elements[33] = ((closureN)self_73782)->elements[33]; c_731324.elements[34] = ((closureN)self_73782)->elements[34]; c_731324.elements[35] = ((closureN)self_73782)->elements[35]; c_731324.elements[36] = ((closureN)self_73782)->elements[36]; c_731324.elements[37] = ((closureN)self_73782)->elements[37]; c_731324.elements[38] = ((closureN)self_73782)->elements[38]; make_cell(c_736335,((closureN)self_73782)->elements[29]); return_closcall1(data,(closure)&c_731324, &c_736335);; } static void __lambda_241(void *data, int argc, object self_73783, object test_73239) { closureN_type c_731326; c_731326.hdr.mark = gc_color_red; c_731326.hdr.grayed = 0; c_731326.tag = closureN_tag; c_731326.fn = (function_type)__lambda_240; c_731326.num_args = 1; c_731326.num_elements = 39; c_731326.elements = (object *)alloca(sizeof(object) * 39); c_731326.elements[0] = ((closureN)self_73783)->elements[0]; c_731326.elements[1] = ((closureN)self_73783)->elements[1]; c_731326.elements[2] = ((closureN)self_73783)->elements[2]; c_731326.elements[3] = ((closureN)self_73783)->elements[3]; c_731326.elements[4] = ((closureN)self_73783)->elements[4]; c_731326.elements[5] = ((closureN)self_73783)->elements[5]; c_731326.elements[6] = ((closureN)self_73783)->elements[6]; c_731326.elements[7] = ((closureN)self_73783)->elements[7]; c_731326.elements[8] = ((closureN)self_73783)->elements[8]; c_731326.elements[9] = ((closureN)self_73783)->elements[9]; c_731326.elements[10] = ((closureN)self_73783)->elements[10]; c_731326.elements[11] = ((closureN)self_73783)->elements[11]; c_731326.elements[12] = ((closureN)self_73783)->elements[12]; c_731326.elements[13] = ((closureN)self_73783)->elements[13]; c_731326.elements[14] = ((closureN)self_73783)->elements[14]; c_731326.elements[15] = ((closureN)self_73783)->elements[15]; c_731326.elements[16] = ((closureN)self_73783)->elements[16]; c_731326.elements[17] = ((closureN)self_73783)->elements[17]; c_731326.elements[18] = ((closureN)self_73783)->elements[18]; c_731326.elements[19] = ((closureN)self_73783)->elements[19]; c_731326.elements[20] = ((closureN)self_73783)->elements[20]; c_731326.elements[21] = ((closureN)self_73783)->elements[21]; c_731326.elements[22] = ((closureN)self_73783)->elements[22]; c_731326.elements[23] = ((closureN)self_73783)->elements[23]; c_731326.elements[24] = ((closureN)self_73783)->elements[24]; c_731326.elements[25] = ((closureN)self_73783)->elements[25]; c_731326.elements[26] = ((closureN)self_73783)->elements[26]; c_731326.elements[27] = ((closureN)self_73783)->elements[27]; c_731326.elements[28] = ((closureN)self_73783)->elements[28]; c_731326.elements[29] = ((closureN)self_73783)->elements[29]; c_731326.elements[30] = test_73239; c_731326.elements[31] = ((closureN)self_73783)->elements[30]; c_731326.elements[32] = ((closureN)self_73783)->elements[31]; c_731326.elements[33] = ((closureN)self_73783)->elements[33]; c_731326.elements[34] = ((closureN)self_73783)->elements[34]; c_731326.elements[35] = ((closureN)self_73783)->elements[35]; c_731326.elements[36] = ((closureN)self_73783)->elements[36]; c_731326.elements[37] = ((closureN)self_73783)->elements[37]; c_731326.elements[38] = ((closureN)self_73783)->elements[38]; make_cell(c_736331,((closureN)self_73783)->elements[32]); return_closcall1(data,(closure)&c_731326, &c_736331);; } static void __lambda_240(void *data, int argc, object self_73784, object translate_91alist_73238) { closureN_type c_731328; c_731328.hdr.mark = gc_color_red; c_731328.hdr.grayed = 0; c_731328.tag = closureN_tag; c_731328.fn = (function_type)__lambda_239; c_731328.num_args = 1; c_731328.num_elements = 39; c_731328.elements = (object *)alloca(sizeof(object) * 39); c_731328.elements[0] = ((closureN)self_73784)->elements[0]; c_731328.elements[1] = ((closureN)self_73784)->elements[1]; c_731328.elements[2] = ((closureN)self_73784)->elements[2]; c_731328.elements[3] = ((closureN)self_73784)->elements[4]; c_731328.elements[4] = ((closureN)self_73784)->elements[5]; c_731328.elements[5] = ((closureN)self_73784)->elements[6]; c_731328.elements[6] = ((closureN)self_73784)->elements[7]; c_731328.elements[7] = ((closureN)self_73784)->elements[8]; c_731328.elements[8] = ((closureN)self_73784)->elements[9]; c_731328.elements[9] = ((closureN)self_73784)->elements[10]; c_731328.elements[10] = ((closureN)self_73784)->elements[11]; c_731328.elements[11] = ((closureN)self_73784)->elements[12]; c_731328.elements[12] = ((closureN)self_73784)->elements[13]; c_731328.elements[13] = ((closureN)self_73784)->elements[14]; c_731328.elements[14] = ((closureN)self_73784)->elements[15]; c_731328.elements[15] = ((closureN)self_73784)->elements[16]; c_731328.elements[16] = ((closureN)self_73784)->elements[17]; c_731328.elements[17] = ((closureN)self_73784)->elements[18]; c_731328.elements[18] = ((closureN)self_73784)->elements[19]; c_731328.elements[19] = ((closureN)self_73784)->elements[20]; c_731328.elements[20] = ((closureN)self_73784)->elements[21]; c_731328.elements[21] = ((closureN)self_73784)->elements[22]; c_731328.elements[22] = ((closureN)self_73784)->elements[23]; c_731328.elements[23] = ((closureN)self_73784)->elements[24]; c_731328.elements[24] = ((closureN)self_73784)->elements[25]; c_731328.elements[25] = ((closureN)self_73784)->elements[26]; c_731328.elements[26] = ((closureN)self_73784)->elements[27]; c_731328.elements[27] = ((closureN)self_73784)->elements[28]; c_731328.elements[28] = ((closureN)self_73784)->elements[29]; c_731328.elements[29] = ((closureN)self_73784)->elements[30]; c_731328.elements[30] = ((closureN)self_73784)->elements[31]; c_731328.elements[31] = ((closureN)self_73784)->elements[32]; c_731328.elements[32] = translate_91alist_73238; c_731328.elements[33] = ((closureN)self_73784)->elements[33]; c_731328.elements[34] = ((closureN)self_73784)->elements[34]; c_731328.elements[35] = ((closureN)self_73784)->elements[35]; c_731328.elements[36] = ((closureN)self_73784)->elements[36]; c_731328.elements[37] = ((closureN)self_73784)->elements[37]; c_731328.elements[38] = ((closureN)self_73784)->elements[38]; make_cell(c_736327,((closureN)self_73784)->elements[3]); return_closcall1(data,(closure)&c_731328, &c_736327);; } static void __lambda_239(void *data, int argc, object self_73785, object apply_91subst_73237) { closureN_type c_731330; c_731330.hdr.mark = gc_color_red; c_731330.hdr.grayed = 0; c_731330.tag = closureN_tag; c_731330.fn = (function_type)__lambda_238; c_731330.num_args = 1; c_731330.num_elements = 39; c_731330.elements = (object *)alloca(sizeof(object) * 39); c_731330.elements[0] = ((closureN)self_73785)->elements[0]; c_731330.elements[1] = ((closureN)self_73785)->elements[1]; c_731330.elements[2] = ((closureN)self_73785)->elements[2]; c_731330.elements[3] = apply_91subst_73237; c_731330.elements[4] = ((closureN)self_73785)->elements[4]; c_731330.elements[5] = ((closureN)self_73785)->elements[5]; c_731330.elements[6] = ((closureN)self_73785)->elements[6]; c_731330.elements[7] = ((closureN)self_73785)->elements[7]; c_731330.elements[8] = ((closureN)self_73785)->elements[8]; c_731330.elements[9] = ((closureN)self_73785)->elements[9]; c_731330.elements[10] = ((closureN)self_73785)->elements[10]; c_731330.elements[11] = ((closureN)self_73785)->elements[11]; c_731330.elements[12] = ((closureN)self_73785)->elements[12]; c_731330.elements[13] = ((closureN)self_73785)->elements[13]; c_731330.elements[14] = ((closureN)self_73785)->elements[14]; c_731330.elements[15] = ((closureN)self_73785)->elements[15]; c_731330.elements[16] = ((closureN)self_73785)->elements[16]; c_731330.elements[17] = ((closureN)self_73785)->elements[17]; c_731330.elements[18] = ((closureN)self_73785)->elements[18]; c_731330.elements[19] = ((closureN)self_73785)->elements[19]; c_731330.elements[20] = ((closureN)self_73785)->elements[20]; c_731330.elements[21] = ((closureN)self_73785)->elements[21]; c_731330.elements[22] = ((closureN)self_73785)->elements[22]; c_731330.elements[23] = ((closureN)self_73785)->elements[23]; c_731330.elements[24] = ((closureN)self_73785)->elements[24]; c_731330.elements[25] = ((closureN)self_73785)->elements[25]; c_731330.elements[26] = ((closureN)self_73785)->elements[26]; c_731330.elements[27] = ((closureN)self_73785)->elements[27]; c_731330.elements[28] = ((closureN)self_73785)->elements[28]; c_731330.elements[29] = ((closureN)self_73785)->elements[29]; c_731330.elements[30] = ((closureN)self_73785)->elements[30]; c_731330.elements[31] = ((closureN)self_73785)->elements[31]; c_731330.elements[32] = ((closureN)self_73785)->elements[32]; c_731330.elements[33] = ((closureN)self_73785)->elements[33]; c_731330.elements[34] = ((closureN)self_73785)->elements[34]; c_731330.elements[35] = ((closureN)self_73785)->elements[35]; c_731330.elements[36] = ((closureN)self_73785)->elements[36]; c_731330.elements[37] = ((closureN)self_73785)->elements[37]; c_731330.elements[38] = ((closureN)self_73785)->elements[38]; make_cell(c_736323,((closureN)self_73785)->elements[3]); return_closcall1(data,(closure)&c_731330, &c_736323);; } static void __lambda_238(void *data, int argc, object self_73786, object apply_91subst_91lst_73236) { closureN_type c_731332; c_731332.hdr.mark = gc_color_red; c_731332.hdr.grayed = 0; c_731332.tag = closureN_tag; c_731332.fn = (function_type)__lambda_237; c_731332.num_args = 1; c_731332.num_elements = 39; c_731332.elements = (object *)alloca(sizeof(object) * 39); c_731332.elements[0] = ((closureN)self_73786)->elements[0]; c_731332.elements[1] = ((closureN)self_73786)->elements[1]; c_731332.elements[2] = ((closureN)self_73786)->elements[2]; c_731332.elements[3] = ((closureN)self_73786)->elements[3]; c_731332.elements[4] = apply_91subst_91lst_73236; c_731332.elements[5] = ((closureN)self_73786)->elements[4]; c_731332.elements[6] = ((closureN)self_73786)->elements[5]; c_731332.elements[7] = ((closureN)self_73786)->elements[6]; c_731332.elements[8] = ((closureN)self_73786)->elements[7]; c_731332.elements[9] = ((closureN)self_73786)->elements[8]; c_731332.elements[10] = ((closureN)self_73786)->elements[9]; c_731332.elements[11] = ((closureN)self_73786)->elements[10]; c_731332.elements[12] = ((closureN)self_73786)->elements[11]; c_731332.elements[13] = ((closureN)self_73786)->elements[12]; c_731332.elements[14] = ((closureN)self_73786)->elements[13]; c_731332.elements[15] = ((closureN)self_73786)->elements[14]; c_731332.elements[16] = ((closureN)self_73786)->elements[15]; c_731332.elements[17] = ((closureN)self_73786)->elements[16]; c_731332.elements[18] = ((closureN)self_73786)->elements[17]; c_731332.elements[19] = ((closureN)self_73786)->elements[18]; c_731332.elements[20] = ((closureN)self_73786)->elements[19]; c_731332.elements[21] = ((closureN)self_73786)->elements[20]; c_731332.elements[22] = ((closureN)self_73786)->elements[21]; c_731332.elements[23] = ((closureN)self_73786)->elements[22]; c_731332.elements[24] = ((closureN)self_73786)->elements[23]; c_731332.elements[25] = ((closureN)self_73786)->elements[24]; c_731332.elements[26] = ((closureN)self_73786)->elements[26]; c_731332.elements[27] = ((closureN)self_73786)->elements[27]; c_731332.elements[28] = ((closureN)self_73786)->elements[28]; c_731332.elements[29] = ((closureN)self_73786)->elements[29]; c_731332.elements[30] = ((closureN)self_73786)->elements[30]; c_731332.elements[31] = ((closureN)self_73786)->elements[31]; c_731332.elements[32] = ((closureN)self_73786)->elements[32]; c_731332.elements[33] = ((closureN)self_73786)->elements[33]; c_731332.elements[34] = ((closureN)self_73786)->elements[34]; c_731332.elements[35] = ((closureN)self_73786)->elements[35]; c_731332.elements[36] = ((closureN)self_73786)->elements[36]; c_731332.elements[37] = ((closureN)self_73786)->elements[37]; c_731332.elements[38] = ((closureN)self_73786)->elements[38]; make_cell(c_736319,((closureN)self_73786)->elements[25]); return_closcall1(data,(closure)&c_731332, &c_736319);; } static void __lambda_237(void *data, int argc, object self_73787, object tautp_73235) { closureN_type c_731334; c_731334.hdr.mark = gc_color_red; c_731334.hdr.grayed = 0; c_731334.tag = closureN_tag; c_731334.fn = (function_type)__lambda_236; c_731334.num_args = 1; c_731334.num_elements = 39; c_731334.elements = (object *)alloca(sizeof(object) * 39); c_731334.elements[0] = ((closureN)self_73787)->elements[0]; c_731334.elements[1] = ((closureN)self_73787)->elements[1]; c_731334.elements[2] = ((closureN)self_73787)->elements[2]; c_731334.elements[3] = ((closureN)self_73787)->elements[3]; c_731334.elements[4] = ((closureN)self_73787)->elements[4]; c_731334.elements[5] = ((closureN)self_73787)->elements[5]; c_731334.elements[6] = ((closureN)self_73787)->elements[6]; c_731334.elements[7] = ((closureN)self_73787)->elements[7]; c_731334.elements[8] = ((closureN)self_73787)->elements[8]; c_731334.elements[9] = ((closureN)self_73787)->elements[9]; c_731334.elements[10] = ((closureN)self_73787)->elements[10]; c_731334.elements[11] = ((closureN)self_73787)->elements[11]; c_731334.elements[12] = ((closureN)self_73787)->elements[12]; c_731334.elements[13] = ((closureN)self_73787)->elements[13]; c_731334.elements[14] = ((closureN)self_73787)->elements[14]; c_731334.elements[15] = ((closureN)self_73787)->elements[15]; c_731334.elements[16] = ((closureN)self_73787)->elements[16]; c_731334.elements[17] = ((closureN)self_73787)->elements[17]; c_731334.elements[18] = ((closureN)self_73787)->elements[18]; c_731334.elements[19] = ((closureN)self_73787)->elements[19]; c_731334.elements[20] = ((closureN)self_73787)->elements[20]; c_731334.elements[21] = ((closureN)self_73787)->elements[21]; c_731334.elements[22] = ((closureN)self_73787)->elements[22]; c_731334.elements[23] = ((closureN)self_73787)->elements[23]; c_731334.elements[24] = ((closureN)self_73787)->elements[24]; c_731334.elements[25] = tautp_73235; c_731334.elements[26] = ((closureN)self_73787)->elements[26]; c_731334.elements[27] = ((closureN)self_73787)->elements[27]; c_731334.elements[28] = ((closureN)self_73787)->elements[28]; c_731334.elements[29] = ((closureN)self_73787)->elements[29]; c_731334.elements[30] = ((closureN)self_73787)->elements[30]; c_731334.elements[31] = ((closureN)self_73787)->elements[31]; c_731334.elements[32] = ((closureN)self_73787)->elements[32]; c_731334.elements[33] = ((closureN)self_73787)->elements[33]; c_731334.elements[34] = ((closureN)self_73787)->elements[34]; c_731334.elements[35] = ((closureN)self_73787)->elements[35]; c_731334.elements[36] = ((closureN)self_73787)->elements[36]; c_731334.elements[37] = ((closureN)self_73787)->elements[37]; c_731334.elements[38] = ((closureN)self_73787)->elements[38]; make_cell(c_736315,((closureN)self_73787)->elements[25]); return_closcall1(data,(closure)&c_731334, &c_736315);; } static void __lambda_236(void *data, int argc, object self_73788, object tautologyp_73234) { closureN_type c_731336; c_731336.hdr.mark = gc_color_red; c_731336.hdr.grayed = 0; c_731336.tag = closureN_tag; c_731336.fn = (function_type)__lambda_235; c_731336.num_args = 1; c_731336.num_elements = 39; c_731336.elements = (object *)alloca(sizeof(object) * 39); c_731336.elements[0] = ((closureN)self_73788)->elements[0]; c_731336.elements[1] = ((closureN)self_73788)->elements[1]; c_731336.elements[2] = ((closureN)self_73788)->elements[2]; c_731336.elements[3] = ((closureN)self_73788)->elements[3]; c_731336.elements[4] = ((closureN)self_73788)->elements[4]; c_731336.elements[5] = ((closureN)self_73788)->elements[5]; c_731336.elements[6] = ((closureN)self_73788)->elements[6]; c_731336.elements[7] = ((closureN)self_73788)->elements[7]; c_731336.elements[8] = ((closureN)self_73788)->elements[8]; c_731336.elements[9] = ((closureN)self_73788)->elements[9]; c_731336.elements[10] = ((closureN)self_73788)->elements[11]; c_731336.elements[11] = ((closureN)self_73788)->elements[12]; c_731336.elements[12] = ((closureN)self_73788)->elements[13]; c_731336.elements[13] = ((closureN)self_73788)->elements[14]; c_731336.elements[14] = ((closureN)self_73788)->elements[15]; c_731336.elements[15] = ((closureN)self_73788)->elements[16]; c_731336.elements[16] = ((closureN)self_73788)->elements[17]; c_731336.elements[17] = ((closureN)self_73788)->elements[18]; c_731336.elements[18] = ((closureN)self_73788)->elements[19]; c_731336.elements[19] = ((closureN)self_73788)->elements[20]; c_731336.elements[20] = ((closureN)self_73788)->elements[21]; c_731336.elements[21] = ((closureN)self_73788)->elements[22]; c_731336.elements[22] = ((closureN)self_73788)->elements[23]; c_731336.elements[23] = ((closureN)self_73788)->elements[24]; c_731336.elements[24] = tautologyp_73234; c_731336.elements[25] = ((closureN)self_73788)->elements[25]; c_731336.elements[26] = ((closureN)self_73788)->elements[26]; c_731336.elements[27] = ((closureN)self_73788)->elements[27]; c_731336.elements[28] = ((closureN)self_73788)->elements[28]; c_731336.elements[29] = ((closureN)self_73788)->elements[29]; c_731336.elements[30] = ((closureN)self_73788)->elements[30]; c_731336.elements[31] = ((closureN)self_73788)->elements[31]; c_731336.elements[32] = ((closureN)self_73788)->elements[32]; c_731336.elements[33] = ((closureN)self_73788)->elements[33]; c_731336.elements[34] = ((closureN)self_73788)->elements[34]; c_731336.elements[35] = ((closureN)self_73788)->elements[35]; c_731336.elements[36] = ((closureN)self_73788)->elements[36]; c_731336.elements[37] = ((closureN)self_73788)->elements[37]; c_731336.elements[38] = ((closureN)self_73788)->elements[38]; make_cell(c_736311,((closureN)self_73788)->elements[10]); return_closcall1(data,(closure)&c_731336, &c_736311);; } static void __lambda_235(void *data, int argc, object self_73789, object if_91constructor_73233) { closureN_type c_731338; c_731338.hdr.mark = gc_color_red; c_731338.hdr.grayed = 0; c_731338.tag = closureN_tag; c_731338.fn = (function_type)__lambda_234; c_731338.num_args = 1; c_731338.num_elements = 39; c_731338.elements = (object *)alloca(sizeof(object) * 39); c_731338.elements[0] = ((closureN)self_73789)->elements[0]; c_731338.elements[1] = ((closureN)self_73789)->elements[1]; c_731338.elements[2] = ((closureN)self_73789)->elements[2]; c_731338.elements[3] = ((closureN)self_73789)->elements[3]; c_731338.elements[4] = ((closureN)self_73789)->elements[4]; c_731338.elements[5] = ((closureN)self_73789)->elements[5]; c_731338.elements[6] = ((closureN)self_73789)->elements[6]; c_731338.elements[7] = ((closureN)self_73789)->elements[7]; c_731338.elements[8] = ((closureN)self_73789)->elements[8]; c_731338.elements[9] = ((closureN)self_73789)->elements[9]; c_731338.elements[10] = if_91constructor_73233; c_731338.elements[11] = ((closureN)self_73789)->elements[10]; c_731338.elements[12] = ((closureN)self_73789)->elements[11]; c_731338.elements[13] = ((closureN)self_73789)->elements[12]; c_731338.elements[14] = ((closureN)self_73789)->elements[13]; c_731338.elements[15] = ((closureN)self_73789)->elements[14]; c_731338.elements[16] = ((closureN)self_73789)->elements[15]; c_731338.elements[17] = ((closureN)self_73789)->elements[16]; c_731338.elements[18] = ((closureN)self_73789)->elements[17]; c_731338.elements[19] = ((closureN)self_73789)->elements[19]; c_731338.elements[20] = ((closureN)self_73789)->elements[20]; c_731338.elements[21] = ((closureN)self_73789)->elements[21]; c_731338.elements[22] = ((closureN)self_73789)->elements[22]; c_731338.elements[23] = ((closureN)self_73789)->elements[23]; c_731338.elements[24] = ((closureN)self_73789)->elements[24]; c_731338.elements[25] = ((closureN)self_73789)->elements[25]; c_731338.elements[26] = ((closureN)self_73789)->elements[26]; c_731338.elements[27] = ((closureN)self_73789)->elements[27]; c_731338.elements[28] = ((closureN)self_73789)->elements[28]; c_731338.elements[29] = ((closureN)self_73789)->elements[29]; c_731338.elements[30] = ((closureN)self_73789)->elements[30]; c_731338.elements[31] = ((closureN)self_73789)->elements[31]; c_731338.elements[32] = ((closureN)self_73789)->elements[32]; c_731338.elements[33] = ((closureN)self_73789)->elements[33]; c_731338.elements[34] = ((closureN)self_73789)->elements[34]; c_731338.elements[35] = ((closureN)self_73789)->elements[35]; c_731338.elements[36] = ((closureN)self_73789)->elements[36]; c_731338.elements[37] = ((closureN)self_73789)->elements[37]; c_731338.elements[38] = ((closureN)self_73789)->elements[38]; make_cell(c_736307,((closureN)self_73789)->elements[18]); return_closcall1(data,(closure)&c_731338, &c_736307);; } static void __lambda_234(void *data, int argc, object self_73790, object rewrite_91count_73232) { closureN_type c_731340; c_731340.hdr.mark = gc_color_red; c_731340.hdr.grayed = 0; c_731340.tag = closureN_tag; c_731340.fn = (function_type)__lambda_233; c_731340.num_args = 1; c_731340.num_elements = 39; c_731340.elements = (object *)alloca(sizeof(object) * 39); c_731340.elements[0] = ((closureN)self_73790)->elements[0]; c_731340.elements[1] = ((closureN)self_73790)->elements[1]; c_731340.elements[2] = ((closureN)self_73790)->elements[2]; c_731340.elements[3] = ((closureN)self_73790)->elements[3]; c_731340.elements[4] = ((closureN)self_73790)->elements[4]; c_731340.elements[5] = ((closureN)self_73790)->elements[5]; c_731340.elements[6] = ((closureN)self_73790)->elements[6]; c_731340.elements[7] = ((closureN)self_73790)->elements[7]; c_731340.elements[8] = ((closureN)self_73790)->elements[8]; c_731340.elements[9] = ((closureN)self_73790)->elements[9]; c_731340.elements[10] = ((closureN)self_73790)->elements[10]; c_731340.elements[11] = ((closureN)self_73790)->elements[11]; c_731340.elements[12] = ((closureN)self_73790)->elements[12]; c_731340.elements[13] = ((closureN)self_73790)->elements[13]; c_731340.elements[14] = ((closureN)self_73790)->elements[14]; c_731340.elements[15] = ((closureN)self_73790)->elements[15]; c_731340.elements[16] = ((closureN)self_73790)->elements[16]; c_731340.elements[17] = ((closureN)self_73790)->elements[17]; c_731340.elements[18] = ((closureN)self_73790)->elements[18]; c_731340.elements[19] = rewrite_91count_73232; c_731340.elements[20] = ((closureN)self_73790)->elements[19]; c_731340.elements[21] = ((closureN)self_73790)->elements[21]; c_731340.elements[22] = ((closureN)self_73790)->elements[22]; c_731340.elements[23] = ((closureN)self_73790)->elements[23]; c_731340.elements[24] = ((closureN)self_73790)->elements[24]; c_731340.elements[25] = ((closureN)self_73790)->elements[25]; c_731340.elements[26] = ((closureN)self_73790)->elements[26]; c_731340.elements[27] = ((closureN)self_73790)->elements[27]; c_731340.elements[28] = ((closureN)self_73790)->elements[28]; c_731340.elements[29] = ((closureN)self_73790)->elements[29]; c_731340.elements[30] = ((closureN)self_73790)->elements[30]; c_731340.elements[31] = ((closureN)self_73790)->elements[31]; c_731340.elements[32] = ((closureN)self_73790)->elements[32]; c_731340.elements[33] = ((closureN)self_73790)->elements[33]; c_731340.elements[34] = ((closureN)self_73790)->elements[34]; c_731340.elements[35] = ((closureN)self_73790)->elements[35]; c_731340.elements[36] = ((closureN)self_73790)->elements[36]; c_731340.elements[37] = ((closureN)self_73790)->elements[37]; c_731340.elements[38] = ((closureN)self_73790)->elements[38]; make_cell(c_736303,((closureN)self_73790)->elements[20]); return_closcall1(data,(closure)&c_731340, &c_736303);; } static void __lambda_233(void *data, int argc, object self_73791, object scons_73231) { closureN_type c_731342; c_731342.hdr.mark = gc_color_red; c_731342.hdr.grayed = 0; c_731342.tag = closureN_tag; c_731342.fn = (function_type)__lambda_232; c_731342.num_args = 1; c_731342.num_elements = 39; c_731342.elements = (object *)alloca(sizeof(object) * 39); c_731342.elements[0] = ((closureN)self_73791)->elements[0]; c_731342.elements[1] = ((closureN)self_73791)->elements[1]; c_731342.elements[2] = ((closureN)self_73791)->elements[2]; c_731342.elements[3] = ((closureN)self_73791)->elements[3]; c_731342.elements[4] = ((closureN)self_73791)->elements[4]; c_731342.elements[5] = ((closureN)self_73791)->elements[5]; c_731342.elements[6] = ((closureN)self_73791)->elements[6]; c_731342.elements[7] = ((closureN)self_73791)->elements[7]; c_731342.elements[8] = ((closureN)self_73791)->elements[8]; c_731342.elements[9] = ((closureN)self_73791)->elements[9]; c_731342.elements[10] = ((closureN)self_73791)->elements[10]; c_731342.elements[11] = ((closureN)self_73791)->elements[11]; c_731342.elements[12] = ((closureN)self_73791)->elements[12]; c_731342.elements[13] = ((closureN)self_73791)->elements[13]; c_731342.elements[14] = ((closureN)self_73791)->elements[14]; c_731342.elements[15] = ((closureN)self_73791)->elements[15]; c_731342.elements[16] = ((closureN)self_73791)->elements[16]; c_731342.elements[17] = ((closureN)self_73791)->elements[18]; c_731342.elements[18] = ((closureN)self_73791)->elements[19]; c_731342.elements[19] = ((closureN)self_73791)->elements[20]; c_731342.elements[20] = scons_73231; c_731342.elements[21] = ((closureN)self_73791)->elements[21]; c_731342.elements[22] = ((closureN)self_73791)->elements[22]; c_731342.elements[23] = ((closureN)self_73791)->elements[23]; c_731342.elements[24] = ((closureN)self_73791)->elements[24]; c_731342.elements[25] = ((closureN)self_73791)->elements[25]; c_731342.elements[26] = ((closureN)self_73791)->elements[26]; c_731342.elements[27] = ((closureN)self_73791)->elements[27]; c_731342.elements[28] = ((closureN)self_73791)->elements[28]; c_731342.elements[29] = ((closureN)self_73791)->elements[29]; c_731342.elements[30] = ((closureN)self_73791)->elements[30]; c_731342.elements[31] = ((closureN)self_73791)->elements[31]; c_731342.elements[32] = ((closureN)self_73791)->elements[32]; c_731342.elements[33] = ((closureN)self_73791)->elements[33]; c_731342.elements[34] = ((closureN)self_73791)->elements[34]; c_731342.elements[35] = ((closureN)self_73791)->elements[35]; c_731342.elements[36] = ((closureN)self_73791)->elements[36]; c_731342.elements[37] = ((closureN)self_73791)->elements[37]; c_731342.elements[38] = ((closureN)self_73791)->elements[38]; make_cell(c_736299,((closureN)self_73791)->elements[17]); return_closcall1(data,(closure)&c_731342, &c_736299);; } static void __lambda_232(void *data, int argc, object self_73792, object rewrite_73230) { closureN_type c_731344; c_731344.hdr.mark = gc_color_red; c_731344.hdr.grayed = 0; c_731344.tag = closureN_tag; c_731344.fn = (function_type)__lambda_231; c_731344.num_args = 1; c_731344.num_elements = 39; c_731344.elements = (object *)alloca(sizeof(object) * 39); c_731344.elements[0] = ((closureN)self_73792)->elements[0]; c_731344.elements[1] = ((closureN)self_73792)->elements[1]; c_731344.elements[2] = ((closureN)self_73792)->elements[2]; c_731344.elements[3] = ((closureN)self_73792)->elements[3]; c_731344.elements[4] = ((closureN)self_73792)->elements[4]; c_731344.elements[5] = ((closureN)self_73792)->elements[5]; c_731344.elements[6] = ((closureN)self_73792)->elements[6]; c_731344.elements[7] = ((closureN)self_73792)->elements[7]; c_731344.elements[8] = ((closureN)self_73792)->elements[8]; c_731344.elements[9] = ((closureN)self_73792)->elements[9]; c_731344.elements[10] = ((closureN)self_73792)->elements[10]; c_731344.elements[11] = ((closureN)self_73792)->elements[11]; c_731344.elements[12] = ((closureN)self_73792)->elements[12]; c_731344.elements[13] = ((closureN)self_73792)->elements[13]; c_731344.elements[14] = ((closureN)self_73792)->elements[14]; c_731344.elements[15] = ((closureN)self_73792)->elements[15]; c_731344.elements[16] = ((closureN)self_73792)->elements[16]; c_731344.elements[17] = rewrite_73230; c_731344.elements[18] = ((closureN)self_73792)->elements[18]; c_731344.elements[19] = ((closureN)self_73792)->elements[19]; c_731344.elements[20] = ((closureN)self_73792)->elements[20]; c_731344.elements[21] = ((closureN)self_73792)->elements[21]; c_731344.elements[22] = ((closureN)self_73792)->elements[22]; c_731344.elements[23] = ((closureN)self_73792)->elements[23]; c_731344.elements[24] = ((closureN)self_73792)->elements[24]; c_731344.elements[25] = ((closureN)self_73792)->elements[25]; c_731344.elements[26] = ((closureN)self_73792)->elements[26]; c_731344.elements[27] = ((closureN)self_73792)->elements[27]; c_731344.elements[28] = ((closureN)self_73792)->elements[28]; c_731344.elements[29] = ((closureN)self_73792)->elements[29]; c_731344.elements[30] = ((closureN)self_73792)->elements[30]; c_731344.elements[31] = ((closureN)self_73792)->elements[31]; c_731344.elements[32] = ((closureN)self_73792)->elements[32]; c_731344.elements[33] = ((closureN)self_73792)->elements[33]; c_731344.elements[34] = ((closureN)self_73792)->elements[34]; c_731344.elements[35] = ((closureN)self_73792)->elements[35]; c_731344.elements[36] = ((closureN)self_73792)->elements[36]; c_731344.elements[37] = ((closureN)self_73792)->elements[37]; c_731344.elements[38] = ((closureN)self_73792)->elements[38]; make_cell(c_736295,((closureN)self_73792)->elements[17]); return_closcall1(data,(closure)&c_731344, &c_736295);; } static void __lambda_231(void *data, int argc, object self_73793, object rewrite_91args_73229) { closureN_type c_731346; c_731346.hdr.mark = gc_color_red; c_731346.hdr.grayed = 0; c_731346.tag = closureN_tag; c_731346.fn = (function_type)__lambda_230; c_731346.num_args = 1; c_731346.num_elements = 39; c_731346.elements = (object *)alloca(sizeof(object) * 39); c_731346.elements[0] = ((closureN)self_73793)->elements[0]; c_731346.elements[1] = ((closureN)self_73793)->elements[1]; c_731346.elements[2] = ((closureN)self_73793)->elements[2]; c_731346.elements[3] = ((closureN)self_73793)->elements[3]; c_731346.elements[4] = ((closureN)self_73793)->elements[4]; c_731346.elements[5] = ((closureN)self_73793)->elements[5]; c_731346.elements[6] = ((closureN)self_73793)->elements[6]; c_731346.elements[7] = ((closureN)self_73793)->elements[7]; c_731346.elements[8] = ((closureN)self_73793)->elements[8]; c_731346.elements[9] = ((closureN)self_73793)->elements[9]; c_731346.elements[10] = ((closureN)self_73793)->elements[10]; c_731346.elements[11] = ((closureN)self_73793)->elements[11]; c_731346.elements[12] = ((closureN)self_73793)->elements[12]; c_731346.elements[13] = ((closureN)self_73793)->elements[13]; c_731346.elements[14] = ((closureN)self_73793)->elements[14]; c_731346.elements[15] = ((closureN)self_73793)->elements[15]; c_731346.elements[16] = ((closureN)self_73793)->elements[16]; c_731346.elements[17] = ((closureN)self_73793)->elements[17]; c_731346.elements[18] = rewrite_91args_73229; c_731346.elements[19] = ((closureN)self_73793)->elements[18]; c_731346.elements[20] = ((closureN)self_73793)->elements[20]; c_731346.elements[21] = ((closureN)self_73793)->elements[21]; c_731346.elements[22] = ((closureN)self_73793)->elements[22]; c_731346.elements[23] = ((closureN)self_73793)->elements[23]; c_731346.elements[24] = ((closureN)self_73793)->elements[24]; c_731346.elements[25] = ((closureN)self_73793)->elements[25]; c_731346.elements[26] = ((closureN)self_73793)->elements[26]; c_731346.elements[27] = ((closureN)self_73793)->elements[27]; c_731346.elements[28] = ((closureN)self_73793)->elements[28]; c_731346.elements[29] = ((closureN)self_73793)->elements[29]; c_731346.elements[30] = ((closureN)self_73793)->elements[30]; c_731346.elements[31] = ((closureN)self_73793)->elements[31]; c_731346.elements[32] = ((closureN)self_73793)->elements[32]; c_731346.elements[33] = ((closureN)self_73793)->elements[33]; c_731346.elements[34] = ((closureN)self_73793)->elements[34]; c_731346.elements[35] = ((closureN)self_73793)->elements[35]; c_731346.elements[36] = ((closureN)self_73793)->elements[36]; c_731346.elements[37] = ((closureN)self_73793)->elements[37]; c_731346.elements[38] = ((closureN)self_73793)->elements[38]; make_cell(c_736291,((closureN)self_73793)->elements[19]); return_closcall1(data,(closure)&c_731346, &c_736291);; } static void __lambda_230(void *data, int argc, object self_73794, object rewrite_91with_91lemmas_73228) { closureN_type c_731348; c_731348.hdr.mark = gc_color_red; c_731348.hdr.grayed = 0; c_731348.tag = closureN_tag; c_731348.fn = (function_type)__lambda_229; c_731348.num_args = 1; c_731348.num_elements = 39; c_731348.elements = (object *)alloca(sizeof(object) * 39); c_731348.elements[0] = ((closureN)self_73794)->elements[0]; c_731348.elements[1] = ((closureN)self_73794)->elements[1]; c_731348.elements[2] = ((closureN)self_73794)->elements[2]; c_731348.elements[3] = ((closureN)self_73794)->elements[3]; c_731348.elements[4] = ((closureN)self_73794)->elements[4]; c_731348.elements[5] = ((closureN)self_73794)->elements[5]; c_731348.elements[6] = ((closureN)self_73794)->elements[6]; c_731348.elements[7] = ((closureN)self_73794)->elements[7]; c_731348.elements[8] = ((closureN)self_73794)->elements[8]; c_731348.elements[9] = ((closureN)self_73794)->elements[9]; c_731348.elements[10] = ((closureN)self_73794)->elements[10]; c_731348.elements[11] = ((closureN)self_73794)->elements[11]; c_731348.elements[12] = ((closureN)self_73794)->elements[12]; c_731348.elements[13] = ((closureN)self_73794)->elements[13]; c_731348.elements[14] = ((closureN)self_73794)->elements[14]; c_731348.elements[15] = ((closureN)self_73794)->elements[15]; c_731348.elements[16] = ((closureN)self_73794)->elements[16]; c_731348.elements[17] = ((closureN)self_73794)->elements[17]; c_731348.elements[18] = ((closureN)self_73794)->elements[18]; c_731348.elements[19] = ((closureN)self_73794)->elements[19]; c_731348.elements[20] = rewrite_91with_91lemmas_73228; c_731348.elements[21] = ((closureN)self_73794)->elements[20]; c_731348.elements[22] = ((closureN)self_73794)->elements[21]; c_731348.elements[23] = ((closureN)self_73794)->elements[22]; c_731348.elements[24] = ((closureN)self_73794)->elements[23]; c_731348.elements[25] = ((closureN)self_73794)->elements[24]; c_731348.elements[26] = ((closureN)self_73794)->elements[25]; c_731348.elements[27] = ((closureN)self_73794)->elements[26]; c_731348.elements[28] = ((closureN)self_73794)->elements[27]; c_731348.elements[29] = ((closureN)self_73794)->elements[28]; c_731348.elements[30] = ((closureN)self_73794)->elements[29]; c_731348.elements[31] = ((closureN)self_73794)->elements[30]; c_731348.elements[32] = ((closureN)self_73794)->elements[31]; c_731348.elements[33] = ((closureN)self_73794)->elements[32]; c_731348.elements[34] = ((closureN)self_73794)->elements[33]; c_731348.elements[35] = ((closureN)self_73794)->elements[34]; c_731348.elements[36] = ((closureN)self_73794)->elements[35]; c_731348.elements[37] = ((closureN)self_73794)->elements[36]; c_731348.elements[38] = ((closureN)self_73794)->elements[38]; make_cell(c_736287,((closureN)self_73794)->elements[37]); return_closcall1(data,(closure)&c_731348, &c_736287);; } static void __lambda_229(void *data, int argc, object self_73795, object unify_91subst_73227) { closureN_type c_731350; c_731350.hdr.mark = gc_color_red; c_731350.hdr.grayed = 0; c_731350.tag = closureN_tag; c_731350.fn = (function_type)__lambda_228; c_731350.num_args = 1; c_731350.num_elements = 39; c_731350.elements = (object *)alloca(sizeof(object) * 39); c_731350.elements[0] = ((closureN)self_73795)->elements[0]; c_731350.elements[1] = ((closureN)self_73795)->elements[1]; c_731350.elements[2] = ((closureN)self_73795)->elements[2]; c_731350.elements[3] = ((closureN)self_73795)->elements[3]; c_731350.elements[4] = ((closureN)self_73795)->elements[4]; c_731350.elements[5] = ((closureN)self_73795)->elements[5]; c_731350.elements[6] = ((closureN)self_73795)->elements[6]; c_731350.elements[7] = ((closureN)self_73795)->elements[7]; c_731350.elements[8] = ((closureN)self_73795)->elements[8]; c_731350.elements[9] = ((closureN)self_73795)->elements[9]; c_731350.elements[10] = ((closureN)self_73795)->elements[10]; c_731350.elements[11] = ((closureN)self_73795)->elements[11]; c_731350.elements[12] = ((closureN)self_73795)->elements[13]; c_731350.elements[13] = ((closureN)self_73795)->elements[14]; c_731350.elements[14] = ((closureN)self_73795)->elements[15]; c_731350.elements[15] = ((closureN)self_73795)->elements[16]; c_731350.elements[16] = ((closureN)self_73795)->elements[17]; c_731350.elements[17] = ((closureN)self_73795)->elements[18]; c_731350.elements[18] = ((closureN)self_73795)->elements[19]; c_731350.elements[19] = ((closureN)self_73795)->elements[20]; c_731350.elements[20] = ((closureN)self_73795)->elements[21]; c_731350.elements[21] = ((closureN)self_73795)->elements[22]; c_731350.elements[22] = ((closureN)self_73795)->elements[23]; c_731350.elements[23] = ((closureN)self_73795)->elements[24]; c_731350.elements[24] = ((closureN)self_73795)->elements[25]; c_731350.elements[25] = ((closureN)self_73795)->elements[26]; c_731350.elements[26] = ((closureN)self_73795)->elements[27]; c_731350.elements[27] = ((closureN)self_73795)->elements[28]; c_731350.elements[28] = ((closureN)self_73795)->elements[29]; c_731350.elements[29] = ((closureN)self_73795)->elements[30]; c_731350.elements[30] = ((closureN)self_73795)->elements[31]; c_731350.elements[31] = ((closureN)self_73795)->elements[32]; c_731350.elements[32] = ((closureN)self_73795)->elements[33]; c_731350.elements[33] = ((closureN)self_73795)->elements[34]; c_731350.elements[34] = ((closureN)self_73795)->elements[35]; c_731350.elements[35] = ((closureN)self_73795)->elements[36]; c_731350.elements[36] = ((closureN)self_73795)->elements[37]; c_731350.elements[37] = unify_91subst_73227; c_731350.elements[38] = ((closureN)self_73795)->elements[38]; make_cell(c_736283,((closureN)self_73795)->elements[12]); return_closcall1(data,(closure)&c_731350, &c_736283);; } static void __lambda_228(void *data, int argc, object self_73796, object one_91way_91unify_73226) { closureN_type c_731352; c_731352.hdr.mark = gc_color_red; c_731352.hdr.grayed = 0; c_731352.tag = closureN_tag; c_731352.fn = (function_type)__lambda_227; c_731352.num_args = 1; c_731352.num_elements = 39; c_731352.elements = (object *)alloca(sizeof(object) * 39); c_731352.elements[0] = ((closureN)self_73796)->elements[0]; c_731352.elements[1] = ((closureN)self_73796)->elements[1]; c_731352.elements[2] = ((closureN)self_73796)->elements[2]; c_731352.elements[3] = ((closureN)self_73796)->elements[3]; c_731352.elements[4] = ((closureN)self_73796)->elements[4]; c_731352.elements[5] = ((closureN)self_73796)->elements[5]; c_731352.elements[6] = ((closureN)self_73796)->elements[6]; c_731352.elements[7] = ((closureN)self_73796)->elements[7]; c_731352.elements[8] = ((closureN)self_73796)->elements[8]; c_731352.elements[9] = ((closureN)self_73796)->elements[9]; c_731352.elements[10] = ((closureN)self_73796)->elements[10]; c_731352.elements[11] = ((closureN)self_73796)->elements[11]; c_731352.elements[12] = one_91way_91unify_73226; c_731352.elements[13] = ((closureN)self_73796)->elements[13]; c_731352.elements[14] = ((closureN)self_73796)->elements[14]; c_731352.elements[15] = ((closureN)self_73796)->elements[15]; c_731352.elements[16] = ((closureN)self_73796)->elements[16]; c_731352.elements[17] = ((closureN)self_73796)->elements[17]; c_731352.elements[18] = ((closureN)self_73796)->elements[18]; c_731352.elements[19] = ((closureN)self_73796)->elements[19]; c_731352.elements[20] = ((closureN)self_73796)->elements[20]; c_731352.elements[21] = ((closureN)self_73796)->elements[21]; c_731352.elements[22] = ((closureN)self_73796)->elements[22]; c_731352.elements[23] = ((closureN)self_73796)->elements[23]; c_731352.elements[24] = ((closureN)self_73796)->elements[24]; c_731352.elements[25] = ((closureN)self_73796)->elements[25]; c_731352.elements[26] = ((closureN)self_73796)->elements[26]; c_731352.elements[27] = ((closureN)self_73796)->elements[27]; c_731352.elements[28] = ((closureN)self_73796)->elements[28]; c_731352.elements[29] = ((closureN)self_73796)->elements[29]; c_731352.elements[30] = ((closureN)self_73796)->elements[30]; c_731352.elements[31] = ((closureN)self_73796)->elements[31]; c_731352.elements[32] = ((closureN)self_73796)->elements[32]; c_731352.elements[33] = ((closureN)self_73796)->elements[33]; c_731352.elements[34] = ((closureN)self_73796)->elements[34]; c_731352.elements[35] = ((closureN)self_73796)->elements[35]; c_731352.elements[36] = ((closureN)self_73796)->elements[36]; c_731352.elements[37] = ((closureN)self_73796)->elements[37]; c_731352.elements[38] = ((closureN)self_73796)->elements[38]; make_cell(c_736279,((closureN)self_73796)->elements[12]); return_closcall1(data,(closure)&c_731352, &c_736279);; } static void __lambda_227(void *data, int argc, object self_73797, object one_91way_91unify1_73225) { closureN_type c_731354; c_731354.hdr.mark = gc_color_red; c_731354.hdr.grayed = 0; c_731354.tag = closureN_tag; c_731354.fn = (function_type)__lambda_226; c_731354.num_args = 1; c_731354.num_elements = 39; c_731354.elements = (object *)alloca(sizeof(object) * 39); c_731354.elements[0] = ((closureN)self_73797)->elements[0]; c_731354.elements[1] = ((closureN)self_73797)->elements[1]; c_731354.elements[2] = ((closureN)self_73797)->elements[2]; c_731354.elements[3] = ((closureN)self_73797)->elements[3]; c_731354.elements[4] = ((closureN)self_73797)->elements[4]; c_731354.elements[5] = ((closureN)self_73797)->elements[5]; c_731354.elements[6] = ((closureN)self_73797)->elements[6]; c_731354.elements[7] = ((closureN)self_73797)->elements[7]; c_731354.elements[8] = ((closureN)self_73797)->elements[8]; c_731354.elements[9] = ((closureN)self_73797)->elements[9]; c_731354.elements[10] = ((closureN)self_73797)->elements[10]; c_731354.elements[11] = ((closureN)self_73797)->elements[11]; c_731354.elements[12] = ((closureN)self_73797)->elements[12]; c_731354.elements[13] = one_91way_91unify1_73225; c_731354.elements[14] = ((closureN)self_73797)->elements[14]; c_731354.elements[15] = ((closureN)self_73797)->elements[15]; c_731354.elements[16] = ((closureN)self_73797)->elements[16]; c_731354.elements[17] = ((closureN)self_73797)->elements[17]; c_731354.elements[18] = ((closureN)self_73797)->elements[18]; c_731354.elements[19] = ((closureN)self_73797)->elements[19]; c_731354.elements[20] = ((closureN)self_73797)->elements[20]; c_731354.elements[21] = ((closureN)self_73797)->elements[21]; c_731354.elements[22] = ((closureN)self_73797)->elements[22]; c_731354.elements[23] = ((closureN)self_73797)->elements[23]; c_731354.elements[24] = ((closureN)self_73797)->elements[24]; c_731354.elements[25] = ((closureN)self_73797)->elements[25]; c_731354.elements[26] = ((closureN)self_73797)->elements[26]; c_731354.elements[27] = ((closureN)self_73797)->elements[27]; c_731354.elements[28] = ((closureN)self_73797)->elements[28]; c_731354.elements[29] = ((closureN)self_73797)->elements[29]; c_731354.elements[30] = ((closureN)self_73797)->elements[30]; c_731354.elements[31] = ((closureN)self_73797)->elements[31]; c_731354.elements[32] = ((closureN)self_73797)->elements[32]; c_731354.elements[33] = ((closureN)self_73797)->elements[33]; c_731354.elements[34] = ((closureN)self_73797)->elements[34]; c_731354.elements[35] = ((closureN)self_73797)->elements[35]; c_731354.elements[36] = ((closureN)self_73797)->elements[36]; c_731354.elements[37] = ((closureN)self_73797)->elements[37]; c_731354.elements[38] = ((closureN)self_73797)->elements[38]; make_cell(c_736275,((closureN)self_73797)->elements[13]); return_closcall1(data,(closure)&c_731354, &c_736275);; } static void __lambda_226(void *data, int argc, object self_73798, object one_91way_91unify1_91lst_73224) { closureN_type c_731356; c_731356.hdr.mark = gc_color_red; c_731356.hdr.grayed = 0; c_731356.tag = closureN_tag; c_731356.fn = (function_type)__lambda_225; c_731356.num_args = 1; c_731356.num_elements = 39; c_731356.elements = (object *)alloca(sizeof(object) * 39); c_731356.elements[0] = ((closureN)self_73798)->elements[0]; c_731356.elements[1] = ((closureN)self_73798)->elements[1]; c_731356.elements[2] = ((closureN)self_73798)->elements[2]; c_731356.elements[3] = ((closureN)self_73798)->elements[3]; c_731356.elements[4] = ((closureN)self_73798)->elements[4]; c_731356.elements[5] = ((closureN)self_73798)->elements[5]; c_731356.elements[6] = ((closureN)self_73798)->elements[7]; c_731356.elements[7] = ((closureN)self_73798)->elements[8]; c_731356.elements[8] = ((closureN)self_73798)->elements[9]; c_731356.elements[9] = ((closureN)self_73798)->elements[10]; c_731356.elements[10] = ((closureN)self_73798)->elements[11]; c_731356.elements[11] = ((closureN)self_73798)->elements[12]; c_731356.elements[12] = ((closureN)self_73798)->elements[13]; c_731356.elements[13] = one_91way_91unify1_91lst_73224; c_731356.elements[14] = ((closureN)self_73798)->elements[14]; c_731356.elements[15] = ((closureN)self_73798)->elements[15]; c_731356.elements[16] = ((closureN)self_73798)->elements[16]; c_731356.elements[17] = ((closureN)self_73798)->elements[17]; c_731356.elements[18] = ((closureN)self_73798)->elements[18]; c_731356.elements[19] = ((closureN)self_73798)->elements[19]; c_731356.elements[20] = ((closureN)self_73798)->elements[20]; c_731356.elements[21] = ((closureN)self_73798)->elements[21]; c_731356.elements[22] = ((closureN)self_73798)->elements[22]; c_731356.elements[23] = ((closureN)self_73798)->elements[23]; c_731356.elements[24] = ((closureN)self_73798)->elements[24]; c_731356.elements[25] = ((closureN)self_73798)->elements[25]; c_731356.elements[26] = ((closureN)self_73798)->elements[26]; c_731356.elements[27] = ((closureN)self_73798)->elements[27]; c_731356.elements[28] = ((closureN)self_73798)->elements[28]; c_731356.elements[29] = ((closureN)self_73798)->elements[29]; c_731356.elements[30] = ((closureN)self_73798)->elements[30]; c_731356.elements[31] = ((closureN)self_73798)->elements[31]; c_731356.elements[32] = ((closureN)self_73798)->elements[32]; c_731356.elements[33] = ((closureN)self_73798)->elements[33]; c_731356.elements[34] = ((closureN)self_73798)->elements[34]; c_731356.elements[35] = ((closureN)self_73798)->elements[35]; c_731356.elements[36] = ((closureN)self_73798)->elements[36]; c_731356.elements[37] = ((closureN)self_73798)->elements[37]; c_731356.elements[38] = ((closureN)self_73798)->elements[38]; make_cell(c_736271,((closureN)self_73798)->elements[6]); return_closcall1(data,(closure)&c_731356, &c_736271);; } static void __lambda_225(void *data, int argc, object self_73799, object falsep_73223) { closureN_type c_731358; c_731358.hdr.mark = gc_color_red; c_731358.hdr.grayed = 0; c_731358.tag = closureN_tag; c_731358.fn = (function_type)__lambda_224; c_731358.num_args = 1; c_731358.num_elements = 39; c_731358.elements = (object *)alloca(sizeof(object) * 39); c_731358.elements[0] = ((closureN)self_73799)->elements[0]; c_731358.elements[1] = ((closureN)self_73799)->elements[1]; c_731358.elements[2] = ((closureN)self_73799)->elements[2]; c_731358.elements[3] = ((closureN)self_73799)->elements[3]; c_731358.elements[4] = ((closureN)self_73799)->elements[4]; c_731358.elements[5] = ((closureN)self_73799)->elements[5]; c_731358.elements[6] = falsep_73223; c_731358.elements[7] = ((closureN)self_73799)->elements[6]; c_731358.elements[8] = ((closureN)self_73799)->elements[7]; c_731358.elements[9] = ((closureN)self_73799)->elements[8]; c_731358.elements[10] = ((closureN)self_73799)->elements[9]; c_731358.elements[11] = ((closureN)self_73799)->elements[10]; c_731358.elements[12] = ((closureN)self_73799)->elements[11]; c_731358.elements[13] = ((closureN)self_73799)->elements[12]; c_731358.elements[14] = ((closureN)self_73799)->elements[13]; c_731358.elements[15] = ((closureN)self_73799)->elements[14]; c_731358.elements[16] = ((closureN)self_73799)->elements[15]; c_731358.elements[17] = ((closureN)self_73799)->elements[16]; c_731358.elements[18] = ((closureN)self_73799)->elements[17]; c_731358.elements[19] = ((closureN)self_73799)->elements[18]; c_731358.elements[20] = ((closureN)self_73799)->elements[19]; c_731358.elements[21] = ((closureN)self_73799)->elements[20]; c_731358.elements[22] = ((closureN)self_73799)->elements[21]; c_731358.elements[23] = ((closureN)self_73799)->elements[22]; c_731358.elements[24] = ((closureN)self_73799)->elements[23]; c_731358.elements[25] = ((closureN)self_73799)->elements[24]; c_731358.elements[26] = ((closureN)self_73799)->elements[25]; c_731358.elements[27] = ((closureN)self_73799)->elements[26]; c_731358.elements[28] = ((closureN)self_73799)->elements[27]; c_731358.elements[29] = ((closureN)self_73799)->elements[28]; c_731358.elements[30] = ((closureN)self_73799)->elements[29]; c_731358.elements[31] = ((closureN)self_73799)->elements[30]; c_731358.elements[32] = ((closureN)self_73799)->elements[31]; c_731358.elements[33] = ((closureN)self_73799)->elements[32]; c_731358.elements[34] = ((closureN)self_73799)->elements[33]; c_731358.elements[35] = ((closureN)self_73799)->elements[34]; c_731358.elements[36] = ((closureN)self_73799)->elements[35]; c_731358.elements[37] = ((closureN)self_73799)->elements[37]; c_731358.elements[38] = ((closureN)self_73799)->elements[38]; make_cell(c_736267,((closureN)self_73799)->elements[36]); return_closcall1(data,(closure)&c_731358, &c_736267);; } static void __lambda_224(void *data, int argc, object self_73800, object truep_73222) { closureN_type c_731360; c_731360.hdr.mark = gc_color_red; c_731360.hdr.grayed = 0; c_731360.tag = closureN_tag; c_731360.fn = (function_type)__lambda_223; c_731360.num_args = 1; c_731360.num_elements = 39; c_731360.elements = (object *)alloca(sizeof(object) * 39); c_731360.elements[0] = ((closureN)self_73800)->elements[0]; c_731360.elements[1] = ((closureN)self_73800)->elements[1]; c_731360.elements[2] = ((closureN)self_73800)->elements[2]; c_731360.elements[3] = ((closureN)self_73800)->elements[3]; c_731360.elements[4] = ((closureN)self_73800)->elements[4]; c_731360.elements[5] = ((closureN)self_73800)->elements[6]; c_731360.elements[6] = ((closureN)self_73800)->elements[7]; c_731360.elements[7] = ((closureN)self_73800)->elements[8]; c_731360.elements[8] = ((closureN)self_73800)->elements[9]; c_731360.elements[9] = ((closureN)self_73800)->elements[10]; c_731360.elements[10] = ((closureN)self_73800)->elements[11]; c_731360.elements[11] = ((closureN)self_73800)->elements[12]; c_731360.elements[12] = ((closureN)self_73800)->elements[13]; c_731360.elements[13] = ((closureN)self_73800)->elements[14]; c_731360.elements[14] = ((closureN)self_73800)->elements[15]; c_731360.elements[15] = ((closureN)self_73800)->elements[16]; c_731360.elements[16] = ((closureN)self_73800)->elements[17]; c_731360.elements[17] = ((closureN)self_73800)->elements[18]; c_731360.elements[18] = ((closureN)self_73800)->elements[19]; c_731360.elements[19] = ((closureN)self_73800)->elements[20]; c_731360.elements[20] = ((closureN)self_73800)->elements[21]; c_731360.elements[21] = ((closureN)self_73800)->elements[22]; c_731360.elements[22] = ((closureN)self_73800)->elements[23]; c_731360.elements[23] = ((closureN)self_73800)->elements[24]; c_731360.elements[24] = ((closureN)self_73800)->elements[25]; c_731360.elements[25] = ((closureN)self_73800)->elements[26]; c_731360.elements[26] = ((closureN)self_73800)->elements[27]; c_731360.elements[27] = ((closureN)self_73800)->elements[28]; c_731360.elements[28] = ((closureN)self_73800)->elements[29]; c_731360.elements[29] = ((closureN)self_73800)->elements[30]; c_731360.elements[30] = ((closureN)self_73800)->elements[31]; c_731360.elements[31] = ((closureN)self_73800)->elements[32]; c_731360.elements[32] = ((closureN)self_73800)->elements[33]; c_731360.elements[33] = ((closureN)self_73800)->elements[34]; c_731360.elements[34] = ((closureN)self_73800)->elements[35]; c_731360.elements[35] = ((closureN)self_73800)->elements[36]; c_731360.elements[36] = truep_73222; c_731360.elements[37] = ((closureN)self_73800)->elements[37]; c_731360.elements[38] = ((closureN)self_73800)->elements[38]; make_cell(c_736263,((closureN)self_73800)->elements[5]); return_closcall1(data,(closure)&c_731360, &c_736263);; } static void __lambda_223(void *data, int argc, object self_73801, object false_91term_73221) { closureN_type c_731362; c_731362.hdr.mark = gc_color_red; c_731362.hdr.grayed = 0; c_731362.tag = closureN_tag; c_731362.fn = (function_type)__lambda_222; c_731362.num_args = 1; c_731362.num_elements = 39; c_731362.elements = (object *)alloca(sizeof(object) * 39); c_731362.elements[0] = ((closureN)self_73801)->elements[0]; c_731362.elements[1] = ((closureN)self_73801)->elements[1]; c_731362.elements[2] = ((closureN)self_73801)->elements[2]; c_731362.elements[3] = ((closureN)self_73801)->elements[3]; c_731362.elements[4] = ((closureN)self_73801)->elements[4]; c_731362.elements[5] = false_91term_73221; c_731362.elements[6] = ((closureN)self_73801)->elements[5]; c_731362.elements[7] = ((closureN)self_73801)->elements[6]; c_731362.elements[8] = ((closureN)self_73801)->elements[7]; c_731362.elements[9] = ((closureN)self_73801)->elements[8]; c_731362.elements[10] = ((closureN)self_73801)->elements[9]; c_731362.elements[11] = ((closureN)self_73801)->elements[10]; c_731362.elements[12] = ((closureN)self_73801)->elements[11]; c_731362.elements[13] = ((closureN)self_73801)->elements[12]; c_731362.elements[14] = ((closureN)self_73801)->elements[13]; c_731362.elements[15] = ((closureN)self_73801)->elements[14]; c_731362.elements[16] = ((closureN)self_73801)->elements[15]; c_731362.elements[17] = ((closureN)self_73801)->elements[16]; c_731362.elements[18] = ((closureN)self_73801)->elements[17]; c_731362.elements[19] = ((closureN)self_73801)->elements[18]; c_731362.elements[20] = ((closureN)self_73801)->elements[19]; c_731362.elements[21] = ((closureN)self_73801)->elements[20]; c_731362.elements[22] = ((closureN)self_73801)->elements[21]; c_731362.elements[23] = ((closureN)self_73801)->elements[22]; c_731362.elements[24] = ((closureN)self_73801)->elements[23]; c_731362.elements[25] = ((closureN)self_73801)->elements[24]; c_731362.elements[26] = ((closureN)self_73801)->elements[25]; c_731362.elements[27] = ((closureN)self_73801)->elements[26]; c_731362.elements[28] = ((closureN)self_73801)->elements[27]; c_731362.elements[29] = ((closureN)self_73801)->elements[28]; c_731362.elements[30] = ((closureN)self_73801)->elements[29]; c_731362.elements[31] = ((closureN)self_73801)->elements[30]; c_731362.elements[32] = ((closureN)self_73801)->elements[31]; c_731362.elements[33] = ((closureN)self_73801)->elements[32]; c_731362.elements[34] = ((closureN)self_73801)->elements[33]; c_731362.elements[35] = ((closureN)self_73801)->elements[34]; c_731362.elements[36] = ((closureN)self_73801)->elements[36]; c_731362.elements[37] = ((closureN)self_73801)->elements[37]; c_731362.elements[38] = ((closureN)self_73801)->elements[38]; make_cell(c_736259,((closureN)self_73801)->elements[35]); return_closcall1(data,(closure)&c_731362, &c_736259);; } static void __lambda_222(void *data, int argc, object self_73802, object true_91term_73220) { closureN_type c_731364; c_731364.hdr.mark = gc_color_red; c_731364.hdr.grayed = 0; c_731364.tag = closureN_tag; c_731364.fn = (function_type)__lambda_221; c_731364.num_args = 1; c_731364.num_elements = 39; c_731364.elements = (object *)alloca(sizeof(object) * 39); c_731364.elements[0] = ((closureN)self_73802)->elements[0]; c_731364.elements[1] = ((closureN)self_73802)->elements[1]; c_731364.elements[2] = ((closureN)self_73802)->elements[2]; c_731364.elements[3] = ((closureN)self_73802)->elements[3]; c_731364.elements[4] = ((closureN)self_73802)->elements[4]; c_731364.elements[5] = ((closureN)self_73802)->elements[5]; c_731364.elements[6] = ((closureN)self_73802)->elements[6]; c_731364.elements[7] = ((closureN)self_73802)->elements[7]; c_731364.elements[8] = ((closureN)self_73802)->elements[8]; c_731364.elements[9] = ((closureN)self_73802)->elements[9]; c_731364.elements[10] = ((closureN)self_73802)->elements[10]; c_731364.elements[11] = ((closureN)self_73802)->elements[11]; c_731364.elements[12] = ((closureN)self_73802)->elements[12]; c_731364.elements[13] = ((closureN)self_73802)->elements[13]; c_731364.elements[14] = ((closureN)self_73802)->elements[14]; c_731364.elements[15] = ((closureN)self_73802)->elements[15]; c_731364.elements[16] = ((closureN)self_73802)->elements[16]; c_731364.elements[17] = ((closureN)self_73802)->elements[17]; c_731364.elements[18] = ((closureN)self_73802)->elements[18]; c_731364.elements[19] = ((closureN)self_73802)->elements[19]; c_731364.elements[20] = ((closureN)self_73802)->elements[20]; c_731364.elements[21] = ((closureN)self_73802)->elements[21]; c_731364.elements[22] = ((closureN)self_73802)->elements[22]; c_731364.elements[23] = ((closureN)self_73802)->elements[23]; c_731364.elements[24] = ((closureN)self_73802)->elements[24]; c_731364.elements[25] = ((closureN)self_73802)->elements[25]; c_731364.elements[26] = ((closureN)self_73802)->elements[26]; c_731364.elements[27] = ((closureN)self_73802)->elements[27]; c_731364.elements[28] = ((closureN)self_73802)->elements[28]; c_731364.elements[29] = ((closureN)self_73802)->elements[29]; c_731364.elements[30] = ((closureN)self_73802)->elements[30]; c_731364.elements[31] = ((closureN)self_73802)->elements[32]; c_731364.elements[32] = ((closureN)self_73802)->elements[33]; c_731364.elements[33] = ((closureN)self_73802)->elements[34]; c_731364.elements[34] = ((closureN)self_73802)->elements[35]; c_731364.elements[35] = true_91term_73220; c_731364.elements[36] = ((closureN)self_73802)->elements[36]; c_731364.elements[37] = ((closureN)self_73802)->elements[37]; c_731364.elements[38] = ((closureN)self_73802)->elements[38]; make_cell(c_736255,((closureN)self_73802)->elements[31]); return_closcall1(data,(closure)&c_731364, &c_736255);; } static void __lambda_221(void *data, int argc, object self_73803, object trans_91of_91implies_73219) { closureN_type c_731366; c_731366.hdr.mark = gc_color_red; c_731366.hdr.grayed = 0; c_731366.tag = closureN_tag; c_731366.fn = (function_type)__lambda_220; c_731366.num_args = 1; c_731366.num_elements = 39; c_731366.elements = (object *)alloca(sizeof(object) * 39); c_731366.elements[0] = ((closureN)self_73803)->elements[0]; c_731366.elements[1] = ((closureN)self_73803)->elements[1]; c_731366.elements[2] = ((closureN)self_73803)->elements[2]; c_731366.elements[3] = ((closureN)self_73803)->elements[3]; c_731366.elements[4] = ((closureN)self_73803)->elements[4]; c_731366.elements[5] = ((closureN)self_73803)->elements[5]; c_731366.elements[6] = ((closureN)self_73803)->elements[6]; c_731366.elements[7] = ((closureN)self_73803)->elements[7]; c_731366.elements[8] = ((closureN)self_73803)->elements[8]; c_731366.elements[9] = ((closureN)self_73803)->elements[9]; c_731366.elements[10] = ((closureN)self_73803)->elements[10]; c_731366.elements[11] = ((closureN)self_73803)->elements[11]; c_731366.elements[12] = ((closureN)self_73803)->elements[12]; c_731366.elements[13] = ((closureN)self_73803)->elements[13]; c_731366.elements[14] = ((closureN)self_73803)->elements[14]; c_731366.elements[15] = ((closureN)self_73803)->elements[15]; c_731366.elements[16] = ((closureN)self_73803)->elements[16]; c_731366.elements[17] = ((closureN)self_73803)->elements[17]; c_731366.elements[18] = ((closureN)self_73803)->elements[18]; c_731366.elements[19] = ((closureN)self_73803)->elements[19]; c_731366.elements[20] = ((closureN)self_73803)->elements[20]; c_731366.elements[21] = ((closureN)self_73803)->elements[21]; c_731366.elements[22] = ((closureN)self_73803)->elements[22]; c_731366.elements[23] = ((closureN)self_73803)->elements[23]; c_731366.elements[24] = ((closureN)self_73803)->elements[24]; c_731366.elements[25] = ((closureN)self_73803)->elements[25]; c_731366.elements[26] = ((closureN)self_73803)->elements[26]; c_731366.elements[27] = ((closureN)self_73803)->elements[27]; c_731366.elements[28] = ((closureN)self_73803)->elements[28]; c_731366.elements[29] = ((closureN)self_73803)->elements[29]; c_731366.elements[30] = ((closureN)self_73803)->elements[30]; c_731366.elements[31] = trans_91of_91implies_73219; c_731366.elements[32] = ((closureN)self_73803)->elements[32]; c_731366.elements[33] = ((closureN)self_73803)->elements[33]; c_731366.elements[34] = ((closureN)self_73803)->elements[34]; c_731366.elements[35] = ((closureN)self_73803)->elements[35]; c_731366.elements[36] = ((closureN)self_73803)->elements[36]; c_731366.elements[37] = ((closureN)self_73803)->elements[37]; c_731366.elements[38] = ((closureN)self_73803)->elements[38]; make_cell(c_736251,((closureN)self_73803)->elements[31]); return_closcall1(data,(closure)&c_731366, &c_736251);; } static void __lambda_220(void *data, int argc, object self_73804, object trans_91of_91implies1_73218) { closureN_type c_731368; c_731368.hdr.mark = gc_color_red; c_731368.hdr.grayed = 0; c_731368.tag = closureN_tag; c_731368.fn = (function_type)__lambda_219; c_731368.num_args = 1; c_731368.num_elements = 39; c_731368.elements = (object *)alloca(sizeof(object) * 39); c_731368.elements[0] = ((closureN)self_73804)->elements[0]; c_731368.elements[1] = ((closureN)self_73804)->elements[1]; c_731368.elements[2] = ((closureN)self_73804)->elements[2]; c_731368.elements[3] = ((closureN)self_73804)->elements[3]; c_731368.elements[4] = ((closureN)self_73804)->elements[4]; c_731368.elements[5] = ((closureN)self_73804)->elements[5]; c_731368.elements[6] = ((closureN)self_73804)->elements[6]; c_731368.elements[7] = ((closureN)self_73804)->elements[7]; c_731368.elements[8] = ((closureN)self_73804)->elements[8]; c_731368.elements[9] = ((closureN)self_73804)->elements[9]; c_731368.elements[10] = ((closureN)self_73804)->elements[10]; c_731368.elements[11] = ((closureN)self_73804)->elements[11]; c_731368.elements[12] = ((closureN)self_73804)->elements[12]; c_731368.elements[13] = ((closureN)self_73804)->elements[13]; c_731368.elements[14] = ((closureN)self_73804)->elements[14]; c_731368.elements[15] = ((closureN)self_73804)->elements[15]; c_731368.elements[16] = ((closureN)self_73804)->elements[16]; c_731368.elements[17] = ((closureN)self_73804)->elements[17]; c_731368.elements[18] = ((closureN)self_73804)->elements[18]; c_731368.elements[19] = ((closureN)self_73804)->elements[19]; c_731368.elements[20] = ((closureN)self_73804)->elements[20]; c_731368.elements[21] = ((closureN)self_73804)->elements[21]; c_731368.elements[22] = ((closureN)self_73804)->elements[22]; c_731368.elements[23] = ((closureN)self_73804)->elements[23]; c_731368.elements[24] = ((closureN)self_73804)->elements[24]; c_731368.elements[25] = ((closureN)self_73804)->elements[25]; c_731368.elements[26] = ((closureN)self_73804)->elements[26]; c_731368.elements[27] = ((closureN)self_73804)->elements[27]; c_731368.elements[28] = ((closureN)self_73804)->elements[29]; c_731368.elements[29] = ((closureN)self_73804)->elements[30]; c_731368.elements[30] = ((closureN)self_73804)->elements[31]; c_731368.elements[31] = trans_91of_91implies1_73218; c_731368.elements[32] = ((closureN)self_73804)->elements[32]; c_731368.elements[33] = ((closureN)self_73804)->elements[33]; c_731368.elements[34] = ((closureN)self_73804)->elements[34]; c_731368.elements[35] = ((closureN)self_73804)->elements[35]; c_731368.elements[36] = ((closureN)self_73804)->elements[36]; c_731368.elements[37] = ((closureN)self_73804)->elements[37]; c_731368.elements[38] = ((closureN)self_73804)->elements[38]; make_cell(c_736247,((closureN)self_73804)->elements[28]); return_closcall1(data,(closure)&c_731368, &c_736247);; } static void __lambda_219(void *data, int argc, object self_73805, object term_91equal_127_73217) { closureN_type c_731370; c_731370.hdr.mark = gc_color_red; c_731370.hdr.grayed = 0; c_731370.tag = closureN_tag; c_731370.fn = (function_type)__lambda_218; c_731370.num_args = 1; c_731370.num_elements = 39; c_731370.elements = (object *)alloca(sizeof(object) * 39); c_731370.elements[0] = ((closureN)self_73805)->elements[0]; c_731370.elements[1] = ((closureN)self_73805)->elements[1]; c_731370.elements[2] = ((closureN)self_73805)->elements[2]; c_731370.elements[3] = ((closureN)self_73805)->elements[3]; c_731370.elements[4] = ((closureN)self_73805)->elements[4]; c_731370.elements[5] = ((closureN)self_73805)->elements[5]; c_731370.elements[6] = ((closureN)self_73805)->elements[6]; c_731370.elements[7] = ((closureN)self_73805)->elements[7]; c_731370.elements[8] = ((closureN)self_73805)->elements[8]; c_731370.elements[9] = ((closureN)self_73805)->elements[9]; c_731370.elements[10] = ((closureN)self_73805)->elements[10]; c_731370.elements[11] = ((closureN)self_73805)->elements[11]; c_731370.elements[12] = ((closureN)self_73805)->elements[12]; c_731370.elements[13] = ((closureN)self_73805)->elements[13]; c_731370.elements[14] = ((closureN)self_73805)->elements[14]; c_731370.elements[15] = ((closureN)self_73805)->elements[15]; c_731370.elements[16] = ((closureN)self_73805)->elements[16]; c_731370.elements[17] = ((closureN)self_73805)->elements[17]; c_731370.elements[18] = ((closureN)self_73805)->elements[18]; c_731370.elements[19] = ((closureN)self_73805)->elements[19]; c_731370.elements[20] = ((closureN)self_73805)->elements[20]; c_731370.elements[21] = ((closureN)self_73805)->elements[21]; c_731370.elements[22] = ((closureN)self_73805)->elements[22]; c_731370.elements[23] = ((closureN)self_73805)->elements[23]; c_731370.elements[24] = ((closureN)self_73805)->elements[24]; c_731370.elements[25] = ((closureN)self_73805)->elements[25]; c_731370.elements[26] = ((closureN)self_73805)->elements[26]; c_731370.elements[27] = term_91equal_127_73217; c_731370.elements[28] = ((closureN)self_73805)->elements[28]; c_731370.elements[29] = ((closureN)self_73805)->elements[29]; c_731370.elements[30] = ((closureN)self_73805)->elements[30]; c_731370.elements[31] = ((closureN)self_73805)->elements[31]; c_731370.elements[32] = ((closureN)self_73805)->elements[32]; c_731370.elements[33] = ((closureN)self_73805)->elements[33]; c_731370.elements[34] = ((closureN)self_73805)->elements[34]; c_731370.elements[35] = ((closureN)self_73805)->elements[35]; c_731370.elements[36] = ((closureN)self_73805)->elements[36]; c_731370.elements[37] = ((closureN)self_73805)->elements[37]; c_731370.elements[38] = ((closureN)self_73805)->elements[38]; make_cell(c_736243,((closureN)self_73805)->elements[27]); return_closcall1(data,(closure)&c_731370, &c_736243);; } static void __lambda_218(void *data, int argc, object self_73806, object term_91args_91equal_127_73216) { closureN_type c_731372; c_731372.hdr.mark = gc_color_red; c_731372.hdr.grayed = 0; c_731372.tag = closureN_tag; c_731372.fn = (function_type)__lambda_217; c_731372.num_args = 1; c_731372.num_elements = 39; c_731372.elements = (object *)alloca(sizeof(object) * 39); c_731372.elements[0] = ((closureN)self_73806)->elements[0]; c_731372.elements[1] = ((closureN)self_73806)->elements[1]; c_731372.elements[2] = ((closureN)self_73806)->elements[2]; c_731372.elements[3] = ((closureN)self_73806)->elements[3]; c_731372.elements[4] = ((closureN)self_73806)->elements[4]; c_731372.elements[5] = ((closureN)self_73806)->elements[5]; c_731372.elements[6] = ((closureN)self_73806)->elements[6]; c_731372.elements[7] = ((closureN)self_73806)->elements[7]; c_731372.elements[8] = ((closureN)self_73806)->elements[8]; c_731372.elements[9] = ((closureN)self_73806)->elements[9]; c_731372.elements[10] = ((closureN)self_73806)->elements[10]; c_731372.elements[11] = ((closureN)self_73806)->elements[11]; c_731372.elements[12] = ((closureN)self_73806)->elements[12]; c_731372.elements[13] = ((closureN)self_73806)->elements[13]; c_731372.elements[14] = ((closureN)self_73806)->elements[14]; c_731372.elements[15] = ((closureN)self_73806)->elements[15]; c_731372.elements[16] = ((closureN)self_73806)->elements[16]; c_731372.elements[17] = ((closureN)self_73806)->elements[17]; c_731372.elements[18] = ((closureN)self_73806)->elements[18]; c_731372.elements[19] = ((closureN)self_73806)->elements[19]; c_731372.elements[20] = ((closureN)self_73806)->elements[20]; c_731372.elements[21] = ((closureN)self_73806)->elements[21]; c_731372.elements[22] = ((closureN)self_73806)->elements[22]; c_731372.elements[23] = ((closureN)self_73806)->elements[23]; c_731372.elements[24] = ((closureN)self_73806)->elements[24]; c_731372.elements[25] = ((closureN)self_73806)->elements[25]; c_731372.elements[26] = ((closureN)self_73806)->elements[26]; c_731372.elements[27] = term_91args_91equal_127_73216; c_731372.elements[28] = ((closureN)self_73806)->elements[27]; c_731372.elements[29] = ((closureN)self_73806)->elements[29]; c_731372.elements[30] = ((closureN)self_73806)->elements[30]; c_731372.elements[31] = ((closureN)self_73806)->elements[31]; c_731372.elements[32] = ((closureN)self_73806)->elements[32]; c_731372.elements[33] = ((closureN)self_73806)->elements[33]; c_731372.elements[34] = ((closureN)self_73806)->elements[34]; c_731372.elements[35] = ((closureN)self_73806)->elements[35]; c_731372.elements[36] = ((closureN)self_73806)->elements[36]; c_731372.elements[37] = ((closureN)self_73806)->elements[37]; c_731372.elements[38] = ((closureN)self_73806)->elements[38]; make_cell(c_736239,((closureN)self_73806)->elements[28]); return_closcall1(data,(closure)&c_731372, &c_736239);; } static void __lambda_217(void *data, int argc, object self_73807, object term_91member_127_73215) { closureN_type c_731374; c_731374.hdr.mark = gc_color_red; c_731374.hdr.grayed = 0; c_731374.tag = closureN_tag; c_731374.fn = (function_type)__lambda_215; c_731374.num_args = 1; c_731374.num_elements = 39; c_731374.elements = (object *)alloca(sizeof(object) * 39); c_731374.elements[0] = ((closureN)self_73807)->elements[0]; c_731374.elements[1] = ((closureN)self_73807)->elements[1]; c_731374.elements[2] = ((closureN)self_73807)->elements[2]; c_731374.elements[3] = ((closureN)self_73807)->elements[3]; c_731374.elements[4] = ((closureN)self_73807)->elements[4]; c_731374.elements[5] = ((closureN)self_73807)->elements[5]; c_731374.elements[6] = ((closureN)self_73807)->elements[6]; c_731374.elements[7] = ((closureN)self_73807)->elements[7]; c_731374.elements[8] = ((closureN)self_73807)->elements[8]; c_731374.elements[9] = ((closureN)self_73807)->elements[9]; c_731374.elements[10] = ((closureN)self_73807)->elements[10]; c_731374.elements[11] = ((closureN)self_73807)->elements[11]; c_731374.elements[12] = ((closureN)self_73807)->elements[12]; c_731374.elements[13] = ((closureN)self_73807)->elements[13]; c_731374.elements[14] = ((closureN)self_73807)->elements[14]; c_731374.elements[15] = ((closureN)self_73807)->elements[15]; c_731374.elements[16] = ((closureN)self_73807)->elements[16]; c_731374.elements[17] = ((closureN)self_73807)->elements[17]; c_731374.elements[18] = ((closureN)self_73807)->elements[18]; c_731374.elements[19] = ((closureN)self_73807)->elements[19]; c_731374.elements[20] = ((closureN)self_73807)->elements[20]; c_731374.elements[21] = ((closureN)self_73807)->elements[21]; c_731374.elements[22] = ((closureN)self_73807)->elements[23]; c_731374.elements[23] = ((closureN)self_73807)->elements[24]; c_731374.elements[24] = ((closureN)self_73807)->elements[25]; c_731374.elements[25] = ((closureN)self_73807)->elements[26]; c_731374.elements[26] = ((closureN)self_73807)->elements[27]; c_731374.elements[27] = ((closureN)self_73807)->elements[28]; c_731374.elements[28] = term_91member_127_73215; c_731374.elements[29] = ((closureN)self_73807)->elements[29]; c_731374.elements[30] = ((closureN)self_73807)->elements[30]; c_731374.elements[31] = ((closureN)self_73807)->elements[31]; c_731374.elements[32] = ((closureN)self_73807)->elements[32]; c_731374.elements[33] = ((closureN)self_73807)->elements[33]; c_731374.elements[34] = ((closureN)self_73807)->elements[34]; c_731374.elements[35] = ((closureN)self_73807)->elements[35]; c_731374.elements[36] = ((closureN)self_73807)->elements[36]; c_731374.elements[37] = ((closureN)self_73807)->elements[37]; c_731374.elements[38] = ((closureN)self_73807)->elements[38]; closureN_type c_734385; c_734385.hdr.mark = gc_color_red; c_734385.hdr.grayed = 0; c_734385.tag = closureN_tag; c_734385.fn = (function_type)__lambda_216; c_734385.num_args = 0; c_734385.num_elements = 1; c_734385.elements = (object *)alloca(sizeof(object) * 1); c_734385.elements[0] = ((closureN)self_73807)->elements[2]; return_closcall1(data,(closure)&c_731374, Cyc_set_cell(data, ((closureN)self_73807)->elements[22], &c_734385));; } static void __lambda_216(void *data, int argc, object self_73808, object k_73668) { make_pair(c_734394,quote_form,NULL); make_pair(c_734393,quote_compile,&c_734394); make_pair(c_734401,quote_form,NULL); make_pair(c_734400,quote_optimize,&c_734401); make_pair(c_734403,quote_nil,NULL); make_pair(c_734402,&c_734403,NULL); make_pair(c_734399,&c_734400,&c_734402); make_pair(c_734398,quote_codegen,&c_734399); make_pair(c_734397,&c_734398,NULL); make_pair(c_734396,quote_reverse,&c_734397); make_pair(c_734395,&c_734396,NULL); make_pair(c_734392,&c_734393,&c_734395); make_pair(c_734391,quote_equal,&c_734392); make_pair(c_734409,quote_y,NULL); make_pair(c_734408,quote_x,&c_734409); make_pair(c_734407,quote_eqp,&c_734408); make_pair(c_734414,quote_x,NULL); make_pair(c_734413,quote_fix,&c_734414); make_pair(c_734417,quote_y,NULL); make_pair(c_734416,quote_fix,&c_734417); make_pair(c_734415,&c_734416,NULL); make_pair(c_734412,&c_734413,&c_734415); make_pair(c_734411,quote_equal,&c_734412); make_pair(c_734410,&c_734411,NULL); make_pair(c_734406,&c_734407,&c_734410); make_pair(c_734405,quote_equal,&c_734406); make_pair(c_734423,quote_y,NULL); make_pair(c_734422,quote_x,&c_734423); make_pair(c_734421,quote_greaterp,&c_734422); make_pair(c_734427,quote_x,NULL); make_pair(c_734426,quote_y,&c_734427); make_pair(c_734425,quote_lessp,&c_734426); make_pair(c_734424,&c_734425,NULL); make_pair(c_734420,&c_734421,&c_734424); make_pair(c_734419,quote_equal,&c_734420); make_pair(c_734433,quote_y,NULL); make_pair(c_734432,quote_x,&c_734433); make_pair(c_734431,quote_lesseqp,&c_734432); make_pair(c_734439,quote_x,NULL); make_pair(c_734438,quote_y,&c_734439); make_pair(c_734437,quote_lessp,&c_734438); make_pair(c_734436,&c_734437,NULL); make_pair(c_734435,quote_not,&c_734436); make_pair(c_734434,&c_734435,NULL); make_pair(c_734430,&c_734431,&c_734434); make_pair(c_734429,quote_equal,&c_734430); make_pair(c_734445,quote_y,NULL); make_pair(c_734444,quote_x,&c_734445); make_pair(c_734443,quote_greatereqp,&c_734444); make_pair(c_734451,quote_y,NULL); make_pair(c_734450,quote_x,&c_734451); make_pair(c_734449,quote_lessp,&c_734450); make_pair(c_734448,&c_734449,NULL); make_pair(c_734447,quote_not,&c_734448); make_pair(c_734446,&c_734447,NULL); make_pair(c_734442,&c_734443,&c_734446); make_pair(c_734441,quote_equal,&c_734442); make_pair(c_734456,quote_x,NULL); make_pair(c_734455,quote_boolean,&c_734456); make_pair(c_734463,quote_t,NULL); make_pair(c_734462,&c_734463,NULL); make_pair(c_734461,quote_x,&c_734462); make_pair(c_734460,quote_equal,&c_734461); make_pair(c_734468,quote_f,NULL); make_pair(c_734467,&c_734468,NULL); make_pair(c_734466,quote_x,&c_734467); make_pair(c_734465,quote_equal,&c_734466); make_pair(c_734464,&c_734465,NULL); make_pair(c_734459,&c_734460,&c_734464); make_pair(c_734458,quote_or,&c_734459); make_pair(c_734457,&c_734458,NULL); make_pair(c_734454,&c_734455,&c_734457); make_pair(c_734453,quote_equal,&c_734454); make_pair(c_734474,quote_y,NULL); make_pair(c_734473,quote_x,&c_734474); make_pair(c_734472,quote_iff,&c_734473); make_pair(c_734480,quote_y,NULL); make_pair(c_734479,quote_x,&c_734480); make_pair(c_734478,quote_implies,&c_734479); make_pair(c_734484,quote_x,NULL); make_pair(c_734483,quote_y,&c_734484); make_pair(c_734482,quote_implies,&c_734483); make_pair(c_734481,&c_734482,NULL); make_pair(c_734477,&c_734478,&c_734481); make_pair(c_734476,quote_and,&c_734477); make_pair(c_734475,&c_734476,NULL); make_pair(c_734471,&c_734472,&c_734475); make_pair(c_734470,quote_equal,&c_734471); make_pair(c_734489,quote_x,NULL); make_pair(c_734488,quote_even1,&c_734489); make_pair(c_734494,quote_x,NULL); make_pair(c_734493,quote_zerop,&c_734494); make_pair(c_734496,quote_t,NULL); make_pair(c_734501,quote_x,NULL); make_pair(c_734500,quote__1911_91,&c_734501); make_pair(c_734499,&c_734500,NULL); make_pair(c_734498,quote_odd,&c_734499); make_pair(c_734497,&c_734498,NULL); make_pair(c_734495,&c_734496,&c_734497); make_pair(c_734492,&c_734493,&c_734495); make_pair(c_734491,quote__if,&c_734492); make_pair(c_734490,&c_734491,NULL); make_pair(c_734487,&c_734488,&c_734490); make_pair(c_734486,quote_equal,&c_734487); make_pair(c_734507,quote_pred,NULL); make_pair(c_734506,quote_l,&c_734507); make_pair(c_734505,quote_countps_91,&c_734506); make_pair(c_734513,quote_zero,NULL); make_pair(c_734512,&c_734513,NULL); make_pair(c_734511,quote_pred,&c_734512); make_pair(c_734510,quote_l,&c_734511); make_pair(c_734509,quote_countps_91loop,&c_734510); make_pair(c_734508,&c_734509,NULL); make_pair(c_734504,&c_734505,&c_734508); make_pair(c_734503,quote_equal,&c_734504); make_pair(c_734518,quote_i,NULL); make_pair(c_734517,quote_fact_91,&c_734518); make_pair(c_734522,obj_int2obj(1),NULL); make_pair(c_734521,quote_i,&c_734522); make_pair(c_734520,quote_fact_91loop,&c_734521); make_pair(c_734519,&c_734520,NULL); make_pair(c_734516,&c_734517,&c_734519); make_pair(c_734515,quote_equal,&c_734516); make_pair(c_734527,quote_x,NULL); make_pair(c_734526,quote_reverse_91,&c_734527); make_pair(c_734532,quote_nil,NULL); make_pair(c_734531,&c_734532,NULL); make_pair(c_734530,quote_x,&c_734531); make_pair(c_734529,quote_reverse_91loop,&c_734530); make_pair(c_734528,&c_734529,NULL); make_pair(c_734525,&c_734526,&c_734528); make_pair(c_734524,quote_equal,&c_734525); make_pair(c_734538,quote_y,NULL); make_pair(c_734537,quote_x,&c_734538); make_pair(c_734536,quote_divides,&c_734537); make_pair(c_734544,quote_x,NULL); make_pair(c_734543,quote_y,&c_734544); make_pair(c_734542,quote_remainder,&c_734543); make_pair(c_734541,&c_734542,NULL); make_pair(c_734540,quote_zerop,&c_734541); make_pair(c_734539,&c_734540,NULL); make_pair(c_734535,&c_734536,&c_734539); make_pair(c_734534,quote_equal,&c_734535); make_pair(c_734550,quote_alist,NULL); make_pair(c_734549,quote_var,&c_734550); make_pair(c_734548,quote_assume_91true,&c_734549); make_pair(c_734557,quote_t,NULL); make_pair(c_734556,&c_734557,NULL); make_pair(c_734555,quote_var,&c_734556); make_pair(c_734554,quote_cons,&c_734555); make_pair(c_734558,quote_alist,NULL); make_pair(c_734553,&c_734554,&c_734558); make_pair(c_734552,quote_cons,&c_734553); make_pair(c_734551,&c_734552,NULL); make_pair(c_734547,&c_734548,&c_734551); make_pair(c_734546,quote_equal,&c_734547); make_pair(c_734564,quote_alist,NULL); make_pair(c_734563,quote_var,&c_734564); make_pair(c_734562,quote_assume_91false,&c_734563); make_pair(c_734571,quote_f,NULL); make_pair(c_734570,&c_734571,NULL); make_pair(c_734569,quote_var,&c_734570); make_pair(c_734568,quote_cons,&c_734569); make_pair(c_734572,quote_alist,NULL); make_pair(c_734567,&c_734568,&c_734572); make_pair(c_734566,quote_cons,&c_734567); make_pair(c_734565,&c_734566,NULL); make_pair(c_734561,&c_734562,&c_734565); make_pair(c_734560,quote_equal,&c_734561); make_pair(c_734577,quote_x,NULL); make_pair(c_734576,quote_tautology_91checker,&c_734577); make_pair(c_734582,quote_x,NULL); make_pair(c_734581,quote_normalize,&c_734582); make_pair(c_734584,quote_nil,NULL); make_pair(c_734583,&c_734584,NULL); make_pair(c_734580,&c_734581,&c_734583); make_pair(c_734579,quote_tautologyp,&c_734580); make_pair(c_734578,&c_734579,NULL); make_pair(c_734575,&c_734576,&c_734578); make_pair(c_734574,quote_equal,&c_734575); make_pair(c_734589,quote_x,NULL); make_pair(c_734588,quote_falsify,&c_734589); make_pair(c_734594,quote_x,NULL); make_pair(c_734593,quote_normalize,&c_734594); make_pair(c_734596,quote_nil,NULL); make_pair(c_734595,&c_734596,NULL); make_pair(c_734592,&c_734593,&c_734595); make_pair(c_734591,quote_falsify1,&c_734592); make_pair(c_734590,&c_734591,NULL); make_pair(c_734587,&c_734588,&c_734590); make_pair(c_734586,quote_equal,&c_734587); make_pair(c_734601,quote_x,NULL); make_pair(c_734600,quote_prime,&c_734601); make_pair(c_734608,quote_x,NULL); make_pair(c_734607,quote_zerop,&c_734608); make_pair(c_734606,&c_734607,NULL); make_pair(c_734605,quote_not,&c_734606); make_pair(c_734617,quote_zero,NULL); make_pair(c_734616,&c_734617,NULL); make_pair(c_734615,quote_add1,&c_734616); make_pair(c_734614,&c_734615,NULL); make_pair(c_734613,quote_x,&c_734614); make_pair(c_734612,quote_equal,&c_734613); make_pair(c_734611,&c_734612,NULL); make_pair(c_734610,quote_not,&c_734611); make_pair(c_734623,quote_x,NULL); make_pair(c_734622,quote__1911_91,&c_734623); make_pair(c_734621,&c_734622,NULL); make_pair(c_734620,quote_x,&c_734621); make_pair(c_734619,quote_prime1,&c_734620); make_pair(c_734618,&c_734619,NULL); make_pair(c_734609,&c_734610,&c_734618); make_pair(c_734604,&c_734605,&c_734609); make_pair(c_734603,quote_and,&c_734604); make_pair(c_734602,&c_734603,NULL); make_pair(c_734599,&c_734600,&c_734602); make_pair(c_734598,quote_equal,&c_734599); make_pair(c_734629,quote_q,NULL); make_pair(c_734628,quote_p,&c_734629); make_pair(c_734627,quote_and,&c_734628); make_pair(c_734637,quote_t,NULL); make_pair(c_734639,quote_f,NULL); make_pair(c_734638,&c_734639,NULL); make_pair(c_734636,&c_734637,&c_734638); make_pair(c_734635,quote_q,&c_734636); make_pair(c_734634,quote__if,&c_734635); make_pair(c_734641,quote_f,NULL); make_pair(c_734640,&c_734641,NULL); make_pair(c_734633,&c_734634,&c_734640); make_pair(c_734632,quote_p,&c_734633); make_pair(c_734631,quote__if,&c_734632); make_pair(c_734630,&c_734631,NULL); make_pair(c_734626,&c_734627,&c_734630); make_pair(c_734625,quote_equal,&c_734626); make_pair(c_734647,quote_q,NULL); make_pair(c_734646,quote_p,&c_734647); make_pair(c_734645,quote_or,&c_734646); make_pair(c_734652,quote_t,NULL); make_pair(c_734657,quote_t,NULL); make_pair(c_734659,quote_f,NULL); make_pair(c_734658,&c_734659,NULL); make_pair(c_734656,&c_734657,&c_734658); make_pair(c_734655,quote_q,&c_734656); make_pair(c_734654,quote__if,&c_734655); make_pair(c_734653,&c_734654,NULL); make_pair(c_734651,&c_734652,&c_734653); make_pair(c_734650,quote_p,&c_734651); make_pair(c_734649,quote__if,&c_734650); make_pair(c_734648,&c_734649,NULL); make_pair(c_734644,&c_734645,&c_734648); make_pair(c_734643,quote_equal,&c_734644); make_pair(c_734664,quote_p,NULL); make_pair(c_734663,quote_not,&c_734664); make_pair(c_734669,quote_f,NULL); make_pair(c_734671,quote_t,NULL); make_pair(c_734670,&c_734671,NULL); make_pair(c_734668,&c_734669,&c_734670); make_pair(c_734667,quote_p,&c_734668); make_pair(c_734666,quote__if,&c_734667); make_pair(c_734665,&c_734666,NULL); make_pair(c_734662,&c_734663,&c_734665); make_pair(c_734661,quote_equal,&c_734662); make_pair(c_734677,quote_q,NULL); make_pair(c_734676,quote_p,&c_734677); make_pair(c_734675,quote_implies,&c_734676); make_pair(c_734685,quote_t,NULL); make_pair(c_734687,quote_f,NULL); make_pair(c_734686,&c_734687,NULL); make_pair(c_734684,&c_734685,&c_734686); make_pair(c_734683,quote_q,&c_734684); make_pair(c_734682,quote__if,&c_734683); make_pair(c_734689,quote_t,NULL); make_pair(c_734688,&c_734689,NULL); make_pair(c_734681,&c_734682,&c_734688); make_pair(c_734680,quote_p,&c_734681); make_pair(c_734679,quote__if,&c_734680); make_pair(c_734678,&c_734679,NULL); make_pair(c_734674,&c_734675,&c_734678); make_pair(c_734673,quote_equal,&c_734674); make_pair(c_734694,quote_x,NULL); make_pair(c_734693,quote_fix,&c_734694); make_pair(c_734699,quote_x,NULL); make_pair(c_734698,quote_numberp,&c_734699); make_pair(c_734702,quote_zero,NULL); make_pair(c_734701,&c_734702,NULL); make_pair(c_734700,quote_x,&c_734701); make_pair(c_734697,&c_734698,&c_734700); make_pair(c_734696,quote__if,&c_734697); make_pair(c_734695,&c_734696,NULL); make_pair(c_734692,&c_734693,&c_734695); make_pair(c_734691,quote_equal,&c_734692); make_pair(c_734711,quote_c,NULL); make_pair(c_734710,quote_b,&c_734711); make_pair(c_734709,quote_a,&c_734710); make_pair(c_734708,quote__if,&c_734709); make_pair(c_734713,quote_e,NULL); make_pair(c_734712,quote_d,&c_734713); make_pair(c_734707,&c_734708,&c_734712); make_pair(c_734706,quote__if,&c_734707); make_pair(c_734721,quote_e,NULL); make_pair(c_734720,quote_d,&c_734721); make_pair(c_734719,quote_b,&c_734720); make_pair(c_734718,quote__if,&c_734719); make_pair(c_734726,quote_e,NULL); make_pair(c_734725,quote_d,&c_734726); make_pair(c_734724,quote_c,&c_734725); make_pair(c_734723,quote__if,&c_734724); make_pair(c_734722,&c_734723,NULL); make_pair(c_734717,&c_734718,&c_734722); make_pair(c_734716,quote_a,&c_734717); make_pair(c_734715,quote__if,&c_734716); make_pair(c_734714,&c_734715,NULL); make_pair(c_734705,&c_734706,&c_734714); make_pair(c_734704,quote_equal,&c_734705); make_pair(c_734731,quote_x,NULL); make_pair(c_734730,quote_zerop,&c_734731); make_pair(c_734738,quote_zero,NULL); make_pair(c_734737,&c_734738,NULL); make_pair(c_734736,quote_x,&c_734737); make_pair(c_734735,quote_equal,&c_734736); make_pair(c_734743,quote_x,NULL); make_pair(c_734742,quote_numberp,&c_734743); make_pair(c_734741,&c_734742,NULL); make_pair(c_734740,quote_not,&c_734741); make_pair(c_734739,&c_734740,NULL); make_pair(c_734734,&c_734735,&c_734739); make_pair(c_734733,quote_or,&c_734734); make_pair(c_734732,&c_734733,NULL); make_pair(c_734729,&c_734730,&c_734732); make_pair(c_734728,quote_equal,&c_734729); make_pair(c_734751,quote_y,NULL); make_pair(c_734750,quote_x,&c_734751); make_pair(c_734749,quote_plus,&c_734750); make_pair(c_734752,quote_z,NULL); make_pair(c_734748,&c_734749,&c_734752); make_pair(c_734747,quote_plus,&c_734748); make_pair(c_734759,quote_z,NULL); make_pair(c_734758,quote_y,&c_734759); make_pair(c_734757,quote_plus,&c_734758); make_pair(c_734756,&c_734757,NULL); make_pair(c_734755,quote_x,&c_734756); make_pair(c_734754,quote_plus,&c_734755); make_pair(c_734753,&c_734754,NULL); make_pair(c_734746,&c_734747,&c_734753); make_pair(c_734745,quote_equal,&c_734746); make_pair(c_734767,quote_b,NULL); make_pair(c_734766,quote_a,&c_734767); make_pair(c_734765,quote_plus,&c_734766); make_pair(c_734769,quote_zero,NULL); make_pair(c_734768,&c_734769,NULL); make_pair(c_734764,&c_734765,&c_734768); make_pair(c_734763,quote_equal,&c_734764); make_pair(c_734774,quote_a,NULL); make_pair(c_734773,quote_zerop,&c_734774); make_pair(c_734777,quote_b,NULL); make_pair(c_734776,quote_zerop,&c_734777); make_pair(c_734775,&c_734776,NULL); make_pair(c_734772,&c_734773,&c_734775); make_pair(c_734771,quote_and,&c_734772); make_pair(c_734770,&c_734771,NULL); make_pair(c_734762,&c_734763,&c_734770); make_pair(c_734761,quote_equal,&c_734762); make_pair(c_734783,quote_x,NULL); make_pair(c_734782,quote_x,&c_734783); make_pair(c_734781,quote_difference,&c_734782); make_pair(c_734785,quote_zero,NULL); make_pair(c_734784,&c_734785,NULL); make_pair(c_734780,&c_734781,&c_734784); make_pair(c_734779,quote_equal,&c_734780); make_pair(c_734793,quote_b,NULL); make_pair(c_734792,quote_a,&c_734793); make_pair(c_734791,quote_plus,&c_734792); make_pair(c_734797,quote_c,NULL); make_pair(c_734796,quote_a,&c_734797); make_pair(c_734795,quote_plus,&c_734796); make_pair(c_734794,&c_734795,NULL); make_pair(c_734790,&c_734791,&c_734794); make_pair(c_734789,quote_equal,&c_734790); make_pair(c_734802,quote_b,NULL); make_pair(c_734801,quote_fix,&c_734802); make_pair(c_734805,quote_c,NULL); make_pair(c_734804,quote_fix,&c_734805); make_pair(c_734803,&c_734804,NULL); make_pair(c_734800,&c_734801,&c_734803); make_pair(c_734799,quote_equal,&c_734800); make_pair(c_734798,&c_734799,NULL); make_pair(c_734788,&c_734789,&c_734798); make_pair(c_734787,quote_equal,&c_734788); make_pair(c_734811,quote_zero,NULL); make_pair(c_734815,quote_y,NULL); make_pair(c_734814,quote_x,&c_734815); make_pair(c_734813,quote_difference,&c_734814); make_pair(c_734812,&c_734813,NULL); make_pair(c_734810,&c_734811,&c_734812); make_pair(c_734809,quote_equal,&c_734810); make_pair(c_734821,quote_x,NULL); make_pair(c_734820,quote_y,&c_734821); make_pair(c_734819,quote_lessp,&c_734820); make_pair(c_734818,&c_734819,NULL); make_pair(c_734817,quote_not,&c_734818); make_pair(c_734816,&c_734817,NULL); make_pair(c_734808,&c_734809,&c_734816); make_pair(c_734807,quote_equal,&c_734808); make_pair(c_734830,quote_y,NULL); make_pair(c_734829,quote_x,&c_734830); make_pair(c_734828,quote_difference,&c_734829); make_pair(c_734827,&c_734828,NULL); make_pair(c_734826,quote_x,&c_734827); make_pair(c_734825,quote_equal,&c_734826); make_pair(c_734835,quote_x,NULL); make_pair(c_734834,quote_numberp,&c_734835); make_pair(c_734842,quote_zero,NULL); make_pair(c_734841,&c_734842,NULL); make_pair(c_734840,quote_x,&c_734841); make_pair(c_734839,quote_equal,&c_734840); make_pair(c_734845,quote_y,NULL); make_pair(c_734844,quote_zerop,&c_734845); make_pair(c_734843,&c_734844,NULL); make_pair(c_734838,&c_734839,&c_734843); make_pair(c_734837,quote_or,&c_734838); make_pair(c_734836,&c_734837,NULL); make_pair(c_734833,&c_734834,&c_734836); make_pair(c_734832,quote_and,&c_734833); make_pair(c_734831,&c_734832,NULL); make_pair(c_734824,&c_734825,&c_734831); make_pair(c_734823,quote_equal,&c_734824); make_pair(c_734855,quote_y,NULL); make_pair(c_734854,quote_x,&c_734855); make_pair(c_734853,quote_append,&c_734854); make_pair(c_734852,&c_734853,NULL); make_pair(c_734851,quote_plus_91tree,&c_734852); make_pair(c_734856,quote_a,NULL); make_pair(c_734850,&c_734851,&c_734856); make_pair(c_734849,quote_meaning,&c_734850); make_pair(c_734863,quote_x,NULL); make_pair(c_734862,quote_plus_91tree,&c_734863); make_pair(c_734864,quote_a,NULL); make_pair(c_734861,&c_734862,&c_734864); make_pair(c_734860,quote_meaning,&c_734861); make_pair(c_734869,quote_y,NULL); make_pair(c_734868,quote_plus_91tree,&c_734869); make_pair(c_734870,quote_a,NULL); make_pair(c_734867,&c_734868,&c_734870); make_pair(c_734866,quote_meaning,&c_734867); make_pair(c_734865,&c_734866,NULL); make_pair(c_734859,&c_734860,&c_734865); make_pair(c_734858,quote_plus,&c_734859); make_pair(c_734857,&c_734858,NULL); make_pair(c_734848,&c_734849,&c_734857); make_pair(c_734847,quote_equal,&c_734848); make_pair(c_734879,quote_x,NULL); make_pair(c_734878,quote_plus_91fringe,&c_734879); make_pair(c_734877,&c_734878,NULL); make_pair(c_734876,quote_plus_91tree,&c_734877); make_pair(c_734880,quote_a,NULL); make_pair(c_734875,&c_734876,&c_734880); make_pair(c_734874,quote_meaning,&c_734875); make_pair(c_734886,quote_a,NULL); make_pair(c_734885,quote_x,&c_734886); make_pair(c_734884,quote_meaning,&c_734885); make_pair(c_734883,&c_734884,NULL); make_pair(c_734882,quote_fix,&c_734883); make_pair(c_734881,&c_734882,NULL); make_pair(c_734873,&c_734874,&c_734881); make_pair(c_734872,quote_equal,&c_734873); make_pair(c_734894,quote_y,NULL); make_pair(c_734893,quote_x,&c_734894); make_pair(c_734892,quote_append,&c_734893); make_pair(c_734895,quote_z,NULL); make_pair(c_734891,&c_734892,&c_734895); make_pair(c_734890,quote_append,&c_734891); make_pair(c_734902,quote_z,NULL); make_pair(c_734901,quote_y,&c_734902); make_pair(c_734900,quote_append,&c_734901); make_pair(c_734899,&c_734900,NULL); make_pair(c_734898,quote_x,&c_734899); make_pair(c_734897,quote_append,&c_734898); make_pair(c_734896,&c_734897,NULL); make_pair(c_734889,&c_734890,&c_734896); make_pair(c_734888,quote_equal,&c_734889); make_pair(c_734910,quote_b,NULL); make_pair(c_734909,quote_a,&c_734910); make_pair(c_734908,quote_append,&c_734909); make_pair(c_734907,&c_734908,NULL); make_pair(c_734906,quote_reverse,&c_734907); make_pair(c_734915,quote_b,NULL); make_pair(c_734914,quote_reverse,&c_734915); make_pair(c_734918,quote_a,NULL); make_pair(c_734917,quote_reverse,&c_734918); make_pair(c_734916,&c_734917,NULL); make_pair(c_734913,&c_734914,&c_734916); make_pair(c_734912,quote_append,&c_734913); make_pair(c_734911,&c_734912,NULL); make_pair(c_734905,&c_734906,&c_734911); make_pair(c_734904,quote_equal,&c_734905); make_pair(c_734927,quote_z,NULL); make_pair(c_734926,quote_y,&c_734927); make_pair(c_734925,quote_plus,&c_734926); make_pair(c_734924,&c_734925,NULL); make_pair(c_734923,quote_x,&c_734924); make_pair(c_734922,quote_times,&c_734923); make_pair(c_734933,quote_y,NULL); make_pair(c_734932,quote_x,&c_734933); make_pair(c_734931,quote_times,&c_734932); make_pair(c_734937,quote_z,NULL); make_pair(c_734936,quote_x,&c_734937); make_pair(c_734935,quote_times,&c_734936); make_pair(c_734934,&c_734935,NULL); make_pair(c_734930,&c_734931,&c_734934); make_pair(c_734929,quote_plus,&c_734930); make_pair(c_734928,&c_734929,NULL); make_pair(c_734921,&c_734922,&c_734928); make_pair(c_734920,quote_equal,&c_734921); make_pair(c_734945,quote_y,NULL); make_pair(c_734944,quote_x,&c_734945); make_pair(c_734943,quote_times,&c_734944); make_pair(c_734946,quote_z,NULL); make_pair(c_734942,&c_734943,&c_734946); make_pair(c_734941,quote_times,&c_734942); make_pair(c_734953,quote_z,NULL); make_pair(c_734952,quote_y,&c_734953); make_pair(c_734951,quote_times,&c_734952); make_pair(c_734950,&c_734951,NULL); make_pair(c_734949,quote_x,&c_734950); make_pair(c_734948,quote_times,&c_734949); make_pair(c_734947,&c_734948,NULL); make_pair(c_734940,&c_734941,&c_734947); make_pair(c_734939,quote_equal,&c_734940); make_pair(c_734961,quote_y,NULL); make_pair(c_734960,quote_x,&c_734961); make_pair(c_734959,quote_times,&c_734960); make_pair(c_734963,quote_zero,NULL); make_pair(c_734962,&c_734963,NULL); make_pair(c_734958,&c_734959,&c_734962); make_pair(c_734957,quote_equal,&c_734958); make_pair(c_734968,quote_x,NULL); make_pair(c_734967,quote_zerop,&c_734968); make_pair(c_734971,quote_y,NULL); make_pair(c_734970,quote_zerop,&c_734971); make_pair(c_734969,&c_734970,NULL); make_pair(c_734966,&c_734967,&c_734969); make_pair(c_734965,quote_or,&c_734966); make_pair(c_734964,&c_734965,NULL); make_pair(c_734956,&c_734957,&c_734964); make_pair(c_734955,quote_equal,&c_734956); make_pair(c_734979,quote_y,NULL); make_pair(c_734978,quote_x,&c_734979); make_pair(c_734977,quote_append,&c_734978); make_pair(c_734981,quote_envrn,NULL); make_pair(c_734980,quote_pds,&c_734981); make_pair(c_734976,&c_734977,&c_734980); make_pair(c_734975,quote_exec,&c_734976); make_pair(c_734989,quote_envrn,NULL); make_pair(c_734988,quote_pds,&c_734989); make_pair(c_734987,quote_x,&c_734988); make_pair(c_734986,quote_exec,&c_734987); make_pair(c_734990,quote_envrn,NULL); make_pair(c_734985,&c_734986,&c_734990); make_pair(c_734984,quote_y,&c_734985); make_pair(c_734983,quote_exec,&c_734984); make_pair(c_734982,&c_734983,NULL); make_pair(c_734974,&c_734975,&c_734982); make_pair(c_734973,quote_equal,&c_734974); make_pair(c_734996,quote_y,NULL); make_pair(c_734995,quote_x,&c_734996); make_pair(c_734994,quote_mc_91flatten,&c_734995); make_pair(c_735001,quote_x,NULL); make_pair(c_735000,quote_flatten,&c_735001); make_pair(c_735002,quote_y,NULL); make_pair(c_734999,&c_735000,&c_735002); make_pair(c_734998,quote_append,&c_734999); make_pair(c_734997,&c_734998,NULL); make_pair(c_734993,&c_734994,&c_734997); make_pair(c_734992,quote_equal,&c_734993); make_pair(c_735011,quote_b,NULL); make_pair(c_735010,quote_a,&c_735011); make_pair(c_735009,quote_append,&c_735010); make_pair(c_735008,&c_735009,NULL); make_pair(c_735007,quote_x,&c_735008); make_pair(c_735006,quote_member,&c_735007); make_pair(c_735017,quote_a,NULL); make_pair(c_735016,quote_x,&c_735017); make_pair(c_735015,quote_member,&c_735016); make_pair(c_735021,quote_b,NULL); make_pair(c_735020,quote_x,&c_735021); make_pair(c_735019,quote_member,&c_735020); make_pair(c_735018,&c_735019,NULL); make_pair(c_735014,&c_735015,&c_735018); make_pair(c_735013,quote_or,&c_735014); make_pair(c_735012,&c_735013,NULL); make_pair(c_735005,&c_735006,&c_735012); make_pair(c_735004,quote_equal,&c_735005); make_pair(c_735029,quote_y,NULL); make_pair(c_735028,quote_reverse,&c_735029); make_pair(c_735027,&c_735028,NULL); make_pair(c_735026,quote_x,&c_735027); make_pair(c_735025,quote_member,&c_735026); make_pair(c_735033,quote_y,NULL); make_pair(c_735032,quote_x,&c_735033); make_pair(c_735031,quote_member,&c_735032); make_pair(c_735030,&c_735031,NULL); make_pair(c_735024,&c_735025,&c_735030); make_pair(c_735023,quote_equal,&c_735024); make_pair(c_735040,quote_x,NULL); make_pair(c_735039,quote_reverse,&c_735040); make_pair(c_735038,&c_735039,NULL); make_pair(c_735037,quote_length,&c_735038); make_pair(c_735043,quote_x,NULL); make_pair(c_735042,quote_length,&c_735043); make_pair(c_735041,&c_735042,NULL); make_pair(c_735036,&c_735037,&c_735041); make_pair(c_735035,quote_equal,&c_735036); make_pair(c_735052,quote_c,NULL); make_pair(c_735051,quote_b,&c_735052); make_pair(c_735050,quote_intersect,&c_735051); make_pair(c_735049,&c_735050,NULL); make_pair(c_735048,quote_a,&c_735049); make_pair(c_735047,quote_member,&c_735048); make_pair(c_735058,quote_b,NULL); make_pair(c_735057,quote_a,&c_735058); make_pair(c_735056,quote_member,&c_735057); make_pair(c_735062,quote_c,NULL); make_pair(c_735061,quote_a,&c_735062); make_pair(c_735060,quote_member,&c_735061); make_pair(c_735059,&c_735060,NULL); make_pair(c_735055,&c_735056,&c_735059); make_pair(c_735054,quote_and,&c_735055); make_pair(c_735053,&c_735054,NULL); make_pair(c_735046,&c_735047,&c_735053); make_pair(c_735045,quote_equal,&c_735046); make_pair(c_735068,quote_zero,NULL); make_pair(c_735069,quote_i,NULL); make_pair(c_735067,&c_735068,&c_735069); make_pair(c_735066,quote_nth,&c_735067); make_pair(c_735071,quote_zero,NULL); make_pair(c_735070,&c_735071,NULL); make_pair(c_735065,&c_735066,&c_735070); make_pair(c_735064,quote_equal,&c_735065); make_pair(c_735080,quote_k,NULL); make_pair(c_735079,quote_j,&c_735080); make_pair(c_735078,quote_plus,&c_735079); make_pair(c_735077,&c_735078,NULL); make_pair(c_735076,quote_i,&c_735077); make_pair(c_735075,quote_exp,&c_735076); make_pair(c_735086,quote_j,NULL); make_pair(c_735085,quote_i,&c_735086); make_pair(c_735084,quote_exp,&c_735085); make_pair(c_735090,quote_k,NULL); make_pair(c_735089,quote_i,&c_735090); make_pair(c_735088,quote_exp,&c_735089); make_pair(c_735087,&c_735088,NULL); make_pair(c_735083,&c_735084,&c_735087); make_pair(c_735082,quote_times,&c_735083); make_pair(c_735081,&c_735082,NULL); make_pair(c_735074,&c_735075,&c_735081); make_pair(c_735073,quote_equal,&c_735074); make_pair(c_735099,quote_k,NULL); make_pair(c_735098,quote_j,&c_735099); make_pair(c_735097,quote_times,&c_735098); make_pair(c_735096,&c_735097,NULL); make_pair(c_735095,quote_i,&c_735096); make_pair(c_735094,quote_exp,&c_735095); make_pair(c_735105,quote_j,NULL); make_pair(c_735104,quote_i,&c_735105); make_pair(c_735103,quote_exp,&c_735104); make_pair(c_735106,quote_k,NULL); make_pair(c_735102,&c_735103,&c_735106); make_pair(c_735101,quote_exp,&c_735102); make_pair(c_735100,&c_735101,NULL); make_pair(c_735093,&c_735094,&c_735100); make_pair(c_735092,quote_equal,&c_735093); make_pair(c_735112,quote_y,NULL); make_pair(c_735111,quote_x,&c_735112); make_pair(c_735110,quote_reverse_91loop,&c_735111); make_pair(c_735117,quote_x,NULL); make_pair(c_735116,quote_reverse,&c_735117); make_pair(c_735118,quote_y,NULL); make_pair(c_735115,&c_735116,&c_735118); make_pair(c_735114,quote_append,&c_735115); make_pair(c_735113,&c_735114,NULL); make_pair(c_735109,&c_735110,&c_735113); make_pair(c_735108,quote_equal,&c_735109); make_pair(c_735125,quote_nil,NULL); make_pair(c_735124,&c_735125,NULL); make_pair(c_735123,quote_x,&c_735124); make_pair(c_735122,quote_reverse_91loop,&c_735123); make_pair(c_735128,quote_x,NULL); make_pair(c_735127,quote_reverse,&c_735128); make_pair(c_735126,&c_735127,NULL); make_pair(c_735121,&c_735122,&c_735126); make_pair(c_735120,quote_equal,&c_735121); make_pair(c_735137,quote_y,NULL); make_pair(c_735136,quote_x,&c_735137); make_pair(c_735135,quote_sort_91lp,&c_735136); make_pair(c_735134,&c_735135,NULL); make_pair(c_735133,quote_z,&c_735134); make_pair(c_735132,quote_count_91list,&c_735133); make_pair(c_735143,quote_x,NULL); make_pair(c_735142,quote_z,&c_735143); make_pair(c_735141,quote_count_91list,&c_735142); make_pair(c_735147,quote_y,NULL); make_pair(c_735146,quote_z,&c_735147); make_pair(c_735145,quote_count_91list,&c_735146); make_pair(c_735144,&c_735145,NULL); make_pair(c_735140,&c_735141,&c_735144); make_pair(c_735139,quote_plus,&c_735140); make_pair(c_735138,&c_735139,NULL); make_pair(c_735131,&c_735132,&c_735138); make_pair(c_735130,quote_equal,&c_735131); make_pair(c_735155,quote_b,NULL); make_pair(c_735154,quote_a,&c_735155); make_pair(c_735153,quote_append,&c_735154); make_pair(c_735159,quote_c,NULL); make_pair(c_735158,quote_a,&c_735159); make_pair(c_735157,quote_append,&c_735158); make_pair(c_735156,&c_735157,NULL); make_pair(c_735152,&c_735153,&c_735156); make_pair(c_735151,quote_equal,&c_735152); make_pair(c_735163,quote_c,NULL); make_pair(c_735162,quote_b,&c_735163); make_pair(c_735161,quote_equal,&c_735162); make_pair(c_735160,&c_735161,NULL); make_pair(c_735150,&c_735151,&c_735160); make_pair(c_735149,quote_equal,&c_735150); make_pair(c_735171,quote_y,NULL); make_pair(c_735170,quote_x,&c_735171); make_pair(c_735169,quote_remainder,&c_735170); make_pair(c_735178,quote_y,NULL); make_pair(c_735177,quote_x,&c_735178); make_pair(c_735176,quote_quotient,&c_735177); make_pair(c_735175,&c_735176,NULL); make_pair(c_735174,quote_y,&c_735175); make_pair(c_735173,quote_times,&c_735174); make_pair(c_735172,&c_735173,NULL); make_pair(c_735168,&c_735169,&c_735172); make_pair(c_735167,quote_plus,&c_735168); make_pair(c_735181,quote_x,NULL); make_pair(c_735180,quote_fix,&c_735181); make_pair(c_735179,&c_735180,NULL); make_pair(c_735166,&c_735167,&c_735179); make_pair(c_735165,quote_equal,&c_735166); make_pair(c_735190,quote_base,NULL); make_pair(c_735189,quote_i,&c_735190); make_pair(c_735188,quote_l,&c_735189); make_pair(c_735187,quote_big_91plus1,&c_735188); make_pair(c_735191,quote_base,NULL); make_pair(c_735186,&c_735187,&c_735191); make_pair(c_735185,quote_power_91eval,&c_735186); make_pair(c_735197,quote_base,NULL); make_pair(c_735196,quote_l,&c_735197); make_pair(c_735195,quote_power_91eval,&c_735196); make_pair(c_735198,quote_i,NULL); make_pair(c_735194,&c_735195,&c_735198); make_pair(c_735193,quote_plus,&c_735194); make_pair(c_735192,&c_735193,NULL); make_pair(c_735184,&c_735185,&c_735192); make_pair(c_735183,quote_equal,&c_735184); make_pair(c_735208,quote_base,NULL); make_pair(c_735207,quote_i,&c_735208); make_pair(c_735206,quote_y,&c_735207); make_pair(c_735205,quote_x,&c_735206); make_pair(c_735204,quote_big_91plus,&c_735205); make_pair(c_735209,quote_base,NULL); make_pair(c_735203,&c_735204,&c_735209); make_pair(c_735202,quote_power_91eval,&c_735203); make_pair(c_735218,quote_base,NULL); make_pair(c_735217,quote_x,&c_735218); make_pair(c_735216,quote_power_91eval,&c_735217); make_pair(c_735222,quote_base,NULL); make_pair(c_735221,quote_y,&c_735222); make_pair(c_735220,quote_power_91eval,&c_735221); make_pair(c_735219,&c_735220,NULL); make_pair(c_735215,&c_735216,&c_735219); make_pair(c_735214,quote_plus,&c_735215); make_pair(c_735213,&c_735214,NULL); make_pair(c_735212,quote_i,&c_735213); make_pair(c_735211,quote_plus,&c_735212); make_pair(c_735210,&c_735211,NULL); make_pair(c_735201,&c_735202,&c_735210); make_pair(c_735200,quote_equal,&c_735201); make_pair(c_735228,obj_int2obj(1),NULL); make_pair(c_735227,quote_y,&c_735228); make_pair(c_735226,quote_remainder,&c_735227); make_pair(c_735230,quote_zero,NULL); make_pair(c_735229,&c_735230,NULL); make_pair(c_735225,&c_735226,&c_735229); make_pair(c_735224,quote_equal,&c_735225); make_pair(c_735238,quote_y,NULL); make_pair(c_735237,quote_x,&c_735238); make_pair(c_735236,quote_remainder,&c_735237); make_pair(c_735239,quote_y,NULL); make_pair(c_735235,&c_735236,&c_735239); make_pair(c_735234,quote_lessp,&c_735235); make_pair(c_735244,quote_y,NULL); make_pair(c_735243,quote_zerop,&c_735244); make_pair(c_735242,&c_735243,NULL); make_pair(c_735241,quote_not,&c_735242); make_pair(c_735240,&c_735241,NULL); make_pair(c_735233,&c_735234,&c_735240); make_pair(c_735232,quote_equal,&c_735233); make_pair(c_735250,quote_x,NULL); make_pair(c_735249,quote_x,&c_735250); make_pair(c_735248,quote_remainder,&c_735249); make_pair(c_735252,quote_zero,NULL); make_pair(c_735251,&c_735252,NULL); make_pair(c_735247,&c_735248,&c_735251); make_pair(c_735246,quote_equal,&c_735247); make_pair(c_735260,quote_j,NULL); make_pair(c_735259,quote_i,&c_735260); make_pair(c_735258,quote_quotient,&c_735259); make_pair(c_735261,quote_i,NULL); make_pair(c_735257,&c_735258,&c_735261); make_pair(c_735256,quote_lessp,&c_735257); make_pair(c_735268,quote_i,NULL); make_pair(c_735267,quote_zerop,&c_735268); make_pair(c_735266,&c_735267,NULL); make_pair(c_735265,quote_not,&c_735266); make_pair(c_735273,quote_j,NULL); make_pair(c_735272,quote_zerop,&c_735273); make_pair(c_735279,obj_int2obj(1),NULL); make_pair(c_735278,quote_j,&c_735279); make_pair(c_735277,quote_equal,&c_735278); make_pair(c_735276,&c_735277,NULL); make_pair(c_735275,quote_not,&c_735276); make_pair(c_735274,&c_735275,NULL); make_pair(c_735271,&c_735272,&c_735274); make_pair(c_735270,quote_or,&c_735271); make_pair(c_735269,&c_735270,NULL); make_pair(c_735264,&c_735265,&c_735269); make_pair(c_735263,quote_and,&c_735264); make_pair(c_735262,&c_735263,NULL); make_pair(c_735255,&c_735256,&c_735262); make_pair(c_735254,quote_equal,&c_735255); make_pair(c_735287,quote_y,NULL); make_pair(c_735286,quote_x,&c_735287); make_pair(c_735285,quote_remainder,&c_735286); make_pair(c_735288,quote_x,NULL); make_pair(c_735284,&c_735285,&c_735288); make_pair(c_735283,quote_lessp,&c_735284); make_pair(c_735295,quote_y,NULL); make_pair(c_735294,quote_zerop,&c_735295); make_pair(c_735293,&c_735294,NULL); make_pair(c_735292,quote_not,&c_735293); make_pair(c_735300,quote_x,NULL); make_pair(c_735299,quote_zerop,&c_735300); make_pair(c_735298,&c_735299,NULL); make_pair(c_735297,quote_not,&c_735298); make_pair(c_735306,quote_y,NULL); make_pair(c_735305,quote_x,&c_735306); make_pair(c_735304,quote_lessp,&c_735305); make_pair(c_735303,&c_735304,NULL); make_pair(c_735302,quote_not,&c_735303); make_pair(c_735301,&c_735302,NULL); make_pair(c_735296,&c_735297,&c_735301); make_pair(c_735291,&c_735292,&c_735296); make_pair(c_735290,quote_and,&c_735291); make_pair(c_735289,&c_735290,NULL); make_pair(c_735282,&c_735283,&c_735289); make_pair(c_735281,quote_equal,&c_735282); make_pair(c_735314,quote_base,NULL); make_pair(c_735313,quote_i,&c_735314); make_pair(c_735312,quote_power_91rep,&c_735313); make_pair(c_735315,quote_base,NULL); make_pair(c_735311,&c_735312,&c_735315); make_pair(c_735310,quote_power_91eval,&c_735311); make_pair(c_735318,quote_i,NULL); make_pair(c_735317,quote_fix,&c_735318); make_pair(c_735316,&c_735317,NULL); make_pair(c_735309,&c_735310,&c_735316); make_pair(c_735308,quote_equal,&c_735309); make_pair(c_735328,quote_base,NULL); make_pair(c_735327,quote_i,&c_735328); make_pair(c_735326,quote_power_91rep,&c_735327); make_pair(c_735332,quote_base,NULL); make_pair(c_735331,quote_j,&c_735332); make_pair(c_735330,quote_power_91rep,&c_735331); make_pair(c_735334,quote_zero,NULL); make_pair(c_735335,quote_base,NULL); make_pair(c_735333,&c_735334,&c_735335); make_pair(c_735329,&c_735330,&c_735333); make_pair(c_735325,&c_735326,&c_735329); make_pair(c_735324,quote_big_91plus,&c_735325); make_pair(c_735336,quote_base,NULL); make_pair(c_735323,&c_735324,&c_735336); make_pair(c_735322,quote_power_91eval,&c_735323); make_pair(c_735340,quote_j,NULL); make_pair(c_735339,quote_i,&c_735340); make_pair(c_735338,quote_plus,&c_735339); make_pair(c_735337,&c_735338,NULL); make_pair(c_735321,&c_735322,&c_735337); make_pair(c_735320,quote_equal,&c_735321); make_pair(c_735346,quote_y,NULL); make_pair(c_735345,quote_x,&c_735346); make_pair(c_735344,quote_gcd,&c_735345); make_pair(c_735350,quote_x,NULL); make_pair(c_735349,quote_y,&c_735350); make_pair(c_735348,quote_gcd,&c_735349); make_pair(c_735347,&c_735348,NULL); make_pair(c_735343,&c_735344,&c_735347); make_pair(c_735342,quote_equal,&c_735343); make_pair(c_735358,quote_b,NULL); make_pair(c_735357,quote_a,&c_735358); make_pair(c_735356,quote_append,&c_735357); make_pair(c_735359,quote_i,NULL); make_pair(c_735355,&c_735356,&c_735359); make_pair(c_735354,quote_nth,&c_735355); make_pair(c_735365,quote_i,NULL); make_pair(c_735364,quote_a,&c_735365); make_pair(c_735363,quote_nth,&c_735364); make_pair(c_735374,quote_a,NULL); make_pair(c_735373,quote_length,&c_735374); make_pair(c_735372,&c_735373,NULL); make_pair(c_735371,quote_i,&c_735372); make_pair(c_735370,quote_difference,&c_735371); make_pair(c_735369,&c_735370,NULL); make_pair(c_735368,quote_b,&c_735369); make_pair(c_735367,quote_nth,&c_735368); make_pair(c_735366,&c_735367,NULL); make_pair(c_735362,&c_735363,&c_735366); make_pair(c_735361,quote_append,&c_735362); make_pair(c_735360,&c_735361,NULL); make_pair(c_735353,&c_735354,&c_735360); make_pair(c_735352,quote_equal,&c_735353); make_pair(c_735382,quote_y,NULL); make_pair(c_735381,quote_x,&c_735382); make_pair(c_735380,quote_plus,&c_735381); make_pair(c_735383,quote_x,NULL); make_pair(c_735379,&c_735380,&c_735383); make_pair(c_735378,quote_difference,&c_735379); make_pair(c_735386,quote_y,NULL); make_pair(c_735385,quote_fix,&c_735386); make_pair(c_735384,&c_735385,NULL); make_pair(c_735377,&c_735378,&c_735384); make_pair(c_735376,quote_equal,&c_735377); make_pair(c_735394,quote_x,NULL); make_pair(c_735393,quote_y,&c_735394); make_pair(c_735392,quote_plus,&c_735393); make_pair(c_735395,quote_x,NULL); make_pair(c_735391,&c_735392,&c_735395); make_pair(c_735390,quote_difference,&c_735391); make_pair(c_735398,quote_y,NULL); make_pair(c_735397,quote_fix,&c_735398); make_pair(c_735396,&c_735397,NULL); make_pair(c_735389,&c_735390,&c_735396); make_pair(c_735388,quote_equal,&c_735389); make_pair(c_735406,quote_y,NULL); make_pair(c_735405,quote_x,&c_735406); make_pair(c_735404,quote_plus,&c_735405); make_pair(c_735410,quote_z,NULL); make_pair(c_735409,quote_x,&c_735410); make_pair(c_735408,quote_plus,&c_735409); make_pair(c_735407,&c_735408,NULL); make_pair(c_735403,&c_735404,&c_735407); make_pair(c_735402,quote_difference,&c_735403); make_pair(c_735414,quote_z,NULL); make_pair(c_735413,quote_y,&c_735414); make_pair(c_735412,quote_difference,&c_735413); make_pair(c_735411,&c_735412,NULL); make_pair(c_735401,&c_735402,&c_735411); make_pair(c_735400,quote_equal,&c_735401); make_pair(c_735423,quote_w,NULL); make_pair(c_735422,quote_c,&c_735423); make_pair(c_735421,quote_difference,&c_735422); make_pair(c_735420,&c_735421,NULL); make_pair(c_735419,quote_x,&c_735420); make_pair(c_735418,quote_times,&c_735419); make_pair(c_735429,quote_x,NULL); make_pair(c_735428,quote_c,&c_735429); make_pair(c_735427,quote_times,&c_735428); make_pair(c_735433,quote_x,NULL); make_pair(c_735432,quote_w,&c_735433); make_pair(c_735431,quote_times,&c_735432); make_pair(c_735430,&c_735431,NULL); make_pair(c_735426,&c_735427,&c_735430); make_pair(c_735425,quote_difference,&c_735426); make_pair(c_735424,&c_735425,NULL); make_pair(c_735417,&c_735418,&c_735424); make_pair(c_735416,quote_equal,&c_735417); make_pair(c_735441,quote_z,NULL); make_pair(c_735440,quote_x,&c_735441); make_pair(c_735439,quote_times,&c_735440); make_pair(c_735442,quote_z,NULL); make_pair(c_735438,&c_735439,&c_735442); make_pair(c_735437,quote_remainder,&c_735438); make_pair(c_735444,quote_zero,NULL); make_pair(c_735443,&c_735444,NULL); make_pair(c_735436,&c_735437,&c_735443); make_pair(c_735435,quote_equal,&c_735436); make_pair(c_735455,quote_c,NULL); make_pair(c_735454,quote_a,&c_735455); make_pair(c_735453,quote_plus,&c_735454); make_pair(c_735452,&c_735453,NULL); make_pair(c_735451,quote_b,&c_735452); make_pair(c_735450,quote_plus,&c_735451); make_pair(c_735456,quote_a,NULL); make_pair(c_735449,&c_735450,&c_735456); make_pair(c_735448,quote_difference,&c_735449); make_pair(c_735460,quote_c,NULL); make_pair(c_735459,quote_b,&c_735460); make_pair(c_735458,quote_plus,&c_735459); make_pair(c_735457,&c_735458,NULL); make_pair(c_735447,&c_735448,&c_735457); make_pair(c_735446,quote_equal,&c_735447); make_pair(c_735470,quote_z,NULL); make_pair(c_735469,quote_y,&c_735470); make_pair(c_735468,quote_plus,&c_735469); make_pair(c_735467,&c_735468,NULL); make_pair(c_735466,quote_add1,&c_735467); make_pair(c_735471,quote_z,NULL); make_pair(c_735465,&c_735466,&c_735471); make_pair(c_735464,quote_difference,&c_735465); make_pair(c_735474,quote_y,NULL); make_pair(c_735473,quote_add1,&c_735474); make_pair(c_735472,&c_735473,NULL); make_pair(c_735463,&c_735464,&c_735472); make_pair(c_735462,quote_equal,&c_735463); make_pair(c_735482,quote_y,NULL); make_pair(c_735481,quote_x,&c_735482); make_pair(c_735480,quote_plus,&c_735481); make_pair(c_735486,quote_z,NULL); make_pair(c_735485,quote_x,&c_735486); make_pair(c_735484,quote_plus,&c_735485); make_pair(c_735483,&c_735484,NULL); make_pair(c_735479,&c_735480,&c_735483); make_pair(c_735478,quote_lessp,&c_735479); make_pair(c_735490,quote_z,NULL); make_pair(c_735489,quote_y,&c_735490); make_pair(c_735488,quote_lessp,&c_735489); make_pair(c_735487,&c_735488,NULL); make_pair(c_735477,&c_735478,&c_735487); make_pair(c_735476,quote_equal,&c_735477); make_pair(c_735498,quote_z,NULL); make_pair(c_735497,quote_x,&c_735498); make_pair(c_735496,quote_times,&c_735497); make_pair(c_735502,quote_z,NULL); make_pair(c_735501,quote_y,&c_735502); make_pair(c_735500,quote_times,&c_735501); make_pair(c_735499,&c_735500,NULL); make_pair(c_735495,&c_735496,&c_735499); make_pair(c_735494,quote_lessp,&c_735495); make_pair(c_735509,quote_z,NULL); make_pair(c_735508,quote_zerop,&c_735509); make_pair(c_735507,&c_735508,NULL); make_pair(c_735506,quote_not,&c_735507); make_pair(c_735513,quote_y,NULL); make_pair(c_735512,quote_x,&c_735513); make_pair(c_735511,quote_lessp,&c_735512); make_pair(c_735510,&c_735511,NULL); make_pair(c_735505,&c_735506,&c_735510); make_pair(c_735504,quote_and,&c_735505); make_pair(c_735503,&c_735504,NULL); make_pair(c_735493,&c_735494,&c_735503); make_pair(c_735492,quote_equal,&c_735493); make_pair(c_735522,quote_y,NULL); make_pair(c_735521,quote_x,&c_735522); make_pair(c_735520,quote_plus,&c_735521); make_pair(c_735519,&c_735520,NULL); make_pair(c_735518,quote_y,&c_735519); make_pair(c_735517,quote_lessp,&c_735518); make_pair(c_735527,quote_x,NULL); make_pair(c_735526,quote_zerop,&c_735527); make_pair(c_735525,&c_735526,NULL); make_pair(c_735524,quote_not,&c_735525); make_pair(c_735523,&c_735524,NULL); make_pair(c_735516,&c_735517,&c_735523); make_pair(c_735515,quote_equal,&c_735516); make_pair(c_735535,quote_z,NULL); make_pair(c_735534,quote_x,&c_735535); make_pair(c_735533,quote_times,&c_735534); make_pair(c_735539,quote_z,NULL); make_pair(c_735538,quote_y,&c_735539); make_pair(c_735537,quote_times,&c_735538); make_pair(c_735536,&c_735537,NULL); make_pair(c_735532,&c_735533,&c_735536); make_pair(c_735531,quote_gcd,&c_735532); make_pair(c_735546,quote_y,NULL); make_pair(c_735545,quote_x,&c_735546); make_pair(c_735544,quote_gcd,&c_735545); make_pair(c_735543,&c_735544,NULL); make_pair(c_735542,quote_z,&c_735543); make_pair(c_735541,quote_times,&c_735542); make_pair(c_735540,&c_735541,NULL); make_pair(c_735530,&c_735531,&c_735540); make_pair(c_735529,quote_equal,&c_735530); make_pair(c_735553,quote_x,NULL); make_pair(c_735552,quote_normalize,&c_735553); make_pair(c_735554,quote_a,NULL); make_pair(c_735551,&c_735552,&c_735554); make_pair(c_735550,quote_value,&c_735551); make_pair(c_735558,quote_a,NULL); make_pair(c_735557,quote_x,&c_735558); make_pair(c_735556,quote_value,&c_735557); make_pair(c_735555,&c_735556,NULL); make_pair(c_735549,&c_735550,&c_735555); make_pair(c_735548,quote_equal,&c_735549); make_pair(c_735565,quote_x,NULL); make_pair(c_735564,quote_flatten,&c_735565); make_pair(c_735570,quote_nil,NULL); make_pair(c_735569,&c_735570,NULL); make_pair(c_735568,quote_y,&c_735569); make_pair(c_735567,quote_cons,&c_735568); make_pair(c_735566,&c_735567,NULL); make_pair(c_735563,&c_735564,&c_735566); make_pair(c_735562,quote_equal,&c_735563); make_pair(c_735575,quote_x,NULL); make_pair(c_735574,quote_nlistp,&c_735575); make_pair(c_735579,quote_y,NULL); make_pair(c_735578,quote_x,&c_735579); make_pair(c_735577,quote_equal,&c_735578); make_pair(c_735576,&c_735577,NULL); make_pair(c_735573,&c_735574,&c_735576); make_pair(c_735572,quote_and,&c_735573); make_pair(c_735571,&c_735572,NULL); make_pair(c_735561,&c_735562,&c_735571); make_pair(c_735560,quote_equal,&c_735561); make_pair(c_735586,quote_x,NULL); make_pair(c_735585,quote_gopher,&c_735586); make_pair(c_735584,&c_735585,NULL); make_pair(c_735583,quote_listp,&c_735584); make_pair(c_735589,quote_x,NULL); make_pair(c_735588,quote_listp,&c_735589); make_pair(c_735587,&c_735588,NULL); make_pair(c_735582,&c_735583,&c_735587); make_pair(c_735581,quote_equal,&c_735582); make_pair(c_735595,quote_y,NULL); make_pair(c_735594,quote_x,&c_735595); make_pair(c_735593,quote_samefringe,&c_735594); make_pair(c_735600,quote_x,NULL); make_pair(c_735599,quote_flatten,&c_735600); make_pair(c_735603,quote_y,NULL); make_pair(c_735602,quote_flatten,&c_735603); make_pair(c_735601,&c_735602,NULL); make_pair(c_735598,&c_735599,&c_735601); make_pair(c_735597,quote_equal,&c_735598); make_pair(c_735596,&c_735597,NULL); make_pair(c_735592,&c_735593,&c_735596); make_pair(c_735591,quote_equal,&c_735592); make_pair(c_735611,quote_y,NULL); make_pair(c_735610,quote_x,&c_735611); make_pair(c_735609,quote_greatest_91factor,&c_735610); make_pair(c_735613,quote_zero,NULL); make_pair(c_735612,&c_735613,NULL); make_pair(c_735608,&c_735609,&c_735612); make_pair(c_735607,quote_equal,&c_735608); make_pair(c_735620,quote_y,NULL); make_pair(c_735619,quote_zerop,&c_735620); make_pair(c_735624,obj_int2obj(1),NULL); make_pair(c_735623,quote_y,&c_735624); make_pair(c_735622,quote_equal,&c_735623); make_pair(c_735621,&c_735622,NULL); make_pair(c_735618,&c_735619,&c_735621); make_pair(c_735617,quote_or,&c_735618); make_pair(c_735629,quote_zero,NULL); make_pair(c_735628,&c_735629,NULL); make_pair(c_735627,quote_x,&c_735628); make_pair(c_735626,quote_equal,&c_735627); make_pair(c_735625,&c_735626,NULL); make_pair(c_735616,&c_735617,&c_735625); make_pair(c_735615,quote_and,&c_735616); make_pair(c_735614,&c_735615,NULL); make_pair(c_735606,&c_735607,&c_735614); make_pair(c_735605,quote_equal,&c_735606); make_pair(c_735637,quote_y,NULL); make_pair(c_735636,quote_x,&c_735637); make_pair(c_735635,quote_greatest_91factor,&c_735636); make_pair(c_735638,obj_int2obj(1),NULL); make_pair(c_735634,&c_735635,&c_735638); make_pair(c_735633,quote_equal,&c_735634); make_pair(c_735642,obj_int2obj(1),NULL); make_pair(c_735641,quote_x,&c_735642); make_pair(c_735640,quote_equal,&c_735641); make_pair(c_735639,&c_735640,NULL); make_pair(c_735632,&c_735633,&c_735639); make_pair(c_735631,quote_equal,&c_735632); make_pair(c_735650,quote_y,NULL); make_pair(c_735649,quote_x,&c_735650); make_pair(c_735648,quote_greatest_91factor,&c_735649); make_pair(c_735647,&c_735648,NULL); make_pair(c_735646,quote_numberp,&c_735647); make_pair(c_735659,quote_y,NULL); make_pair(c_735658,quote_zerop,&c_735659); make_pair(c_735663,obj_int2obj(1),NULL); make_pair(c_735662,quote_y,&c_735663); make_pair(c_735661,quote_equal,&c_735662); make_pair(c_735660,&c_735661,NULL); make_pair(c_735657,&c_735658,&c_735660); make_pair(c_735656,quote_or,&c_735657); make_pair(c_735668,quote_x,NULL); make_pair(c_735667,quote_numberp,&c_735668); make_pair(c_735666,&c_735667,NULL); make_pair(c_735665,quote_not,&c_735666); make_pair(c_735664,&c_735665,NULL); make_pair(c_735655,&c_735656,&c_735664); make_pair(c_735654,quote_and,&c_735655); make_pair(c_735653,&c_735654,NULL); make_pair(c_735652,quote_not,&c_735653); make_pair(c_735651,&c_735652,NULL); make_pair(c_735645,&c_735646,&c_735651); make_pair(c_735644,quote_equal,&c_735645); make_pair(c_735676,quote_y,NULL); make_pair(c_735675,quote_x,&c_735676); make_pair(c_735674,quote_append,&c_735675); make_pair(c_735673,&c_735674,NULL); make_pair(c_735672,quote_times_91list,&c_735673); make_pair(c_735681,quote_x,NULL); make_pair(c_735680,quote_times_91list,&c_735681); make_pair(c_735684,quote_y,NULL); make_pair(c_735683,quote_times_91list,&c_735684); make_pair(c_735682,&c_735683,NULL); make_pair(c_735679,&c_735680,&c_735682); make_pair(c_735678,quote_times,&c_735679); make_pair(c_735677,&c_735678,NULL); make_pair(c_735671,&c_735672,&c_735677); make_pair(c_735670,quote_equal,&c_735671); make_pair(c_735692,quote_y,NULL); make_pair(c_735691,quote_x,&c_735692); make_pair(c_735690,quote_append,&c_735691); make_pair(c_735689,&c_735690,NULL); make_pair(c_735688,quote_prime_91list,&c_735689); make_pair(c_735697,quote_x,NULL); make_pair(c_735696,quote_prime_91list,&c_735697); make_pair(c_735700,quote_y,NULL); make_pair(c_735699,quote_prime_91list,&c_735700); make_pair(c_735698,&c_735699,NULL); make_pair(c_735695,&c_735696,&c_735698); make_pair(c_735694,quote_and,&c_735695); make_pair(c_735693,&c_735694,NULL); make_pair(c_735687,&c_735688,&c_735693); make_pair(c_735686,quote_equal,&c_735687); make_pair(c_735709,quote_z,NULL); make_pair(c_735708,quote_w,&c_735709); make_pair(c_735707,quote_times,&c_735708); make_pair(c_735706,&c_735707,NULL); make_pair(c_735705,quote_z,&c_735706); make_pair(c_735704,quote_equal,&c_735705); make_pair(c_735714,quote_z,NULL); make_pair(c_735713,quote_numberp,&c_735714); make_pair(c_735721,quote_zero,NULL); make_pair(c_735720,&c_735721,NULL); make_pair(c_735719,quote_z,&c_735720); make_pair(c_735718,quote_equal,&c_735719); make_pair(c_735725,obj_int2obj(1),NULL); make_pair(c_735724,quote_w,&c_735725); make_pair(c_735723,quote_equal,&c_735724); make_pair(c_735722,&c_735723,NULL); make_pair(c_735717,&c_735718,&c_735722); make_pair(c_735716,quote_or,&c_735717); make_pair(c_735715,&c_735716,NULL); make_pair(c_735712,&c_735713,&c_735715); make_pair(c_735711,quote_and,&c_735712); make_pair(c_735710,&c_735711,NULL); make_pair(c_735703,&c_735704,&c_735710); make_pair(c_735702,quote_equal,&c_735703); make_pair(c_735731,quote_y,NULL); make_pair(c_735730,quote_x,&c_735731); make_pair(c_735729,quote_greatereqp,&c_735730); make_pair(c_735737,quote_y,NULL); make_pair(c_735736,quote_x,&c_735737); make_pair(c_735735,quote_lessp,&c_735736); make_pair(c_735734,&c_735735,NULL); make_pair(c_735733,quote_not,&c_735734); make_pair(c_735732,&c_735733,NULL); make_pair(c_735728,&c_735729,&c_735732); make_pair(c_735727,quote_equal,&c_735728); make_pair(c_735746,quote_y,NULL); make_pair(c_735745,quote_x,&c_735746); make_pair(c_735744,quote_times,&c_735745); make_pair(c_735743,&c_735744,NULL); make_pair(c_735742,quote_x,&c_735743); make_pair(c_735741,quote_equal,&c_735742); make_pair(c_735753,quote_zero,NULL); make_pair(c_735752,&c_735753,NULL); make_pair(c_735751,quote_x,&c_735752); make_pair(c_735750,quote_equal,&c_735751); make_pair(c_735758,quote_x,NULL); make_pair(c_735757,quote_numberp,&c_735758); make_pair(c_735762,obj_int2obj(1),NULL); make_pair(c_735761,quote_y,&c_735762); make_pair(c_735760,quote_equal,&c_735761); make_pair(c_735759,&c_735760,NULL); make_pair(c_735756,&c_735757,&c_735759); make_pair(c_735755,quote_and,&c_735756); make_pair(c_735754,&c_735755,NULL); make_pair(c_735749,&c_735750,&c_735754); make_pair(c_735748,quote_or,&c_735749); make_pair(c_735747,&c_735748,NULL); make_pair(c_735740,&c_735741,&c_735747); make_pair(c_735739,quote_equal,&c_735740); make_pair(c_735770,quote_x,NULL); make_pair(c_735769,quote_y,&c_735770); make_pair(c_735768,quote_times,&c_735769); make_pair(c_735771,quote_y,NULL); make_pair(c_735767,&c_735768,&c_735771); make_pair(c_735766,quote_remainder,&c_735767); make_pair(c_735773,quote_zero,NULL); make_pair(c_735772,&c_735773,NULL); make_pair(c_735765,&c_735766,&c_735772); make_pair(c_735764,quote_equal,&c_735765); make_pair(c_735781,quote_b,NULL); make_pair(c_735780,quote_a,&c_735781); make_pair(c_735779,quote_times,&c_735780); make_pair(c_735782,obj_int2obj(1),NULL); make_pair(c_735778,&c_735779,&c_735782); make_pair(c_735777,quote_equal,&c_735778); make_pair(c_735791,quote_zero,NULL); make_pair(c_735790,&c_735791,NULL); make_pair(c_735789,quote_a,&c_735790); make_pair(c_735788,quote_equal,&c_735789); make_pair(c_735787,&c_735788,NULL); make_pair(c_735786,quote_not,&c_735787); make_pair(c_735798,quote_zero,NULL); make_pair(c_735797,&c_735798,NULL); make_pair(c_735796,quote_b,&c_735797); make_pair(c_735795,quote_equal,&c_735796); make_pair(c_735794,&c_735795,NULL); make_pair(c_735793,quote_not,&c_735794); make_pair(c_735801,quote_a,NULL); make_pair(c_735800,quote_numberp,&c_735801); make_pair(c_735804,quote_b,NULL); make_pair(c_735803,quote_numberp,&c_735804); make_pair(c_735809,quote_a,NULL); make_pair(c_735808,quote__1911_91,&c_735809); make_pair(c_735811,quote_zero,NULL); make_pair(c_735810,&c_735811,NULL); make_pair(c_735807,&c_735808,&c_735810); make_pair(c_735806,quote_equal,&c_735807); make_pair(c_735816,quote_b,NULL); make_pair(c_735815,quote__1911_91,&c_735816); make_pair(c_735818,quote_zero,NULL); make_pair(c_735817,&c_735818,NULL); make_pair(c_735814,&c_735815,&c_735817); make_pair(c_735813,quote_equal,&c_735814); make_pair(c_735812,&c_735813,NULL); make_pair(c_735805,&c_735806,&c_735812); make_pair(c_735802,&c_735803,&c_735805); make_pair(c_735799,&c_735800,&c_735802); make_pair(c_735792,&c_735793,&c_735799); make_pair(c_735785,&c_735786,&c_735792); make_pair(c_735784,quote_and,&c_735785); make_pair(c_735783,&c_735784,NULL); make_pair(c_735776,&c_735777,&c_735783); make_pair(c_735775,quote_equal,&c_735776); make_pair(c_735828,quote_l,NULL); make_pair(c_735827,quote_x,&c_735828); make_pair(c_735826,quote_delete,&c_735827); make_pair(c_735825,&c_735826,NULL); make_pair(c_735824,quote_length,&c_735825); make_pair(c_735831,quote_l,NULL); make_pair(c_735830,quote_length,&c_735831); make_pair(c_735829,&c_735830,NULL); make_pair(c_735823,&c_735824,&c_735829); make_pair(c_735822,quote_lessp,&c_735823); make_pair(c_735835,quote_l,NULL); make_pair(c_735834,quote_x,&c_735835); make_pair(c_735833,quote_member,&c_735834); make_pair(c_735832,&c_735833,NULL); make_pair(c_735821,&c_735822,&c_735832); make_pair(c_735820,quote_equal,&c_735821); make_pair(c_735843,quote_l,NULL); make_pair(c_735842,quote_x,&c_735843); make_pair(c_735841,quote_delete,&c_735842); make_pair(c_735840,&c_735841,NULL); make_pair(c_735839,quote_sort2,&c_735840); make_pair(c_735849,quote_l,NULL); make_pair(c_735848,quote_sort2,&c_735849); make_pair(c_735847,&c_735848,NULL); make_pair(c_735846,quote_x,&c_735847); make_pair(c_735845,quote_delete,&c_735846); make_pair(c_735844,&c_735845,NULL); make_pair(c_735838,&c_735839,&c_735844); make_pair(c_735837,quote_equal,&c_735838); make_pair(c_735854,quote_x,NULL); make_pair(c_735853,quote_dsort,&c_735854); make_pair(c_735857,quote_x,NULL); make_pair(c_735856,quote_sort2,&c_735857); make_pair(c_735855,&c_735856,NULL); make_pair(c_735852,&c_735853,&c_735855); make_pair(c_735851,quote_equal,&c_735852); make_pair(c_735880,quote_x7,NULL); make_pair(c_735879,quote_x6,&c_735880); make_pair(c_735878,quote_cons,&c_735879); make_pair(c_735877,&c_735878,NULL); make_pair(c_735876,quote_x5,&c_735877); make_pair(c_735875,quote_cons,&c_735876); make_pair(c_735874,&c_735875,NULL); make_pair(c_735873,quote_x4,&c_735874); make_pair(c_735872,quote_cons,&c_735873); make_pair(c_735871,&c_735872,NULL); make_pair(c_735870,quote_x3,&c_735871); make_pair(c_735869,quote_cons,&c_735870); make_pair(c_735868,&c_735869,NULL); make_pair(c_735867,quote_x2,&c_735868); make_pair(c_735866,quote_cons,&c_735867); make_pair(c_735865,&c_735866,NULL); make_pair(c_735864,quote_x1,&c_735865); make_pair(c_735863,quote_cons,&c_735864); make_pair(c_735862,&c_735863,NULL); make_pair(c_735861,quote_length,&c_735862); make_pair(c_735886,quote_x7,NULL); make_pair(c_735885,quote_length,&c_735886); make_pair(c_735884,&c_735885,NULL); make_pair(c_735883,obj_int2obj(6),&c_735884); make_pair(c_735882,quote_plus,&c_735883); make_pair(c_735881,&c_735882,NULL); make_pair(c_735860,&c_735861,&c_735881); make_pair(c_735859,quote_equal,&c_735860); make_pair(c_735895,quote_x,NULL); make_pair(c_735894,quote_add1,&c_735895); make_pair(c_735893,&c_735894,NULL); make_pair(c_735892,quote_add1,&c_735893); make_pair(c_735896,obj_int2obj(2),NULL); make_pair(c_735891,&c_735892,&c_735896); make_pair(c_735890,quote_difference,&c_735891); make_pair(c_735899,quote_x,NULL); make_pair(c_735898,quote_fix,&c_735899); make_pair(c_735897,&c_735898,NULL); make_pair(c_735889,&c_735890,&c_735897); make_pair(c_735888,quote_equal,&c_735889); make_pair(c_735910,quote_y,NULL); make_pair(c_735909,quote_x,&c_735910); make_pair(c_735908,quote_plus,&c_735909); make_pair(c_735907,&c_735908,NULL); make_pair(c_735906,quote_x,&c_735907); make_pair(c_735905,quote_plus,&c_735906); make_pair(c_735911,obj_int2obj(2),NULL); make_pair(c_735904,&c_735905,&c_735911); make_pair(c_735903,quote_quotient,&c_735904); make_pair(c_735918,obj_int2obj(2),NULL); make_pair(c_735917,quote_y,&c_735918); make_pair(c_735916,quote_quotient,&c_735917); make_pair(c_735915,&c_735916,NULL); make_pair(c_735914,quote_x,&c_735915); make_pair(c_735913,quote_plus,&c_735914); make_pair(c_735912,&c_735913,NULL); make_pair(c_735902,&c_735903,&c_735912); make_pair(c_735901,quote_equal,&c_735902); make_pair(c_735924,quote_zero,NULL); make_pair(c_735925,quote_i,NULL); make_pair(c_735923,&c_735924,&c_735925); make_pair(c_735922,quote_sigma,&c_735923); make_pair(c_735933,quote_i,NULL); make_pair(c_735932,quote_add1,&c_735933); make_pair(c_735931,&c_735932,NULL); make_pair(c_735930,quote_i,&c_735931); make_pair(c_735929,quote_times,&c_735930); make_pair(c_735934,obj_int2obj(2),NULL); make_pair(c_735928,&c_735929,&c_735934); make_pair(c_735927,quote_quotient,&c_735928); make_pair(c_735926,&c_735927,NULL); make_pair(c_735921,&c_735922,&c_735926); make_pair(c_735920,quote_equal,&c_735921); make_pair(c_735942,quote_y,NULL); make_pair(c_735941,quote_add1,&c_735942); make_pair(c_735940,&c_735941,NULL); make_pair(c_735939,quote_x,&c_735940); make_pair(c_735938,quote_plus,&c_735939); make_pair(c_735947,quote_y,NULL); make_pair(c_735946,quote_numberp,&c_735947); make_pair(c_735953,quote_y,NULL); make_pair(c_735952,quote_x,&c_735953); make_pair(c_735951,quote_plus,&c_735952); make_pair(c_735950,&c_735951,NULL); make_pair(c_735949,quote_add1,&c_735950); make_pair(c_735956,quote_x,NULL); make_pair(c_735955,quote_add1,&c_735956); make_pair(c_735954,&c_735955,NULL); make_pair(c_735948,&c_735949,&c_735954); make_pair(c_735945,&c_735946,&c_735948); make_pair(c_735944,quote__if,&c_735945); make_pair(c_735943,&c_735944,NULL); make_pair(c_735937,&c_735938,&c_735943); make_pair(c_735936,quote_equal,&c_735937); make_pair(c_735964,quote_y,NULL); make_pair(c_735963,quote_x,&c_735964); make_pair(c_735962,quote_difference,&c_735963); make_pair(c_735968,quote_y,NULL); make_pair(c_735967,quote_z,&c_735968); make_pair(c_735966,quote_difference,&c_735967); make_pair(c_735965,&c_735966,NULL); make_pair(c_735961,&c_735962,&c_735965); make_pair(c_735960,quote_equal,&c_735961); make_pair(c_735974,quote_y,NULL); make_pair(c_735973,quote_x,&c_735974); make_pair(c_735972,quote_lessp,&c_735973); make_pair(c_735980,quote_z,NULL); make_pair(c_735979,quote_y,&c_735980); make_pair(c_735978,quote_lessp,&c_735979); make_pair(c_735977,&c_735978,NULL); make_pair(c_735976,quote_not,&c_735977); make_pair(c_735986,quote_y,NULL); make_pair(c_735985,quote_z,&c_735986); make_pair(c_735984,quote_lessp,&c_735985); make_pair(c_735992,quote_x,NULL); make_pair(c_735991,quote_y,&c_735992); make_pair(c_735990,quote_lessp,&c_735991); make_pair(c_735989,&c_735990,NULL); make_pair(c_735988,quote_not,&c_735989); make_pair(c_735997,quote_x,NULL); make_pair(c_735996,quote_fix,&c_735997); make_pair(c_736000,quote_z,NULL); make_pair(c_735999,quote_fix,&c_736000); make_pair(c_735998,&c_735999,NULL); make_pair(c_735995,&c_735996,&c_735998); make_pair(c_735994,quote_equal,&c_735995); make_pair(c_735993,&c_735994,NULL); make_pair(c_735987,&c_735988,&c_735993); make_pair(c_735983,&c_735984,&c_735987); make_pair(c_735982,quote__if,&c_735983); make_pair(c_735981,&c_735982,NULL); make_pair(c_735975,&c_735976,&c_735981); make_pair(c_735971,&c_735972,&c_735975); make_pair(c_735970,quote__if,&c_735971); make_pair(c_735969,&c_735970,NULL); make_pair(c_735959,&c_735960,&c_735969); make_pair(c_735958,quote_equal,&c_735959); make_pair(c_736010,quote_y,NULL); make_pair(c_736009,quote_x,&c_736010); make_pair(c_736008,quote_delete,&c_736009); make_pair(c_736007,&c_736008,NULL); make_pair(c_736006,quote_plus_91tree,&c_736007); make_pair(c_736011,quote_a,NULL); make_pair(c_736005,&c_736006,&c_736011); make_pair(c_736004,quote_meaning,&c_736005); make_pair(c_736017,quote_y,NULL); make_pair(c_736016,quote_x,&c_736017); make_pair(c_736015,quote_member,&c_736016); make_pair(c_736024,quote_y,NULL); make_pair(c_736023,quote_plus_91tree,&c_736024); make_pair(c_736025,quote_a,NULL); make_pair(c_736022,&c_736023,&c_736025); make_pair(c_736021,quote_meaning,&c_736022); make_pair(c_736029,quote_a,NULL); make_pair(c_736028,quote_x,&c_736029); make_pair(c_736027,quote_meaning,&c_736028); make_pair(c_736026,&c_736027,NULL); make_pair(c_736020,&c_736021,&c_736026); make_pair(c_736019,quote_difference,&c_736020); make_pair(c_736034,quote_y,NULL); make_pair(c_736033,quote_plus_91tree,&c_736034); make_pair(c_736035,quote_a,NULL); make_pair(c_736032,&c_736033,&c_736035); make_pair(c_736031,quote_meaning,&c_736032); make_pair(c_736030,&c_736031,NULL); make_pair(c_736018,&c_736019,&c_736030); make_pair(c_736014,&c_736015,&c_736018); make_pair(c_736013,quote__if,&c_736014); make_pair(c_736012,&c_736013,NULL); make_pair(c_736003,&c_736004,&c_736012); make_pair(c_736002,quote_equal,&c_736003); make_pair(c_736043,quote_y,NULL); make_pair(c_736042,quote_add1,&c_736043); make_pair(c_736041,&c_736042,NULL); make_pair(c_736040,quote_x,&c_736041); make_pair(c_736039,quote_times,&c_736040); make_pair(c_736048,quote_y,NULL); make_pair(c_736047,quote_numberp,&c_736048); make_pair(c_736055,quote_y,NULL); make_pair(c_736054,quote_x,&c_736055); make_pair(c_736053,quote_times,&c_736054); make_pair(c_736052,&c_736053,NULL); make_pair(c_736051,quote_x,&c_736052); make_pair(c_736050,quote_plus,&c_736051); make_pair(c_736058,quote_x,NULL); make_pair(c_736057,quote_fix,&c_736058); make_pair(c_736056,&c_736057,NULL); make_pair(c_736049,&c_736050,&c_736056); make_pair(c_736046,&c_736047,&c_736049); make_pair(c_736045,quote__if,&c_736046); make_pair(c_736044,&c_736045,NULL); make_pair(c_736038,&c_736039,&c_736044); make_pair(c_736037,quote_equal,&c_736038); make_pair(c_736064,quote_nil,NULL); make_pair(c_736065,quote_i,NULL); make_pair(c_736063,&c_736064,&c_736065); make_pair(c_736062,quote_nth,&c_736063); make_pair(c_736070,quote_i,NULL); make_pair(c_736069,quote_zerop,&c_736070); make_pair(c_736072,quote_nil,NULL); make_pair(c_736074,quote_zero,NULL); make_pair(c_736073,&c_736074,NULL); make_pair(c_736071,&c_736072,&c_736073); make_pair(c_736068,&c_736069,&c_736071); make_pair(c_736067,quote__if,&c_736068); make_pair(c_736066,&c_736067,NULL); make_pair(c_736061,&c_736062,&c_736066); make_pair(c_736060,quote_equal,&c_736061); make_pair(c_736082,quote_b,NULL); make_pair(c_736081,quote_a,&c_736082); make_pair(c_736080,quote_append,&c_736081); make_pair(c_736079,&c_736080,NULL); make_pair(c_736078,quote_last,&c_736079); make_pair(c_736087,quote_b,NULL); make_pair(c_736086,quote_listp,&c_736087); make_pair(c_736090,quote_b,NULL); make_pair(c_736089,quote_last,&c_736090); make_pair(c_736095,quote_a,NULL); make_pair(c_736094,quote_listp,&c_736095); make_pair(c_736102,quote_a,NULL); make_pair(c_736101,quote_last,&c_736102); make_pair(c_736100,&c_736101,NULL); make_pair(c_736099,quote_car,&c_736100); make_pair(c_736103,quote_b,NULL); make_pair(c_736098,&c_736099,&c_736103); make_pair(c_736097,quote_cons,&c_736098); make_pair(c_736104,quote_b,NULL); make_pair(c_736096,&c_736097,&c_736104); make_pair(c_736093,&c_736094,&c_736096); make_pair(c_736092,quote__if,&c_736093); make_pair(c_736091,&c_736092,NULL); make_pair(c_736088,&c_736089,&c_736091); make_pair(c_736085,&c_736086,&c_736088); make_pair(c_736084,quote__if,&c_736085); make_pair(c_736083,&c_736084,NULL); make_pair(c_736077,&c_736078,&c_736083); make_pair(c_736076,quote_equal,&c_736077); make_pair(c_736112,quote_y,NULL); make_pair(c_736111,quote_x,&c_736112); make_pair(c_736110,quote_lessp,&c_736111); make_pair(c_736113,quote_z,NULL); make_pair(c_736109,&c_736110,&c_736113); make_pair(c_736108,quote_equal,&c_736109); make_pair(c_736119,quote_y,NULL); make_pair(c_736118,quote_x,&c_736119); make_pair(c_736117,quote_lessp,&c_736118); make_pair(c_736123,quote_t,NULL); make_pair(c_736124,quote_z,NULL); make_pair(c_736122,&c_736123,&c_736124); make_pair(c_736121,quote_equal,&c_736122); make_pair(c_736128,quote_f,NULL); make_pair(c_736129,quote_z,NULL); make_pair(c_736127,&c_736128,&c_736129); make_pair(c_736126,quote_equal,&c_736127); make_pair(c_736125,&c_736126,NULL); make_pair(c_736120,&c_736121,&c_736125); make_pair(c_736116,&c_736117,&c_736120); make_pair(c_736115,quote__if,&c_736116); make_pair(c_736114,&c_736115,NULL); make_pair(c_736107,&c_736108,&c_736114); make_pair(c_736106,quote_equal,&c_736107); make_pair(c_736138,quote_b,NULL); make_pair(c_736137,quote_a,&c_736138); make_pair(c_736136,quote_append,&c_736137); make_pair(c_736135,&c_736136,NULL); make_pair(c_736134,quote_x,&c_736135); make_pair(c_736133,quote_assignment,&c_736134); make_pair(c_736144,quote_a,NULL); make_pair(c_736143,quote_x,&c_736144); make_pair(c_736142,quote_assignedp,&c_736143); make_pair(c_736148,quote_a,NULL); make_pair(c_736147,quote_x,&c_736148); make_pair(c_736146,quote_assignment,&c_736147); make_pair(c_736152,quote_b,NULL); make_pair(c_736151,quote_x,&c_736152); make_pair(c_736150,quote_assignment,&c_736151); make_pair(c_736149,&c_736150,NULL); make_pair(c_736145,&c_736146,&c_736149); make_pair(c_736141,&c_736142,&c_736145); make_pair(c_736140,quote__if,&c_736141); make_pair(c_736139,&c_736140,NULL); make_pair(c_736132,&c_736133,&c_736139); make_pair(c_736131,quote_equal,&c_736132); make_pair(c_736159,quote_x,NULL); make_pair(c_736158,quote_gopher,&c_736159); make_pair(c_736157,&c_736158,NULL); make_pair(c_736156,quote_car,&c_736157); make_pair(c_736164,quote_x,NULL); make_pair(c_736163,quote_listp,&c_736164); make_pair(c_736169,quote_x,NULL); make_pair(c_736168,quote_flatten,&c_736169); make_pair(c_736167,&c_736168,NULL); make_pair(c_736166,quote_car,&c_736167); make_pair(c_736171,quote_zero,NULL); make_pair(c_736170,&c_736171,NULL); make_pair(c_736165,&c_736166,&c_736170); make_pair(c_736162,&c_736163,&c_736165); make_pair(c_736161,quote__if,&c_736162); make_pair(c_736160,&c_736161,NULL); make_pair(c_736155,&c_736156,&c_736160); make_pair(c_736154,quote_equal,&c_736155); make_pair(c_736180,quote_x,NULL); make_pair(c_736179,quote_gopher,&c_736180); make_pair(c_736178,&c_736179,NULL); make_pair(c_736177,quote_cdr,&c_736178); make_pair(c_736176,&c_736177,NULL); make_pair(c_736175,quote_flatten,&c_736176); make_pair(c_736185,quote_x,NULL); make_pair(c_736184,quote_listp,&c_736185); make_pair(c_736190,quote_x,NULL); make_pair(c_736189,quote_flatten,&c_736190); make_pair(c_736188,&c_736189,NULL); make_pair(c_736187,quote_cdr,&c_736188); make_pair(c_736194,quote_zero,NULL); make_pair(c_736196,quote_nil,NULL); make_pair(c_736195,&c_736196,NULL); make_pair(c_736193,&c_736194,&c_736195); make_pair(c_736192,quote_cons,&c_736193); make_pair(c_736191,&c_736192,NULL); make_pair(c_736186,&c_736187,&c_736191); make_pair(c_736183,&c_736184,&c_736186); make_pair(c_736182,quote__if,&c_736183); make_pair(c_736181,&c_736182,NULL); make_pair(c_736174,&c_736175,&c_736181); make_pair(c_736173,quote_equal,&c_736174); make_pair(c_736204,quote_x,NULL); make_pair(c_736203,quote_y,&c_736204); make_pair(c_736202,quote_times,&c_736203); make_pair(c_736205,quote_y,NULL); make_pair(c_736201,&c_736202,&c_736205); make_pair(c_736200,quote_quotient,&c_736201); make_pair(c_736210,quote_y,NULL); make_pair(c_736209,quote_zerop,&c_736210); make_pair(c_736212,quote_zero,NULL); make_pair(c_736215,quote_x,NULL); make_pair(c_736214,quote_fix,&c_736215); make_pair(c_736213,&c_736214,NULL); make_pair(c_736211,&c_736212,&c_736213); make_pair(c_736208,&c_736209,&c_736211); make_pair(c_736207,quote__if,&c_736208); make_pair(c_736206,&c_736207,NULL); make_pair(c_736199,&c_736200,&c_736206); make_pair(c_736198,quote_equal,&c_736199); make_pair(c_736225,quote_mem,NULL); make_pair(c_736224,quote_val,&c_736225); make_pair(c_736223,quote_i,&c_736224); make_pair(c_736222,quote_set,&c_736223); make_pair(c_736221,&c_736222,NULL); make_pair(c_736220,quote_j,&c_736221); make_pair(c_736219,quote_get,&c_736220); make_pair(c_736231,quote_i,NULL); make_pair(c_736230,quote_j,&c_736231); make_pair(c_736229,quote_eqp,&c_736230); make_pair(c_736236,quote_mem,NULL); make_pair(c_736235,quote_j,&c_736236); make_pair(c_736234,quote_get,&c_736235); make_pair(c_736233,&c_736234,NULL); make_pair(c_736232,quote_val,&c_736233); make_pair(c_736228,&c_736229,&c_736232); make_pair(c_736227,quote__if,&c_736228); make_pair(c_736226,&c_736227,NULL); make_pair(c_736218,&c_736219,&c_736226); make_pair(c_736217,quote_equal,&c_736218); make_pair(c_736216,&c_736217,NULL); make_pair(c_736197,&c_736198,&c_736216); make_pair(c_736172,&c_736173,&c_736197); make_pair(c_736153,&c_736154,&c_736172); make_pair(c_736130,&c_736131,&c_736153); make_pair(c_736105,&c_736106,&c_736130); make_pair(c_736075,&c_736076,&c_736105); make_pair(c_736059,&c_736060,&c_736075); make_pair(c_736036,&c_736037,&c_736059); make_pair(c_736001,&c_736002,&c_736036); make_pair(c_735957,&c_735958,&c_736001); make_pair(c_735935,&c_735936,&c_735957); make_pair(c_735919,&c_735920,&c_735935); make_pair(c_735900,&c_735901,&c_735919); make_pair(c_735887,&c_735888,&c_735900); make_pair(c_735858,&c_735859,&c_735887); make_pair(c_735850,&c_735851,&c_735858); make_pair(c_735836,&c_735837,&c_735850); make_pair(c_735819,&c_735820,&c_735836); make_pair(c_735774,&c_735775,&c_735819); make_pair(c_735763,&c_735764,&c_735774); make_pair(c_735738,&c_735739,&c_735763); make_pair(c_735726,&c_735727,&c_735738); make_pair(c_735701,&c_735702,&c_735726); make_pair(c_735685,&c_735686,&c_735701); make_pair(c_735669,&c_735670,&c_735685); make_pair(c_735643,&c_735644,&c_735669); make_pair(c_735630,&c_735631,&c_735643); make_pair(c_735604,&c_735605,&c_735630); make_pair(c_735590,&c_735591,&c_735604); make_pair(c_735580,&c_735581,&c_735590); make_pair(c_735559,&c_735560,&c_735580); make_pair(c_735547,&c_735548,&c_735559); make_pair(c_735528,&c_735529,&c_735547); make_pair(c_735514,&c_735515,&c_735528); make_pair(c_735491,&c_735492,&c_735514); make_pair(c_735475,&c_735476,&c_735491); make_pair(c_735461,&c_735462,&c_735475); make_pair(c_735445,&c_735446,&c_735461); make_pair(c_735434,&c_735435,&c_735445); make_pair(c_735415,&c_735416,&c_735434); make_pair(c_735399,&c_735400,&c_735415); make_pair(c_735387,&c_735388,&c_735399); make_pair(c_735375,&c_735376,&c_735387); make_pair(c_735351,&c_735352,&c_735375); make_pair(c_735341,&c_735342,&c_735351); make_pair(c_735319,&c_735320,&c_735341); make_pair(c_735307,&c_735308,&c_735319); make_pair(c_735280,&c_735281,&c_735307); make_pair(c_735253,&c_735254,&c_735280); make_pair(c_735245,&c_735246,&c_735253); make_pair(c_735231,&c_735232,&c_735245); make_pair(c_735223,&c_735224,&c_735231); make_pair(c_735199,&c_735200,&c_735223); make_pair(c_735182,&c_735183,&c_735199); make_pair(c_735164,&c_735165,&c_735182); make_pair(c_735148,&c_735149,&c_735164); make_pair(c_735129,&c_735130,&c_735148); make_pair(c_735119,&c_735120,&c_735129); make_pair(c_735107,&c_735108,&c_735119); make_pair(c_735091,&c_735092,&c_735107); make_pair(c_735072,&c_735073,&c_735091); make_pair(c_735063,&c_735064,&c_735072); make_pair(c_735044,&c_735045,&c_735063); make_pair(c_735034,&c_735035,&c_735044); make_pair(c_735022,&c_735023,&c_735034); make_pair(c_735003,&c_735004,&c_735022); make_pair(c_734991,&c_734992,&c_735003); make_pair(c_734972,&c_734973,&c_734991); make_pair(c_734954,&c_734955,&c_734972); make_pair(c_734938,&c_734939,&c_734954); make_pair(c_734919,&c_734920,&c_734938); make_pair(c_734903,&c_734904,&c_734919); make_pair(c_734887,&c_734888,&c_734903); make_pair(c_734871,&c_734872,&c_734887); make_pair(c_734846,&c_734847,&c_734871); make_pair(c_734822,&c_734823,&c_734846); make_pair(c_734806,&c_734807,&c_734822); make_pair(c_734786,&c_734787,&c_734806); make_pair(c_734778,&c_734779,&c_734786); make_pair(c_734760,&c_734761,&c_734778); make_pair(c_734744,&c_734745,&c_734760); make_pair(c_734727,&c_734728,&c_734744); make_pair(c_734703,&c_734704,&c_734727); make_pair(c_734690,&c_734691,&c_734703); make_pair(c_734672,&c_734673,&c_734690); make_pair(c_734660,&c_734661,&c_734672); make_pair(c_734642,&c_734643,&c_734660); make_pair(c_734624,&c_734625,&c_734642); make_pair(c_734597,&c_734598,&c_734624); make_pair(c_734585,&c_734586,&c_734597); make_pair(c_734573,&c_734574,&c_734585); make_pair(c_734559,&c_734560,&c_734573); make_pair(c_734545,&c_734546,&c_734559); make_pair(c_734533,&c_734534,&c_734545); make_pair(c_734523,&c_734524,&c_734533); make_pair(c_734514,&c_734515,&c_734523); make_pair(c_734502,&c_734503,&c_734514); make_pair(c_734485,&c_734486,&c_734502); make_pair(c_734469,&c_734470,&c_734485); make_pair(c_734452,&c_734453,&c_734469); make_pair(c_734440,&c_734441,&c_734452); make_pair(c_734428,&c_734429,&c_734440); make_pair(c_734418,&c_734419,&c_734428); make_pair(c_734404,&c_734405,&c_734418); make_pair(c_734390,&c_734391,&c_734404); return_closcall2(data, car(((closureN)self_73808)->elements[0]), k_73668, &c_734390);; } static void __lambda_215(void *data, int argc, object self_73809, object r_73363) { closureN_type c_731376; c_731376.hdr.mark = gc_color_red; c_731376.hdr.grayed = 0; c_731376.tag = closureN_tag; c_731376.fn = (function_type)__lambda_212; c_731376.num_args = 1; c_731376.num_elements = 39; c_731376.elements = (object *)alloca(sizeof(object) * 39); c_731376.elements[0] = ((closureN)self_73809)->elements[0]; c_731376.elements[1] = ((closureN)self_73809)->elements[1]; c_731376.elements[2] = ((closureN)self_73809)->elements[2]; c_731376.elements[3] = ((closureN)self_73809)->elements[3]; c_731376.elements[4] = ((closureN)self_73809)->elements[4]; c_731376.elements[5] = ((closureN)self_73809)->elements[5]; c_731376.elements[6] = ((closureN)self_73809)->elements[6]; c_731376.elements[7] = ((closureN)self_73809)->elements[7]; c_731376.elements[8] = ((closureN)self_73809)->elements[8]; c_731376.elements[9] = ((closureN)self_73809)->elements[9]; c_731376.elements[10] = ((closureN)self_73809)->elements[10]; c_731376.elements[11] = ((closureN)self_73809)->elements[11]; c_731376.elements[12] = ((closureN)self_73809)->elements[12]; c_731376.elements[13] = ((closureN)self_73809)->elements[13]; c_731376.elements[14] = ((closureN)self_73809)->elements[14]; c_731376.elements[15] = ((closureN)self_73809)->elements[15]; c_731376.elements[16] = ((closureN)self_73809)->elements[16]; c_731376.elements[17] = ((closureN)self_73809)->elements[17]; c_731376.elements[18] = ((closureN)self_73809)->elements[18]; c_731376.elements[19] = ((closureN)self_73809)->elements[19]; c_731376.elements[20] = ((closureN)self_73809)->elements[20]; c_731376.elements[21] = ((closureN)self_73809)->elements[21]; c_731376.elements[22] = ((closureN)self_73809)->elements[22]; c_731376.elements[23] = ((closureN)self_73809)->elements[23]; c_731376.elements[24] = ((closureN)self_73809)->elements[24]; c_731376.elements[25] = ((closureN)self_73809)->elements[25]; c_731376.elements[26] = ((closureN)self_73809)->elements[26]; c_731376.elements[27] = ((closureN)self_73809)->elements[27]; c_731376.elements[28] = ((closureN)self_73809)->elements[28]; c_731376.elements[29] = ((closureN)self_73809)->elements[29]; c_731376.elements[30] = ((closureN)self_73809)->elements[30]; c_731376.elements[31] = ((closureN)self_73809)->elements[31]; c_731376.elements[32] = ((closureN)self_73809)->elements[32]; c_731376.elements[33] = ((closureN)self_73809)->elements[33]; c_731376.elements[34] = ((closureN)self_73809)->elements[34]; c_731376.elements[35] = ((closureN)self_73809)->elements[35]; c_731376.elements[36] = ((closureN)self_73809)->elements[36]; c_731376.elements[37] = ((closureN)self_73809)->elements[37]; c_731376.elements[38] = ((closureN)self_73809)->elements[38]; closureN_type c_734363; c_734363.hdr.mark = gc_color_red; c_734363.hdr.grayed = 0; c_734363.tag = closureN_tag; c_734363.fn = (function_type)__lambda_214; c_734363.num_args = 1; c_734363.num_elements = 2; c_734363.elements = (object *)alloca(sizeof(object) * 2); c_734363.elements[0] = ((closureN)self_73809)->elements[1]; c_734363.elements[1] = ((closureN)self_73809)->elements[2]; return_closcall1(data,(closure)&c_731376, Cyc_set_cell(data, ((closureN)self_73809)->elements[2], &c_734363));; } static void __lambda_214(void *data, int argc, object self_73810, object k_73662, object lst_73325) { if( (boolean_f != Cyc_is_null(lst_73325)) ){ return_closcall1(data, k_73662, boolean_t); } else { closureN_type c_734371; c_734371.hdr.mark = gc_color_red; c_734371.hdr.grayed = 0; c_734371.tag = closureN_tag; c_734371.fn = (function_type)__lambda_213; c_734371.num_args = 1; c_734371.num_elements = 3; c_734371.elements = (object *)alloca(sizeof(object) * 3); c_734371.elements[0] = ((closureN)self_73810)->elements[1]; c_734371.elements[1] = k_73662; c_734371.elements[2] = lst_73325; return_closcall2(data, car(((closureN)self_73810)->elements[0]), &c_734371, Cyc_car(data, lst_73325));} ; } static void __lambda_213(void *data, int argc, object self_73811, object r_73664) { return_closcall2(data, car(((closureN)self_73811)->elements[0]), ((closureN)self_73811)->elements[1], Cyc_cdr(data, ((closureN)self_73811)->elements[2]));; } static void __lambda_212(void *data, int argc, object self_73812, object r_73364) { closureN_type c_731378; c_731378.hdr.mark = gc_color_red; c_731378.hdr.grayed = 0; c_731378.tag = closureN_tag; c_731378.fn = (function_type)__lambda_205; c_731378.num_args = 1; c_731378.num_elements = 38; c_731378.elements = (object *)alloca(sizeof(object) * 38); c_731378.elements[0] = ((closureN)self_73812)->elements[0]; c_731378.elements[1] = ((closureN)self_73812)->elements[2]; c_731378.elements[2] = ((closureN)self_73812)->elements[3]; c_731378.elements[3] = ((closureN)self_73812)->elements[4]; c_731378.elements[4] = ((closureN)self_73812)->elements[5]; c_731378.elements[5] = ((closureN)self_73812)->elements[6]; c_731378.elements[6] = ((closureN)self_73812)->elements[7]; c_731378.elements[7] = ((closureN)self_73812)->elements[8]; c_731378.elements[8] = ((closureN)self_73812)->elements[9]; c_731378.elements[9] = ((closureN)self_73812)->elements[10]; c_731378.elements[10] = ((closureN)self_73812)->elements[11]; c_731378.elements[11] = ((closureN)self_73812)->elements[12]; c_731378.elements[12] = ((closureN)self_73812)->elements[13]; c_731378.elements[13] = ((closureN)self_73812)->elements[14]; c_731378.elements[14] = ((closureN)self_73812)->elements[15]; c_731378.elements[15] = ((closureN)self_73812)->elements[16]; c_731378.elements[16] = ((closureN)self_73812)->elements[17]; c_731378.elements[17] = ((closureN)self_73812)->elements[18]; c_731378.elements[18] = ((closureN)self_73812)->elements[19]; c_731378.elements[19] = ((closureN)self_73812)->elements[20]; c_731378.elements[20] = ((closureN)self_73812)->elements[21]; c_731378.elements[21] = ((closureN)self_73812)->elements[22]; c_731378.elements[22] = ((closureN)self_73812)->elements[23]; c_731378.elements[23] = ((closureN)self_73812)->elements[24]; c_731378.elements[24] = ((closureN)self_73812)->elements[25]; c_731378.elements[25] = ((closureN)self_73812)->elements[26]; c_731378.elements[26] = ((closureN)self_73812)->elements[27]; c_731378.elements[27] = ((closureN)self_73812)->elements[28]; c_731378.elements[28] = ((closureN)self_73812)->elements[29]; c_731378.elements[29] = ((closureN)self_73812)->elements[30]; c_731378.elements[30] = ((closureN)self_73812)->elements[31]; c_731378.elements[31] = ((closureN)self_73812)->elements[32]; c_731378.elements[32] = ((closureN)self_73812)->elements[33]; c_731378.elements[33] = ((closureN)self_73812)->elements[34]; c_731378.elements[34] = ((closureN)self_73812)->elements[35]; c_731378.elements[35] = ((closureN)self_73812)->elements[36]; c_731378.elements[36] = ((closureN)self_73812)->elements[37]; c_731378.elements[37] = ((closureN)self_73812)->elements[38]; closureN_type c_734303; c_734303.hdr.mark = gc_color_red; c_734303.hdr.grayed = 0; c_734303.tag = closureN_tag; c_734303.fn = (function_type)__lambda_211; c_734303.num_args = 1; c_734303.num_elements = 3; c_734303.elements = (object *)alloca(sizeof(object) * 3); c_734303.elements[0] = ((closureN)self_73812)->elements[7]; c_734303.elements[1] = ((closureN)self_73812)->elements[15]; c_734303.elements[2] = ((closureN)self_73812)->elements[34]; return_closcall1(data,(closure)&c_731378, Cyc_set_cell(data, ((closureN)self_73812)->elements[1], &c_734303));; } static void __lambda_211(void *data, int argc, object self_73813, object k_73644, object term_73324) { closureN_type c_734305; c_734305.hdr.mark = gc_color_red; c_734305.hdr.grayed = 0; c_734305.tag = closureN_tag; c_734305.fn = (function_type)__lambda_206; c_734305.num_args = 0; c_734305.num_elements = 1; c_734305.elements = (object *)alloca(sizeof(object) * 1); c_734305.elements[0] = term_73324; closureN_type c_734322; c_734322.hdr.mark = gc_color_red; c_734322.hdr.grayed = 0; c_734322.tag = closureN_tag; c_734322.fn = (function_type)__lambda_210; c_734322.num_args = 1; c_734322.num_elements = 5; c_734322.elements = (object *)alloca(sizeof(object) * 5); c_734322.elements[0] = ((closureN)self_73813)->elements[0]; c_734322.elements[1] = k_73644; c_734322.elements[2] = ((closureN)self_73813)->elements[1]; c_734322.elements[3] = term_73324; c_734322.elements[4] = ((closureN)self_73813)->elements[2]; return_closcall1(data,(closure)&c_734305, &c_734322);; } static void __lambda_210(void *data, int argc, object self_73814, object r_73645) { if( (boolean_f != r_73645) ){ closureN_type c_734324; c_734324.hdr.mark = gc_color_red; c_734324.hdr.grayed = 0; c_734324.tag = closureN_tag; c_734324.fn = (function_type)__lambda_209; c_734324.num_args = 1; c_734324.num_elements = 5; c_734324.elements = (object *)alloca(sizeof(object) * 5); c_734324.elements[0] = ((closureN)self_73814)->elements[0]; c_734324.elements[1] = ((closureN)self_73814)->elements[1]; c_734324.elements[2] = ((closureN)self_73814)->elements[2]; c_734324.elements[3] = ((closureN)self_73814)->elements[3]; c_734324.elements[4] = ((closureN)self_73814)->elements[4]; return_closcall1(data,(closure)&c_734324, Cyc_cadr(data, ((closureN)self_73814)->elements[3])); } else { make_string(c_734358, "ADD-LEMMA did not like term: "); return_closcall4(data, __glo_error_scheme_base, ((closureN)self_73814)->elements[1], boolean_f, &c_734358, ((closureN)self_73814)->elements[3]);} ; } static void __lambda_209(void *data, int argc, object self_73815, object r_73654) { closureN_type c_734329; c_734329.hdr.mark = gc_color_red; c_734329.hdr.grayed = 0; c_734329.tag = closureN_tag; c_734329.fn = (function_type)__lambda_208; c_734329.num_args = 1; c_734329.num_elements = 5; c_734329.elements = (object *)alloca(sizeof(object) * 5); c_734329.elements[0] = ((closureN)self_73815)->elements[0]; c_734329.elements[1] = ((closureN)self_73815)->elements[1]; c_734329.elements[2] = ((closureN)self_73815)->elements[2]; c_734329.elements[3] = r_73654; c_734329.elements[4] = ((closureN)self_73815)->elements[3]; return_closcall2(data, car(((closureN)self_73815)->elements[4]), &c_734329, ((closureN)self_73815)->elements[3]);; } static void __lambda_208(void *data, int argc, object self_73816, object r_73649) { closureN_type c_734334; c_734334.hdr.mark = gc_color_red; c_734334.hdr.grayed = 0; c_734334.tag = closureN_tag; c_734334.fn = (function_type)__lambda_207; c_734334.num_args = 1; c_734334.num_elements = 4; c_734334.elements = (object *)alloca(sizeof(object) * 4); c_734334.elements[0] = ((closureN)self_73816)->elements[1]; c_734334.elements[1] = ((closureN)self_73816)->elements[2]; c_734334.elements[2] = r_73649; c_734334.elements[3] = ((closureN)self_73816)->elements[3]; return_closcall3(data, car(((closureN)self_73816)->elements[0]), &c_734334, Cyc_car(data, Cyc_cadr(data, ((closureN)self_73816)->elements[4])), quote_lemmas);; } static void __lambda_207(void *data, int argc, object self_73817, object r_73650) { make_pair(c_734345,((closureN)self_73817)->elements[2], r_73650); return_closcall4(data, car(((closureN)self_73817)->elements[1]), ((closureN)self_73817)->elements[0], Cyc_car(data, ((closureN)self_73817)->elements[3]), quote_lemmas, &c_734345);; } static void __lambda_206(void *data, int argc, object self_73818, object k_73655) { if( (boolean_f != Cyc_is_pair(((closureN)self_73818)->elements[0])) ){ if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73818)->elements[0]), quote_equal)) ){ return_closcall1(data, k_73655, Cyc_is_pair(Cyc_cadr(data, ((closureN)self_73818)->elements[0]))); } else { return_closcall1(data, k_73655, boolean_f);} } else { return_closcall1(data, k_73655, boolean_f);} ; } static void __lambda_205(void *data, int argc, object self_73819, object r_73365) { closureN_type c_731380; c_731380.hdr.mark = gc_color_red; c_731380.hdr.grayed = 0; c_731380.tag = closureN_tag; c_731380.fn = (function_type)__lambda_201; c_731380.num_args = 1; c_731380.num_elements = 38; c_731380.elements = (object *)alloca(sizeof(object) * 38); c_731380.elements[0] = ((closureN)self_73819)->elements[0]; c_731380.elements[1] = ((closureN)self_73819)->elements[1]; c_731380.elements[2] = ((closureN)self_73819)->elements[2]; c_731380.elements[3] = ((closureN)self_73819)->elements[3]; c_731380.elements[4] = ((closureN)self_73819)->elements[4]; c_731380.elements[5] = ((closureN)self_73819)->elements[5]; c_731380.elements[6] = ((closureN)self_73819)->elements[6]; c_731380.elements[7] = ((closureN)self_73819)->elements[7]; c_731380.elements[8] = ((closureN)self_73819)->elements[8]; c_731380.elements[9] = ((closureN)self_73819)->elements[9]; c_731380.elements[10] = ((closureN)self_73819)->elements[10]; c_731380.elements[11] = ((closureN)self_73819)->elements[11]; c_731380.elements[12] = ((closureN)self_73819)->elements[12]; c_731380.elements[13] = ((closureN)self_73819)->elements[13]; c_731380.elements[14] = ((closureN)self_73819)->elements[14]; c_731380.elements[15] = ((closureN)self_73819)->elements[15]; c_731380.elements[16] = ((closureN)self_73819)->elements[16]; c_731380.elements[17] = ((closureN)self_73819)->elements[17]; c_731380.elements[18] = ((closureN)self_73819)->elements[18]; c_731380.elements[19] = ((closureN)self_73819)->elements[19]; c_731380.elements[20] = ((closureN)self_73819)->elements[20]; c_731380.elements[21] = ((closureN)self_73819)->elements[21]; c_731380.elements[22] = ((closureN)self_73819)->elements[22]; c_731380.elements[23] = ((closureN)self_73819)->elements[23]; c_731380.elements[24] = ((closureN)self_73819)->elements[24]; c_731380.elements[25] = ((closureN)self_73819)->elements[25]; c_731380.elements[26] = ((closureN)self_73819)->elements[26]; c_731380.elements[27] = ((closureN)self_73819)->elements[27]; c_731380.elements[28] = ((closureN)self_73819)->elements[28]; c_731380.elements[29] = ((closureN)self_73819)->elements[29]; c_731380.elements[30] = ((closureN)self_73819)->elements[30]; c_731380.elements[31] = ((closureN)self_73819)->elements[31]; c_731380.elements[32] = ((closureN)self_73819)->elements[32]; c_731380.elements[33] = ((closureN)self_73819)->elements[33]; c_731380.elements[34] = ((closureN)self_73819)->elements[34]; c_731380.elements[35] = ((closureN)self_73819)->elements[35]; c_731380.elements[36] = ((closureN)self_73819)->elements[36]; c_731380.elements[37] = ((closureN)self_73819)->elements[37]; closureN_type c_734275; c_734275.hdr.mark = gc_color_red; c_734275.hdr.grayed = 0; c_734275.tag = closureN_tag; c_734275.fn = (function_type)__lambda_204; c_734275.num_args = 1; c_734275.num_elements = 2; c_734275.elements = (object *)alloca(sizeof(object) * 2); c_734275.elements[0] = ((closureN)self_73819)->elements[21]; c_734275.elements[1] = ((closureN)self_73819)->elements[32]; return_closcall1(data,(closure)&c_731380, Cyc_set_cell(data, ((closureN)self_73819)->elements[33], &c_734275));; } static void __lambda_204(void *data, int argc, object self_73820, object k_73637, object term_73323) { if( (boolean_f != Cyc_is_pair(term_73323)) ){ closureN_type c_734282; c_734282.hdr.mark = gc_color_red; c_734282.hdr.grayed = 0; c_734282.tag = closureN_tag; c_734282.fn = (function_type)__lambda_203; c_734282.num_args = 1; c_734282.num_elements = 3; c_734282.elements = (object *)alloca(sizeof(object) * 3); c_734282.elements[0] = k_73637; c_734282.elements[1] = term_73323; c_734282.elements[2] = ((closureN)self_73820)->elements[1]; return_closcall2(data, car(((closureN)self_73820)->elements[0]), &c_734282, Cyc_car(data, term_73323)); } else { return_closcall1(data, k_73637, term_73323);} ; } static void __lambda_203(void *data, int argc, object self_73821, object r_73639) { closureN_type c_734287; c_734287.hdr.mark = gc_color_red; c_734287.hdr.grayed = 0; c_734287.tag = closureN_tag; c_734287.fn = (function_type)__lambda_202; c_734287.num_args = 1; c_734287.num_elements = 2; c_734287.elements = (object *)alloca(sizeof(object) * 2); c_734287.elements[0] = ((closureN)self_73821)->elements[0]; c_734287.elements[1] = r_73639; return_closcall2(data, car(((closureN)self_73821)->elements[2]), &c_734287, Cyc_cdr(data, ((closureN)self_73821)->elements[1]));; } static void __lambda_202(void *data, int argc, object self_73822, object r_73640) { make_pair(c_734292,((closureN)self_73822)->elements[1], r_73640); return_closcall1(data, ((closureN)self_73822)->elements[0], &c_734292);; } static void __lambda_201(void *data, int argc, object self_73823, object r_73366) { closureN_type c_731382; c_731382.hdr.mark = gc_color_red; c_731382.hdr.grayed = 0; c_731382.tag = closureN_tag; c_731382.fn = (function_type)__lambda_197; c_731382.num_args = 1; c_731382.num_elements = 37; c_731382.elements = (object *)alloca(sizeof(object) * 37); c_731382.elements[0] = ((closureN)self_73823)->elements[0]; c_731382.elements[1] = ((closureN)self_73823)->elements[1]; c_731382.elements[2] = ((closureN)self_73823)->elements[2]; c_731382.elements[3] = ((closureN)self_73823)->elements[3]; c_731382.elements[4] = ((closureN)self_73823)->elements[4]; c_731382.elements[5] = ((closureN)self_73823)->elements[5]; c_731382.elements[6] = ((closureN)self_73823)->elements[6]; c_731382.elements[7] = ((closureN)self_73823)->elements[7]; c_731382.elements[8] = ((closureN)self_73823)->elements[8]; c_731382.elements[9] = ((closureN)self_73823)->elements[9]; c_731382.elements[10] = ((closureN)self_73823)->elements[10]; c_731382.elements[11] = ((closureN)self_73823)->elements[11]; c_731382.elements[12] = ((closureN)self_73823)->elements[12]; c_731382.elements[13] = ((closureN)self_73823)->elements[13]; c_731382.elements[14] = ((closureN)self_73823)->elements[14]; c_731382.elements[15] = ((closureN)self_73823)->elements[15]; c_731382.elements[16] = ((closureN)self_73823)->elements[16]; c_731382.elements[17] = ((closureN)self_73823)->elements[17]; c_731382.elements[18] = ((closureN)self_73823)->elements[18]; c_731382.elements[19] = ((closureN)self_73823)->elements[19]; c_731382.elements[20] = ((closureN)self_73823)->elements[20]; c_731382.elements[21] = ((closureN)self_73823)->elements[21]; c_731382.elements[22] = ((closureN)self_73823)->elements[22]; c_731382.elements[23] = ((closureN)self_73823)->elements[23]; c_731382.elements[24] = ((closureN)self_73823)->elements[24]; c_731382.elements[25] = ((closureN)self_73823)->elements[25]; c_731382.elements[26] = ((closureN)self_73823)->elements[26]; c_731382.elements[27] = ((closureN)self_73823)->elements[27]; c_731382.elements[28] = ((closureN)self_73823)->elements[28]; c_731382.elements[29] = ((closureN)self_73823)->elements[29]; c_731382.elements[30] = ((closureN)self_73823)->elements[30]; c_731382.elements[31] = ((closureN)self_73823)->elements[31]; c_731382.elements[32] = ((closureN)self_73823)->elements[33]; c_731382.elements[33] = ((closureN)self_73823)->elements[34]; c_731382.elements[34] = ((closureN)self_73823)->elements[35]; c_731382.elements[35] = ((closureN)self_73823)->elements[36]; c_731382.elements[36] = ((closureN)self_73823)->elements[37]; closureN_type c_734247; c_734247.hdr.mark = gc_color_red; c_734247.hdr.grayed = 0; c_734247.tag = closureN_tag; c_734247.fn = (function_type)__lambda_200; c_734247.num_args = 1; c_734247.num_elements = 2; c_734247.elements = (object *)alloca(sizeof(object) * 2); c_734247.elements[0] = ((closureN)self_73823)->elements[32]; c_734247.elements[1] = ((closureN)self_73823)->elements[33]; return_closcall1(data,(closure)&c_731382, Cyc_set_cell(data, ((closureN)self_73823)->elements[32], &c_734247));; } static void __lambda_200(void *data, int argc, object self_73824, object k_73630, object lst_73322) { if( (boolean_f != Cyc_is_null(lst_73322)) ){ return_closcall1(data, k_73630, NULL); } else { closureN_type c_734255; c_734255.hdr.mark = gc_color_red; c_734255.hdr.grayed = 0; c_734255.tag = closureN_tag; c_734255.fn = (function_type)__lambda_199; c_734255.num_args = 1; c_734255.num_elements = 3; c_734255.elements = (object *)alloca(sizeof(object) * 3); c_734255.elements[0] = k_73630; c_734255.elements[1] = lst_73322; c_734255.elements[2] = ((closureN)self_73824)->elements[0]; return_closcall2(data, car(((closureN)self_73824)->elements[1]), &c_734255, Cyc_car(data, lst_73322));} ; } static void __lambda_199(void *data, int argc, object self_73825, object r_73632) { closureN_type c_734260; c_734260.hdr.mark = gc_color_red; c_734260.hdr.grayed = 0; c_734260.tag = closureN_tag; c_734260.fn = (function_type)__lambda_198; c_734260.num_args = 1; c_734260.num_elements = 2; c_734260.elements = (object *)alloca(sizeof(object) * 2); c_734260.elements[0] = ((closureN)self_73825)->elements[0]; c_734260.elements[1] = r_73632; return_closcall2(data, car(((closureN)self_73825)->elements[2]), &c_734260, Cyc_cdr(data, ((closureN)self_73825)->elements[1]));; } static void __lambda_198(void *data, int argc, object self_73826, object r_73633) { make_pair(c_734265,((closureN)self_73826)->elements[1], r_73633); return_closcall1(data, ((closureN)self_73826)->elements[0], &c_734265);; } static void __lambda_197(void *data, int argc, object self_73827, object r_73367) { closureN_type c_731384; c_731384.hdr.mark = gc_color_red; c_731384.hdr.grayed = 0; c_731384.tag = closureN_tag; c_731384.fn = (function_type)__lambda_194; c_731384.num_args = 1; c_731384.num_elements = 36; c_731384.elements = (object *)alloca(sizeof(object) * 36); c_731384.elements[0] = ((closureN)self_73827)->elements[0]; c_731384.elements[1] = ((closureN)self_73827)->elements[1]; c_731384.elements[2] = ((closureN)self_73827)->elements[2]; c_731384.elements[3] = ((closureN)self_73827)->elements[3]; c_731384.elements[4] = ((closureN)self_73827)->elements[4]; c_731384.elements[5] = ((closureN)self_73827)->elements[5]; c_731384.elements[6] = ((closureN)self_73827)->elements[6]; c_731384.elements[7] = ((closureN)self_73827)->elements[7]; c_731384.elements[8] = ((closureN)self_73827)->elements[8]; c_731384.elements[9] = ((closureN)self_73827)->elements[9]; c_731384.elements[10] = ((closureN)self_73827)->elements[10]; c_731384.elements[11] = ((closureN)self_73827)->elements[11]; c_731384.elements[12] = ((closureN)self_73827)->elements[12]; c_731384.elements[13] = ((closureN)self_73827)->elements[13]; c_731384.elements[14] = ((closureN)self_73827)->elements[14]; c_731384.elements[15] = ((closureN)self_73827)->elements[15]; c_731384.elements[16] = ((closureN)self_73827)->elements[16]; c_731384.elements[17] = ((closureN)self_73827)->elements[17]; c_731384.elements[18] = ((closureN)self_73827)->elements[18]; c_731384.elements[19] = ((closureN)self_73827)->elements[19]; c_731384.elements[20] = ((closureN)self_73827)->elements[20]; c_731384.elements[21] = ((closureN)self_73827)->elements[21]; c_731384.elements[22] = ((closureN)self_73827)->elements[22]; c_731384.elements[23] = ((closureN)self_73827)->elements[23]; c_731384.elements[24] = ((closureN)self_73827)->elements[24]; c_731384.elements[25] = ((closureN)self_73827)->elements[25]; c_731384.elements[26] = ((closureN)self_73827)->elements[26]; c_731384.elements[27] = ((closureN)self_73827)->elements[27]; c_731384.elements[28] = ((closureN)self_73827)->elements[28]; c_731384.elements[29] = ((closureN)self_73827)->elements[29]; c_731384.elements[30] = ((closureN)self_73827)->elements[30]; c_731384.elements[31] = ((closureN)self_73827)->elements[31]; c_731384.elements[32] = ((closureN)self_73827)->elements[32]; c_731384.elements[33] = ((closureN)self_73827)->elements[33]; c_731384.elements[34] = ((closureN)self_73827)->elements[34]; c_731384.elements[35] = ((closureN)self_73827)->elements[35]; closureN_type c_734223; c_734223.hdr.mark = gc_color_red; c_734223.hdr.grayed = 0; c_734223.tag = closureN_tag; c_734223.fn = (function_type)__lambda_196; c_734223.num_args = 1; c_734223.num_elements = 1; c_734223.elements = (object *)alloca(sizeof(object) * 1); c_734223.elements[0] = ((closureN)self_73827)->elements[36]; return_closcall1(data,(closure)&c_731384, Cyc_set_cell(data, ((closureN)self_73827)->elements[36], &c_734223));; } static void __lambda_196(void *data, int argc, object self_73828, object k_73623, object term_73321) { if( (boolean_f != Cyc_is_pair(term_73321)) ){ closureN_type c_734227; c_734227.hdr.mark = gc_color_red; c_734227.hdr.grayed = 0; c_734227.tag = closureN_tag; c_734227.fn = (function_type)__lambda_195; c_734227.num_args = 1; c_734227.num_elements = 2; c_734227.elements = (object *)alloca(sizeof(object) * 2); c_734227.elements[0] = k_73623; c_734227.elements[1] = term_73321; return_closcall3(data, __glo_map_scheme_base, &c_734227, car(((closureN)self_73828)->elements[0]), Cyc_cdr(data, term_73321)); } else { return_closcall1(data, k_73623, term_73321);} ; } static void __lambda_195(void *data, int argc, object self_73829, object r_73626) { make_pair(c_734232,Cyc_vector_ref(data, Cyc_car(data, ((closureN)self_73829)->elements[1]), obj_int2obj(0)), r_73626); return_closcall1(data, ((closureN)self_73829)->elements[0], &c_734232);; } static void __lambda_194(void *data, int argc, object self_73830, object r_73368) { closureN_type c_731386; c_731386.hdr.mark = gc_color_red; c_731386.hdr.grayed = 0; c_731386.tag = closureN_tag; c_731386.fn = (function_type)__lambda_191; c_731386.num_args = 1; c_731386.num_elements = 35; c_731386.elements = (object *)alloca(sizeof(object) * 35); c_731386.elements[0] = ((closureN)self_73830)->elements[0]; c_731386.elements[1] = ((closureN)self_73830)->elements[1]; c_731386.elements[2] = ((closureN)self_73830)->elements[2]; c_731386.elements[3] = ((closureN)self_73830)->elements[3]; c_731386.elements[4] = ((closureN)self_73830)->elements[4]; c_731386.elements[5] = ((closureN)self_73830)->elements[5]; c_731386.elements[6] = ((closureN)self_73830)->elements[6]; c_731386.elements[7] = ((closureN)self_73830)->elements[7]; c_731386.elements[8] = ((closureN)self_73830)->elements[8]; c_731386.elements[9] = ((closureN)self_73830)->elements[9]; c_731386.elements[10] = ((closureN)self_73830)->elements[10]; c_731386.elements[11] = ((closureN)self_73830)->elements[11]; c_731386.elements[12] = ((closureN)self_73830)->elements[12]; c_731386.elements[13] = ((closureN)self_73830)->elements[13]; c_731386.elements[14] = ((closureN)self_73830)->elements[15]; c_731386.elements[15] = ((closureN)self_73830)->elements[16]; c_731386.elements[16] = ((closureN)self_73830)->elements[17]; c_731386.elements[17] = ((closureN)self_73830)->elements[18]; c_731386.elements[18] = ((closureN)self_73830)->elements[19]; c_731386.elements[19] = ((closureN)self_73830)->elements[20]; c_731386.elements[20] = ((closureN)self_73830)->elements[21]; c_731386.elements[21] = ((closureN)self_73830)->elements[22]; c_731386.elements[22] = ((closureN)self_73830)->elements[23]; c_731386.elements[23] = ((closureN)self_73830)->elements[24]; c_731386.elements[24] = ((closureN)self_73830)->elements[25]; c_731386.elements[25] = ((closureN)self_73830)->elements[26]; c_731386.elements[26] = ((closureN)self_73830)->elements[27]; c_731386.elements[27] = ((closureN)self_73830)->elements[28]; c_731386.elements[28] = ((closureN)self_73830)->elements[29]; c_731386.elements[29] = ((closureN)self_73830)->elements[30]; c_731386.elements[30] = ((closureN)self_73830)->elements[31]; c_731386.elements[31] = ((closureN)self_73830)->elements[32]; c_731386.elements[32] = ((closureN)self_73830)->elements[33]; c_731386.elements[33] = ((closureN)self_73830)->elements[34]; c_731386.elements[34] = ((closureN)self_73830)->elements[35]; closureN_type c_734209; c_734209.hdr.mark = gc_color_red; c_734209.hdr.grayed = 0; c_734209.tag = closureN_tag; c_734209.fn = (function_type)__lambda_193; c_734209.num_args = 3; c_734209.num_elements = 1; c_734209.elements = (object *)alloca(sizeof(object) * 1); c_734209.elements[0] = ((closureN)self_73830)->elements[21]; return_closcall1(data,(closure)&c_731386, Cyc_set_cell(data, ((closureN)self_73830)->elements[14], &c_734209));; } static void __lambda_193(void *data, int argc, object self_73831, object k_73620, object sym_73320, object property_73319, object value_73318) { closureN_type c_734214; c_734214.hdr.mark = gc_color_red; c_734214.hdr.grayed = 0; c_734214.tag = closureN_tag; c_734214.fn = (function_type)__lambda_192; c_734214.num_args = 1; c_734214.num_elements = 2; c_734214.elements = (object *)alloca(sizeof(object) * 2); c_734214.elements[0] = k_73620; c_734214.elements[1] = value_73318; return_closcall2(data, car(((closureN)self_73831)->elements[0]), &c_734214, sym_73320);; } static void __lambda_192(void *data, int argc, object self_73832, object r_73621) { return_closcall1(data, ((closureN)self_73832)->elements[0], Cyc_vector_set(data, r_73621, obj_int2obj(1), ((closureN)self_73832)->elements[1]));; } static void __lambda_191(void *data, int argc, object self_73833, object r_73369) { closureN_type c_731388; c_731388.hdr.mark = gc_color_red; c_731388.hdr.grayed = 0; c_731388.tag = closureN_tag; c_731388.fn = (function_type)__lambda_188; c_731388.num_args = 1; c_731388.num_elements = 34; c_731388.elements = (object *)alloca(sizeof(object) * 34); c_731388.elements[0] = ((closureN)self_73833)->elements[0]; c_731388.elements[1] = ((closureN)self_73833)->elements[1]; c_731388.elements[2] = ((closureN)self_73833)->elements[2]; c_731388.elements[3] = ((closureN)self_73833)->elements[3]; c_731388.elements[4] = ((closureN)self_73833)->elements[4]; c_731388.elements[5] = ((closureN)self_73833)->elements[5]; c_731388.elements[6] = ((closureN)self_73833)->elements[7]; c_731388.elements[7] = ((closureN)self_73833)->elements[8]; c_731388.elements[8] = ((closureN)self_73833)->elements[9]; c_731388.elements[9] = ((closureN)self_73833)->elements[10]; c_731388.elements[10] = ((closureN)self_73833)->elements[11]; c_731388.elements[11] = ((closureN)self_73833)->elements[12]; c_731388.elements[12] = ((closureN)self_73833)->elements[13]; c_731388.elements[13] = ((closureN)self_73833)->elements[14]; c_731388.elements[14] = ((closureN)self_73833)->elements[15]; c_731388.elements[15] = ((closureN)self_73833)->elements[16]; c_731388.elements[16] = ((closureN)self_73833)->elements[17]; c_731388.elements[17] = ((closureN)self_73833)->elements[18]; c_731388.elements[18] = ((closureN)self_73833)->elements[19]; c_731388.elements[19] = ((closureN)self_73833)->elements[20]; c_731388.elements[20] = ((closureN)self_73833)->elements[21]; c_731388.elements[21] = ((closureN)self_73833)->elements[22]; c_731388.elements[22] = ((closureN)self_73833)->elements[23]; c_731388.elements[23] = ((closureN)self_73833)->elements[24]; c_731388.elements[24] = ((closureN)self_73833)->elements[25]; c_731388.elements[25] = ((closureN)self_73833)->elements[26]; c_731388.elements[26] = ((closureN)self_73833)->elements[27]; c_731388.elements[27] = ((closureN)self_73833)->elements[28]; c_731388.elements[28] = ((closureN)self_73833)->elements[29]; c_731388.elements[29] = ((closureN)self_73833)->elements[30]; c_731388.elements[30] = ((closureN)self_73833)->elements[31]; c_731388.elements[31] = ((closureN)self_73833)->elements[32]; c_731388.elements[32] = ((closureN)self_73833)->elements[33]; c_731388.elements[33] = ((closureN)self_73833)->elements[34]; closureN_type c_734196; c_734196.hdr.mark = gc_color_red; c_734196.hdr.grayed = 0; c_734196.tag = closureN_tag; c_734196.fn = (function_type)__lambda_190; c_734196.num_args = 2; c_734196.num_elements = 1; c_734196.elements = (object *)alloca(sizeof(object) * 1); c_734196.elements[0] = ((closureN)self_73833)->elements[20]; return_closcall1(data,(closure)&c_731388, Cyc_set_cell(data, ((closureN)self_73833)->elements[6], &c_734196));; } static void __lambda_190(void *data, int argc, object self_73834, object k_73617, object sym_73317, object property_73316) { closureN_type c_734201; c_734201.hdr.mark = gc_color_red; c_734201.hdr.grayed = 0; c_734201.tag = closureN_tag; c_734201.fn = (function_type)__lambda_189; c_734201.num_args = 1; c_734201.num_elements = 1; c_734201.elements = (object *)alloca(sizeof(object) * 1); c_734201.elements[0] = k_73617; return_closcall2(data, car(((closureN)self_73834)->elements[0]), &c_734201, sym_73317);; } static void __lambda_189(void *data, int argc, object self_73835, object r_73618) { return_closcall1(data, ((closureN)self_73835)->elements[0], Cyc_vector_ref(data, r_73618, obj_int2obj(1)));; } static void __lambda_188(void *data, int argc, object self_73836, object r_73370) { closureN_type c_731390; c_731390.hdr.mark = gc_color_red; c_731390.hdr.grayed = 0; c_731390.tag = closureN_tag; c_731390.fn = (function_type)__lambda_182; c_731390.num_args = 1; c_731390.num_elements = 34; c_731390.elements = (object *)alloca(sizeof(object) * 34); c_731390.elements[0] = ((closureN)self_73836)->elements[0]; c_731390.elements[1] = ((closureN)self_73836)->elements[1]; c_731390.elements[2] = ((closureN)self_73836)->elements[2]; c_731390.elements[3] = ((closureN)self_73836)->elements[3]; c_731390.elements[4] = ((closureN)self_73836)->elements[4]; c_731390.elements[5] = ((closureN)self_73836)->elements[5]; c_731390.elements[6] = ((closureN)self_73836)->elements[6]; c_731390.elements[7] = ((closureN)self_73836)->elements[7]; c_731390.elements[8] = ((closureN)self_73836)->elements[8]; c_731390.elements[9] = ((closureN)self_73836)->elements[9]; c_731390.elements[10] = ((closureN)self_73836)->elements[10]; c_731390.elements[11] = ((closureN)self_73836)->elements[11]; c_731390.elements[12] = ((closureN)self_73836)->elements[12]; c_731390.elements[13] = ((closureN)self_73836)->elements[13]; c_731390.elements[14] = ((closureN)self_73836)->elements[14]; c_731390.elements[15] = ((closureN)self_73836)->elements[15]; c_731390.elements[16] = ((closureN)self_73836)->elements[16]; c_731390.elements[17] = ((closureN)self_73836)->elements[17]; c_731390.elements[18] = ((closureN)self_73836)->elements[18]; c_731390.elements[19] = ((closureN)self_73836)->elements[19]; c_731390.elements[20] = ((closureN)self_73836)->elements[20]; c_731390.elements[21] = ((closureN)self_73836)->elements[21]; c_731390.elements[22] = ((closureN)self_73836)->elements[22]; c_731390.elements[23] = ((closureN)self_73836)->elements[23]; c_731390.elements[24] = ((closureN)self_73836)->elements[24]; c_731390.elements[25] = ((closureN)self_73836)->elements[25]; c_731390.elements[26] = ((closureN)self_73836)->elements[26]; c_731390.elements[27] = ((closureN)self_73836)->elements[27]; c_731390.elements[28] = ((closureN)self_73836)->elements[28]; c_731390.elements[29] = ((closureN)self_73836)->elements[29]; c_731390.elements[30] = ((closureN)self_73836)->elements[30]; c_731390.elements[31] = ((closureN)self_73836)->elements[31]; c_731390.elements[32] = ((closureN)self_73836)->elements[32]; c_731390.elements[33] = ((closureN)self_73836)->elements[33]; closureN_type c_734158; c_734158.hdr.mark = gc_color_red; c_734158.hdr.grayed = 0; c_734158.tag = closureN_tag; c_734158.fn = (function_type)__lambda_187; c_734158.num_args = 1; c_734158.num_elements = 1; c_734158.elements = (object *)alloca(sizeof(object) * 1); c_734158.elements[0] = ((closureN)self_73836)->elements[0]; return_closcall1(data,(closure)&c_731390, Cyc_set_cell(data, ((closureN)self_73836)->elements[19], &c_734158));; } static void __lambda_187(void *data, int argc, object self_73837, object k_73610, object sym_73313) { closureN_type c_734160; c_734160.hdr.mark = gc_color_red; c_734160.hdr.grayed = 0; c_734160.tag = closureN_tag; c_734160.fn = (function_type)__lambda_186; c_734160.num_args = 1; c_734160.num_elements = 3; c_734160.elements = (object *)alloca(sizeof(object) * 3); c_734160.elements[0] = ((closureN)self_73837)->elements[0]; c_734160.elements[1] = k_73610; c_734160.elements[2] = sym_73313; return_closcall1(data,(closure)&c_734160, assq(data, sym_73313, car(((closureN)self_73837)->elements[0])));; } static void __lambda_186(void *data, int argc, object self_73838, object x_73314) { if( (boolean_f != x_73314) ){ return_closcall1(data, ((closureN)self_73838)->elements[1], Cyc_cdr(data, x_73314)); } else { closureN_type c_734166; c_734166.hdr.mark = gc_color_red; c_734166.hdr.grayed = 0; c_734166.tag = closureN_tag; c_734166.fn = (function_type)__lambda_185; c_734166.num_args = 1; c_734166.num_elements = 3; c_734166.elements = (object *)alloca(sizeof(object) * 3); c_734166.elements[0] = ((closureN)self_73838)->elements[0]; c_734166.elements[1] = ((closureN)self_73838)->elements[1]; c_734166.elements[2] = ((closureN)self_73838)->elements[2]; return_closcall3(data, __glo_vector_scheme_base, &c_734166, ((closureN)self_73838)->elements[2], NULL);} ; } static void __lambda_185(void *data, int argc, object self_73839, object r_73315) { closureN_type c_734168; c_734168.hdr.mark = gc_color_red; c_734168.hdr.grayed = 0; c_734168.tag = closureN_tag; c_734168.fn = (function_type)__lambda_184; c_734168.num_args = 1; c_734168.num_elements = 3; c_734168.elements = (object *)alloca(sizeof(object) * 3); c_734168.elements[0] = ((closureN)self_73839)->elements[0]; c_734168.elements[1] = ((closureN)self_73839)->elements[1]; c_734168.elements[2] = r_73315; make_pair(c_734182,((closureN)self_73839)->elements[2], r_73315); make_pair(c_734179,&c_734182, car(((closureN)self_73839)->elements[0])); return_closcall1(data,(closure)&c_734168, &c_734179);; } static void __lambda_184(void *data, int argc, object self_73840, object r_73614) { closureN_type c_734170; c_734170.hdr.mark = gc_color_red; c_734170.hdr.grayed = 0; c_734170.tag = closureN_tag; c_734170.fn = (function_type)__lambda_183; c_734170.num_args = 1; c_734170.num_elements = 2; c_734170.elements = (object *)alloca(sizeof(object) * 2); c_734170.elements[0] = ((closureN)self_73840)->elements[1]; c_734170.elements[1] = ((closureN)self_73840)->elements[2]; return_closcall1(data,(closure)&c_734170, Cyc_set_cell(data, ((closureN)self_73840)->elements[0], r_73614));; } static void __lambda_183(void *data, int argc, object self_73841, object r_73613) { return_closcall1(data, ((closureN)self_73841)->elements[0], ((closureN)self_73841)->elements[1]);; } static void __lambda_182(void *data, int argc, object self_73842, object r_73371) { closureN_type c_731392; c_731392.hdr.mark = gc_color_red; c_731392.hdr.grayed = 0; c_731392.tag = closureN_tag; c_731392.fn = (function_type)__lambda_181; c_731392.num_args = 1; c_731392.num_elements = 34; c_731392.elements = (object *)alloca(sizeof(object) * 34); c_731392.elements[0] = ((closureN)self_73842)->elements[0]; c_731392.elements[1] = ((closureN)self_73842)->elements[1]; c_731392.elements[2] = ((closureN)self_73842)->elements[2]; c_731392.elements[3] = ((closureN)self_73842)->elements[3]; c_731392.elements[4] = ((closureN)self_73842)->elements[4]; c_731392.elements[5] = ((closureN)self_73842)->elements[5]; c_731392.elements[6] = ((closureN)self_73842)->elements[6]; c_731392.elements[7] = ((closureN)self_73842)->elements[7]; c_731392.elements[8] = ((closureN)self_73842)->elements[8]; c_731392.elements[9] = ((closureN)self_73842)->elements[9]; c_731392.elements[10] = ((closureN)self_73842)->elements[10]; c_731392.elements[11] = ((closureN)self_73842)->elements[11]; c_731392.elements[12] = ((closureN)self_73842)->elements[12]; c_731392.elements[13] = ((closureN)self_73842)->elements[13]; c_731392.elements[14] = ((closureN)self_73842)->elements[14]; c_731392.elements[15] = ((closureN)self_73842)->elements[15]; c_731392.elements[16] = ((closureN)self_73842)->elements[16]; c_731392.elements[17] = ((closureN)self_73842)->elements[17]; c_731392.elements[18] = ((closureN)self_73842)->elements[18]; c_731392.elements[19] = ((closureN)self_73842)->elements[19]; c_731392.elements[20] = ((closureN)self_73842)->elements[20]; c_731392.elements[21] = ((closureN)self_73842)->elements[21]; c_731392.elements[22] = ((closureN)self_73842)->elements[22]; c_731392.elements[23] = ((closureN)self_73842)->elements[23]; c_731392.elements[24] = ((closureN)self_73842)->elements[24]; c_731392.elements[25] = ((closureN)self_73842)->elements[25]; c_731392.elements[26] = ((closureN)self_73842)->elements[26]; c_731392.elements[27] = ((closureN)self_73842)->elements[27]; c_731392.elements[28] = ((closureN)self_73842)->elements[28]; c_731392.elements[29] = ((closureN)self_73842)->elements[29]; c_731392.elements[30] = ((closureN)self_73842)->elements[30]; c_731392.elements[31] = ((closureN)self_73842)->elements[31]; c_731392.elements[32] = ((closureN)self_73842)->elements[32]; c_731392.elements[33] = ((closureN)self_73842)->elements[33]; return_closcall1(data,(closure)&c_731392, Cyc_set_cell(data, ((closureN)self_73842)->elements[0], NULL));; } static void __lambda_181(void *data, int argc, object self_73843, object r_73372) { closureN_type c_731394; c_731394.hdr.mark = gc_color_red; c_731394.hdr.grayed = 0; c_731394.tag = closureN_tag; c_731394.fn = (function_type)__lambda_179; c_731394.num_args = 1; c_731394.num_elements = 33; c_731394.elements = (object *)alloca(sizeof(object) * 33); c_731394.elements[0] = ((closureN)self_73843)->elements[0]; c_731394.elements[1] = ((closureN)self_73843)->elements[1]; c_731394.elements[2] = ((closureN)self_73843)->elements[2]; c_731394.elements[3] = ((closureN)self_73843)->elements[3]; c_731394.elements[4] = ((closureN)self_73843)->elements[4]; c_731394.elements[5] = ((closureN)self_73843)->elements[5]; c_731394.elements[6] = ((closureN)self_73843)->elements[6]; c_731394.elements[7] = ((closureN)self_73843)->elements[7]; c_731394.elements[8] = ((closureN)self_73843)->elements[8]; c_731394.elements[9] = ((closureN)self_73843)->elements[10]; c_731394.elements[10] = ((closureN)self_73843)->elements[11]; c_731394.elements[11] = ((closureN)self_73843)->elements[12]; c_731394.elements[12] = ((closureN)self_73843)->elements[13]; c_731394.elements[13] = ((closureN)self_73843)->elements[14]; c_731394.elements[14] = ((closureN)self_73843)->elements[15]; c_731394.elements[15] = ((closureN)self_73843)->elements[16]; c_731394.elements[16] = ((closureN)self_73843)->elements[17]; c_731394.elements[17] = ((closureN)self_73843)->elements[18]; c_731394.elements[18] = ((closureN)self_73843)->elements[19]; c_731394.elements[19] = ((closureN)self_73843)->elements[20]; c_731394.elements[20] = ((closureN)self_73843)->elements[21]; c_731394.elements[21] = ((closureN)self_73843)->elements[22]; c_731394.elements[22] = ((closureN)self_73843)->elements[23]; c_731394.elements[23] = ((closureN)self_73843)->elements[24]; c_731394.elements[24] = ((closureN)self_73843)->elements[25]; c_731394.elements[25] = ((closureN)self_73843)->elements[26]; c_731394.elements[26] = ((closureN)self_73843)->elements[27]; c_731394.elements[27] = ((closureN)self_73843)->elements[28]; c_731394.elements[28] = ((closureN)self_73843)->elements[29]; c_731394.elements[29] = ((closureN)self_73843)->elements[30]; c_731394.elements[30] = ((closureN)self_73843)->elements[31]; c_731394.elements[31] = ((closureN)self_73843)->elements[32]; c_731394.elements[32] = ((closureN)self_73843)->elements[33]; mclosure0(c_734150, (function_type)__lambda_180);c_734150.num_args = 1; return_closcall1(data,(closure)&c_731394, Cyc_set_cell(data, ((closureN)self_73843)->elements[9], &c_734150));; } static void __lambda_180(void *data, int argc, object self_73844, object k_73606, object sym_73312) { return_closcall3(data, __glo_vector_scheme_base, k_73606, sym_73312, NULL);; } static void __lambda_179(void *data, int argc, object self_73845, object r_73373) { closureN_type c_731396; c_731396.hdr.mark = gc_color_red; c_731396.hdr.grayed = 0; c_731396.tag = closureN_tag; c_731396.fn = (function_type)__lambda_177; c_731396.num_args = 1; c_731396.num_elements = 32; c_731396.elements = (object *)alloca(sizeof(object) * 32); c_731396.elements[0] = ((closureN)self_73845)->elements[0]; c_731396.elements[1] = ((closureN)self_73845)->elements[1]; c_731396.elements[2] = ((closureN)self_73845)->elements[2]; c_731396.elements[3] = ((closureN)self_73845)->elements[3]; c_731396.elements[4] = ((closureN)self_73845)->elements[4]; c_731396.elements[5] = ((closureN)self_73845)->elements[5]; c_731396.elements[6] = ((closureN)self_73845)->elements[6]; c_731396.elements[7] = ((closureN)self_73845)->elements[7]; c_731396.elements[8] = ((closureN)self_73845)->elements[8]; c_731396.elements[9] = ((closureN)self_73845)->elements[9]; c_731396.elements[10] = ((closureN)self_73845)->elements[10]; c_731396.elements[11] = ((closureN)self_73845)->elements[11]; c_731396.elements[12] = ((closureN)self_73845)->elements[13]; c_731396.elements[13] = ((closureN)self_73845)->elements[14]; c_731396.elements[14] = ((closureN)self_73845)->elements[15]; c_731396.elements[15] = ((closureN)self_73845)->elements[16]; c_731396.elements[16] = ((closureN)self_73845)->elements[17]; c_731396.elements[17] = ((closureN)self_73845)->elements[18]; c_731396.elements[18] = ((closureN)self_73845)->elements[19]; c_731396.elements[19] = ((closureN)self_73845)->elements[20]; c_731396.elements[20] = ((closureN)self_73845)->elements[21]; c_731396.elements[21] = ((closureN)self_73845)->elements[22]; c_731396.elements[22] = ((closureN)self_73845)->elements[23]; c_731396.elements[23] = ((closureN)self_73845)->elements[24]; c_731396.elements[24] = ((closureN)self_73845)->elements[25]; c_731396.elements[25] = ((closureN)self_73845)->elements[26]; c_731396.elements[26] = ((closureN)self_73845)->elements[27]; c_731396.elements[27] = ((closureN)self_73845)->elements[28]; c_731396.elements[28] = ((closureN)self_73845)->elements[29]; c_731396.elements[29] = ((closureN)self_73845)->elements[30]; c_731396.elements[30] = ((closureN)self_73845)->elements[31]; c_731396.elements[31] = ((closureN)self_73845)->elements[32]; mclosure0(c_734143, (function_type)__lambda_178);c_734143.num_args = 2; return_closcall1(data,(closure)&c_731396, Cyc_set_cell(data, ((closureN)self_73845)->elements[12], &c_734143));; } static void __lambda_178(void *data, int argc, object self_73846, object k_73604, object symbol_91record_73311, object lemmas_73310) { return_closcall1(data, k_73604, Cyc_vector_set(data, symbol_91record_73311, obj_int2obj(1), lemmas_73310));; } static void __lambda_177(void *data, int argc, object self_73847, object r_73374) { closureN_type c_731398; c_731398.hdr.mark = gc_color_red; c_731398.hdr.grayed = 0; c_731398.tag = closureN_tag; c_731398.fn = (function_type)__lambda_175; c_731398.num_args = 1; c_731398.num_elements = 31; c_731398.elements = (object *)alloca(sizeof(object) * 31); c_731398.elements[0] = ((closureN)self_73847)->elements[0]; c_731398.elements[1] = ((closureN)self_73847)->elements[1]; c_731398.elements[2] = ((closureN)self_73847)->elements[2]; c_731398.elements[3] = ((closureN)self_73847)->elements[3]; c_731398.elements[4] = ((closureN)self_73847)->elements[4]; c_731398.elements[5] = ((closureN)self_73847)->elements[5]; c_731398.elements[6] = ((closureN)self_73847)->elements[7]; c_731398.elements[7] = ((closureN)self_73847)->elements[8]; c_731398.elements[8] = ((closureN)self_73847)->elements[9]; c_731398.elements[9] = ((closureN)self_73847)->elements[10]; c_731398.elements[10] = ((closureN)self_73847)->elements[11]; c_731398.elements[11] = ((closureN)self_73847)->elements[12]; c_731398.elements[12] = ((closureN)self_73847)->elements[13]; c_731398.elements[13] = ((closureN)self_73847)->elements[14]; c_731398.elements[14] = ((closureN)self_73847)->elements[15]; c_731398.elements[15] = ((closureN)self_73847)->elements[16]; c_731398.elements[16] = ((closureN)self_73847)->elements[17]; c_731398.elements[17] = ((closureN)self_73847)->elements[18]; c_731398.elements[18] = ((closureN)self_73847)->elements[19]; c_731398.elements[19] = ((closureN)self_73847)->elements[20]; c_731398.elements[20] = ((closureN)self_73847)->elements[21]; c_731398.elements[21] = ((closureN)self_73847)->elements[22]; c_731398.elements[22] = ((closureN)self_73847)->elements[23]; c_731398.elements[23] = ((closureN)self_73847)->elements[24]; c_731398.elements[24] = ((closureN)self_73847)->elements[25]; c_731398.elements[25] = ((closureN)self_73847)->elements[26]; c_731398.elements[26] = ((closureN)self_73847)->elements[27]; c_731398.elements[27] = ((closureN)self_73847)->elements[28]; c_731398.elements[28] = ((closureN)self_73847)->elements[29]; c_731398.elements[29] = ((closureN)self_73847)->elements[30]; c_731398.elements[30] = ((closureN)self_73847)->elements[31]; mclosure0(c_734136, (function_type)__lambda_176);c_734136.num_args = 1; return_closcall1(data,(closure)&c_731398, Cyc_set_cell(data, ((closureN)self_73847)->elements[6], &c_734136));; } static void __lambda_176(void *data, int argc, object self_73848, object k_73602, object symbol_91record_73309) { return_closcall1(data, k_73602, Cyc_vector_ref(data, symbol_91record_73309, obj_int2obj(1)));; } static void __lambda_175(void *data, int argc, object self_73849, object r_73375) { closureN_type c_731400; c_731400.hdr.mark = gc_color_red; c_731400.hdr.grayed = 0; c_731400.tag = closureN_tag; c_731400.fn = (function_type)__lambda_173; c_731400.num_args = 1; c_731400.num_elements = 30; c_731400.elements = (object *)alloca(sizeof(object) * 30); c_731400.elements[0] = ((closureN)self_73849)->elements[0]; c_731400.elements[1] = ((closureN)self_73849)->elements[1]; c_731400.elements[2] = ((closureN)self_73849)->elements[2]; c_731400.elements[3] = ((closureN)self_73849)->elements[3]; c_731400.elements[4] = ((closureN)self_73849)->elements[4]; c_731400.elements[5] = ((closureN)self_73849)->elements[5]; c_731400.elements[6] = ((closureN)self_73849)->elements[7]; c_731400.elements[7] = ((closureN)self_73849)->elements[8]; c_731400.elements[8] = ((closureN)self_73849)->elements[9]; c_731400.elements[9] = ((closureN)self_73849)->elements[10]; c_731400.elements[10] = ((closureN)self_73849)->elements[11]; c_731400.elements[11] = ((closureN)self_73849)->elements[12]; c_731400.elements[12] = ((closureN)self_73849)->elements[13]; c_731400.elements[13] = ((closureN)self_73849)->elements[14]; c_731400.elements[14] = ((closureN)self_73849)->elements[15]; c_731400.elements[15] = ((closureN)self_73849)->elements[16]; c_731400.elements[16] = ((closureN)self_73849)->elements[17]; c_731400.elements[17] = ((closureN)self_73849)->elements[18]; c_731400.elements[18] = ((closureN)self_73849)->elements[19]; c_731400.elements[19] = ((closureN)self_73849)->elements[20]; c_731400.elements[20] = ((closureN)self_73849)->elements[21]; c_731400.elements[21] = ((closureN)self_73849)->elements[22]; c_731400.elements[22] = ((closureN)self_73849)->elements[23]; c_731400.elements[23] = ((closureN)self_73849)->elements[24]; c_731400.elements[24] = ((closureN)self_73849)->elements[25]; c_731400.elements[25] = ((closureN)self_73849)->elements[26]; c_731400.elements[26] = ((closureN)self_73849)->elements[27]; c_731400.elements[27] = ((closureN)self_73849)->elements[28]; c_731400.elements[28] = ((closureN)self_73849)->elements[29]; c_731400.elements[29] = ((closureN)self_73849)->elements[30]; mclosure0(c_734129, (function_type)__lambda_174);c_734129.num_args = 1; return_closcall1(data,(closure)&c_731400, Cyc_set_cell(data, ((closureN)self_73849)->elements[6], &c_734129));; } static void __lambda_174(void *data, int argc, object self_73850, object k_73600, object symbol_91record_73308) { return_closcall1(data, k_73600, Cyc_vector_ref(data, symbol_91record_73308, obj_int2obj(0)));; } static void __lambda_173(void *data, int argc, object self_73851, object r_73376) { closureN_type c_731402; c_731402.hdr.mark = gc_color_red; c_731402.hdr.grayed = 0; c_731402.tag = closureN_tag; c_731402.fn = (function_type)__lambda_171; c_731402.num_args = 1; c_731402.num_elements = 29; c_731402.elements = (object *)alloca(sizeof(object) * 29); c_731402.elements[0] = ((closureN)self_73851)->elements[0]; c_731402.elements[1] = ((closureN)self_73851)->elements[1]; c_731402.elements[2] = ((closureN)self_73851)->elements[2]; c_731402.elements[3] = ((closureN)self_73851)->elements[3]; c_731402.elements[4] = ((closureN)self_73851)->elements[4]; c_731402.elements[5] = ((closureN)self_73851)->elements[5]; c_731402.elements[6] = ((closureN)self_73851)->elements[6]; c_731402.elements[7] = ((closureN)self_73851)->elements[7]; c_731402.elements[8] = ((closureN)self_73851)->elements[8]; c_731402.elements[9] = ((closureN)self_73851)->elements[9]; c_731402.elements[10] = ((closureN)self_73851)->elements[10]; c_731402.elements[11] = ((closureN)self_73851)->elements[11]; c_731402.elements[12] = ((closureN)self_73851)->elements[12]; c_731402.elements[13] = ((closureN)self_73851)->elements[13]; c_731402.elements[14] = ((closureN)self_73851)->elements[14]; c_731402.elements[15] = ((closureN)self_73851)->elements[15]; c_731402.elements[16] = ((closureN)self_73851)->elements[17]; c_731402.elements[17] = ((closureN)self_73851)->elements[18]; c_731402.elements[18] = ((closureN)self_73851)->elements[19]; c_731402.elements[19] = ((closureN)self_73851)->elements[20]; c_731402.elements[20] = ((closureN)self_73851)->elements[21]; c_731402.elements[21] = ((closureN)self_73851)->elements[22]; c_731402.elements[22] = ((closureN)self_73851)->elements[23]; c_731402.elements[23] = ((closureN)self_73851)->elements[24]; c_731402.elements[24] = ((closureN)self_73851)->elements[25]; c_731402.elements[25] = ((closureN)self_73851)->elements[26]; c_731402.elements[26] = ((closureN)self_73851)->elements[27]; c_731402.elements[27] = ((closureN)self_73851)->elements[28]; c_731402.elements[28] = ((closureN)self_73851)->elements[29]; mclosure0(c_734122, (function_type)__lambda_172);c_734122.num_args = 2; return_closcall1(data,(closure)&c_731402, Cyc_set_cell(data, ((closureN)self_73851)->elements[16], &c_734122));; } static void __lambda_172(void *data, int argc, object self_73852, object k_73598, object r1_73307, object r2_73306) { return_closcall1(data, k_73598, Cyc_eq(r1_73307, r2_73306));; } static void __lambda_171(void *data, int argc, object self_73853, object r_73377) { closureN_type c_731404; c_731404.hdr.mark = gc_color_red; c_731404.hdr.grayed = 0; c_731404.tag = closureN_tag; c_731404.fn = (function_type)__lambda_159; c_731404.num_args = 1; c_731404.num_elements = 29; c_731404.elements = (object *)alloca(sizeof(object) * 29); c_731404.elements[0] = ((closureN)self_73853)->elements[0]; c_731404.elements[1] = ((closureN)self_73853)->elements[1]; c_731404.elements[2] = ((closureN)self_73853)->elements[2]; c_731404.elements[3] = ((closureN)self_73853)->elements[3]; c_731404.elements[4] = ((closureN)self_73853)->elements[4]; c_731404.elements[5] = ((closureN)self_73853)->elements[5]; c_731404.elements[6] = ((closureN)self_73853)->elements[6]; c_731404.elements[7] = ((closureN)self_73853)->elements[7]; c_731404.elements[8] = ((closureN)self_73853)->elements[8]; c_731404.elements[9] = ((closureN)self_73853)->elements[9]; c_731404.elements[10] = ((closureN)self_73853)->elements[10]; c_731404.elements[11] = ((closureN)self_73853)->elements[11]; c_731404.elements[12] = ((closureN)self_73853)->elements[12]; c_731404.elements[13] = ((closureN)self_73853)->elements[13]; c_731404.elements[14] = ((closureN)self_73853)->elements[14]; c_731404.elements[15] = ((closureN)self_73853)->elements[15]; c_731404.elements[16] = ((closureN)self_73853)->elements[16]; c_731404.elements[17] = ((closureN)self_73853)->elements[17]; c_731404.elements[18] = ((closureN)self_73853)->elements[18]; c_731404.elements[19] = ((closureN)self_73853)->elements[19]; c_731404.elements[20] = ((closureN)self_73853)->elements[20]; c_731404.elements[21] = ((closureN)self_73853)->elements[21]; c_731404.elements[22] = ((closureN)self_73853)->elements[22]; c_731404.elements[23] = ((closureN)self_73853)->elements[23]; c_731404.elements[24] = ((closureN)self_73853)->elements[24]; c_731404.elements[25] = ((closureN)self_73853)->elements[25]; c_731404.elements[26] = ((closureN)self_73853)->elements[26]; c_731404.elements[27] = ((closureN)self_73853)->elements[27]; c_731404.elements[28] = ((closureN)self_73853)->elements[28]; closureN_type c_734056; c_734056.hdr.mark = gc_color_red; c_734056.hdr.grayed = 0; c_734056.tag = closureN_tag; c_734056.fn = (function_type)__lambda_170; c_734056.num_args = 3; c_734056.num_elements = 4; c_734056.elements = (object *)alloca(sizeof(object) * 4); c_734056.elements[0] = ((closureN)self_73853)->elements[2]; c_734056.elements[1] = ((closureN)self_73853)->elements[17]; c_734056.elements[2] = ((closureN)self_73853)->elements[24]; c_734056.elements[3] = ((closureN)self_73853)->elements[25]; return_closcall1(data,(closure)&c_731404, Cyc_set_cell(data, ((closureN)self_73853)->elements[21], &c_734056));; } static void __lambda_170(void *data, int argc, object self_73854, object k_73584, object alist_73299, object term_73298, object n_73297) { closureN_type c_734061; c_734061.hdr.mark = gc_color_red; c_734061.hdr.grayed = 0; c_734061.tag = closureN_tag; c_734061.fn = (function_type)__lambda_169; c_734061.num_args = 1; c_734061.num_elements = 6; c_734061.elements = (object *)alloca(sizeof(object) * 6); c_734061.elements[0] = ((closureN)self_73854)->elements[0]; c_734061.elements[1] = k_73584; c_734061.elements[2] = n_73297; c_734061.elements[3] = ((closureN)self_73854)->elements[1]; c_734061.elements[4] = term_73298; c_734061.elements[5] = ((closureN)self_73854)->elements[3]; return_closcall2(data, car(((closureN)self_73854)->elements[2]), &c_734061, alist_73299);; } static void __lambda_169(void *data, int argc, object self_73855, object r_73586) { closureN_type c_734063; c_734063.hdr.mark = gc_color_red; c_734063.hdr.grayed = 0; c_734063.tag = closureN_tag; c_734063.fn = (function_type)__lambda_168; c_734063.num_args = 2; c_734063.num_elements = 5; c_734063.elements = (object *)alloca(sizeof(object) * 5); c_734063.elements[0] = ((closureN)self_73855)->elements[0]; c_734063.elements[1] = ((closureN)self_73855)->elements[1]; c_734063.elements[2] = r_73586; c_734063.elements[3] = ((closureN)self_73855)->elements[3]; c_734063.elements[4] = ((closureN)self_73855)->elements[5]; return_closcall2(data,(closure)&c_734063, ((closureN)self_73855)->elements[4], ((closureN)self_73855)->elements[2]);; } static void __lambda_168(void *data, int argc, object self_73856, object term_73301, object n_73300) { closureN_type c_734065; c_734065.hdr.mark = gc_color_red; c_734065.hdr.grayed = 0; c_734065.tag = closureN_tag; c_734065.fn = (function_type)__lambda_167; c_734065.num_args = 1; c_734065.num_elements = 7; c_734065.elements = (object *)alloca(sizeof(object) * 7); c_734065.elements[0] = ((closureN)self_73856)->elements[0]; c_734065.elements[1] = ((closureN)self_73856)->elements[1]; c_734065.elements[2] = n_73300; c_734065.elements[3] = ((closureN)self_73856)->elements[2]; c_734065.elements[4] = ((closureN)self_73856)->elements[3]; c_734065.elements[5] = term_73301; c_734065.elements[6] = ((closureN)self_73856)->elements[4]; return_closcall1(data,(closure)&c_734065, boolean_f);; } static void __lambda_167(void *data, int argc, object self_73857, object lp_7337_73302) { closureN_type c_734067; c_734067.hdr.mark = gc_color_red; c_734067.hdr.grayed = 0; c_734067.tag = closureN_tag; c_734067.fn = (function_type)__lambda_166; c_734067.num_args = 1; c_734067.num_elements = 7; c_734067.elements = (object *)alloca(sizeof(object) * 7); c_734067.elements[0] = ((closureN)self_73857)->elements[0]; c_734067.elements[1] = ((closureN)self_73857)->elements[1]; c_734067.elements[2] = ((closureN)self_73857)->elements[2]; c_734067.elements[3] = ((closureN)self_73857)->elements[3]; c_734067.elements[4] = ((closureN)self_73857)->elements[4]; c_734067.elements[5] = ((closureN)self_73857)->elements[5]; c_734067.elements[6] = ((closureN)self_73857)->elements[6]; make_cell(c_734116,lp_7337_73302); return_closcall1(data,(closure)&c_734067, &c_734116);; } static void __lambda_166(void *data, int argc, object self_73858, object lp_7337_73302) { closureN_type c_734069; c_734069.hdr.mark = gc_color_red; c_734069.hdr.grayed = 0; c_734069.tag = closureN_tag; c_734069.fn = (function_type)__lambda_163; c_734069.num_args = 1; c_734069.num_elements = 8; c_734069.elements = (object *)alloca(sizeof(object) * 8); c_734069.elements[0] = ((closureN)self_73858)->elements[0]; c_734069.elements[1] = ((closureN)self_73858)->elements[1]; c_734069.elements[2] = lp_7337_73302; c_734069.elements[3] = ((closureN)self_73858)->elements[2]; c_734069.elements[4] = ((closureN)self_73858)->elements[3]; c_734069.elements[5] = ((closureN)self_73858)->elements[4]; c_734069.elements[6] = ((closureN)self_73858)->elements[5]; c_734069.elements[7] = ((closureN)self_73858)->elements[6]; closureN_type c_734095; c_734095.hdr.mark = gc_color_red; c_734095.hdr.grayed = 0; c_734095.tag = closureN_tag; c_734095.fn = (function_type)__lambda_165; c_734095.num_args = 2; c_734095.num_elements = 1; c_734095.elements = (object *)alloca(sizeof(object) * 1); c_734095.elements[0] = lp_7337_73302; return_closcall1(data,(closure)&c_734069, Cyc_set_cell(data, lp_7337_73302, &c_734095));; } static void __lambda_165(void *data, int argc, object self_73859, object k_73591, object term_73304, object n_73303) { double_type local_734098; object c_734099 = ((inline_function_type) ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_734098,n_73303); if( (boolean_f != c_734099) ){ return_closcall1(data, k_73591, term_73304); } else { closureN_type c_734102; c_734102.hdr.mark = gc_color_red; c_734102.hdr.grayed = 0; c_734102.tag = closureN_tag; c_734102.fn = (function_type)__lambda_164; c_734102.num_args = 1; c_734102.num_elements = 3; c_734102.elements = (object *)alloca(sizeof(object) * 3); c_734102.elements[0] = k_73591; c_734102.elements[1] = ((closureN)self_73859)->elements[0]; c_734102.elements[2] = n_73303; make_pair(c_734113,quote_f,NULL); return_closcall4(data, __glo__list_scheme_base, &c_734102, quote_or, term_73304, &c_734113);} ; } static void __lambda_164(void *data, int argc, object self_73860, object r_73593) { double_type local_734110; object c_734111 = Cyc_fast_sub(data,&local_734110,((closureN)self_73860)->elements[2], obj_int2obj(1)); return_closcall3(data, car(((closureN)self_73860)->elements[1]), ((closureN)self_73860)->elements[0], r_73593, c_734111);; } static void __lambda_163(void *data, int argc, object self_73861, object r_73589) { closureN_type c_734074; c_734074.hdr.mark = gc_color_red; c_734074.hdr.grayed = 0; c_734074.tag = closureN_tag; c_734074.fn = (function_type)__lambda_162; c_734074.num_args = 1; c_734074.num_elements = 5; c_734074.elements = (object *)alloca(sizeof(object) * 5); c_734074.elements[0] = ((closureN)self_73861)->elements[0]; c_734074.elements[1] = ((closureN)self_73861)->elements[1]; c_734074.elements[2] = ((closureN)self_73861)->elements[4]; c_734074.elements[3] = ((closureN)self_73861)->elements[5]; c_734074.elements[4] = ((closureN)self_73861)->elements[7]; return_closcall3(data, car(((closureN)self_73861)->elements[2]), &c_734074, ((closureN)self_73861)->elements[6], ((closureN)self_73861)->elements[3]);; } static void __lambda_162(void *data, int argc, object self_73862, object r_73588) { closureN_type c_734079; c_734079.hdr.mark = gc_color_red; c_734079.hdr.grayed = 0; c_734079.tag = closureN_tag; c_734079.fn = (function_type)__lambda_161; c_734079.num_args = 1; c_734079.num_elements = 4; c_734079.elements = (object *)alloca(sizeof(object) * 4); c_734079.elements[0] = ((closureN)self_73862)->elements[0]; c_734079.elements[1] = ((closureN)self_73862)->elements[1]; c_734079.elements[2] = ((closureN)self_73862)->elements[2]; c_734079.elements[3] = ((closureN)self_73862)->elements[3]; return_closcall2(data, car(((closureN)self_73862)->elements[4]), &c_734079, r_73588);; } static void __lambda_161(void *data, int argc, object self_73863, object r_73587) { closureN_type c_734084; c_734084.hdr.mark = gc_color_red; c_734084.hdr.grayed = 0; c_734084.tag = closureN_tag; c_734084.fn = (function_type)__lambda_160; c_734084.num_args = 1; c_734084.num_elements = 2; c_734084.elements = (object *)alloca(sizeof(object) * 2); c_734084.elements[0] = ((closureN)self_73863)->elements[1]; c_734084.elements[1] = ((closureN)self_73863)->elements[3]; return_closcall3(data, car(((closureN)self_73863)->elements[0]), &c_734084, ((closureN)self_73863)->elements[2], r_73587);; } static void __lambda_160(void *data, int argc, object self_73864, object term_73305) { return_closcall2(data, car(((closureN)self_73864)->elements[1]), ((closureN)self_73864)->elements[0], term_73305);; } static void __lambda_159(void *data, int argc, object self_73865, object r_73378) { closureN_type c_731406; c_731406.hdr.mark = gc_color_red; c_731406.hdr.grayed = 0; c_731406.tag = closureN_tag; c_731406.fn = (function_type)__lambda_155; c_731406.num_args = 1; c_731406.num_elements = 28; c_731406.elements = (object *)alloca(sizeof(object) * 28); c_731406.elements[0] = ((closureN)self_73865)->elements[0]; c_731406.elements[1] = ((closureN)self_73865)->elements[1]; c_731406.elements[2] = ((closureN)self_73865)->elements[2]; c_731406.elements[3] = ((closureN)self_73865)->elements[3]; c_731406.elements[4] = ((closureN)self_73865)->elements[4]; c_731406.elements[5] = ((closureN)self_73865)->elements[5]; c_731406.elements[6] = ((closureN)self_73865)->elements[6]; c_731406.elements[7] = ((closureN)self_73865)->elements[7]; c_731406.elements[8] = ((closureN)self_73865)->elements[8]; c_731406.elements[9] = ((closureN)self_73865)->elements[9]; c_731406.elements[10] = ((closureN)self_73865)->elements[10]; c_731406.elements[11] = ((closureN)self_73865)->elements[11]; c_731406.elements[12] = ((closureN)self_73865)->elements[12]; c_731406.elements[13] = ((closureN)self_73865)->elements[13]; c_731406.elements[14] = ((closureN)self_73865)->elements[14]; c_731406.elements[15] = ((closureN)self_73865)->elements[15]; c_731406.elements[16] = ((closureN)self_73865)->elements[16]; c_731406.elements[17] = ((closureN)self_73865)->elements[17]; c_731406.elements[18] = ((closureN)self_73865)->elements[18]; c_731406.elements[19] = ((closureN)self_73865)->elements[19]; c_731406.elements[20] = ((closureN)self_73865)->elements[20]; c_731406.elements[21] = ((closureN)self_73865)->elements[21]; c_731406.elements[22] = ((closureN)self_73865)->elements[22]; c_731406.elements[23] = ((closureN)self_73865)->elements[23]; c_731406.elements[24] = ((closureN)self_73865)->elements[25]; c_731406.elements[25] = ((closureN)self_73865)->elements[26]; c_731406.elements[26] = ((closureN)self_73865)->elements[27]; c_731406.elements[27] = ((closureN)self_73865)->elements[28]; closureN_type c_734022; c_734022.hdr.mark = gc_color_red; c_734022.hdr.grayed = 0; c_734022.tag = closureN_tag; c_734022.fn = (function_type)__lambda_158; c_734022.num_args = 1; c_734022.num_elements = 2; c_734022.elements = (object *)alloca(sizeof(object) * 2); c_734022.elements[0] = ((closureN)self_73865)->elements[24]; c_734022.elements[1] = ((closureN)self_73865)->elements[25]; return_closcall1(data,(closure)&c_731406, Cyc_set_cell(data, ((closureN)self_73865)->elements[24], &c_734022));; } static void __lambda_158(void *data, int argc, object self_73866, object k_73575, object alist_73296) { if( (boolean_f != Cyc_is_null(alist_73296)) ){ return_closcall1(data, k_73575, NULL); } else { closureN_type c_734030; c_734030.hdr.mark = gc_color_red; c_734030.hdr.grayed = 0; c_734030.tag = closureN_tag; c_734030.fn = (function_type)__lambda_157; c_734030.num_args = 1; c_734030.num_elements = 3; c_734030.elements = (object *)alloca(sizeof(object) * 3); c_734030.elements[0] = alist_73296; c_734030.elements[1] = k_73575; c_734030.elements[2] = ((closureN)self_73866)->elements[0]; return_closcall2(data, car(((closureN)self_73866)->elements[1]), &c_734030, Cyc_cdar(data, alist_73296));} ; } static void __lambda_157(void *data, int argc, object self_73867, object r_73581) { closureN_type c_734035; c_734035.hdr.mark = gc_color_red; c_734035.hdr.grayed = 0; c_734035.tag = closureN_tag; c_734035.fn = (function_type)__lambda_156; c_734035.num_args = 1; c_734035.num_elements = 3; c_734035.elements = (object *)alloca(sizeof(object) * 3); c_734035.elements[0] = ((closureN)self_73867)->elements[0]; c_734035.elements[1] = ((closureN)self_73867)->elements[1]; c_734035.elements[2] = r_73581; return_closcall2(data, car(((closureN)self_73867)->elements[2]), &c_734035, Cyc_cdr(data, ((closureN)self_73867)->elements[0]));; } static void __lambda_156(void *data, int argc, object self_73868, object r_73578) { make_pair(c_734043,Cyc_caar(data, ((closureN)self_73868)->elements[0]), ((closureN)self_73868)->elements[2]); make_pair(c_734040,&c_734043, r_73578); return_closcall1(data, ((closureN)self_73868)->elements[1], &c_734040);; } static void __lambda_155(void *data, int argc, object self_73869, object r_73379) { closureN_type c_731408; c_731408.hdr.mark = gc_color_red; c_731408.hdr.grayed = 0; c_731408.tag = closureN_tag; c_731408.fn = (function_type)__lambda_152; c_731408.num_args = 1; c_731408.num_elements = 28; c_731408.elements = (object *)alloca(sizeof(object) * 28); c_731408.elements[0] = ((closureN)self_73869)->elements[0]; c_731408.elements[1] = ((closureN)self_73869)->elements[1]; c_731408.elements[2] = ((closureN)self_73869)->elements[2]; c_731408.elements[3] = ((closureN)self_73869)->elements[3]; c_731408.elements[4] = ((closureN)self_73869)->elements[4]; c_731408.elements[5] = ((closureN)self_73869)->elements[5]; c_731408.elements[6] = ((closureN)self_73869)->elements[6]; c_731408.elements[7] = ((closureN)self_73869)->elements[7]; c_731408.elements[8] = ((closureN)self_73869)->elements[8]; c_731408.elements[9] = ((closureN)self_73869)->elements[9]; c_731408.elements[10] = ((closureN)self_73869)->elements[10]; c_731408.elements[11] = ((closureN)self_73869)->elements[11]; c_731408.elements[12] = ((closureN)self_73869)->elements[12]; c_731408.elements[13] = ((closureN)self_73869)->elements[13]; c_731408.elements[14] = ((closureN)self_73869)->elements[14]; c_731408.elements[15] = ((closureN)self_73869)->elements[15]; c_731408.elements[16] = ((closureN)self_73869)->elements[16]; c_731408.elements[17] = ((closureN)self_73869)->elements[17]; c_731408.elements[18] = ((closureN)self_73869)->elements[18]; c_731408.elements[19] = ((closureN)self_73869)->elements[19]; c_731408.elements[20] = ((closureN)self_73869)->elements[20]; c_731408.elements[21] = ((closureN)self_73869)->elements[21]; c_731408.elements[22] = ((closureN)self_73869)->elements[22]; c_731408.elements[23] = ((closureN)self_73869)->elements[23]; c_731408.elements[24] = ((closureN)self_73869)->elements[24]; c_731408.elements[25] = ((closureN)self_73869)->elements[25]; c_731408.elements[26] = ((closureN)self_73869)->elements[26]; c_731408.elements[27] = ((closureN)self_73869)->elements[27]; closureN_type c_733993; c_733993.hdr.mark = gc_color_red; c_733993.hdr.grayed = 0; c_733993.tag = closureN_tag; c_733993.fn = (function_type)__lambda_154; c_733993.num_args = 2; c_733993.num_elements = 1; c_733993.elements = (object *)alloca(sizeof(object) * 1); c_733993.elements[0] = ((closureN)self_73869)->elements[3]; return_closcall1(data,(closure)&c_731408, Cyc_set_cell(data, ((closureN)self_73869)->elements[2], &c_733993));; } static void __lambda_154(void *data, int argc, object self_73870, object k_73568, object alist_73294, object term_73293) { if( (boolean_f != Cyc_is_pair(term_73293)) ){ closureN_type c_734000; c_734000.hdr.mark = gc_color_red; c_734000.hdr.grayed = 0; c_734000.tag = closureN_tag; c_734000.fn = (function_type)__lambda_153; c_734000.num_args = 1; c_734000.num_elements = 2; c_734000.elements = (object *)alloca(sizeof(object) * 2); c_734000.elements[0] = k_73568; c_734000.elements[1] = term_73293; return_closcall3(data, car(((closureN)self_73870)->elements[0]), &c_734000, alist_73294, Cyc_cdr(data, term_73293)); } else { if( (boolean_f != assq(data, term_73293, alist_73294)) ){ return_closcall1(data, k_73568, Cyc_cdr(data, assq(data, term_73293, alist_73294))); } else { return_closcall1(data, k_73568, term_73293);} } ; } static void __lambda_153(void *data, int argc, object self_73871, object r_73571) { make_pair(c_734005,Cyc_car(data, ((closureN)self_73871)->elements[1]), r_73571); return_closcall1(data, ((closureN)self_73871)->elements[0], &c_734005);; } static void __lambda_152(void *data, int argc, object self_73872, object r_73380) { closureN_type c_731410; c_731410.hdr.mark = gc_color_red; c_731410.hdr.grayed = 0; c_731410.tag = closureN_tag; c_731410.fn = (function_type)__lambda_148; c_731410.num_args = 1; c_731410.num_elements = 27; c_731410.elements = (object *)alloca(sizeof(object) * 27); c_731410.elements[0] = ((closureN)self_73872)->elements[0]; c_731410.elements[1] = ((closureN)self_73872)->elements[1]; c_731410.elements[2] = ((closureN)self_73872)->elements[2]; c_731410.elements[3] = ((closureN)self_73872)->elements[4]; c_731410.elements[4] = ((closureN)self_73872)->elements[5]; c_731410.elements[5] = ((closureN)self_73872)->elements[6]; c_731410.elements[6] = ((closureN)self_73872)->elements[7]; c_731410.elements[7] = ((closureN)self_73872)->elements[8]; c_731410.elements[8] = ((closureN)self_73872)->elements[9]; c_731410.elements[9] = ((closureN)self_73872)->elements[10]; c_731410.elements[10] = ((closureN)self_73872)->elements[11]; c_731410.elements[11] = ((closureN)self_73872)->elements[12]; c_731410.elements[12] = ((closureN)self_73872)->elements[13]; c_731410.elements[13] = ((closureN)self_73872)->elements[14]; c_731410.elements[14] = ((closureN)self_73872)->elements[15]; c_731410.elements[15] = ((closureN)self_73872)->elements[16]; c_731410.elements[16] = ((closureN)self_73872)->elements[17]; c_731410.elements[17] = ((closureN)self_73872)->elements[18]; c_731410.elements[18] = ((closureN)self_73872)->elements[19]; c_731410.elements[19] = ((closureN)self_73872)->elements[20]; c_731410.elements[20] = ((closureN)self_73872)->elements[21]; c_731410.elements[21] = ((closureN)self_73872)->elements[22]; c_731410.elements[22] = ((closureN)self_73872)->elements[23]; c_731410.elements[23] = ((closureN)self_73872)->elements[24]; c_731410.elements[24] = ((closureN)self_73872)->elements[25]; c_731410.elements[25] = ((closureN)self_73872)->elements[26]; c_731410.elements[26] = ((closureN)self_73872)->elements[27]; closureN_type c_733964; c_733964.hdr.mark = gc_color_red; c_733964.hdr.grayed = 0; c_733964.tag = closureN_tag; c_733964.fn = (function_type)__lambda_151; c_733964.num_args = 2; c_733964.num_elements = 2; c_733964.elements = (object *)alloca(sizeof(object) * 2); c_733964.elements[0] = ((closureN)self_73872)->elements[2]; c_733964.elements[1] = ((closureN)self_73872)->elements[3]; return_closcall1(data,(closure)&c_731410, Cyc_set_cell(data, ((closureN)self_73872)->elements[3], &c_733964));; } static void __lambda_151(void *data, int argc, object self_73873, object k_73561, object alist_73292, object lst_73291) { if( (boolean_f != Cyc_is_null(lst_73291)) ){ return_closcall1(data, k_73561, NULL); } else { closureN_type c_733972; c_733972.hdr.mark = gc_color_red; c_733972.hdr.grayed = 0; c_733972.tag = closureN_tag; c_733972.fn = (function_type)__lambda_150; c_733972.num_args = 1; c_733972.num_elements = 4; c_733972.elements = (object *)alloca(sizeof(object) * 4); c_733972.elements[0] = alist_73292; c_733972.elements[1] = ((closureN)self_73873)->elements[1]; c_733972.elements[2] = k_73561; c_733972.elements[3] = lst_73291; return_closcall3(data, car(((closureN)self_73873)->elements[0]), &c_733972, alist_73292, Cyc_car(data, lst_73291));} ; } static void __lambda_150(void *data, int argc, object self_73874, object r_73563) { closureN_type c_733977; c_733977.hdr.mark = gc_color_red; c_733977.hdr.grayed = 0; c_733977.tag = closureN_tag; c_733977.fn = (function_type)__lambda_149; c_733977.num_args = 1; c_733977.num_elements = 2; c_733977.elements = (object *)alloca(sizeof(object) * 2); c_733977.elements[0] = ((closureN)self_73874)->elements[2]; c_733977.elements[1] = r_73563; return_closcall3(data, car(((closureN)self_73874)->elements[1]), &c_733977, ((closureN)self_73874)->elements[0], Cyc_cdr(data, ((closureN)self_73874)->elements[3]));; } static void __lambda_149(void *data, int argc, object self_73875, object r_73564) { make_pair(c_733982,((closureN)self_73875)->elements[1], r_73564); return_closcall1(data, ((closureN)self_73875)->elements[0], &c_733982);; } static void __lambda_148(void *data, int argc, object self_73876, object r_73381) { closureN_type c_731412; c_731412.hdr.mark = gc_color_red; c_731412.hdr.grayed = 0; c_731412.tag = closureN_tag; c_731412.fn = (function_type)__lambda_145; c_731412.num_args = 1; c_731412.num_elements = 26; c_731412.elements = (object *)alloca(sizeof(object) * 26); c_731412.elements[0] = ((closureN)self_73876)->elements[0]; c_731412.elements[1] = ((closureN)self_73876)->elements[1]; c_731412.elements[2] = ((closureN)self_73876)->elements[2]; c_731412.elements[3] = ((closureN)self_73876)->elements[3]; c_731412.elements[4] = ((closureN)self_73876)->elements[4]; c_731412.elements[5] = ((closureN)self_73876)->elements[5]; c_731412.elements[6] = ((closureN)self_73876)->elements[6]; c_731412.elements[7] = ((closureN)self_73876)->elements[7]; c_731412.elements[8] = ((closureN)self_73876)->elements[8]; c_731412.elements[9] = ((closureN)self_73876)->elements[9]; c_731412.elements[10] = ((closureN)self_73876)->elements[10]; c_731412.elements[11] = ((closureN)self_73876)->elements[11]; c_731412.elements[12] = ((closureN)self_73876)->elements[12]; c_731412.elements[13] = ((closureN)self_73876)->elements[13]; c_731412.elements[14] = ((closureN)self_73876)->elements[14]; c_731412.elements[15] = ((closureN)self_73876)->elements[15]; c_731412.elements[16] = ((closureN)self_73876)->elements[17]; c_731412.elements[17] = ((closureN)self_73876)->elements[18]; c_731412.elements[18] = ((closureN)self_73876)->elements[19]; c_731412.elements[19] = ((closureN)self_73876)->elements[20]; c_731412.elements[20] = ((closureN)self_73876)->elements[21]; c_731412.elements[21] = ((closureN)self_73876)->elements[22]; c_731412.elements[22] = ((closureN)self_73876)->elements[23]; c_731412.elements[23] = ((closureN)self_73876)->elements[24]; c_731412.elements[24] = ((closureN)self_73876)->elements[25]; c_731412.elements[25] = ((closureN)self_73876)->elements[26]; closureN_type c_733950; c_733950.hdr.mark = gc_color_red; c_733950.hdr.grayed = 0; c_733950.tag = closureN_tag; c_733950.fn = (function_type)__lambda_147; c_733950.num_args = 1; c_733950.num_elements = 2; c_733950.elements = (object *)alloca(sizeof(object) * 2); c_733950.elements[0] = ((closureN)self_73876)->elements[9]; c_733950.elements[1] = ((closureN)self_73876)->elements[15]; return_closcall1(data,(closure)&c_731412, Cyc_set_cell(data, ((closureN)self_73876)->elements[16], &c_733950));; } static void __lambda_147(void *data, int argc, object self_73877, object k_73556, object x_73290) { closureN_type c_733955; c_733955.hdr.mark = gc_color_red; c_733955.hdr.grayed = 0; c_733955.tag = closureN_tag; c_733955.fn = (function_type)__lambda_146; c_733955.num_args = 1; c_733955.num_elements = 2; c_733955.elements = (object *)alloca(sizeof(object) * 2); c_733955.elements[0] = k_73556; c_733955.elements[1] = ((closureN)self_73877)->elements[1]; return_closcall2(data, car(((closureN)self_73877)->elements[0]), &c_733955, x_73290);; } static void __lambda_146(void *data, int argc, object self_73878, object r_73557) { return_closcall4(data, car(((closureN)self_73878)->elements[1]), ((closureN)self_73878)->elements[0], r_73557, NULL, NULL);; } static void __lambda_145(void *data, int argc, object self_73879, object r_73382) { closureN_type c_731414; c_731414.hdr.mark = gc_color_red; c_731414.hdr.grayed = 0; c_731414.tag = closureN_tag; c_731414.fn = (function_type)__lambda_138; c_731414.num_args = 1; c_731414.num_elements = 25; c_731414.elements = (object *)alloca(sizeof(object) * 25); c_731414.elements[0] = ((closureN)self_73879)->elements[0]; c_731414.elements[1] = ((closureN)self_73879)->elements[1]; c_731414.elements[2] = ((closureN)self_73879)->elements[2]; c_731414.elements[3] = ((closureN)self_73879)->elements[3]; c_731414.elements[4] = ((closureN)self_73879)->elements[4]; c_731414.elements[5] = ((closureN)self_73879)->elements[5]; c_731414.elements[6] = ((closureN)self_73879)->elements[6]; c_731414.elements[7] = ((closureN)self_73879)->elements[7]; c_731414.elements[8] = ((closureN)self_73879)->elements[8]; c_731414.elements[9] = ((closureN)self_73879)->elements[9]; c_731414.elements[10] = ((closureN)self_73879)->elements[10]; c_731414.elements[11] = ((closureN)self_73879)->elements[11]; c_731414.elements[12] = ((closureN)self_73879)->elements[12]; c_731414.elements[13] = ((closureN)self_73879)->elements[13]; c_731414.elements[14] = ((closureN)self_73879)->elements[14]; c_731414.elements[15] = ((closureN)self_73879)->elements[16]; c_731414.elements[16] = ((closureN)self_73879)->elements[17]; c_731414.elements[17] = ((closureN)self_73879)->elements[18]; c_731414.elements[18] = ((closureN)self_73879)->elements[19]; c_731414.elements[19] = ((closureN)self_73879)->elements[20]; c_731414.elements[20] = ((closureN)self_73879)->elements[21]; c_731414.elements[21] = ((closureN)self_73879)->elements[22]; c_731414.elements[22] = ((closureN)self_73879)->elements[23]; c_731414.elements[23] = ((closureN)self_73879)->elements[24]; c_731414.elements[24] = ((closureN)self_73879)->elements[25]; closureN_type c_733843; c_733843.hdr.mark = gc_color_red; c_733843.hdr.grayed = 0; c_733843.tag = closureN_tag; c_733843.fn = (function_type)__lambda_144; c_733843.num_args = 3; c_733843.num_elements = 4; c_733843.elements = (object *)alloca(sizeof(object) * 4); c_733843.elements[0] = ((closureN)self_73879)->elements[4]; c_733843.elements[1] = ((closureN)self_73879)->elements[5]; c_733843.elements[2] = ((closureN)self_73879)->elements[15]; c_733843.elements[3] = ((closureN)self_73879)->elements[24]; return_closcall1(data,(closure)&c_731414, Cyc_set_cell(data, ((closureN)self_73879)->elements[15], &c_733843));; } static void __lambda_144(void *data, int argc, object self_73880, object k_73536, object x_73289, object true_91lst_73288, object false_91lst_73287) { closureN_type c_733848; c_733848.hdr.mark = gc_color_red; c_733848.hdr.grayed = 0; c_733848.tag = closureN_tag; c_733848.fn = (function_type)__lambda_143; c_733848.num_args = 1; c_733848.num_elements = 8; c_733848.elements = (object *)alloca(sizeof(object) * 8); c_733848.elements[0] = false_91lst_73287; c_733848.elements[1] = ((closureN)self_73880)->elements[0]; c_733848.elements[2] = ((closureN)self_73880)->elements[1]; c_733848.elements[3] = k_73536; c_733848.elements[4] = ((closureN)self_73880)->elements[2]; c_733848.elements[5] = true_91lst_73288; c_733848.elements[6] = ((closureN)self_73880)->elements[3]; c_733848.elements[7] = x_73289; return_closcall3(data, car(((closureN)self_73880)->elements[3]), &c_733848, x_73289, true_91lst_73288);; } static void __lambda_143(void *data, int argc, object self_73881, object r_73537) { if( (boolean_f != r_73537) ){ return_closcall1(data, ((closureN)self_73881)->elements[3], boolean_t); } else { closureN_type c_733855; c_733855.hdr.mark = gc_color_red; c_733855.hdr.grayed = 0; c_733855.tag = closureN_tag; c_733855.fn = (function_type)__lambda_142; c_733855.num_args = 1; c_733855.num_elements = 8; c_733855.elements = (object *)alloca(sizeof(object) * 8); c_733855.elements[0] = ((closureN)self_73881)->elements[0]; c_733855.elements[1] = ((closureN)self_73881)->elements[1]; c_733855.elements[2] = ((closureN)self_73881)->elements[2]; c_733855.elements[3] = ((closureN)self_73881)->elements[3]; c_733855.elements[4] = ((closureN)self_73881)->elements[4]; c_733855.elements[5] = ((closureN)self_73881)->elements[5]; c_733855.elements[6] = ((closureN)self_73881)->elements[6]; c_733855.elements[7] = ((closureN)self_73881)->elements[7]; return_closcall3(data, car(((closureN)self_73881)->elements[1]), &c_733855, ((closureN)self_73881)->elements[7], ((closureN)self_73881)->elements[0]);} ; } static void __lambda_142(void *data, int argc, object self_73882, object r_73538) { if( (boolean_f != r_73538) ){ return_closcall1(data, ((closureN)self_73882)->elements[3], boolean_f); } else { if( (boolean_f != Cyc_is_pair(((closureN)self_73882)->elements[7])) ){ if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73882)->elements[7]), car(((closureN)self_73882)->elements[2]))) ){ closureN_type c_733873; c_733873.hdr.mark = gc_color_red; c_733873.hdr.grayed = 0; c_733873.tag = closureN_tag; c_733873.fn = (function_type)__lambda_141; c_733873.num_args = 1; c_733873.num_elements = 6; c_733873.elements = (object *)alloca(sizeof(object) * 6); c_733873.elements[0] = ((closureN)self_73882)->elements[0]; c_733873.elements[1] = ((closureN)self_73882)->elements[1]; c_733873.elements[2] = ((closureN)self_73882)->elements[3]; c_733873.elements[3] = ((closureN)self_73882)->elements[4]; c_733873.elements[4] = ((closureN)self_73882)->elements[5]; c_733873.elements[5] = ((closureN)self_73882)->elements[7]; return_closcall3(data, car(((closureN)self_73882)->elements[6]), &c_733873, Cyc_cadr(data, ((closureN)self_73882)->elements[7]), ((closureN)self_73882)->elements[5]); } else { return_closcall1(data, ((closureN)self_73882)->elements[3], boolean_f);} } else { return_closcall1(data, ((closureN)self_73882)->elements[3], boolean_f);} } ; } static void __lambda_141(void *data, int argc, object self_73883, object r_73541) { if( (boolean_f != r_73541) ){ return_closcall4(data, car(((closureN)self_73883)->elements[3]), ((closureN)self_73883)->elements[2], Cyc_caddr(data, ((closureN)self_73883)->elements[5]), ((closureN)self_73883)->elements[4], ((closureN)self_73883)->elements[0]); } else { closureN_type c_733888; c_733888.hdr.mark = gc_color_red; c_733888.hdr.grayed = 0; c_733888.tag = closureN_tag; c_733888.fn = (function_type)__lambda_140; c_733888.num_args = 1; c_733888.num_elements = 5; c_733888.elements = (object *)alloca(sizeof(object) * 5); c_733888.elements[0] = ((closureN)self_73883)->elements[0]; c_733888.elements[1] = ((closureN)self_73883)->elements[2]; c_733888.elements[2] = ((closureN)self_73883)->elements[3]; c_733888.elements[3] = ((closureN)self_73883)->elements[4]; c_733888.elements[4] = ((closureN)self_73883)->elements[5]; return_closcall3(data, car(((closureN)self_73883)->elements[1]), &c_733888, Cyc_cadr(data, ((closureN)self_73883)->elements[5]), ((closureN)self_73883)->elements[0]);} ; } static void __lambda_140(void *data, int argc, object self_73884, object r_73543) { if( (boolean_f != r_73543) ){ return_closcall4(data, car(((closureN)self_73884)->elements[2]), ((closureN)self_73884)->elements[1], Cyc_cadddr(data, ((closureN)self_73884)->elements[4]), ((closureN)self_73884)->elements[3], ((closureN)self_73884)->elements[0]); } else { closureN_type c_733903; c_733903.hdr.mark = gc_color_red; c_733903.hdr.grayed = 0; c_733903.tag = closureN_tag; c_733903.fn = (function_type)__lambda_139; c_733903.num_args = 1; c_733903.num_elements = 5; c_733903.elements = (object *)alloca(sizeof(object) * 5); c_733903.elements[0] = ((closureN)self_73884)->elements[0]; c_733903.elements[1] = ((closureN)self_73884)->elements[1]; c_733903.elements[2] = ((closureN)self_73884)->elements[2]; c_733903.elements[3] = ((closureN)self_73884)->elements[3]; c_733903.elements[4] = ((closureN)self_73884)->elements[4]; make_pair(c_733927,Cyc_cadr(data, ((closureN)self_73884)->elements[4]), ((closureN)self_73884)->elements[3]); return_closcall4(data, car(((closureN)self_73884)->elements[2]), &c_733903, Cyc_caddr(data, ((closureN)self_73884)->elements[4]), &c_733927, ((closureN)self_73884)->elements[0]);} ; } static void __lambda_139(void *data, int argc, object self_73885, object r_73545) { if( (boolean_f != r_73545) ){ make_pair(c_733915,Cyc_cadr(data, ((closureN)self_73885)->elements[4]), ((closureN)self_73885)->elements[0]); return_closcall4(data, car(((closureN)self_73885)->elements[2]), ((closureN)self_73885)->elements[1], Cyc_cadddr(data, ((closureN)self_73885)->elements[4]), ((closureN)self_73885)->elements[3], &c_733915); } else { return_closcall1(data, ((closureN)self_73885)->elements[1], boolean_f);} ; } static void __lambda_138(void *data, int argc, object self_73886, object r_73383) { closureN_type c_731416; c_731416.hdr.mark = gc_color_red; c_731416.hdr.grayed = 0; c_731416.tag = closureN_tag; c_731416.fn = (function_type)__lambda_137; c_731416.num_args = 1; c_731416.num_elements = 25; c_731416.elements = (object *)alloca(sizeof(object) * 25); c_731416.elements[0] = ((closureN)self_73886)->elements[0]; c_731416.elements[1] = ((closureN)self_73886)->elements[1]; c_731416.elements[2] = ((closureN)self_73886)->elements[2]; c_731416.elements[3] = ((closureN)self_73886)->elements[3]; c_731416.elements[4] = ((closureN)self_73886)->elements[4]; c_731416.elements[5] = ((closureN)self_73886)->elements[5]; c_731416.elements[6] = ((closureN)self_73886)->elements[6]; c_731416.elements[7] = ((closureN)self_73886)->elements[7]; c_731416.elements[8] = ((closureN)self_73886)->elements[8]; c_731416.elements[9] = ((closureN)self_73886)->elements[9]; c_731416.elements[10] = ((closureN)self_73886)->elements[10]; c_731416.elements[11] = ((closureN)self_73886)->elements[11]; c_731416.elements[12] = ((closureN)self_73886)->elements[12]; c_731416.elements[13] = ((closureN)self_73886)->elements[13]; c_731416.elements[14] = ((closureN)self_73886)->elements[14]; c_731416.elements[15] = ((closureN)self_73886)->elements[15]; c_731416.elements[16] = ((closureN)self_73886)->elements[16]; c_731416.elements[17] = ((closureN)self_73886)->elements[17]; c_731416.elements[18] = ((closureN)self_73886)->elements[18]; c_731416.elements[19] = ((closureN)self_73886)->elements[19]; c_731416.elements[20] = ((closureN)self_73886)->elements[20]; c_731416.elements[21] = ((closureN)self_73886)->elements[21]; c_731416.elements[22] = ((closureN)self_73886)->elements[22]; c_731416.elements[23] = ((closureN)self_73886)->elements[23]; c_731416.elements[24] = ((closureN)self_73886)->elements[24]; return_closcall1(data,(closure)&c_731416, Cyc_set_cell(data, ((closureN)self_73886)->elements[5], quote__85));; } static void __lambda_137(void *data, int argc, object self_73887, object r_73384) { closureN_type c_731418; c_731418.hdr.mark = gc_color_red; c_731418.hdr.grayed = 0; c_731418.tag = closureN_tag; c_731418.fn = (function_type)__lambda_136; c_731418.num_args = 1; c_731418.num_elements = 25; c_731418.elements = (object *)alloca(sizeof(object) * 25); c_731418.elements[0] = ((closureN)self_73887)->elements[0]; c_731418.elements[1] = ((closureN)self_73887)->elements[1]; c_731418.elements[2] = ((closureN)self_73887)->elements[2]; c_731418.elements[3] = ((closureN)self_73887)->elements[3]; c_731418.elements[4] = ((closureN)self_73887)->elements[4]; c_731418.elements[5] = ((closureN)self_73887)->elements[5]; c_731418.elements[6] = ((closureN)self_73887)->elements[6]; c_731418.elements[7] = ((closureN)self_73887)->elements[7]; c_731418.elements[8] = ((closureN)self_73887)->elements[8]; c_731418.elements[9] = ((closureN)self_73887)->elements[9]; c_731418.elements[10] = ((closureN)self_73887)->elements[10]; c_731418.elements[11] = ((closureN)self_73887)->elements[11]; c_731418.elements[12] = ((closureN)self_73887)->elements[12]; c_731418.elements[13] = ((closureN)self_73887)->elements[13]; c_731418.elements[14] = ((closureN)self_73887)->elements[14]; c_731418.elements[15] = ((closureN)self_73887)->elements[15]; c_731418.elements[16] = ((closureN)self_73887)->elements[16]; c_731418.elements[17] = ((closureN)self_73887)->elements[17]; c_731418.elements[18] = ((closureN)self_73887)->elements[18]; c_731418.elements[19] = ((closureN)self_73887)->elements[19]; c_731418.elements[20] = ((closureN)self_73887)->elements[20]; c_731418.elements[21] = ((closureN)self_73887)->elements[21]; c_731418.elements[22] = ((closureN)self_73887)->elements[22]; c_731418.elements[23] = ((closureN)self_73887)->elements[23]; c_731418.elements[24] = ((closureN)self_73887)->elements[24]; return_closcall1(data,(closure)&c_731418, Cyc_set_cell(data, ((closureN)self_73887)->elements[11], obj_int2obj(0)));; } static void __lambda_136(void *data, int argc, object self_73888, object r_73385) { closureN_type c_731420; c_731420.hdr.mark = gc_color_red; c_731420.hdr.grayed = 0; c_731420.tag = closureN_tag; c_731420.fn = (function_type)__lambda_132; c_731420.num_args = 1; c_731420.num_elements = 25; c_731420.elements = (object *)alloca(sizeof(object) * 25); c_731420.elements[0] = ((closureN)self_73888)->elements[0]; c_731420.elements[1] = ((closureN)self_73888)->elements[1]; c_731420.elements[2] = ((closureN)self_73888)->elements[2]; c_731420.elements[3] = ((closureN)self_73888)->elements[3]; c_731420.elements[4] = ((closureN)self_73888)->elements[4]; c_731420.elements[5] = ((closureN)self_73888)->elements[5]; c_731420.elements[6] = ((closureN)self_73888)->elements[6]; c_731420.elements[7] = ((closureN)self_73888)->elements[7]; c_731420.elements[8] = ((closureN)self_73888)->elements[8]; c_731420.elements[9] = ((closureN)self_73888)->elements[9]; c_731420.elements[10] = ((closureN)self_73888)->elements[10]; c_731420.elements[11] = ((closureN)self_73888)->elements[11]; c_731420.elements[12] = ((closureN)self_73888)->elements[12]; c_731420.elements[13] = ((closureN)self_73888)->elements[13]; c_731420.elements[14] = ((closureN)self_73888)->elements[14]; c_731420.elements[15] = ((closureN)self_73888)->elements[15]; c_731420.elements[16] = ((closureN)self_73888)->elements[16]; c_731420.elements[17] = ((closureN)self_73888)->elements[17]; c_731420.elements[18] = ((closureN)self_73888)->elements[18]; c_731420.elements[19] = ((closureN)self_73888)->elements[19]; c_731420.elements[20] = ((closureN)self_73888)->elements[20]; c_731420.elements[21] = ((closureN)self_73888)->elements[21]; c_731420.elements[22] = ((closureN)self_73888)->elements[22]; c_731420.elements[23] = ((closureN)self_73888)->elements[23]; c_731420.elements[24] = ((closureN)self_73888)->elements[24]; mclosure0(c_733806, (function_type)__lambda_135);c_733806.num_args = 3; return_closcall1(data,(closure)&c_731420, Cyc_set_cell(data, ((closureN)self_73888)->elements[13], &c_733806));; } static void __lambda_135(void *data, int argc, object self_73889, object k_73528, object x_73286, object y_73285, object original_73284) { closureN_type c_733808; c_733808.hdr.mark = gc_color_red; c_733808.hdr.grayed = 0; c_733808.tag = closureN_tag; c_733808.fn = (function_type)__lambda_133; c_733808.num_args = 0; c_733808.num_elements = 3; c_733808.elements = (object *)alloca(sizeof(object) * 3); c_733808.elements[0] = original_73284; c_733808.elements[1] = x_73286; c_733808.elements[2] = y_73285; closureN_type c_733823; c_733823.hdr.mark = gc_color_red; c_733823.hdr.grayed = 0; c_733823.tag = closureN_tag; c_733823.fn = (function_type)__lambda_134; c_733823.num_args = 1; c_733823.num_elements = 4; c_733823.elements = (object *)alloca(sizeof(object) * 4); c_733823.elements[0] = k_73528; c_733823.elements[1] = original_73284; c_733823.elements[2] = x_73286; c_733823.elements[3] = y_73285; return_closcall1(data,(closure)&c_733808, &c_733823);; } static void __lambda_134(void *data, int argc, object self_73890, object r_73529) { if( (boolean_f != r_73529) ){ return_closcall1(data, ((closureN)self_73890)->elements[0], ((closureN)self_73890)->elements[1]); } else { make_pair(c_733831,((closureN)self_73890)->elements[2], ((closureN)self_73890)->elements[3]); return_closcall1(data, ((closureN)self_73890)->elements[0], &c_733831);} ; } static void __lambda_133(void *data, int argc, object self_73891, object k_73530) { if( (boolean_f != Cyc_eq(((closureN)self_73891)->elements[1], Cyc_car(data, ((closureN)self_73891)->elements[0]))) ){ return_closcall1(data, k_73530, Cyc_eq(((closureN)self_73891)->elements[2], Cyc_cdr(data, ((closureN)self_73891)->elements[0]))); } else { return_closcall1(data, k_73530, boolean_f);} ; } static void __lambda_132(void *data, int argc, object self_73892, object r_73386) { closureN_type c_731422; c_731422.hdr.mark = gc_color_red; c_731422.hdr.grayed = 0; c_731422.tag = closureN_tag; c_731422.fn = (function_type)__lambda_126; c_731422.num_args = 1; c_731422.num_elements = 25; c_731422.elements = (object *)alloca(sizeof(object) * 25); c_731422.elements[0] = ((closureN)self_73892)->elements[0]; c_731422.elements[1] = ((closureN)self_73892)->elements[1]; c_731422.elements[2] = ((closureN)self_73892)->elements[2]; c_731422.elements[3] = ((closureN)self_73892)->elements[3]; c_731422.elements[4] = ((closureN)self_73892)->elements[4]; c_731422.elements[5] = ((closureN)self_73892)->elements[5]; c_731422.elements[6] = ((closureN)self_73892)->elements[6]; c_731422.elements[7] = ((closureN)self_73892)->elements[7]; c_731422.elements[8] = ((closureN)self_73892)->elements[8]; c_731422.elements[9] = ((closureN)self_73892)->elements[9]; c_731422.elements[10] = ((closureN)self_73892)->elements[10]; c_731422.elements[11] = ((closureN)self_73892)->elements[11]; c_731422.elements[12] = ((closureN)self_73892)->elements[12]; c_731422.elements[13] = ((closureN)self_73892)->elements[13]; c_731422.elements[14] = ((closureN)self_73892)->elements[14]; c_731422.elements[15] = ((closureN)self_73892)->elements[15]; c_731422.elements[16] = ((closureN)self_73892)->elements[16]; c_731422.elements[17] = ((closureN)self_73892)->elements[17]; c_731422.elements[18] = ((closureN)self_73892)->elements[18]; c_731422.elements[19] = ((closureN)self_73892)->elements[19]; c_731422.elements[20] = ((closureN)self_73892)->elements[20]; c_731422.elements[21] = ((closureN)self_73892)->elements[21]; c_731422.elements[22] = ((closureN)self_73892)->elements[22]; c_731422.elements[23] = ((closureN)self_73892)->elements[23]; c_731422.elements[24] = ((closureN)self_73892)->elements[24]; closureN_type c_733755; c_733755.hdr.mark = gc_color_red; c_733755.hdr.grayed = 0; c_733755.tag = closureN_tag; c_733755.fn = (function_type)__lambda_131; c_733755.num_args = 1; c_733755.num_elements = 4; c_733755.elements = (object *)alloca(sizeof(object) * 4); c_733755.elements[0] = ((closureN)self_73892)->elements[10]; c_733755.elements[1] = ((closureN)self_73892)->elements[11]; c_733755.elements[2] = ((closureN)self_73892)->elements[12]; c_733755.elements[3] = ((closureN)self_73892)->elements[13]; return_closcall1(data,(closure)&c_731422, Cyc_set_cell(data, ((closureN)self_73892)->elements[9], &c_733755));; } static void __lambda_131(void *data, int argc, object self_73893, object k_73517, object term_73283) { closureN_type c_733757; c_733757.hdr.mark = gc_color_red; c_733757.hdr.grayed = 0; c_733757.tag = closureN_tag; c_733757.fn = (function_type)__lambda_130; c_733757.num_args = 1; c_733757.num_elements = 6; c_733757.elements = (object *)alloca(sizeof(object) * 6); c_733757.elements[0] = k_73517; c_733757.elements[1] = ((closureN)self_73893)->elements[0]; c_733757.elements[2] = ((closureN)self_73893)->elements[1]; c_733757.elements[3] = ((closureN)self_73893)->elements[2]; c_733757.elements[4] = ((closureN)self_73893)->elements[3]; c_733757.elements[5] = term_73283; double_type local_733798; object c_733799 = Cyc_fast_sum(data,&local_733798,car(((closureN)self_73893)->elements[1]), obj_int2obj(1)); return_closcall1(data,(closure)&c_733757, c_733799);; } static void __lambda_130(void *data, int argc, object self_73894, object r_73526) { closureN_type c_733759; c_733759.hdr.mark = gc_color_red; c_733759.hdr.grayed = 0; c_733759.tag = closureN_tag; c_733759.fn = (function_type)__lambda_129; c_733759.num_args = 1; c_733759.num_elements = 5; c_733759.elements = (object *)alloca(sizeof(object) * 5); c_733759.elements[0] = ((closureN)self_73894)->elements[0]; c_733759.elements[1] = ((closureN)self_73894)->elements[1]; c_733759.elements[2] = ((closureN)self_73894)->elements[3]; c_733759.elements[3] = ((closureN)self_73894)->elements[4]; c_733759.elements[4] = ((closureN)self_73894)->elements[5]; return_closcall1(data,(closure)&c_733759, Cyc_set_cell(data, ((closureN)self_73894)->elements[2], r_73526));; } static void __lambda_129(void *data, int argc, object self_73895, object r_73518) { if( (boolean_f != Cyc_is_pair(((closureN)self_73895)->elements[4])) ){ closureN_type c_733767; c_733767.hdr.mark = gc_color_red; c_733767.hdr.grayed = 0; c_733767.tag = closureN_tag; c_733767.fn = (function_type)__lambda_128; c_733767.num_args = 1; c_733767.num_elements = 4; c_733767.elements = (object *)alloca(sizeof(object) * 4); c_733767.elements[0] = ((closureN)self_73895)->elements[0]; c_733767.elements[1] = ((closureN)self_73895)->elements[2]; c_733767.elements[2] = ((closureN)self_73895)->elements[3]; c_733767.elements[3] = ((closureN)self_73895)->elements[4]; return_closcall2(data, car(((closureN)self_73895)->elements[1]), &c_733767, Cyc_cdr(data, ((closureN)self_73895)->elements[4])); } else { return_closcall1(data, ((closureN)self_73895)->elements[0], ((closureN)self_73895)->elements[4]);} ; } static void __lambda_128(void *data, int argc, object self_73896, object r_73524) { closureN_type c_733772; c_733772.hdr.mark = gc_color_red; c_733772.hdr.grayed = 0; c_733772.tag = closureN_tag; c_733772.fn = (function_type)__lambda_127; c_733772.num_args = 1; c_733772.num_elements = 3; c_733772.elements = (object *)alloca(sizeof(object) * 3); c_733772.elements[0] = ((closureN)self_73896)->elements[0]; c_733772.elements[1] = ((closureN)self_73896)->elements[1]; c_733772.elements[2] = ((closureN)self_73896)->elements[3]; return_closcall4(data, car(((closureN)self_73896)->elements[2]), &c_733772, Cyc_car(data, ((closureN)self_73896)->elements[3]), r_73524, ((closureN)self_73896)->elements[3]);; } static void __lambda_127(void *data, int argc, object self_73897, object r_73520) { return_closcall3(data, car(((closureN)self_73897)->elements[1]), ((closureN)self_73897)->elements[0], r_73520, Cyc_vector_ref(data, Cyc_car(data, ((closureN)self_73897)->elements[2]), obj_int2obj(1)));; } static void __lambda_126(void *data, int argc, object self_73898, object r_73387) { closureN_type c_731424; c_731424.hdr.mark = gc_color_red; c_731424.hdr.grayed = 0; c_731424.tag = closureN_tag; c_731424.fn = (function_type)__lambda_122; c_731424.num_args = 1; c_731424.num_elements = 23; c_731424.elements = (object *)alloca(sizeof(object) * 23); c_731424.elements[0] = ((closureN)self_73898)->elements[0]; c_731424.elements[1] = ((closureN)self_73898)->elements[1]; c_731424.elements[2] = ((closureN)self_73898)->elements[2]; c_731424.elements[3] = ((closureN)self_73898)->elements[3]; c_731424.elements[4] = ((closureN)self_73898)->elements[4]; c_731424.elements[5] = ((closureN)self_73898)->elements[5]; c_731424.elements[6] = ((closureN)self_73898)->elements[6]; c_731424.elements[7] = ((closureN)self_73898)->elements[7]; c_731424.elements[8] = ((closureN)self_73898)->elements[8]; c_731424.elements[9] = ((closureN)self_73898)->elements[9]; c_731424.elements[10] = ((closureN)self_73898)->elements[11]; c_731424.elements[11] = ((closureN)self_73898)->elements[12]; c_731424.elements[12] = ((closureN)self_73898)->elements[14]; c_731424.elements[13] = ((closureN)self_73898)->elements[15]; c_731424.elements[14] = ((closureN)self_73898)->elements[16]; c_731424.elements[15] = ((closureN)self_73898)->elements[17]; c_731424.elements[16] = ((closureN)self_73898)->elements[18]; c_731424.elements[17] = ((closureN)self_73898)->elements[19]; c_731424.elements[18] = ((closureN)self_73898)->elements[20]; c_731424.elements[19] = ((closureN)self_73898)->elements[21]; c_731424.elements[20] = ((closureN)self_73898)->elements[22]; c_731424.elements[21] = ((closureN)self_73898)->elements[23]; c_731424.elements[22] = ((closureN)self_73898)->elements[24]; closureN_type c_733726; c_733726.hdr.mark = gc_color_red; c_733726.hdr.grayed = 0; c_733726.tag = closureN_tag; c_733726.fn = (function_type)__lambda_125; c_733726.num_args = 1; c_733726.num_elements = 3; c_733726.elements = (object *)alloca(sizeof(object) * 3); c_733726.elements[0] = ((closureN)self_73898)->elements[9]; c_733726.elements[1] = ((closureN)self_73898)->elements[10]; c_733726.elements[2] = ((closureN)self_73898)->elements[13]; return_closcall1(data,(closure)&c_731424, Cyc_set_cell(data, ((closureN)self_73898)->elements[10], &c_733726));; } static void __lambda_125(void *data, int argc, object self_73899, object k_73510, object lst_73282) { if( (boolean_f != Cyc_is_null(lst_73282)) ){ return_closcall1(data, k_73510, NULL); } else { closureN_type c_733734; c_733734.hdr.mark = gc_color_red; c_733734.hdr.grayed = 0; c_733734.tag = closureN_tag; c_733734.fn = (function_type)__lambda_124; c_733734.num_args = 1; c_733734.num_elements = 4; c_733734.elements = (object *)alloca(sizeof(object) * 4); c_733734.elements[0] = k_73510; c_733734.elements[1] = lst_73282; c_733734.elements[2] = ((closureN)self_73899)->elements[1]; c_733734.elements[3] = ((closureN)self_73899)->elements[2]; return_closcall2(data, car(((closureN)self_73899)->elements[0]), &c_733734, Cyc_car(data, lst_73282));} ; } static void __lambda_124(void *data, int argc, object self_73900, object r_73512) { closureN_type c_733739; c_733739.hdr.mark = gc_color_red; c_733739.hdr.grayed = 0; c_733739.tag = closureN_tag; c_733739.fn = (function_type)__lambda_123; c_733739.num_args = 1; c_733739.num_elements = 4; c_733739.elements = (object *)alloca(sizeof(object) * 4); c_733739.elements[0] = ((closureN)self_73900)->elements[0]; c_733739.elements[1] = ((closureN)self_73900)->elements[1]; c_733739.elements[2] = r_73512; c_733739.elements[3] = ((closureN)self_73900)->elements[3]; return_closcall2(data, car(((closureN)self_73900)->elements[2]), &c_733739, Cyc_cdr(data, ((closureN)self_73900)->elements[1]));; } static void __lambda_123(void *data, int argc, object self_73901, object r_73513) { return_closcall4(data, car(((closureN)self_73901)->elements[3]), ((closureN)self_73901)->elements[0], ((closureN)self_73901)->elements[2], r_73513, ((closureN)self_73901)->elements[1]);; } static void __lambda_122(void *data, int argc, object self_73902, object r_73388) { closureN_type c_731426; c_731426.hdr.mark = gc_color_red; c_731426.hdr.grayed = 0; c_731426.tag = closureN_tag; c_731426.fn = (function_type)__lambda_118; c_731426.num_args = 1; c_731426.num_elements = 20; c_731426.elements = (object *)alloca(sizeof(object) * 20); c_731426.elements[0] = ((closureN)self_73902)->elements[0]; c_731426.elements[1] = ((closureN)self_73902)->elements[1]; c_731426.elements[2] = ((closureN)self_73902)->elements[3]; c_731426.elements[3] = ((closureN)self_73902)->elements[4]; c_731426.elements[4] = ((closureN)self_73902)->elements[5]; c_731426.elements[5] = ((closureN)self_73902)->elements[6]; c_731426.elements[6] = ((closureN)self_73902)->elements[7]; c_731426.elements[7] = ((closureN)self_73902)->elements[8]; c_731426.elements[8] = ((closureN)self_73902)->elements[10]; c_731426.elements[9] = ((closureN)self_73902)->elements[12]; c_731426.elements[10] = ((closureN)self_73902)->elements[13]; c_731426.elements[11] = ((closureN)self_73902)->elements[14]; c_731426.elements[12] = ((closureN)self_73902)->elements[15]; c_731426.elements[13] = ((closureN)self_73902)->elements[16]; c_731426.elements[14] = ((closureN)self_73902)->elements[17]; c_731426.elements[15] = ((closureN)self_73902)->elements[18]; c_731426.elements[16] = ((closureN)self_73902)->elements[19]; c_731426.elements[17] = ((closureN)self_73902)->elements[20]; c_731426.elements[18] = ((closureN)self_73902)->elements[21]; c_731426.elements[19] = ((closureN)self_73902)->elements[22]; closureN_type c_733683; c_733683.hdr.mark = gc_color_red; c_733683.hdr.grayed = 0; c_733683.tag = closureN_tag; c_733683.fn = (function_type)__lambda_121; c_733683.num_args = 2; c_733683.num_elements = 5; c_733683.elements = (object *)alloca(sizeof(object) * 5); c_733683.elements[0] = ((closureN)self_73902)->elements[2]; c_733683.elements[1] = ((closureN)self_73902)->elements[6]; c_733683.elements[2] = ((closureN)self_73902)->elements[9]; c_733683.elements[3] = ((closureN)self_73902)->elements[11]; c_733683.elements[4] = ((closureN)self_73902)->elements[22]; return_closcall1(data,(closure)&c_731426, Cyc_set_cell(data, ((closureN)self_73902)->elements[11], &c_733683));; } static void __lambda_121(void *data, int argc, object self_73903, object k_73500, object term_73281, object lst_73280) { if( (boolean_f != Cyc_is_null(lst_73280)) ){ return_closcall1(data, k_73500, term_73281); } else { closureN_type c_733691; c_733691.hdr.mark = gc_color_red; c_733691.hdr.grayed = 0; c_733691.tag = closureN_tag; c_733691.fn = (function_type)__lambda_120; c_733691.num_args = 1; c_733691.num_elements = 7; c_733691.elements = (object *)alloca(sizeof(object) * 7); c_733691.elements[0] = ((closureN)self_73903)->elements[0]; c_733691.elements[1] = k_73500; c_733691.elements[2] = lst_73280; c_733691.elements[3] = ((closureN)self_73903)->elements[2]; c_733691.elements[4] = ((closureN)self_73903)->elements[3]; c_733691.elements[5] = term_73281; c_733691.elements[6] = ((closureN)self_73903)->elements[4]; return_closcall3(data, car(((closureN)self_73903)->elements[1]), &c_733691, term_73281, Cyc_cadr(data, Cyc_car(data, lst_73280)));} ; } static void __lambda_120(void *data, int argc, object self_73904, object r_73502) { if( (boolean_f != r_73502) ){ closureN_type c_733696; c_733696.hdr.mark = gc_color_red; c_733696.hdr.grayed = 0; c_733696.tag = closureN_tag; c_733696.fn = (function_type)__lambda_119; c_733696.num_args = 1; c_733696.num_elements = 2; c_733696.elements = (object *)alloca(sizeof(object) * 2); c_733696.elements[0] = ((closureN)self_73904)->elements[1]; c_733696.elements[1] = ((closureN)self_73904)->elements[3]; return_closcall3(data, car(((closureN)self_73904)->elements[0]), &c_733696, car(((closureN)self_73904)->elements[6]), Cyc_caddr(data, Cyc_car(data, ((closureN)self_73904)->elements[2]))); } else { return_closcall3(data, car(((closureN)self_73904)->elements[4]), ((closureN)self_73904)->elements[1], ((closureN)self_73904)->elements[5], Cyc_cdr(data, ((closureN)self_73904)->elements[2]));} ; } static void __lambda_119(void *data, int argc, object self_73905, object r_73503) { return_closcall2(data, car(((closureN)self_73905)->elements[1]), ((closureN)self_73905)->elements[0], r_73503);; } static void __lambda_118(void *data, int argc, object self_73906, object r_73389) { closureN_type c_731428; c_731428.hdr.mark = gc_color_red; c_731428.hdr.grayed = 0; c_731428.tag = closureN_tag; c_731428.fn = (function_type)__lambda_117; c_731428.num_args = 1; c_731428.num_elements = 20; c_731428.elements = (object *)alloca(sizeof(object) * 20); c_731428.elements[0] = ((closureN)self_73906)->elements[0]; c_731428.elements[1] = ((closureN)self_73906)->elements[1]; c_731428.elements[2] = ((closureN)self_73906)->elements[2]; c_731428.elements[3] = ((closureN)self_73906)->elements[3]; c_731428.elements[4] = ((closureN)self_73906)->elements[4]; c_731428.elements[5] = ((closureN)self_73906)->elements[5]; c_731428.elements[6] = ((closureN)self_73906)->elements[6]; c_731428.elements[7] = ((closureN)self_73906)->elements[7]; c_731428.elements[8] = ((closureN)self_73906)->elements[8]; c_731428.elements[9] = ((closureN)self_73906)->elements[9]; c_731428.elements[10] = ((closureN)self_73906)->elements[10]; c_731428.elements[11] = ((closureN)self_73906)->elements[11]; c_731428.elements[12] = ((closureN)self_73906)->elements[12]; c_731428.elements[13] = ((closureN)self_73906)->elements[13]; c_731428.elements[14] = ((closureN)self_73906)->elements[14]; c_731428.elements[15] = ((closureN)self_73906)->elements[15]; c_731428.elements[16] = ((closureN)self_73906)->elements[16]; c_731428.elements[17] = ((closureN)self_73906)->elements[17]; c_731428.elements[18] = ((closureN)self_73906)->elements[18]; c_731428.elements[19] = ((closureN)self_73906)->elements[19]; return_closcall1(data,(closure)&c_731428, Cyc_set_cell(data, ((closureN)self_73906)->elements[19], quote__85));; } static void __lambda_117(void *data, int argc, object self_73907, object r_73390) { closureN_type c_731430; c_731430.hdr.mark = gc_color_red; c_731430.hdr.grayed = 0; c_731430.tag = closureN_tag; c_731430.fn = (function_type)__lambda_114; c_731430.num_args = 1; c_731430.num_elements = 19; c_731430.elements = (object *)alloca(sizeof(object) * 19); c_731430.elements[0] = ((closureN)self_73907)->elements[0]; c_731430.elements[1] = ((closureN)self_73907)->elements[1]; c_731430.elements[2] = ((closureN)self_73907)->elements[2]; c_731430.elements[3] = ((closureN)self_73907)->elements[3]; c_731430.elements[4] = ((closureN)self_73907)->elements[4]; c_731430.elements[5] = ((closureN)self_73907)->elements[6]; c_731430.elements[6] = ((closureN)self_73907)->elements[7]; c_731430.elements[7] = ((closureN)self_73907)->elements[8]; c_731430.elements[8] = ((closureN)self_73907)->elements[9]; c_731430.elements[9] = ((closureN)self_73907)->elements[10]; c_731430.elements[10] = ((closureN)self_73907)->elements[11]; c_731430.elements[11] = ((closureN)self_73907)->elements[12]; c_731430.elements[12] = ((closureN)self_73907)->elements[13]; c_731430.elements[13] = ((closureN)self_73907)->elements[14]; c_731430.elements[14] = ((closureN)self_73907)->elements[15]; c_731430.elements[15] = ((closureN)self_73907)->elements[16]; c_731430.elements[16] = ((closureN)self_73907)->elements[17]; c_731430.elements[17] = ((closureN)self_73907)->elements[18]; c_731430.elements[18] = ((closureN)self_73907)->elements[19]; closureN_type c_733664; c_733664.hdr.mark = gc_color_red; c_733664.hdr.grayed = 0; c_733664.tag = closureN_tag; c_733664.fn = (function_type)__lambda_116; c_733664.num_args = 2; c_733664.num_elements = 2; c_733664.elements = (object *)alloca(sizeof(object) * 2); c_733664.elements[0] = ((closureN)self_73907)->elements[6]; c_733664.elements[1] = ((closureN)self_73907)->elements[19]; return_closcall1(data,(closure)&c_731430, Cyc_set_cell(data, ((closureN)self_73907)->elements[5], &c_733664));; } static void __lambda_116(void *data, int argc, object self_73908, object k_73495, object term1_73279, object term2_73278) { closureN_type c_733666; c_733666.hdr.mark = gc_color_red; c_733666.hdr.grayed = 0; c_733666.tag = closureN_tag; c_733666.fn = (function_type)__lambda_115; c_733666.num_args = 1; c_733666.num_elements = 4; c_733666.elements = (object *)alloca(sizeof(object) * 4); c_733666.elements[0] = k_73495; c_733666.elements[1] = ((closureN)self_73908)->elements[0]; c_733666.elements[2] = term1_73279; c_733666.elements[3] = term2_73278; return_closcall1(data,(closure)&c_733666, Cyc_set_cell(data, ((closureN)self_73908)->elements[1], NULL));; } static void __lambda_115(void *data, int argc, object self_73909, object r_73496) { return_closcall3(data, car(((closureN)self_73909)->elements[1]), ((closureN)self_73909)->elements[0], ((closureN)self_73909)->elements[2], ((closureN)self_73909)->elements[3]);; } static void __lambda_114(void *data, int argc, object self_73910, object r_73391) { closureN_type c_731432; c_731432.hdr.mark = gc_color_red; c_731432.hdr.grayed = 0; c_731432.tag = closureN_tag; c_731432.fn = (function_type)__lambda_109; c_731432.num_args = 1; c_731432.num_elements = 18; c_731432.elements = (object *)alloca(sizeof(object) * 18); c_731432.elements[0] = ((closureN)self_73910)->elements[0]; c_731432.elements[1] = ((closureN)self_73910)->elements[1]; c_731432.elements[2] = ((closureN)self_73910)->elements[2]; c_731432.elements[3] = ((closureN)self_73910)->elements[3]; c_731432.elements[4] = ((closureN)self_73910)->elements[4]; c_731432.elements[5] = ((closureN)self_73910)->elements[5]; c_731432.elements[6] = ((closureN)self_73910)->elements[6]; c_731432.elements[7] = ((closureN)self_73910)->elements[7]; c_731432.elements[8] = ((closureN)self_73910)->elements[8]; c_731432.elements[9] = ((closureN)self_73910)->elements[9]; c_731432.elements[10] = ((closureN)self_73910)->elements[10]; c_731432.elements[11] = ((closureN)self_73910)->elements[11]; c_731432.elements[12] = ((closureN)self_73910)->elements[12]; c_731432.elements[13] = ((closureN)self_73910)->elements[13]; c_731432.elements[14] = ((closureN)self_73910)->elements[14]; c_731432.elements[15] = ((closureN)self_73910)->elements[15]; c_731432.elements[16] = ((closureN)self_73910)->elements[16]; c_731432.elements[17] = ((closureN)self_73910)->elements[17]; closureN_type c_733596; c_733596.hdr.mark = gc_color_red; c_733596.hdr.grayed = 0; c_733596.tag = closureN_tag; c_733596.fn = (function_type)__lambda_113; c_733596.num_args = 2; c_733596.num_elements = 3; c_733596.elements = (object *)alloca(sizeof(object) * 3); c_733596.elements[0] = ((closureN)self_73910)->elements[6]; c_733596.elements[1] = ((closureN)self_73910)->elements[10]; c_733596.elements[2] = ((closureN)self_73910)->elements[18]; return_closcall1(data,(closure)&c_731432, Cyc_set_cell(data, ((closureN)self_73910)->elements[5], &c_733596));; } static void __lambda_113(void *data, int argc, object self_73911, object k_73480, object term1_73276, object term2_73275) { if( (boolean_f != Cyc_is_pair(term2_73275)) ){ if( (boolean_f != Cyc_is_pair(term1_73276)) ){ if( (boolean_f != Cyc_eq(Cyc_car(data, term1_73276), Cyc_car(data, term2_73275))) ){ return_closcall3(data, car(((closureN)self_73911)->elements[0]), k_73480, Cyc_cdr(data, term1_73276), Cyc_cdr(data, term2_73275)); } else { return_closcall1(data, k_73480, boolean_f);} } else { return_closcall1(data, k_73480, boolean_f);} } else { closureN_type c_733618; c_733618.hdr.mark = gc_color_red; c_733618.hdr.grayed = 0; c_733618.tag = closureN_tag; c_733618.fn = (function_type)__lambda_112; c_733618.num_args = 1; c_733618.num_elements = 5; c_733618.elements = (object *)alloca(sizeof(object) * 5); c_733618.elements[0] = k_73480; c_733618.elements[1] = ((closureN)self_73911)->elements[1]; c_733618.elements[2] = term1_73276; c_733618.elements[3] = term2_73275; c_733618.elements[4] = ((closureN)self_73911)->elements[2]; return_closcall1(data,(closure)&c_733618, assq(data, term2_73275, car(((closureN)self_73911)->elements[2])));} ; } static void __lambda_112(void *data, int argc, object self_73912, object temp_91temp_73277) { if( (boolean_f != temp_91temp_73277) ){ return_closcall3(data, car(((closureN)self_73912)->elements[1]), ((closureN)self_73912)->elements[0], ((closureN)self_73912)->elements[2], Cyc_cdr(data, temp_91temp_73277)); } else { if( (boolean_f != Cyc_is_number(((closureN)self_73912)->elements[3])) ){ return_closcall1(data, ((closureN)self_73912)->elements[0], equalp(((closureN)self_73912)->elements[2], ((closureN)self_73912)->elements[3])); } else { closureN_type c_733637; c_733637.hdr.mark = gc_color_red; c_733637.hdr.grayed = 0; c_733637.tag = closureN_tag; c_733637.fn = (function_type)__lambda_111; c_733637.num_args = 1; c_733637.num_elements = 2; c_733637.elements = (object *)alloca(sizeof(object) * 2); c_733637.elements[0] = ((closureN)self_73912)->elements[0]; c_733637.elements[1] = ((closureN)self_73912)->elements[4]; make_pair(c_733650,((closureN)self_73912)->elements[3], ((closureN)self_73912)->elements[2]); make_pair(c_733647,&c_733650, car(((closureN)self_73912)->elements[4])); return_closcall1(data,(closure)&c_733637, &c_733647);} } ; } static void __lambda_111(void *data, int argc, object self_73913, object r_73492) { closureN_type c_733639; c_733639.hdr.mark = gc_color_red; c_733639.hdr.grayed = 0; c_733639.tag = closureN_tag; c_733639.fn = (function_type)__lambda_110; c_733639.num_args = 1; c_733639.num_elements = 1; c_733639.elements = (object *)alloca(sizeof(object) * 1); c_733639.elements[0] = ((closureN)self_73913)->elements[0]; return_closcall1(data,(closure)&c_733639, Cyc_set_cell(data, ((closureN)self_73913)->elements[1], r_73492));; } static void __lambda_110(void *data, int argc, object self_73914, object r_73491) { return_closcall1(data, ((closureN)self_73914)->elements[0], boolean_t);; } static void __lambda_109(void *data, int argc, object self_73915, object r_73392) { closureN_type c_731434; c_731434.hdr.mark = gc_color_red; c_731434.hdr.grayed = 0; c_731434.tag = closureN_tag; c_731434.fn = (function_type)__lambda_106; c_731434.num_args = 1; c_731434.num_elements = 16; c_731434.elements = (object *)alloca(sizeof(object) * 16); c_731434.elements[0] = ((closureN)self_73915)->elements[0]; c_731434.elements[1] = ((closureN)self_73915)->elements[1]; c_731434.elements[2] = ((closureN)self_73915)->elements[2]; c_731434.elements[3] = ((closureN)self_73915)->elements[3]; c_731434.elements[4] = ((closureN)self_73915)->elements[4]; c_731434.elements[5] = ((closureN)self_73915)->elements[7]; c_731434.elements[6] = ((closureN)self_73915)->elements[8]; c_731434.elements[7] = ((closureN)self_73915)->elements[9]; c_731434.elements[8] = ((closureN)self_73915)->elements[10]; c_731434.elements[9] = ((closureN)self_73915)->elements[11]; c_731434.elements[10] = ((closureN)self_73915)->elements[12]; c_731434.elements[11] = ((closureN)self_73915)->elements[13]; c_731434.elements[12] = ((closureN)self_73915)->elements[14]; c_731434.elements[13] = ((closureN)self_73915)->elements[15]; c_731434.elements[14] = ((closureN)self_73915)->elements[16]; c_731434.elements[15] = ((closureN)self_73915)->elements[17]; closureN_type c_733562; c_733562.hdr.mark = gc_color_red; c_733562.hdr.grayed = 0; c_733562.tag = closureN_tag; c_733562.fn = (function_type)__lambda_108; c_733562.num_args = 2; c_733562.num_elements = 2; c_733562.elements = (object *)alloca(sizeof(object) * 2); c_733562.elements[0] = ((closureN)self_73915)->elements[5]; c_733562.elements[1] = ((closureN)self_73915)->elements[6]; return_closcall1(data,(closure)&c_731434, Cyc_set_cell(data, ((closureN)self_73915)->elements[6], &c_733562));; } static void __lambda_108(void *data, int argc, object self_73916, object k_73471, object lst1_73274, object lst2_73273) { if( (boolean_f != Cyc_is_null(lst1_73274)) ){ return_closcall1(data, k_73471, Cyc_is_null(lst2_73273)); } else { if( (boolean_f != Cyc_is_null(lst2_73273)) ){ return_closcall1(data, k_73471, boolean_f); } else { closureN_type c_733575; c_733575.hdr.mark = gc_color_red; c_733575.hdr.grayed = 0; c_733575.tag = closureN_tag; c_733575.fn = (function_type)__lambda_107; c_733575.num_args = 1; c_733575.num_elements = 4; c_733575.elements = (object *)alloca(sizeof(object) * 4); c_733575.elements[0] = k_73471; c_733575.elements[1] = lst1_73274; c_733575.elements[2] = lst2_73273; c_733575.elements[3] = ((closureN)self_73916)->elements[1]; return_closcall3(data, car(((closureN)self_73916)->elements[0]), &c_733575, Cyc_car(data, lst1_73274), Cyc_car(data, lst2_73273));} } ; } static void __lambda_107(void *data, int argc, object self_73917, object r_73474) { if( (boolean_f != r_73474) ){ return_closcall3(data, car(((closureN)self_73917)->elements[3]), ((closureN)self_73917)->elements[0], Cyc_cdr(data, ((closureN)self_73917)->elements[1]), Cyc_cdr(data, ((closureN)self_73917)->elements[2])); } else { return_closcall1(data, ((closureN)self_73917)->elements[0], boolean_f);} ; } static void __lambda_106(void *data, int argc, object self_73918, object r_73393) { closureN_type c_731436; c_731436.hdr.mark = gc_color_red; c_731436.hdr.grayed = 0; c_731436.tag = closureN_tag; c_731436.fn = (function_type)__lambda_103; c_731436.num_args = 1; c_731436.num_elements = 15; c_731436.elements = (object *)alloca(sizeof(object) * 15); c_731436.elements[0] = ((closureN)self_73918)->elements[0]; c_731436.elements[1] = ((closureN)self_73918)->elements[1]; c_731436.elements[2] = ((closureN)self_73918)->elements[2]; c_731436.elements[3] = ((closureN)self_73918)->elements[4]; c_731436.elements[4] = ((closureN)self_73918)->elements[5]; c_731436.elements[5] = ((closureN)self_73918)->elements[6]; c_731436.elements[6] = ((closureN)self_73918)->elements[7]; c_731436.elements[7] = ((closureN)self_73918)->elements[8]; c_731436.elements[8] = ((closureN)self_73918)->elements[9]; c_731436.elements[9] = ((closureN)self_73918)->elements[10]; c_731436.elements[10] = ((closureN)self_73918)->elements[11]; c_731436.elements[11] = ((closureN)self_73918)->elements[12]; c_731436.elements[12] = ((closureN)self_73918)->elements[13]; c_731436.elements[13] = ((closureN)self_73918)->elements[14]; c_731436.elements[14] = ((closureN)self_73918)->elements[15]; closureN_type c_733541; c_733541.hdr.mark = gc_color_red; c_733541.hdr.grayed = 0; c_733541.tag = closureN_tag; c_733541.fn = (function_type)__lambda_105; c_733541.num_args = 2; c_733541.num_elements = 3; c_733541.elements = (object *)alloca(sizeof(object) * 3); c_733541.elements[0] = ((closureN)self_73918)->elements[2]; c_733541.elements[1] = ((closureN)self_73918)->elements[8]; c_733541.elements[2] = ((closureN)self_73918)->elements[9]; return_closcall1(data,(closure)&c_731436, Cyc_set_cell(data, ((closureN)self_73918)->elements[3], &c_733541));; } static void __lambda_105(void *data, int argc, object self_73919, object k_73468, object x_73271, object lst_73270) { closureN_type c_733546; c_733546.hdr.mark = gc_color_red; c_733546.hdr.grayed = 0; c_733546.tag = closureN_tag; c_733546.fn = (function_type)__lambda_104; c_733546.num_args = 1; c_733546.num_elements = 4; c_733546.elements = (object *)alloca(sizeof(object) * 4); c_733546.elements[0] = k_73468; c_733546.elements[1] = lst_73270; c_733546.elements[2] = ((closureN)self_73919)->elements[2]; c_733546.elements[3] = x_73271; return_closcall3(data, car(((closureN)self_73919)->elements[1]), &c_733546, x_73271, car(((closureN)self_73919)->elements[0]));; } static void __lambda_104(void *data, int argc, object self_73920, object tmp_73117_73272) { if( (boolean_f != tmp_73117_73272) ){ return_closcall1(data, ((closureN)self_73920)->elements[0], tmp_73117_73272); } else { return_closcall3(data, car(((closureN)self_73920)->elements[2]), ((closureN)self_73920)->elements[0], ((closureN)self_73920)->elements[3], ((closureN)self_73920)->elements[1]);} ; } static void __lambda_103(void *data, int argc, object self_73921, object r_73394) { closureN_type c_731438; c_731438.hdr.mark = gc_color_red; c_731438.hdr.grayed = 0; c_731438.tag = closureN_tag; c_731438.fn = (function_type)__lambda_100; c_731438.num_args = 1; c_731438.num_elements = 14; c_731438.elements = (object *)alloca(sizeof(object) * 14); c_731438.elements[0] = ((closureN)self_73921)->elements[0]; c_731438.elements[1] = ((closureN)self_73921)->elements[1]; c_731438.elements[2] = ((closureN)self_73921)->elements[2]; c_731438.elements[3] = ((closureN)self_73921)->elements[3]; c_731438.elements[4] = ((closureN)self_73921)->elements[4]; c_731438.elements[5] = ((closureN)self_73921)->elements[5]; c_731438.elements[6] = ((closureN)self_73921)->elements[6]; c_731438.elements[7] = ((closureN)self_73921)->elements[7]; c_731438.elements[8] = ((closureN)self_73921)->elements[8]; c_731438.elements[9] = ((closureN)self_73921)->elements[9]; c_731438.elements[10] = ((closureN)self_73921)->elements[10]; c_731438.elements[11] = ((closureN)self_73921)->elements[11]; c_731438.elements[12] = ((closureN)self_73921)->elements[12]; c_731438.elements[13] = ((closureN)self_73921)->elements[13]; closureN_type c_733520; c_733520.hdr.mark = gc_color_red; c_733520.hdr.grayed = 0; c_733520.tag = closureN_tag; c_733520.fn = (function_type)__lambda_102; c_733520.num_args = 2; c_733520.num_elements = 3; c_733520.elements = (object *)alloca(sizeof(object) * 3); c_733520.elements[0] = ((closureN)self_73921)->elements[7]; c_733520.elements[1] = ((closureN)self_73921)->elements[8]; c_733520.elements[2] = ((closureN)self_73921)->elements[13]; return_closcall1(data,(closure)&c_731438, Cyc_set_cell(data, ((closureN)self_73921)->elements[14], &c_733520));; } static void __lambda_102(void *data, int argc, object self_73922, object k_73465, object x_73268, object lst_73267) { closureN_type c_733525; c_733525.hdr.mark = gc_color_red; c_733525.hdr.grayed = 0; c_733525.tag = closureN_tag; c_733525.fn = (function_type)__lambda_101; c_733525.num_args = 1; c_733525.num_elements = 4; c_733525.elements = (object *)alloca(sizeof(object) * 4); c_733525.elements[0] = k_73465; c_733525.elements[1] = lst_73267; c_733525.elements[2] = ((closureN)self_73922)->elements[1]; c_733525.elements[3] = x_73268; return_closcall3(data, car(((closureN)self_73922)->elements[0]), &c_733525, x_73268, car(((closureN)self_73922)->elements[2]));; } static void __lambda_101(void *data, int argc, object self_73923, object tmp_73120_73269) { if( (boolean_f != tmp_73120_73269) ){ return_closcall1(data, ((closureN)self_73923)->elements[0], tmp_73120_73269); } else { return_closcall3(data, car(((closureN)self_73923)->elements[2]), ((closureN)self_73923)->elements[0], ((closureN)self_73923)->elements[3], ((closureN)self_73923)->elements[1]);} ; } static void __lambda_100(void *data, int argc, object self_73924, object r_73395) { closureN_type c_731440; c_731440.hdr.mark = gc_color_red; c_731440.hdr.grayed = 0; c_731440.tag = closureN_tag; c_731440.fn = (function_type)__lambda_99; c_731440.num_args = 1; c_731440.num_elements = 14; c_731440.elements = (object *)alloca(sizeof(object) * 14); c_731440.elements[0] = ((closureN)self_73924)->elements[0]; c_731440.elements[1] = ((closureN)self_73924)->elements[1]; c_731440.elements[2] = ((closureN)self_73924)->elements[2]; c_731440.elements[3] = ((closureN)self_73924)->elements[3]; c_731440.elements[4] = ((closureN)self_73924)->elements[4]; c_731440.elements[5] = ((closureN)self_73924)->elements[5]; c_731440.elements[6] = ((closureN)self_73924)->elements[6]; c_731440.elements[7] = ((closureN)self_73924)->elements[7]; c_731440.elements[8] = ((closureN)self_73924)->elements[8]; c_731440.elements[9] = ((closureN)self_73924)->elements[9]; c_731440.elements[10] = ((closureN)self_73924)->elements[10]; c_731440.elements[11] = ((closureN)self_73924)->elements[11]; c_731440.elements[12] = ((closureN)self_73924)->elements[12]; c_731440.elements[13] = ((closureN)self_73924)->elements[13]; return_closcall1(data,(closure)&c_731440, Cyc_set_cell(data, ((closureN)self_73924)->elements[2], quote__85));; } static void __lambda_99(void *data, int argc, object self_73925, object r_73396) { closureN_type c_731442; c_731442.hdr.mark = gc_color_red; c_731442.hdr.grayed = 0; c_731442.tag = closureN_tag; c_731442.fn = (function_type)__lambda_98; c_731442.num_args = 1; c_731442.num_elements = 14; c_731442.elements = (object *)alloca(sizeof(object) * 14); c_731442.elements[0] = ((closureN)self_73925)->elements[0]; c_731442.elements[1] = ((closureN)self_73925)->elements[1]; c_731442.elements[2] = ((closureN)self_73925)->elements[2]; c_731442.elements[3] = ((closureN)self_73925)->elements[3]; c_731442.elements[4] = ((closureN)self_73925)->elements[4]; c_731442.elements[5] = ((closureN)self_73925)->elements[5]; c_731442.elements[6] = ((closureN)self_73925)->elements[6]; c_731442.elements[7] = ((closureN)self_73925)->elements[7]; c_731442.elements[8] = ((closureN)self_73925)->elements[8]; c_731442.elements[9] = ((closureN)self_73925)->elements[9]; c_731442.elements[10] = ((closureN)self_73925)->elements[10]; c_731442.elements[11] = ((closureN)self_73925)->elements[11]; c_731442.elements[12] = ((closureN)self_73925)->elements[12]; c_731442.elements[13] = ((closureN)self_73925)->elements[13]; return_closcall1(data,(closure)&c_731442, Cyc_set_cell(data, ((closureN)self_73925)->elements[13], quote__85));; } static void __lambda_98(void *data, int argc, object self_73926, object r_73397) { closureN_type c_731444; c_731444.hdr.mark = gc_color_red; c_731444.hdr.grayed = 0; c_731444.tag = closureN_tag; c_731444.fn = (function_type)__lambda_93; c_731444.num_args = 1; c_731444.num_elements = 13; c_731444.elements = (object *)alloca(sizeof(object) * 13); c_731444.elements[0] = ((closureN)self_73926)->elements[0]; c_731444.elements[1] = ((closureN)self_73926)->elements[1]; c_731444.elements[2] = ((closureN)self_73926)->elements[2]; c_731444.elements[3] = ((closureN)self_73926)->elements[3]; c_731444.elements[4] = ((closureN)self_73926)->elements[4]; c_731444.elements[5] = ((closureN)self_73926)->elements[5]; c_731444.elements[6] = ((closureN)self_73926)->elements[6]; c_731444.elements[7] = ((closureN)self_73926)->elements[7]; c_731444.elements[8] = ((closureN)self_73926)->elements[8]; c_731444.elements[9] = ((closureN)self_73926)->elements[9]; c_731444.elements[10] = ((closureN)self_73926)->elements[11]; c_731444.elements[11] = ((closureN)self_73926)->elements[12]; c_731444.elements[12] = ((closureN)self_73926)->elements[13]; closureN_type c_733494; c_733494.hdr.mark = gc_color_red; c_733494.hdr.grayed = 0; c_733494.tag = closureN_tag; c_733494.fn = (function_type)__lambda_97; c_733494.num_args = 1; c_733494.num_elements = 2; c_733494.elements = (object *)alloca(sizeof(object) * 2); c_733494.elements[0] = ((closureN)self_73926)->elements[11]; c_733494.elements[1] = ((closureN)self_73926)->elements[12]; return_closcall1(data,(closure)&c_731444, Cyc_set_cell(data, ((closureN)self_73926)->elements[10], &c_733494));; } static void __lambda_97(void *data, int argc, object self_73927, object k_73456, object n_73266) { closureN_type c_733499; c_733499.hdr.mark = gc_color_red; c_733499.hdr.grayed = 0; c_733499.tag = closureN_tag; c_733499.fn = (function_type)__lambda_96; c_733499.num_args = 1; c_733499.num_elements = 3; c_733499.elements = (object *)alloca(sizeof(object) * 3); c_733499.elements[0] = k_73456; c_733499.elements[1] = n_73266; c_733499.elements[2] = ((closureN)self_73927)->elements[1]; return_closcall2(data, car(((closureN)self_73927)->elements[0]), &c_733499, n_73266);; } static void __lambda_96(void *data, int argc, object self_73928, object r_73459) { closureN_type c_733501; c_733501.hdr.mark = gc_color_red; c_733501.hdr.grayed = 0; c_733501.tag = closureN_tag; c_733501.fn = (function_type)__lambda_95; c_733501.num_args = 1; c_733501.num_elements = 3; c_733501.elements = (object *)alloca(sizeof(object) * 3); c_733501.elements[0] = ((closureN)self_73928)->elements[0]; c_733501.elements[1] = r_73459; c_733501.elements[2] = ((closureN)self_73928)->elements[2]; return_closcall4(data, __glo__list_scheme_base, &c_733501, quote_implies, obj_int2obj(0), ((closureN)self_73928)->elements[1]);; } static void __lambda_95(void *data, int argc, object self_73929, object r_73460) { closureN_type c_733503; c_733503.hdr.mark = gc_color_red; c_733503.hdr.grayed = 0; c_733503.tag = closureN_tag; c_733503.fn = (function_type)__lambda_94; c_733503.num_args = 1; c_733503.num_elements = 2; c_733503.elements = (object *)alloca(sizeof(object) * 2); c_733503.elements[0] = ((closureN)self_73929)->elements[0]; c_733503.elements[1] = ((closureN)self_73929)->elements[2]; return_closcall4(data, __glo__list_scheme_base, &c_733503, quote_implies, ((closureN)self_73929)->elements[1], r_73460);; } static void __lambda_94(void *data, int argc, object self_73930, object r_73457) { return_closcall2(data, car(((closureN)self_73930)->elements[1]), ((closureN)self_73930)->elements[0], r_73457);; } static void __lambda_93(void *data, int argc, object self_73931, object r_73398) { closureN_type c_731446; c_731446.hdr.mark = gc_color_red; c_731446.hdr.grayed = 0; c_731446.tag = closureN_tag; c_731446.fn = (function_type)__lambda_87; c_731446.num_args = 1; c_731446.num_elements = 12; c_731446.elements = (object *)alloca(sizeof(object) * 12); c_731446.elements[0] = ((closureN)self_73931)->elements[0]; c_731446.elements[1] = ((closureN)self_73931)->elements[1]; c_731446.elements[2] = ((closureN)self_73931)->elements[2]; c_731446.elements[3] = ((closureN)self_73931)->elements[3]; c_731446.elements[4] = ((closureN)self_73931)->elements[4]; c_731446.elements[5] = ((closureN)self_73931)->elements[5]; c_731446.elements[6] = ((closureN)self_73931)->elements[6]; c_731446.elements[7] = ((closureN)self_73931)->elements[7]; c_731446.elements[8] = ((closureN)self_73931)->elements[8]; c_731446.elements[9] = ((closureN)self_73931)->elements[9]; c_731446.elements[10] = ((closureN)self_73931)->elements[11]; c_731446.elements[11] = ((closureN)self_73931)->elements[12]; closureN_type c_733461; c_733461.hdr.mark = gc_color_red; c_733461.hdr.grayed = 0; c_733461.tag = closureN_tag; c_733461.fn = (function_type)__lambda_92; c_733461.num_args = 1; c_733461.num_elements = 1; c_733461.elements = (object *)alloca(sizeof(object) * 1); c_733461.elements[0] = ((closureN)self_73931)->elements[10]; return_closcall1(data,(closure)&c_731446, Cyc_set_cell(data, ((closureN)self_73931)->elements[10], &c_733461));; } static void __lambda_92(void *data, int argc, object self_73932, object k_73446, object n_73265) { closureN_type c_733463; c_733463.hdr.mark = gc_color_red; c_733463.hdr.grayed = 0; c_733463.tag = closureN_tag; c_733463.fn = (function_type)__lambda_91; c_733463.num_args = 1; c_733463.num_elements = 3; c_733463.elements = (object *)alloca(sizeof(object) * 3); c_733463.elements[0] = k_73446; c_733463.elements[1] = n_73265; c_733463.elements[2] = ((closureN)self_73932)->elements[0]; return_closcall1(data,(closure)&c_733463, equalp(n_73265, obj_int2obj(1)));; } static void __lambda_91(void *data, int argc, object self_73933, object r_73447) { if( (boolean_f != r_73447) ){ return_closcall4(data, __glo__list_scheme_base, ((closureN)self_73933)->elements[0], quote_implies, obj_int2obj(0), obj_int2obj(1)); } else { closureN_type c_733467; c_733467.hdr.mark = gc_color_red; c_733467.hdr.grayed = 0; c_733467.tag = closureN_tag; c_733467.fn = (function_type)__lambda_90; c_733467.num_args = 1; c_733467.num_elements = 3; c_733467.elements = (object *)alloca(sizeof(object) * 3); c_733467.elements[0] = ((closureN)self_73933)->elements[0]; c_733467.elements[1] = ((closureN)self_73933)->elements[1]; c_733467.elements[2] = ((closureN)self_73933)->elements[2]; double_type local_733486; object c_733487 = Cyc_fast_sub(data,&local_733486,((closureN)self_73933)->elements[1], obj_int2obj(1)); return_closcall1(data,(closure)&c_733467, c_733487);} ; } static void __lambda_90(void *data, int argc, object self_73934, object r_73454) { closureN_type c_733469; c_733469.hdr.mark = gc_color_red; c_733469.hdr.grayed = 0; c_733469.tag = closureN_tag; c_733469.fn = (function_type)__lambda_89; c_733469.num_args = 1; c_733469.num_elements = 3; c_733469.elements = (object *)alloca(sizeof(object) * 3); c_733469.elements[0] = ((closureN)self_73934)->elements[0]; c_733469.elements[1] = ((closureN)self_73934)->elements[1]; c_733469.elements[2] = ((closureN)self_73934)->elements[2]; return_closcall4(data, __glo__list_scheme_base, &c_733469, quote_implies, r_73454, ((closureN)self_73934)->elements[1]);; } static void __lambda_89(void *data, int argc, object self_73935, object r_73450) { closureN_type c_733474; c_733474.hdr.mark = gc_color_red; c_733474.hdr.grayed = 0; c_733474.tag = closureN_tag; c_733474.fn = (function_type)__lambda_88; c_733474.num_args = 1; c_733474.num_elements = 2; c_733474.elements = (object *)alloca(sizeof(object) * 2); c_733474.elements[0] = ((closureN)self_73935)->elements[0]; c_733474.elements[1] = r_73450; double_type local_733480; object c_733481 = Cyc_fast_sub(data,&local_733480,((closureN)self_73935)->elements[1], obj_int2obj(1)); return_closcall2(data, car(((closureN)self_73935)->elements[2]), &c_733474, c_733481);; } static void __lambda_88(void *data, int argc, object self_73936, object r_73451) { return_closcall4(data, __glo__list_scheme_base, ((closureN)self_73936)->elements[0], quote_and, ((closureN)self_73936)->elements[1], r_73451);; } static void __lambda_87(void *data, int argc, object self_73937, object r_73399) { closureN_type c_731448; c_731448.hdr.mark = gc_color_red; c_731448.hdr.grayed = 0; c_731448.tag = closureN_tag; c_731448.fn = (function_type)__lambda_85; c_731448.num_args = 1; c_731448.num_elements = 12; c_731448.elements = (object *)alloca(sizeof(object) * 12); c_731448.elements[0] = ((closureN)self_73937)->elements[0]; c_731448.elements[1] = ((closureN)self_73937)->elements[1]; c_731448.elements[2] = ((closureN)self_73937)->elements[2]; c_731448.elements[3] = ((closureN)self_73937)->elements[3]; c_731448.elements[4] = ((closureN)self_73937)->elements[4]; c_731448.elements[5] = ((closureN)self_73937)->elements[5]; c_731448.elements[6] = ((closureN)self_73937)->elements[6]; c_731448.elements[7] = ((closureN)self_73937)->elements[7]; c_731448.elements[8] = ((closureN)self_73937)->elements[8]; c_731448.elements[9] = ((closureN)self_73937)->elements[9]; c_731448.elements[10] = ((closureN)self_73937)->elements[10]; c_731448.elements[11] = ((closureN)self_73937)->elements[11]; closureN_type c_733434; c_733434.hdr.mark = gc_color_red; c_733434.hdr.grayed = 0; c_733434.tag = closureN_tag; c_733434.fn = (function_type)__lambda_86; c_733434.num_args = 2; c_733434.num_elements = 1; c_733434.elements = (object *)alloca(sizeof(object) * 1); c_733434.elements[0] = ((closureN)self_73937)->elements[6]; return_closcall1(data,(closure)&c_731448, Cyc_set_cell(data, ((closureN)self_73937)->elements[7], &c_733434));; } static void __lambda_86(void *data, int argc, object self_73938, object k_73437, object x_73264, object y_73263) { if( (boolean_f != Cyc_is_pair(x_73264)) ){ if( (boolean_f != Cyc_is_pair(y_73263)) ){ if( (boolean_f != Cyc_eq(Cyc_car(data, x_73264), Cyc_car(data, y_73263))) ){ return_closcall3(data, car(((closureN)self_73938)->elements[0]), k_73437, Cyc_cdr(data, x_73264), Cyc_cdr(data, y_73263)); } else { return_closcall1(data, k_73437, boolean_f);} } else { return_closcall1(data, k_73437, boolean_f);} } else { return_closcall1(data, k_73437, equalp(x_73264, y_73263));} ; } static void __lambda_85(void *data, int argc, object self_73939, object r_73400) { closureN_type c_731450; c_731450.hdr.mark = gc_color_red; c_731450.hdr.grayed = 0; c_731450.tag = closureN_tag; c_731450.fn = (function_type)__lambda_82; c_731450.num_args = 1; c_731450.num_elements = 11; c_731450.elements = (object *)alloca(sizeof(object) * 11); c_731450.elements[0] = ((closureN)self_73939)->elements[0]; c_731450.elements[1] = ((closureN)self_73939)->elements[1]; c_731450.elements[2] = ((closureN)self_73939)->elements[2]; c_731450.elements[3] = ((closureN)self_73939)->elements[3]; c_731450.elements[4] = ((closureN)self_73939)->elements[4]; c_731450.elements[5] = ((closureN)self_73939)->elements[5]; c_731450.elements[6] = ((closureN)self_73939)->elements[7]; c_731450.elements[7] = ((closureN)self_73939)->elements[8]; c_731450.elements[8] = ((closureN)self_73939)->elements[9]; c_731450.elements[9] = ((closureN)self_73939)->elements[10]; c_731450.elements[10] = ((closureN)self_73939)->elements[11]; closureN_type c_733400; c_733400.hdr.mark = gc_color_red; c_733400.hdr.grayed = 0; c_733400.tag = closureN_tag; c_733400.fn = (function_type)__lambda_84; c_733400.num_args = 2; c_733400.num_elements = 2; c_733400.elements = (object *)alloca(sizeof(object) * 2); c_733400.elements[0] = ((closureN)self_73939)->elements[6]; c_733400.elements[1] = ((closureN)self_73939)->elements[7]; return_closcall1(data,(closure)&c_731450, Cyc_set_cell(data, ((closureN)self_73939)->elements[6], &c_733400));; } static void __lambda_84(void *data, int argc, object self_73940, object k_73428, object lst1_73262, object lst2_73261) { if( (boolean_f != Cyc_is_null(lst1_73262)) ){ return_closcall1(data, k_73428, Cyc_is_null(lst2_73261)); } else { if( (boolean_f != Cyc_is_null(lst2_73261)) ){ return_closcall1(data, k_73428, boolean_f); } else { closureN_type c_733413; c_733413.hdr.mark = gc_color_red; c_733413.hdr.grayed = 0; c_733413.tag = closureN_tag; c_733413.fn = (function_type)__lambda_83; c_733413.num_args = 1; c_733413.num_elements = 4; c_733413.elements = (object *)alloca(sizeof(object) * 4); c_733413.elements[0] = k_73428; c_733413.elements[1] = lst1_73262; c_733413.elements[2] = lst2_73261; c_733413.elements[3] = ((closureN)self_73940)->elements[0]; return_closcall3(data, car(((closureN)self_73940)->elements[1]), &c_733413, Cyc_car(data, lst1_73262), Cyc_car(data, lst2_73261));} } ; } static void __lambda_83(void *data, int argc, object self_73941, object r_73431) { if( (boolean_f != r_73431) ){ return_closcall3(data, car(((closureN)self_73941)->elements[3]), ((closureN)self_73941)->elements[0], Cyc_cdr(data, ((closureN)self_73941)->elements[1]), Cyc_cdr(data, ((closureN)self_73941)->elements[2])); } else { return_closcall1(data, ((closureN)self_73941)->elements[0], boolean_f);} ; } static void __lambda_82(void *data, int argc, object self_73942, object r_73401) { closureN_type c_731452; c_731452.hdr.mark = gc_color_red; c_731452.hdr.grayed = 0; c_731452.tag = closureN_tag; c_731452.fn = (function_type)__lambda_79; c_731452.num_args = 1; c_731452.num_elements = 9; c_731452.elements = (object *)alloca(sizeof(object) * 9); c_731452.elements[0] = ((closureN)self_73942)->elements[0]; c_731452.elements[1] = ((closureN)self_73942)->elements[1]; c_731452.elements[2] = ((closureN)self_73942)->elements[2]; c_731452.elements[3] = ((closureN)self_73942)->elements[3]; c_731452.elements[4] = ((closureN)self_73942)->elements[4]; c_731452.elements[5] = ((closureN)self_73942)->elements[5]; c_731452.elements[6] = ((closureN)self_73942)->elements[8]; c_731452.elements[7] = ((closureN)self_73942)->elements[9]; c_731452.elements[8] = ((closureN)self_73942)->elements[10]; closureN_type c_733375; c_733375.hdr.mark = gc_color_red; c_733375.hdr.grayed = 0; c_733375.tag = closureN_tag; c_733375.fn = (function_type)__lambda_81; c_733375.num_args = 2; c_733375.num_elements = 2; c_733375.elements = (object *)alloca(sizeof(object) * 2); c_733375.elements[0] = ((closureN)self_73942)->elements[6]; c_733375.elements[1] = ((closureN)self_73942)->elements[7]; return_closcall1(data,(closure)&c_731452, Cyc_set_cell(data, ((closureN)self_73942)->elements[7], &c_733375));; } static void __lambda_81(void *data, int argc, object self_73943, object k_73422, object x_73260, object lst_73259) { if( (boolean_f != Cyc_is_null(lst_73259)) ){ return_closcall1(data, k_73422, boolean_f); } else { closureN_type c_733383; c_733383.hdr.mark = gc_color_red; c_733383.hdr.grayed = 0; c_733383.tag = closureN_tag; c_733383.fn = (function_type)__lambda_80; c_733383.num_args = 1; c_733383.num_elements = 4; c_733383.elements = (object *)alloca(sizeof(object) * 4); c_733383.elements[0] = k_73422; c_733383.elements[1] = lst_73259; c_733383.elements[2] = ((closureN)self_73943)->elements[1]; c_733383.elements[3] = x_73260; return_closcall3(data, car(((closureN)self_73943)->elements[0]), &c_733383, x_73260, Cyc_car(data, lst_73259));} ; } static void __lambda_80(void *data, int argc, object self_73944, object r_73424) { if( (boolean_f != r_73424) ){ return_closcall1(data, ((closureN)self_73944)->elements[0], boolean_t); } else { return_closcall3(data, car(((closureN)self_73944)->elements[2]), ((closureN)self_73944)->elements[0], ((closureN)self_73944)->elements[3], Cyc_cdr(data, ((closureN)self_73944)->elements[1]));} ; } static void __lambda_79(void *data, int argc, object self_73945, object r_73402) { closureN_type c_731454; c_731454.hdr.mark = gc_color_red; c_731454.hdr.grayed = 0; c_731454.tag = closureN_tag; c_731454.fn = (function_type)__lambda_70; c_731454.num_args = 1; c_731454.num_elements = 2; c_731454.elements = (object *)alloca(sizeof(object) * 2); c_731454.elements[0] = ((closureN)self_73945)->elements[4]; c_731454.elements[1] = ((closureN)self_73945)->elements[6]; closureN_type c_731482; c_731482.hdr.mark = gc_color_red; c_731482.hdr.grayed = 0; c_731482.tag = closureN_tag; c_731482.fn = (function_type)__lambda_78; c_731482.num_args = 0; c_731482.num_elements = 7; c_731482.elements = (object *)alloca(sizeof(object) * 7); c_731482.elements[0] = ((closureN)self_73945)->elements[0]; c_731482.elements[1] = ((closureN)self_73945)->elements[1]; c_731482.elements[2] = ((closureN)self_73945)->elements[2]; c_731482.elements[3] = ((closureN)self_73945)->elements[3]; c_731482.elements[4] = ((closureN)self_73945)->elements[5]; c_731482.elements[5] = ((closureN)self_73945)->elements[7]; c_731482.elements[6] = ((closureN)self_73945)->elements[8]; return_closcall1(data,(closure)&c_731454, global_set(__glo_setup_91boyer, &c_731482));; } static void __lambda_78(void *data, int argc, object self_73946, object k_73409) { closureN_type c_731484; c_731484.hdr.mark = gc_color_red; c_731484.hdr.grayed = 0; c_731484.tag = closureN_tag; c_731484.fn = (function_type)__lambda_77; c_731484.num_args = 1; c_731484.num_elements = 7; c_731484.elements = (object *)alloca(sizeof(object) * 7); c_731484.elements[0] = ((closureN)self_73946)->elements[1]; c_731484.elements[1] = ((closureN)self_73946)->elements[2]; c_731484.elements[2] = ((closureN)self_73946)->elements[3]; c_731484.elements[3] = k_73409; c_731484.elements[4] = ((closureN)self_73946)->elements[4]; c_731484.elements[5] = ((closureN)self_73946)->elements[5]; c_731484.elements[6] = ((closureN)self_73946)->elements[6]; return_closcall1(data,(closure)&c_731484, Cyc_set_cell(data, ((closureN)self_73946)->elements[0], NULL));; } static void __lambda_77(void *data, int argc, object self_73947, object r_73410) { closureN_type c_731489; c_731489.hdr.mark = gc_color_red; c_731489.hdr.grayed = 0; c_731489.tag = closureN_tag; c_731489.fn = (function_type)__lambda_76; c_731489.num_args = 1; c_731489.num_elements = 6; c_731489.elements = (object *)alloca(sizeof(object) * 6); c_731489.elements[0] = ((closureN)self_73947)->elements[0]; c_731489.elements[1] = ((closureN)self_73947)->elements[1]; c_731489.elements[2] = ((closureN)self_73947)->elements[2]; c_731489.elements[3] = ((closureN)self_73947)->elements[3]; c_731489.elements[4] = ((closureN)self_73947)->elements[5]; c_731489.elements[5] = ((closureN)self_73947)->elements[6]; return_closcall2(data, car(((closureN)self_73947)->elements[4]), &c_731489, quote__if);; } static void __lambda_76(void *data, int argc, object self_73948, object r_73418) { closureN_type c_731491; c_731491.hdr.mark = gc_color_red; c_731491.hdr.grayed = 0; c_731491.tag = closureN_tag; c_731491.fn = (function_type)__lambda_75; c_731491.num_args = 1; c_731491.num_elements = 5; c_731491.elements = (object *)alloca(sizeof(object) * 5); c_731491.elements[0] = ((closureN)self_73948)->elements[0]; c_731491.elements[1] = ((closureN)self_73948)->elements[1]; c_731491.elements[2] = ((closureN)self_73948)->elements[3]; c_731491.elements[3] = ((closureN)self_73948)->elements[4]; c_731491.elements[4] = ((closureN)self_73948)->elements[5]; return_closcall1(data,(closure)&c_731491, Cyc_set_cell(data, ((closureN)self_73948)->elements[2], r_73418));; } static void __lambda_75(void *data, int argc, object self_73949, object r_73411) { closureN_type c_731496; c_731496.hdr.mark = gc_color_red; c_731496.hdr.grayed = 0; c_731496.tag = closureN_tag; c_731496.fn = (function_type)__lambda_74; c_731496.num_args = 1; c_731496.num_elements = 5; c_731496.elements = (object *)alloca(sizeof(object) * 5); c_731496.elements[0] = ((closureN)self_73949)->elements[0]; c_731496.elements[1] = ((closureN)self_73949)->elements[1]; c_731496.elements[2] = ((closureN)self_73949)->elements[2]; c_731496.elements[3] = ((closureN)self_73949)->elements[3]; c_731496.elements[4] = ((closureN)self_73949)->elements[4]; make_pair(c_733365,quote_f,NULL); return_closcall2(data, car(((closureN)self_73949)->elements[3]), &c_731496, &c_733365);; } static void __lambda_74(void *data, int argc, object self_73950, object r_73416) { closureN_type c_731498; c_731498.hdr.mark = gc_color_red; c_731498.hdr.grayed = 0; c_731498.tag = closureN_tag; c_731498.fn = (function_type)__lambda_73; c_731498.num_args = 1; c_731498.num_elements = 4; c_731498.elements = (object *)alloca(sizeof(object) * 4); c_731498.elements[0] = ((closureN)self_73950)->elements[0]; c_731498.elements[1] = ((closureN)self_73950)->elements[2]; c_731498.elements[2] = ((closureN)self_73950)->elements[3]; c_731498.elements[3] = ((closureN)self_73950)->elements[4]; return_closcall1(data,(closure)&c_731498, Cyc_set_cell(data, ((closureN)self_73950)->elements[1], r_73416));; } static void __lambda_73(void *data, int argc, object self_73951, object r_73412) { closureN_type c_731503; c_731503.hdr.mark = gc_color_red; c_731503.hdr.grayed = 0; c_731503.tag = closureN_tag; c_731503.fn = (function_type)__lambda_72; c_731503.num_args = 1; c_731503.num_elements = 3; c_731503.elements = (object *)alloca(sizeof(object) * 3); c_731503.elements[0] = ((closureN)self_73951)->elements[0]; c_731503.elements[1] = ((closureN)self_73951)->elements[1]; c_731503.elements[2] = ((closureN)self_73951)->elements[3]; make_pair(c_733361,quote_t,NULL); return_closcall2(data, car(((closureN)self_73951)->elements[2]), &c_731503, &c_733361);; } static void __lambda_72(void *data, int argc, object self_73952, object r_73414) { closureN_type c_731505; c_731505.hdr.mark = gc_color_red; c_731505.hdr.grayed = 0; c_731505.tag = closureN_tag; c_731505.fn = (function_type)__lambda_71; c_731505.num_args = 1; c_731505.num_elements = 2; c_731505.elements = (object *)alloca(sizeof(object) * 2); c_731505.elements[0] = ((closureN)self_73952)->elements[0]; c_731505.elements[1] = ((closureN)self_73952)->elements[1]; return_closcall1(data,(closure)&c_731505, Cyc_set_cell(data, ((closureN)self_73952)->elements[2], r_73414));; } static void __lambda_71(void *data, int argc, object self_73953, object r_73413) { make_pair(c_731515,quote_form,NULL); make_pair(c_731514,quote_compile,&c_731515); make_pair(c_731522,quote_form,NULL); make_pair(c_731521,quote_optimize,&c_731522); make_pair(c_731524,quote_nil,NULL); make_pair(c_731523,&c_731524,NULL); make_pair(c_731520,&c_731521,&c_731523); make_pair(c_731519,quote_codegen,&c_731520); make_pair(c_731518,&c_731519,NULL); make_pair(c_731517,quote_reverse,&c_731518); make_pair(c_731516,&c_731517,NULL); make_pair(c_731513,&c_731514,&c_731516); make_pair(c_731512,quote_equal,&c_731513); make_pair(c_731530,quote_y,NULL); make_pair(c_731529,quote_x,&c_731530); make_pair(c_731528,quote_eqp,&c_731529); make_pair(c_731535,quote_x,NULL); make_pair(c_731534,quote_fix,&c_731535); make_pair(c_731538,quote_y,NULL); make_pair(c_731537,quote_fix,&c_731538); make_pair(c_731536,&c_731537,NULL); make_pair(c_731533,&c_731534,&c_731536); make_pair(c_731532,quote_equal,&c_731533); make_pair(c_731531,&c_731532,NULL); make_pair(c_731527,&c_731528,&c_731531); make_pair(c_731526,quote_equal,&c_731527); make_pair(c_731544,quote_y,NULL); make_pair(c_731543,quote_x,&c_731544); make_pair(c_731542,quote_greaterp,&c_731543); make_pair(c_731548,quote_x,NULL); make_pair(c_731547,quote_y,&c_731548); make_pair(c_731546,quote_lessp,&c_731547); make_pair(c_731545,&c_731546,NULL); make_pair(c_731541,&c_731542,&c_731545); make_pair(c_731540,quote_equal,&c_731541); make_pair(c_731554,quote_y,NULL); make_pair(c_731553,quote_x,&c_731554); make_pair(c_731552,quote_lesseqp,&c_731553); make_pair(c_731560,quote_x,NULL); make_pair(c_731559,quote_y,&c_731560); make_pair(c_731558,quote_lessp,&c_731559); make_pair(c_731557,&c_731558,NULL); make_pair(c_731556,quote_not,&c_731557); make_pair(c_731555,&c_731556,NULL); make_pair(c_731551,&c_731552,&c_731555); make_pair(c_731550,quote_equal,&c_731551); make_pair(c_731566,quote_y,NULL); make_pair(c_731565,quote_x,&c_731566); make_pair(c_731564,quote_greatereqp,&c_731565); make_pair(c_731572,quote_y,NULL); make_pair(c_731571,quote_x,&c_731572); make_pair(c_731570,quote_lessp,&c_731571); make_pair(c_731569,&c_731570,NULL); make_pair(c_731568,quote_not,&c_731569); make_pair(c_731567,&c_731568,NULL); make_pair(c_731563,&c_731564,&c_731567); make_pair(c_731562,quote_equal,&c_731563); make_pair(c_731577,quote_x,NULL); make_pair(c_731576,quote_boolean,&c_731577); make_pair(c_731584,quote_t,NULL); make_pair(c_731583,&c_731584,NULL); make_pair(c_731582,quote_x,&c_731583); make_pair(c_731581,quote_equal,&c_731582); make_pair(c_731589,quote_f,NULL); make_pair(c_731588,&c_731589,NULL); make_pair(c_731587,quote_x,&c_731588); make_pair(c_731586,quote_equal,&c_731587); make_pair(c_731585,&c_731586,NULL); make_pair(c_731580,&c_731581,&c_731585); make_pair(c_731579,quote_or,&c_731580); make_pair(c_731578,&c_731579,NULL); make_pair(c_731575,&c_731576,&c_731578); make_pair(c_731574,quote_equal,&c_731575); make_pair(c_731595,quote_y,NULL); make_pair(c_731594,quote_x,&c_731595); make_pair(c_731593,quote_iff,&c_731594); make_pair(c_731601,quote_y,NULL); make_pair(c_731600,quote_x,&c_731601); make_pair(c_731599,quote_implies,&c_731600); make_pair(c_731605,quote_x,NULL); make_pair(c_731604,quote_y,&c_731605); make_pair(c_731603,quote_implies,&c_731604); make_pair(c_731602,&c_731603,NULL); make_pair(c_731598,&c_731599,&c_731602); make_pair(c_731597,quote_and,&c_731598); make_pair(c_731596,&c_731597,NULL); make_pair(c_731592,&c_731593,&c_731596); make_pair(c_731591,quote_equal,&c_731592); make_pair(c_731610,quote_x,NULL); make_pair(c_731609,quote_even1,&c_731610); make_pair(c_731615,quote_x,NULL); make_pair(c_731614,quote_zerop,&c_731615); make_pair(c_731617,quote_t,NULL); make_pair(c_731622,quote_x,NULL); make_pair(c_731621,quote__1911_91,&c_731622); make_pair(c_731620,&c_731621,NULL); make_pair(c_731619,quote_odd,&c_731620); make_pair(c_731618,&c_731619,NULL); make_pair(c_731616,&c_731617,&c_731618); make_pair(c_731613,&c_731614,&c_731616); make_pair(c_731612,quote__if,&c_731613); make_pair(c_731611,&c_731612,NULL); make_pair(c_731608,&c_731609,&c_731611); make_pair(c_731607,quote_equal,&c_731608); make_pair(c_731628,quote_pred,NULL); make_pair(c_731627,quote_l,&c_731628); make_pair(c_731626,quote_countps_91,&c_731627); make_pair(c_731634,quote_zero,NULL); make_pair(c_731633,&c_731634,NULL); make_pair(c_731632,quote_pred,&c_731633); make_pair(c_731631,quote_l,&c_731632); make_pair(c_731630,quote_countps_91loop,&c_731631); make_pair(c_731629,&c_731630,NULL); make_pair(c_731625,&c_731626,&c_731629); make_pair(c_731624,quote_equal,&c_731625); make_pair(c_731639,quote_i,NULL); make_pair(c_731638,quote_fact_91,&c_731639); make_pair(c_731643,obj_int2obj(1),NULL); make_pair(c_731642,quote_i,&c_731643); make_pair(c_731641,quote_fact_91loop,&c_731642); make_pair(c_731640,&c_731641,NULL); make_pair(c_731637,&c_731638,&c_731640); make_pair(c_731636,quote_equal,&c_731637); make_pair(c_731648,quote_x,NULL); make_pair(c_731647,quote_reverse_91,&c_731648); make_pair(c_731653,quote_nil,NULL); make_pair(c_731652,&c_731653,NULL); make_pair(c_731651,quote_x,&c_731652); make_pair(c_731650,quote_reverse_91loop,&c_731651); make_pair(c_731649,&c_731650,NULL); make_pair(c_731646,&c_731647,&c_731649); make_pair(c_731645,quote_equal,&c_731646); make_pair(c_731659,quote_y,NULL); make_pair(c_731658,quote_x,&c_731659); make_pair(c_731657,quote_divides,&c_731658); make_pair(c_731665,quote_x,NULL); make_pair(c_731664,quote_y,&c_731665); make_pair(c_731663,quote_remainder,&c_731664); make_pair(c_731662,&c_731663,NULL); make_pair(c_731661,quote_zerop,&c_731662); make_pair(c_731660,&c_731661,NULL); make_pair(c_731656,&c_731657,&c_731660); make_pair(c_731655,quote_equal,&c_731656); make_pair(c_731671,quote_alist,NULL); make_pair(c_731670,quote_var,&c_731671); make_pair(c_731669,quote_assume_91true,&c_731670); make_pair(c_731678,quote_t,NULL); make_pair(c_731677,&c_731678,NULL); make_pair(c_731676,quote_var,&c_731677); make_pair(c_731675,quote_cons,&c_731676); make_pair(c_731679,quote_alist,NULL); make_pair(c_731674,&c_731675,&c_731679); make_pair(c_731673,quote_cons,&c_731674); make_pair(c_731672,&c_731673,NULL); make_pair(c_731668,&c_731669,&c_731672); make_pair(c_731667,quote_equal,&c_731668); make_pair(c_731685,quote_alist,NULL); make_pair(c_731684,quote_var,&c_731685); make_pair(c_731683,quote_assume_91false,&c_731684); make_pair(c_731692,quote_f,NULL); make_pair(c_731691,&c_731692,NULL); make_pair(c_731690,quote_var,&c_731691); make_pair(c_731689,quote_cons,&c_731690); make_pair(c_731693,quote_alist,NULL); make_pair(c_731688,&c_731689,&c_731693); make_pair(c_731687,quote_cons,&c_731688); make_pair(c_731686,&c_731687,NULL); make_pair(c_731682,&c_731683,&c_731686); make_pair(c_731681,quote_equal,&c_731682); make_pair(c_731698,quote_x,NULL); make_pair(c_731697,quote_tautology_91checker,&c_731698); make_pair(c_731703,quote_x,NULL); make_pair(c_731702,quote_normalize,&c_731703); make_pair(c_731705,quote_nil,NULL); make_pair(c_731704,&c_731705,NULL); make_pair(c_731701,&c_731702,&c_731704); make_pair(c_731700,quote_tautologyp,&c_731701); make_pair(c_731699,&c_731700,NULL); make_pair(c_731696,&c_731697,&c_731699); make_pair(c_731695,quote_equal,&c_731696); make_pair(c_731710,quote_x,NULL); make_pair(c_731709,quote_falsify,&c_731710); make_pair(c_731715,quote_x,NULL); make_pair(c_731714,quote_normalize,&c_731715); make_pair(c_731717,quote_nil,NULL); make_pair(c_731716,&c_731717,NULL); make_pair(c_731713,&c_731714,&c_731716); make_pair(c_731712,quote_falsify1,&c_731713); make_pair(c_731711,&c_731712,NULL); make_pair(c_731708,&c_731709,&c_731711); make_pair(c_731707,quote_equal,&c_731708); make_pair(c_731722,quote_x,NULL); make_pair(c_731721,quote_prime,&c_731722); make_pair(c_731729,quote_x,NULL); make_pair(c_731728,quote_zerop,&c_731729); make_pair(c_731727,&c_731728,NULL); make_pair(c_731726,quote_not,&c_731727); make_pair(c_731738,quote_zero,NULL); make_pair(c_731737,&c_731738,NULL); make_pair(c_731736,quote_add1,&c_731737); make_pair(c_731735,&c_731736,NULL); make_pair(c_731734,quote_x,&c_731735); make_pair(c_731733,quote_equal,&c_731734); make_pair(c_731732,&c_731733,NULL); make_pair(c_731731,quote_not,&c_731732); make_pair(c_731744,quote_x,NULL); make_pair(c_731743,quote__1911_91,&c_731744); make_pair(c_731742,&c_731743,NULL); make_pair(c_731741,quote_x,&c_731742); make_pair(c_731740,quote_prime1,&c_731741); make_pair(c_731739,&c_731740,NULL); make_pair(c_731730,&c_731731,&c_731739); make_pair(c_731725,&c_731726,&c_731730); make_pair(c_731724,quote_and,&c_731725); make_pair(c_731723,&c_731724,NULL); make_pair(c_731720,&c_731721,&c_731723); make_pair(c_731719,quote_equal,&c_731720); make_pair(c_731750,quote_q,NULL); make_pair(c_731749,quote_p,&c_731750); make_pair(c_731748,quote_and,&c_731749); make_pair(c_731758,quote_t,NULL); make_pair(c_731760,quote_f,NULL); make_pair(c_731759,&c_731760,NULL); make_pair(c_731757,&c_731758,&c_731759); make_pair(c_731756,quote_q,&c_731757); make_pair(c_731755,quote__if,&c_731756); make_pair(c_731762,quote_f,NULL); make_pair(c_731761,&c_731762,NULL); make_pair(c_731754,&c_731755,&c_731761); make_pair(c_731753,quote_p,&c_731754); make_pair(c_731752,quote__if,&c_731753); make_pair(c_731751,&c_731752,NULL); make_pair(c_731747,&c_731748,&c_731751); make_pair(c_731746,quote_equal,&c_731747); make_pair(c_731768,quote_q,NULL); make_pair(c_731767,quote_p,&c_731768); make_pair(c_731766,quote_or,&c_731767); make_pair(c_731773,quote_t,NULL); make_pair(c_731778,quote_t,NULL); make_pair(c_731780,quote_f,NULL); make_pair(c_731779,&c_731780,NULL); make_pair(c_731777,&c_731778,&c_731779); make_pair(c_731776,quote_q,&c_731777); make_pair(c_731775,quote__if,&c_731776); make_pair(c_731774,&c_731775,NULL); make_pair(c_731772,&c_731773,&c_731774); make_pair(c_731771,quote_p,&c_731772); make_pair(c_731770,quote__if,&c_731771); make_pair(c_731769,&c_731770,NULL); make_pair(c_731765,&c_731766,&c_731769); make_pair(c_731764,quote_equal,&c_731765); make_pair(c_731785,quote_p,NULL); make_pair(c_731784,quote_not,&c_731785); make_pair(c_731790,quote_f,NULL); make_pair(c_731792,quote_t,NULL); make_pair(c_731791,&c_731792,NULL); make_pair(c_731789,&c_731790,&c_731791); make_pair(c_731788,quote_p,&c_731789); make_pair(c_731787,quote__if,&c_731788); make_pair(c_731786,&c_731787,NULL); make_pair(c_731783,&c_731784,&c_731786); make_pair(c_731782,quote_equal,&c_731783); make_pair(c_731798,quote_q,NULL); make_pair(c_731797,quote_p,&c_731798); make_pair(c_731796,quote_implies,&c_731797); make_pair(c_731806,quote_t,NULL); make_pair(c_731808,quote_f,NULL); make_pair(c_731807,&c_731808,NULL); make_pair(c_731805,&c_731806,&c_731807); make_pair(c_731804,quote_q,&c_731805); make_pair(c_731803,quote__if,&c_731804); make_pair(c_731810,quote_t,NULL); make_pair(c_731809,&c_731810,NULL); make_pair(c_731802,&c_731803,&c_731809); make_pair(c_731801,quote_p,&c_731802); make_pair(c_731800,quote__if,&c_731801); make_pair(c_731799,&c_731800,NULL); make_pair(c_731795,&c_731796,&c_731799); make_pair(c_731794,quote_equal,&c_731795); make_pair(c_731815,quote_x,NULL); make_pair(c_731814,quote_fix,&c_731815); make_pair(c_731820,quote_x,NULL); make_pair(c_731819,quote_numberp,&c_731820); make_pair(c_731823,quote_zero,NULL); make_pair(c_731822,&c_731823,NULL); make_pair(c_731821,quote_x,&c_731822); make_pair(c_731818,&c_731819,&c_731821); make_pair(c_731817,quote__if,&c_731818); make_pair(c_731816,&c_731817,NULL); make_pair(c_731813,&c_731814,&c_731816); make_pair(c_731812,quote_equal,&c_731813); make_pair(c_731832,quote_c,NULL); make_pair(c_731831,quote_b,&c_731832); make_pair(c_731830,quote_a,&c_731831); make_pair(c_731829,quote__if,&c_731830); make_pair(c_731834,quote_e,NULL); make_pair(c_731833,quote_d,&c_731834); make_pair(c_731828,&c_731829,&c_731833); make_pair(c_731827,quote__if,&c_731828); make_pair(c_731842,quote_e,NULL); make_pair(c_731841,quote_d,&c_731842); make_pair(c_731840,quote_b,&c_731841); make_pair(c_731839,quote__if,&c_731840); make_pair(c_731847,quote_e,NULL); make_pair(c_731846,quote_d,&c_731847); make_pair(c_731845,quote_c,&c_731846); make_pair(c_731844,quote__if,&c_731845); make_pair(c_731843,&c_731844,NULL); make_pair(c_731838,&c_731839,&c_731843); make_pair(c_731837,quote_a,&c_731838); make_pair(c_731836,quote__if,&c_731837); make_pair(c_731835,&c_731836,NULL); make_pair(c_731826,&c_731827,&c_731835); make_pair(c_731825,quote_equal,&c_731826); make_pair(c_731852,quote_x,NULL); make_pair(c_731851,quote_zerop,&c_731852); make_pair(c_731859,quote_zero,NULL); make_pair(c_731858,&c_731859,NULL); make_pair(c_731857,quote_x,&c_731858); make_pair(c_731856,quote_equal,&c_731857); make_pair(c_731864,quote_x,NULL); make_pair(c_731863,quote_numberp,&c_731864); make_pair(c_731862,&c_731863,NULL); make_pair(c_731861,quote_not,&c_731862); make_pair(c_731860,&c_731861,NULL); make_pair(c_731855,&c_731856,&c_731860); make_pair(c_731854,quote_or,&c_731855); make_pair(c_731853,&c_731854,NULL); make_pair(c_731850,&c_731851,&c_731853); make_pair(c_731849,quote_equal,&c_731850); make_pair(c_731872,quote_y,NULL); make_pair(c_731871,quote_x,&c_731872); make_pair(c_731870,quote_plus,&c_731871); make_pair(c_731873,quote_z,NULL); make_pair(c_731869,&c_731870,&c_731873); make_pair(c_731868,quote_plus,&c_731869); make_pair(c_731880,quote_z,NULL); make_pair(c_731879,quote_y,&c_731880); make_pair(c_731878,quote_plus,&c_731879); make_pair(c_731877,&c_731878,NULL); make_pair(c_731876,quote_x,&c_731877); make_pair(c_731875,quote_plus,&c_731876); make_pair(c_731874,&c_731875,NULL); make_pair(c_731867,&c_731868,&c_731874); make_pair(c_731866,quote_equal,&c_731867); make_pair(c_731888,quote_b,NULL); make_pair(c_731887,quote_a,&c_731888); make_pair(c_731886,quote_plus,&c_731887); make_pair(c_731890,quote_zero,NULL); make_pair(c_731889,&c_731890,NULL); make_pair(c_731885,&c_731886,&c_731889); make_pair(c_731884,quote_equal,&c_731885); make_pair(c_731895,quote_a,NULL); make_pair(c_731894,quote_zerop,&c_731895); make_pair(c_731898,quote_b,NULL); make_pair(c_731897,quote_zerop,&c_731898); make_pair(c_731896,&c_731897,NULL); make_pair(c_731893,&c_731894,&c_731896); make_pair(c_731892,quote_and,&c_731893); make_pair(c_731891,&c_731892,NULL); make_pair(c_731883,&c_731884,&c_731891); make_pair(c_731882,quote_equal,&c_731883); make_pair(c_731904,quote_x,NULL); make_pair(c_731903,quote_x,&c_731904); make_pair(c_731902,quote_difference,&c_731903); make_pair(c_731906,quote_zero,NULL); make_pair(c_731905,&c_731906,NULL); make_pair(c_731901,&c_731902,&c_731905); make_pair(c_731900,quote_equal,&c_731901); make_pair(c_731914,quote_b,NULL); make_pair(c_731913,quote_a,&c_731914); make_pair(c_731912,quote_plus,&c_731913); make_pair(c_731918,quote_c,NULL); make_pair(c_731917,quote_a,&c_731918); make_pair(c_731916,quote_plus,&c_731917); make_pair(c_731915,&c_731916,NULL); make_pair(c_731911,&c_731912,&c_731915); make_pair(c_731910,quote_equal,&c_731911); make_pair(c_731923,quote_b,NULL); make_pair(c_731922,quote_fix,&c_731923); make_pair(c_731926,quote_c,NULL); make_pair(c_731925,quote_fix,&c_731926); make_pair(c_731924,&c_731925,NULL); make_pair(c_731921,&c_731922,&c_731924); make_pair(c_731920,quote_equal,&c_731921); make_pair(c_731919,&c_731920,NULL); make_pair(c_731909,&c_731910,&c_731919); make_pair(c_731908,quote_equal,&c_731909); make_pair(c_731932,quote_zero,NULL); make_pair(c_731936,quote_y,NULL); make_pair(c_731935,quote_x,&c_731936); make_pair(c_731934,quote_difference,&c_731935); make_pair(c_731933,&c_731934,NULL); make_pair(c_731931,&c_731932,&c_731933); make_pair(c_731930,quote_equal,&c_731931); make_pair(c_731942,quote_x,NULL); make_pair(c_731941,quote_y,&c_731942); make_pair(c_731940,quote_lessp,&c_731941); make_pair(c_731939,&c_731940,NULL); make_pair(c_731938,quote_not,&c_731939); make_pair(c_731937,&c_731938,NULL); make_pair(c_731929,&c_731930,&c_731937); make_pair(c_731928,quote_equal,&c_731929); make_pair(c_731951,quote_y,NULL); make_pair(c_731950,quote_x,&c_731951); make_pair(c_731949,quote_difference,&c_731950); make_pair(c_731948,&c_731949,NULL); make_pair(c_731947,quote_x,&c_731948); make_pair(c_731946,quote_equal,&c_731947); make_pair(c_731956,quote_x,NULL); make_pair(c_731955,quote_numberp,&c_731956); make_pair(c_731963,quote_zero,NULL); make_pair(c_731962,&c_731963,NULL); make_pair(c_731961,quote_x,&c_731962); make_pair(c_731960,quote_equal,&c_731961); make_pair(c_731966,quote_y,NULL); make_pair(c_731965,quote_zerop,&c_731966); make_pair(c_731964,&c_731965,NULL); make_pair(c_731959,&c_731960,&c_731964); make_pair(c_731958,quote_or,&c_731959); make_pair(c_731957,&c_731958,NULL); make_pair(c_731954,&c_731955,&c_731957); make_pair(c_731953,quote_and,&c_731954); make_pair(c_731952,&c_731953,NULL); make_pair(c_731945,&c_731946,&c_731952); make_pair(c_731944,quote_equal,&c_731945); make_pair(c_731976,quote_y,NULL); make_pair(c_731975,quote_x,&c_731976); make_pair(c_731974,quote_append,&c_731975); make_pair(c_731973,&c_731974,NULL); make_pair(c_731972,quote_plus_91tree,&c_731973); make_pair(c_731977,quote_a,NULL); make_pair(c_731971,&c_731972,&c_731977); make_pair(c_731970,quote_meaning,&c_731971); make_pair(c_731984,quote_x,NULL); make_pair(c_731983,quote_plus_91tree,&c_731984); make_pair(c_731985,quote_a,NULL); make_pair(c_731982,&c_731983,&c_731985); make_pair(c_731981,quote_meaning,&c_731982); make_pair(c_731990,quote_y,NULL); make_pair(c_731989,quote_plus_91tree,&c_731990); make_pair(c_731991,quote_a,NULL); make_pair(c_731988,&c_731989,&c_731991); make_pair(c_731987,quote_meaning,&c_731988); make_pair(c_731986,&c_731987,NULL); make_pair(c_731980,&c_731981,&c_731986); make_pair(c_731979,quote_plus,&c_731980); make_pair(c_731978,&c_731979,NULL); make_pair(c_731969,&c_731970,&c_731978); make_pair(c_731968,quote_equal,&c_731969); make_pair(c_732000,quote_x,NULL); make_pair(c_731999,quote_plus_91fringe,&c_732000); make_pair(c_731998,&c_731999,NULL); make_pair(c_731997,quote_plus_91tree,&c_731998); make_pair(c_732001,quote_a,NULL); make_pair(c_731996,&c_731997,&c_732001); make_pair(c_731995,quote_meaning,&c_731996); make_pair(c_732007,quote_a,NULL); make_pair(c_732006,quote_x,&c_732007); make_pair(c_732005,quote_meaning,&c_732006); make_pair(c_732004,&c_732005,NULL); make_pair(c_732003,quote_fix,&c_732004); make_pair(c_732002,&c_732003,NULL); make_pair(c_731994,&c_731995,&c_732002); make_pair(c_731993,quote_equal,&c_731994); make_pair(c_732015,quote_y,NULL); make_pair(c_732014,quote_x,&c_732015); make_pair(c_732013,quote_append,&c_732014); make_pair(c_732016,quote_z,NULL); make_pair(c_732012,&c_732013,&c_732016); make_pair(c_732011,quote_append,&c_732012); make_pair(c_732023,quote_z,NULL); make_pair(c_732022,quote_y,&c_732023); make_pair(c_732021,quote_append,&c_732022); make_pair(c_732020,&c_732021,NULL); make_pair(c_732019,quote_x,&c_732020); make_pair(c_732018,quote_append,&c_732019); make_pair(c_732017,&c_732018,NULL); make_pair(c_732010,&c_732011,&c_732017); make_pair(c_732009,quote_equal,&c_732010); make_pair(c_732031,quote_b,NULL); make_pair(c_732030,quote_a,&c_732031); make_pair(c_732029,quote_append,&c_732030); make_pair(c_732028,&c_732029,NULL); make_pair(c_732027,quote_reverse,&c_732028); make_pair(c_732036,quote_b,NULL); make_pair(c_732035,quote_reverse,&c_732036); make_pair(c_732039,quote_a,NULL); make_pair(c_732038,quote_reverse,&c_732039); make_pair(c_732037,&c_732038,NULL); make_pair(c_732034,&c_732035,&c_732037); make_pair(c_732033,quote_append,&c_732034); make_pair(c_732032,&c_732033,NULL); make_pair(c_732026,&c_732027,&c_732032); make_pair(c_732025,quote_equal,&c_732026); make_pair(c_732048,quote_z,NULL); make_pair(c_732047,quote_y,&c_732048); make_pair(c_732046,quote_plus,&c_732047); make_pair(c_732045,&c_732046,NULL); make_pair(c_732044,quote_x,&c_732045); make_pair(c_732043,quote_times,&c_732044); make_pair(c_732054,quote_y,NULL); make_pair(c_732053,quote_x,&c_732054); make_pair(c_732052,quote_times,&c_732053); make_pair(c_732058,quote_z,NULL); make_pair(c_732057,quote_x,&c_732058); make_pair(c_732056,quote_times,&c_732057); make_pair(c_732055,&c_732056,NULL); make_pair(c_732051,&c_732052,&c_732055); make_pair(c_732050,quote_plus,&c_732051); make_pair(c_732049,&c_732050,NULL); make_pair(c_732042,&c_732043,&c_732049); make_pair(c_732041,quote_equal,&c_732042); make_pair(c_732066,quote_y,NULL); make_pair(c_732065,quote_x,&c_732066); make_pair(c_732064,quote_times,&c_732065); make_pair(c_732067,quote_z,NULL); make_pair(c_732063,&c_732064,&c_732067); make_pair(c_732062,quote_times,&c_732063); make_pair(c_732074,quote_z,NULL); make_pair(c_732073,quote_y,&c_732074); make_pair(c_732072,quote_times,&c_732073); make_pair(c_732071,&c_732072,NULL); make_pair(c_732070,quote_x,&c_732071); make_pair(c_732069,quote_times,&c_732070); make_pair(c_732068,&c_732069,NULL); make_pair(c_732061,&c_732062,&c_732068); make_pair(c_732060,quote_equal,&c_732061); make_pair(c_732082,quote_y,NULL); make_pair(c_732081,quote_x,&c_732082); make_pair(c_732080,quote_times,&c_732081); make_pair(c_732084,quote_zero,NULL); make_pair(c_732083,&c_732084,NULL); make_pair(c_732079,&c_732080,&c_732083); make_pair(c_732078,quote_equal,&c_732079); make_pair(c_732089,quote_x,NULL); make_pair(c_732088,quote_zerop,&c_732089); make_pair(c_732092,quote_y,NULL); make_pair(c_732091,quote_zerop,&c_732092); make_pair(c_732090,&c_732091,NULL); make_pair(c_732087,&c_732088,&c_732090); make_pair(c_732086,quote_or,&c_732087); make_pair(c_732085,&c_732086,NULL); make_pair(c_732077,&c_732078,&c_732085); make_pair(c_732076,quote_equal,&c_732077); make_pair(c_732100,quote_y,NULL); make_pair(c_732099,quote_x,&c_732100); make_pair(c_732098,quote_append,&c_732099); make_pair(c_732102,quote_envrn,NULL); make_pair(c_732101,quote_pds,&c_732102); make_pair(c_732097,&c_732098,&c_732101); make_pair(c_732096,quote_exec,&c_732097); make_pair(c_732110,quote_envrn,NULL); make_pair(c_732109,quote_pds,&c_732110); make_pair(c_732108,quote_x,&c_732109); make_pair(c_732107,quote_exec,&c_732108); make_pair(c_732111,quote_envrn,NULL); make_pair(c_732106,&c_732107,&c_732111); make_pair(c_732105,quote_y,&c_732106); make_pair(c_732104,quote_exec,&c_732105); make_pair(c_732103,&c_732104,NULL); make_pair(c_732095,&c_732096,&c_732103); make_pair(c_732094,quote_equal,&c_732095); make_pair(c_732117,quote_y,NULL); make_pair(c_732116,quote_x,&c_732117); make_pair(c_732115,quote_mc_91flatten,&c_732116); make_pair(c_732122,quote_x,NULL); make_pair(c_732121,quote_flatten,&c_732122); make_pair(c_732123,quote_y,NULL); make_pair(c_732120,&c_732121,&c_732123); make_pair(c_732119,quote_append,&c_732120); make_pair(c_732118,&c_732119,NULL); make_pair(c_732114,&c_732115,&c_732118); make_pair(c_732113,quote_equal,&c_732114); make_pair(c_732132,quote_b,NULL); make_pair(c_732131,quote_a,&c_732132); make_pair(c_732130,quote_append,&c_732131); make_pair(c_732129,&c_732130,NULL); make_pair(c_732128,quote_x,&c_732129); make_pair(c_732127,quote_member,&c_732128); make_pair(c_732138,quote_a,NULL); make_pair(c_732137,quote_x,&c_732138); make_pair(c_732136,quote_member,&c_732137); make_pair(c_732142,quote_b,NULL); make_pair(c_732141,quote_x,&c_732142); make_pair(c_732140,quote_member,&c_732141); make_pair(c_732139,&c_732140,NULL); make_pair(c_732135,&c_732136,&c_732139); make_pair(c_732134,quote_or,&c_732135); make_pair(c_732133,&c_732134,NULL); make_pair(c_732126,&c_732127,&c_732133); make_pair(c_732125,quote_equal,&c_732126); make_pair(c_732150,quote_y,NULL); make_pair(c_732149,quote_reverse,&c_732150); make_pair(c_732148,&c_732149,NULL); make_pair(c_732147,quote_x,&c_732148); make_pair(c_732146,quote_member,&c_732147); make_pair(c_732154,quote_y,NULL); make_pair(c_732153,quote_x,&c_732154); make_pair(c_732152,quote_member,&c_732153); make_pair(c_732151,&c_732152,NULL); make_pair(c_732145,&c_732146,&c_732151); make_pair(c_732144,quote_equal,&c_732145); make_pair(c_732161,quote_x,NULL); make_pair(c_732160,quote_reverse,&c_732161); make_pair(c_732159,&c_732160,NULL); make_pair(c_732158,quote_length,&c_732159); make_pair(c_732164,quote_x,NULL); make_pair(c_732163,quote_length,&c_732164); make_pair(c_732162,&c_732163,NULL); make_pair(c_732157,&c_732158,&c_732162); make_pair(c_732156,quote_equal,&c_732157); make_pair(c_732173,quote_c,NULL); make_pair(c_732172,quote_b,&c_732173); make_pair(c_732171,quote_intersect,&c_732172); make_pair(c_732170,&c_732171,NULL); make_pair(c_732169,quote_a,&c_732170); make_pair(c_732168,quote_member,&c_732169); make_pair(c_732179,quote_b,NULL); make_pair(c_732178,quote_a,&c_732179); make_pair(c_732177,quote_member,&c_732178); make_pair(c_732183,quote_c,NULL); make_pair(c_732182,quote_a,&c_732183); make_pair(c_732181,quote_member,&c_732182); make_pair(c_732180,&c_732181,NULL); make_pair(c_732176,&c_732177,&c_732180); make_pair(c_732175,quote_and,&c_732176); make_pair(c_732174,&c_732175,NULL); make_pair(c_732167,&c_732168,&c_732174); make_pair(c_732166,quote_equal,&c_732167); make_pair(c_732189,quote_zero,NULL); make_pair(c_732190,quote_i,NULL); make_pair(c_732188,&c_732189,&c_732190); make_pair(c_732187,quote_nth,&c_732188); make_pair(c_732192,quote_zero,NULL); make_pair(c_732191,&c_732192,NULL); make_pair(c_732186,&c_732187,&c_732191); make_pair(c_732185,quote_equal,&c_732186); make_pair(c_732201,quote_k,NULL); make_pair(c_732200,quote_j,&c_732201); make_pair(c_732199,quote_plus,&c_732200); make_pair(c_732198,&c_732199,NULL); make_pair(c_732197,quote_i,&c_732198); make_pair(c_732196,quote_exp,&c_732197); make_pair(c_732207,quote_j,NULL); make_pair(c_732206,quote_i,&c_732207); make_pair(c_732205,quote_exp,&c_732206); make_pair(c_732211,quote_k,NULL); make_pair(c_732210,quote_i,&c_732211); make_pair(c_732209,quote_exp,&c_732210); make_pair(c_732208,&c_732209,NULL); make_pair(c_732204,&c_732205,&c_732208); make_pair(c_732203,quote_times,&c_732204); make_pair(c_732202,&c_732203,NULL); make_pair(c_732195,&c_732196,&c_732202); make_pair(c_732194,quote_equal,&c_732195); make_pair(c_732220,quote_k,NULL); make_pair(c_732219,quote_j,&c_732220); make_pair(c_732218,quote_times,&c_732219); make_pair(c_732217,&c_732218,NULL); make_pair(c_732216,quote_i,&c_732217); make_pair(c_732215,quote_exp,&c_732216); make_pair(c_732226,quote_j,NULL); make_pair(c_732225,quote_i,&c_732226); make_pair(c_732224,quote_exp,&c_732225); make_pair(c_732227,quote_k,NULL); make_pair(c_732223,&c_732224,&c_732227); make_pair(c_732222,quote_exp,&c_732223); make_pair(c_732221,&c_732222,NULL); make_pair(c_732214,&c_732215,&c_732221); make_pair(c_732213,quote_equal,&c_732214); make_pair(c_732233,quote_y,NULL); make_pair(c_732232,quote_x,&c_732233); make_pair(c_732231,quote_reverse_91loop,&c_732232); make_pair(c_732238,quote_x,NULL); make_pair(c_732237,quote_reverse,&c_732238); make_pair(c_732239,quote_y,NULL); make_pair(c_732236,&c_732237,&c_732239); make_pair(c_732235,quote_append,&c_732236); make_pair(c_732234,&c_732235,NULL); make_pair(c_732230,&c_732231,&c_732234); make_pair(c_732229,quote_equal,&c_732230); make_pair(c_732246,quote_nil,NULL); make_pair(c_732245,&c_732246,NULL); make_pair(c_732244,quote_x,&c_732245); make_pair(c_732243,quote_reverse_91loop,&c_732244); make_pair(c_732249,quote_x,NULL); make_pair(c_732248,quote_reverse,&c_732249); make_pair(c_732247,&c_732248,NULL); make_pair(c_732242,&c_732243,&c_732247); make_pair(c_732241,quote_equal,&c_732242); make_pair(c_732258,quote_y,NULL); make_pair(c_732257,quote_x,&c_732258); make_pair(c_732256,quote_sort_91lp,&c_732257); make_pair(c_732255,&c_732256,NULL); make_pair(c_732254,quote_z,&c_732255); make_pair(c_732253,quote_count_91list,&c_732254); make_pair(c_732264,quote_x,NULL); make_pair(c_732263,quote_z,&c_732264); make_pair(c_732262,quote_count_91list,&c_732263); make_pair(c_732268,quote_y,NULL); make_pair(c_732267,quote_z,&c_732268); make_pair(c_732266,quote_count_91list,&c_732267); make_pair(c_732265,&c_732266,NULL); make_pair(c_732261,&c_732262,&c_732265); make_pair(c_732260,quote_plus,&c_732261); make_pair(c_732259,&c_732260,NULL); make_pair(c_732252,&c_732253,&c_732259); make_pair(c_732251,quote_equal,&c_732252); make_pair(c_732276,quote_b,NULL); make_pair(c_732275,quote_a,&c_732276); make_pair(c_732274,quote_append,&c_732275); make_pair(c_732280,quote_c,NULL); make_pair(c_732279,quote_a,&c_732280); make_pair(c_732278,quote_append,&c_732279); make_pair(c_732277,&c_732278,NULL); make_pair(c_732273,&c_732274,&c_732277); make_pair(c_732272,quote_equal,&c_732273); make_pair(c_732284,quote_c,NULL); make_pair(c_732283,quote_b,&c_732284); make_pair(c_732282,quote_equal,&c_732283); make_pair(c_732281,&c_732282,NULL); make_pair(c_732271,&c_732272,&c_732281); make_pair(c_732270,quote_equal,&c_732271); make_pair(c_732292,quote_y,NULL); make_pair(c_732291,quote_x,&c_732292); make_pair(c_732290,quote_remainder,&c_732291); make_pair(c_732299,quote_y,NULL); make_pair(c_732298,quote_x,&c_732299); make_pair(c_732297,quote_quotient,&c_732298); make_pair(c_732296,&c_732297,NULL); make_pair(c_732295,quote_y,&c_732296); make_pair(c_732294,quote_times,&c_732295); make_pair(c_732293,&c_732294,NULL); make_pair(c_732289,&c_732290,&c_732293); make_pair(c_732288,quote_plus,&c_732289); make_pair(c_732302,quote_x,NULL); make_pair(c_732301,quote_fix,&c_732302); make_pair(c_732300,&c_732301,NULL); make_pair(c_732287,&c_732288,&c_732300); make_pair(c_732286,quote_equal,&c_732287); make_pair(c_732311,quote_base,NULL); make_pair(c_732310,quote_i,&c_732311); make_pair(c_732309,quote_l,&c_732310); make_pair(c_732308,quote_big_91plus1,&c_732309); make_pair(c_732312,quote_base,NULL); make_pair(c_732307,&c_732308,&c_732312); make_pair(c_732306,quote_power_91eval,&c_732307); make_pair(c_732318,quote_base,NULL); make_pair(c_732317,quote_l,&c_732318); make_pair(c_732316,quote_power_91eval,&c_732317); make_pair(c_732319,quote_i,NULL); make_pair(c_732315,&c_732316,&c_732319); make_pair(c_732314,quote_plus,&c_732315); make_pair(c_732313,&c_732314,NULL); make_pair(c_732305,&c_732306,&c_732313); make_pair(c_732304,quote_equal,&c_732305); make_pair(c_732329,quote_base,NULL); make_pair(c_732328,quote_i,&c_732329); make_pair(c_732327,quote_y,&c_732328); make_pair(c_732326,quote_x,&c_732327); make_pair(c_732325,quote_big_91plus,&c_732326); make_pair(c_732330,quote_base,NULL); make_pair(c_732324,&c_732325,&c_732330); make_pair(c_732323,quote_power_91eval,&c_732324); make_pair(c_732339,quote_base,NULL); make_pair(c_732338,quote_x,&c_732339); make_pair(c_732337,quote_power_91eval,&c_732338); make_pair(c_732343,quote_base,NULL); make_pair(c_732342,quote_y,&c_732343); make_pair(c_732341,quote_power_91eval,&c_732342); make_pair(c_732340,&c_732341,NULL); make_pair(c_732336,&c_732337,&c_732340); make_pair(c_732335,quote_plus,&c_732336); make_pair(c_732334,&c_732335,NULL); make_pair(c_732333,quote_i,&c_732334); make_pair(c_732332,quote_plus,&c_732333); make_pair(c_732331,&c_732332,NULL); make_pair(c_732322,&c_732323,&c_732331); make_pair(c_732321,quote_equal,&c_732322); make_pair(c_732349,obj_int2obj(1),NULL); make_pair(c_732348,quote_y,&c_732349); make_pair(c_732347,quote_remainder,&c_732348); make_pair(c_732351,quote_zero,NULL); make_pair(c_732350,&c_732351,NULL); make_pair(c_732346,&c_732347,&c_732350); make_pair(c_732345,quote_equal,&c_732346); make_pair(c_732359,quote_y,NULL); make_pair(c_732358,quote_x,&c_732359); make_pair(c_732357,quote_remainder,&c_732358); make_pair(c_732360,quote_y,NULL); make_pair(c_732356,&c_732357,&c_732360); make_pair(c_732355,quote_lessp,&c_732356); make_pair(c_732365,quote_y,NULL); make_pair(c_732364,quote_zerop,&c_732365); make_pair(c_732363,&c_732364,NULL); make_pair(c_732362,quote_not,&c_732363); make_pair(c_732361,&c_732362,NULL); make_pair(c_732354,&c_732355,&c_732361); make_pair(c_732353,quote_equal,&c_732354); make_pair(c_732371,quote_x,NULL); make_pair(c_732370,quote_x,&c_732371); make_pair(c_732369,quote_remainder,&c_732370); make_pair(c_732373,quote_zero,NULL); make_pair(c_732372,&c_732373,NULL); make_pair(c_732368,&c_732369,&c_732372); make_pair(c_732367,quote_equal,&c_732368); make_pair(c_732381,quote_j,NULL); make_pair(c_732380,quote_i,&c_732381); make_pair(c_732379,quote_quotient,&c_732380); make_pair(c_732382,quote_i,NULL); make_pair(c_732378,&c_732379,&c_732382); make_pair(c_732377,quote_lessp,&c_732378); make_pair(c_732389,quote_i,NULL); make_pair(c_732388,quote_zerop,&c_732389); make_pair(c_732387,&c_732388,NULL); make_pair(c_732386,quote_not,&c_732387); make_pair(c_732394,quote_j,NULL); make_pair(c_732393,quote_zerop,&c_732394); make_pair(c_732400,obj_int2obj(1),NULL); make_pair(c_732399,quote_j,&c_732400); make_pair(c_732398,quote_equal,&c_732399); make_pair(c_732397,&c_732398,NULL); make_pair(c_732396,quote_not,&c_732397); make_pair(c_732395,&c_732396,NULL); make_pair(c_732392,&c_732393,&c_732395); make_pair(c_732391,quote_or,&c_732392); make_pair(c_732390,&c_732391,NULL); make_pair(c_732385,&c_732386,&c_732390); make_pair(c_732384,quote_and,&c_732385); make_pair(c_732383,&c_732384,NULL); make_pair(c_732376,&c_732377,&c_732383); make_pair(c_732375,quote_equal,&c_732376); make_pair(c_732408,quote_y,NULL); make_pair(c_732407,quote_x,&c_732408); make_pair(c_732406,quote_remainder,&c_732407); make_pair(c_732409,quote_x,NULL); make_pair(c_732405,&c_732406,&c_732409); make_pair(c_732404,quote_lessp,&c_732405); make_pair(c_732416,quote_y,NULL); make_pair(c_732415,quote_zerop,&c_732416); make_pair(c_732414,&c_732415,NULL); make_pair(c_732413,quote_not,&c_732414); make_pair(c_732421,quote_x,NULL); make_pair(c_732420,quote_zerop,&c_732421); make_pair(c_732419,&c_732420,NULL); make_pair(c_732418,quote_not,&c_732419); make_pair(c_732427,quote_y,NULL); make_pair(c_732426,quote_x,&c_732427); make_pair(c_732425,quote_lessp,&c_732426); make_pair(c_732424,&c_732425,NULL); make_pair(c_732423,quote_not,&c_732424); make_pair(c_732422,&c_732423,NULL); make_pair(c_732417,&c_732418,&c_732422); make_pair(c_732412,&c_732413,&c_732417); make_pair(c_732411,quote_and,&c_732412); make_pair(c_732410,&c_732411,NULL); make_pair(c_732403,&c_732404,&c_732410); make_pair(c_732402,quote_equal,&c_732403); make_pair(c_732435,quote_base,NULL); make_pair(c_732434,quote_i,&c_732435); make_pair(c_732433,quote_power_91rep,&c_732434); make_pair(c_732436,quote_base,NULL); make_pair(c_732432,&c_732433,&c_732436); make_pair(c_732431,quote_power_91eval,&c_732432); make_pair(c_732439,quote_i,NULL); make_pair(c_732438,quote_fix,&c_732439); make_pair(c_732437,&c_732438,NULL); make_pair(c_732430,&c_732431,&c_732437); make_pair(c_732429,quote_equal,&c_732430); make_pair(c_732449,quote_base,NULL); make_pair(c_732448,quote_i,&c_732449); make_pair(c_732447,quote_power_91rep,&c_732448); make_pair(c_732453,quote_base,NULL); make_pair(c_732452,quote_j,&c_732453); make_pair(c_732451,quote_power_91rep,&c_732452); make_pair(c_732455,quote_zero,NULL); make_pair(c_732456,quote_base,NULL); make_pair(c_732454,&c_732455,&c_732456); make_pair(c_732450,&c_732451,&c_732454); make_pair(c_732446,&c_732447,&c_732450); make_pair(c_732445,quote_big_91plus,&c_732446); make_pair(c_732457,quote_base,NULL); make_pair(c_732444,&c_732445,&c_732457); make_pair(c_732443,quote_power_91eval,&c_732444); make_pair(c_732461,quote_j,NULL); make_pair(c_732460,quote_i,&c_732461); make_pair(c_732459,quote_plus,&c_732460); make_pair(c_732458,&c_732459,NULL); make_pair(c_732442,&c_732443,&c_732458); make_pair(c_732441,quote_equal,&c_732442); make_pair(c_732467,quote_y,NULL); make_pair(c_732466,quote_x,&c_732467); make_pair(c_732465,quote_gcd,&c_732466); make_pair(c_732471,quote_x,NULL); make_pair(c_732470,quote_y,&c_732471); make_pair(c_732469,quote_gcd,&c_732470); make_pair(c_732468,&c_732469,NULL); make_pair(c_732464,&c_732465,&c_732468); make_pair(c_732463,quote_equal,&c_732464); make_pair(c_732479,quote_b,NULL); make_pair(c_732478,quote_a,&c_732479); make_pair(c_732477,quote_append,&c_732478); make_pair(c_732480,quote_i,NULL); make_pair(c_732476,&c_732477,&c_732480); make_pair(c_732475,quote_nth,&c_732476); make_pair(c_732486,quote_i,NULL); make_pair(c_732485,quote_a,&c_732486); make_pair(c_732484,quote_nth,&c_732485); make_pair(c_732495,quote_a,NULL); make_pair(c_732494,quote_length,&c_732495); make_pair(c_732493,&c_732494,NULL); make_pair(c_732492,quote_i,&c_732493); make_pair(c_732491,quote_difference,&c_732492); make_pair(c_732490,&c_732491,NULL); make_pair(c_732489,quote_b,&c_732490); make_pair(c_732488,quote_nth,&c_732489); make_pair(c_732487,&c_732488,NULL); make_pair(c_732483,&c_732484,&c_732487); make_pair(c_732482,quote_append,&c_732483); make_pair(c_732481,&c_732482,NULL); make_pair(c_732474,&c_732475,&c_732481); make_pair(c_732473,quote_equal,&c_732474); make_pair(c_732503,quote_y,NULL); make_pair(c_732502,quote_x,&c_732503); make_pair(c_732501,quote_plus,&c_732502); make_pair(c_732504,quote_x,NULL); make_pair(c_732500,&c_732501,&c_732504); make_pair(c_732499,quote_difference,&c_732500); make_pair(c_732507,quote_y,NULL); make_pair(c_732506,quote_fix,&c_732507); make_pair(c_732505,&c_732506,NULL); make_pair(c_732498,&c_732499,&c_732505); make_pair(c_732497,quote_equal,&c_732498); make_pair(c_732515,quote_x,NULL); make_pair(c_732514,quote_y,&c_732515); make_pair(c_732513,quote_plus,&c_732514); make_pair(c_732516,quote_x,NULL); make_pair(c_732512,&c_732513,&c_732516); make_pair(c_732511,quote_difference,&c_732512); make_pair(c_732519,quote_y,NULL); make_pair(c_732518,quote_fix,&c_732519); make_pair(c_732517,&c_732518,NULL); make_pair(c_732510,&c_732511,&c_732517); make_pair(c_732509,quote_equal,&c_732510); make_pair(c_732527,quote_y,NULL); make_pair(c_732526,quote_x,&c_732527); make_pair(c_732525,quote_plus,&c_732526); make_pair(c_732531,quote_z,NULL); make_pair(c_732530,quote_x,&c_732531); make_pair(c_732529,quote_plus,&c_732530); make_pair(c_732528,&c_732529,NULL); make_pair(c_732524,&c_732525,&c_732528); make_pair(c_732523,quote_difference,&c_732524); make_pair(c_732535,quote_z,NULL); make_pair(c_732534,quote_y,&c_732535); make_pair(c_732533,quote_difference,&c_732534); make_pair(c_732532,&c_732533,NULL); make_pair(c_732522,&c_732523,&c_732532); make_pair(c_732521,quote_equal,&c_732522); make_pair(c_732544,quote_w,NULL); make_pair(c_732543,quote_c,&c_732544); make_pair(c_732542,quote_difference,&c_732543); make_pair(c_732541,&c_732542,NULL); make_pair(c_732540,quote_x,&c_732541); make_pair(c_732539,quote_times,&c_732540); make_pair(c_732550,quote_x,NULL); make_pair(c_732549,quote_c,&c_732550); make_pair(c_732548,quote_times,&c_732549); make_pair(c_732554,quote_x,NULL); make_pair(c_732553,quote_w,&c_732554); make_pair(c_732552,quote_times,&c_732553); make_pair(c_732551,&c_732552,NULL); make_pair(c_732547,&c_732548,&c_732551); make_pair(c_732546,quote_difference,&c_732547); make_pair(c_732545,&c_732546,NULL); make_pair(c_732538,&c_732539,&c_732545); make_pair(c_732537,quote_equal,&c_732538); make_pair(c_732562,quote_z,NULL); make_pair(c_732561,quote_x,&c_732562); make_pair(c_732560,quote_times,&c_732561); make_pair(c_732563,quote_z,NULL); make_pair(c_732559,&c_732560,&c_732563); make_pair(c_732558,quote_remainder,&c_732559); make_pair(c_732565,quote_zero,NULL); make_pair(c_732564,&c_732565,NULL); make_pair(c_732557,&c_732558,&c_732564); make_pair(c_732556,quote_equal,&c_732557); make_pair(c_732576,quote_c,NULL); make_pair(c_732575,quote_a,&c_732576); make_pair(c_732574,quote_plus,&c_732575); make_pair(c_732573,&c_732574,NULL); make_pair(c_732572,quote_b,&c_732573); make_pair(c_732571,quote_plus,&c_732572); make_pair(c_732577,quote_a,NULL); make_pair(c_732570,&c_732571,&c_732577); make_pair(c_732569,quote_difference,&c_732570); make_pair(c_732581,quote_c,NULL); make_pair(c_732580,quote_b,&c_732581); make_pair(c_732579,quote_plus,&c_732580); make_pair(c_732578,&c_732579,NULL); make_pair(c_732568,&c_732569,&c_732578); make_pair(c_732567,quote_equal,&c_732568); make_pair(c_732591,quote_z,NULL); make_pair(c_732590,quote_y,&c_732591); make_pair(c_732589,quote_plus,&c_732590); make_pair(c_732588,&c_732589,NULL); make_pair(c_732587,quote_add1,&c_732588); make_pair(c_732592,quote_z,NULL); make_pair(c_732586,&c_732587,&c_732592); make_pair(c_732585,quote_difference,&c_732586); make_pair(c_732595,quote_y,NULL); make_pair(c_732594,quote_add1,&c_732595); make_pair(c_732593,&c_732594,NULL); make_pair(c_732584,&c_732585,&c_732593); make_pair(c_732583,quote_equal,&c_732584); make_pair(c_732603,quote_y,NULL); make_pair(c_732602,quote_x,&c_732603); make_pair(c_732601,quote_plus,&c_732602); make_pair(c_732607,quote_z,NULL); make_pair(c_732606,quote_x,&c_732607); make_pair(c_732605,quote_plus,&c_732606); make_pair(c_732604,&c_732605,NULL); make_pair(c_732600,&c_732601,&c_732604); make_pair(c_732599,quote_lessp,&c_732600); make_pair(c_732611,quote_z,NULL); make_pair(c_732610,quote_y,&c_732611); make_pair(c_732609,quote_lessp,&c_732610); make_pair(c_732608,&c_732609,NULL); make_pair(c_732598,&c_732599,&c_732608); make_pair(c_732597,quote_equal,&c_732598); make_pair(c_732619,quote_z,NULL); make_pair(c_732618,quote_x,&c_732619); make_pair(c_732617,quote_times,&c_732618); make_pair(c_732623,quote_z,NULL); make_pair(c_732622,quote_y,&c_732623); make_pair(c_732621,quote_times,&c_732622); make_pair(c_732620,&c_732621,NULL); make_pair(c_732616,&c_732617,&c_732620); make_pair(c_732615,quote_lessp,&c_732616); make_pair(c_732630,quote_z,NULL); make_pair(c_732629,quote_zerop,&c_732630); make_pair(c_732628,&c_732629,NULL); make_pair(c_732627,quote_not,&c_732628); make_pair(c_732634,quote_y,NULL); make_pair(c_732633,quote_x,&c_732634); make_pair(c_732632,quote_lessp,&c_732633); make_pair(c_732631,&c_732632,NULL); make_pair(c_732626,&c_732627,&c_732631); make_pair(c_732625,quote_and,&c_732626); make_pair(c_732624,&c_732625,NULL); make_pair(c_732614,&c_732615,&c_732624); make_pair(c_732613,quote_equal,&c_732614); make_pair(c_732643,quote_y,NULL); make_pair(c_732642,quote_x,&c_732643); make_pair(c_732641,quote_plus,&c_732642); make_pair(c_732640,&c_732641,NULL); make_pair(c_732639,quote_y,&c_732640); make_pair(c_732638,quote_lessp,&c_732639); make_pair(c_732648,quote_x,NULL); make_pair(c_732647,quote_zerop,&c_732648); make_pair(c_732646,&c_732647,NULL); make_pair(c_732645,quote_not,&c_732646); make_pair(c_732644,&c_732645,NULL); make_pair(c_732637,&c_732638,&c_732644); make_pair(c_732636,quote_equal,&c_732637); make_pair(c_732656,quote_z,NULL); make_pair(c_732655,quote_x,&c_732656); make_pair(c_732654,quote_times,&c_732655); make_pair(c_732660,quote_z,NULL); make_pair(c_732659,quote_y,&c_732660); make_pair(c_732658,quote_times,&c_732659); make_pair(c_732657,&c_732658,NULL); make_pair(c_732653,&c_732654,&c_732657); make_pair(c_732652,quote_gcd,&c_732653); make_pair(c_732667,quote_y,NULL); make_pair(c_732666,quote_x,&c_732667); make_pair(c_732665,quote_gcd,&c_732666); make_pair(c_732664,&c_732665,NULL); make_pair(c_732663,quote_z,&c_732664); make_pair(c_732662,quote_times,&c_732663); make_pair(c_732661,&c_732662,NULL); make_pair(c_732651,&c_732652,&c_732661); make_pair(c_732650,quote_equal,&c_732651); make_pair(c_732674,quote_x,NULL); make_pair(c_732673,quote_normalize,&c_732674); make_pair(c_732675,quote_a,NULL); make_pair(c_732672,&c_732673,&c_732675); make_pair(c_732671,quote_value,&c_732672); make_pair(c_732679,quote_a,NULL); make_pair(c_732678,quote_x,&c_732679); make_pair(c_732677,quote_value,&c_732678); make_pair(c_732676,&c_732677,NULL); make_pair(c_732670,&c_732671,&c_732676); make_pair(c_732669,quote_equal,&c_732670); make_pair(c_732686,quote_x,NULL); make_pair(c_732685,quote_flatten,&c_732686); make_pair(c_732691,quote_nil,NULL); make_pair(c_732690,&c_732691,NULL); make_pair(c_732689,quote_y,&c_732690); make_pair(c_732688,quote_cons,&c_732689); make_pair(c_732687,&c_732688,NULL); make_pair(c_732684,&c_732685,&c_732687); make_pair(c_732683,quote_equal,&c_732684); make_pair(c_732696,quote_x,NULL); make_pair(c_732695,quote_nlistp,&c_732696); make_pair(c_732700,quote_y,NULL); make_pair(c_732699,quote_x,&c_732700); make_pair(c_732698,quote_equal,&c_732699); make_pair(c_732697,&c_732698,NULL); make_pair(c_732694,&c_732695,&c_732697); make_pair(c_732693,quote_and,&c_732694); make_pair(c_732692,&c_732693,NULL); make_pair(c_732682,&c_732683,&c_732692); make_pair(c_732681,quote_equal,&c_732682); make_pair(c_732707,quote_x,NULL); make_pair(c_732706,quote_gopher,&c_732707); make_pair(c_732705,&c_732706,NULL); make_pair(c_732704,quote_listp,&c_732705); make_pair(c_732710,quote_x,NULL); make_pair(c_732709,quote_listp,&c_732710); make_pair(c_732708,&c_732709,NULL); make_pair(c_732703,&c_732704,&c_732708); make_pair(c_732702,quote_equal,&c_732703); make_pair(c_732716,quote_y,NULL); make_pair(c_732715,quote_x,&c_732716); make_pair(c_732714,quote_samefringe,&c_732715); make_pair(c_732721,quote_x,NULL); make_pair(c_732720,quote_flatten,&c_732721); make_pair(c_732724,quote_y,NULL); make_pair(c_732723,quote_flatten,&c_732724); make_pair(c_732722,&c_732723,NULL); make_pair(c_732719,&c_732720,&c_732722); make_pair(c_732718,quote_equal,&c_732719); make_pair(c_732717,&c_732718,NULL); make_pair(c_732713,&c_732714,&c_732717); make_pair(c_732712,quote_equal,&c_732713); make_pair(c_732732,quote_y,NULL); make_pair(c_732731,quote_x,&c_732732); make_pair(c_732730,quote_greatest_91factor,&c_732731); make_pair(c_732734,quote_zero,NULL); make_pair(c_732733,&c_732734,NULL); make_pair(c_732729,&c_732730,&c_732733); make_pair(c_732728,quote_equal,&c_732729); make_pair(c_732741,quote_y,NULL); make_pair(c_732740,quote_zerop,&c_732741); make_pair(c_732745,obj_int2obj(1),NULL); make_pair(c_732744,quote_y,&c_732745); make_pair(c_732743,quote_equal,&c_732744); make_pair(c_732742,&c_732743,NULL); make_pair(c_732739,&c_732740,&c_732742); make_pair(c_732738,quote_or,&c_732739); make_pair(c_732750,quote_zero,NULL); make_pair(c_732749,&c_732750,NULL); make_pair(c_732748,quote_x,&c_732749); make_pair(c_732747,quote_equal,&c_732748); make_pair(c_732746,&c_732747,NULL); make_pair(c_732737,&c_732738,&c_732746); make_pair(c_732736,quote_and,&c_732737); make_pair(c_732735,&c_732736,NULL); make_pair(c_732727,&c_732728,&c_732735); make_pair(c_732726,quote_equal,&c_732727); make_pair(c_732758,quote_y,NULL); make_pair(c_732757,quote_x,&c_732758); make_pair(c_732756,quote_greatest_91factor,&c_732757); make_pair(c_732759,obj_int2obj(1),NULL); make_pair(c_732755,&c_732756,&c_732759); make_pair(c_732754,quote_equal,&c_732755); make_pair(c_732763,obj_int2obj(1),NULL); make_pair(c_732762,quote_x,&c_732763); make_pair(c_732761,quote_equal,&c_732762); make_pair(c_732760,&c_732761,NULL); make_pair(c_732753,&c_732754,&c_732760); make_pair(c_732752,quote_equal,&c_732753); make_pair(c_732771,quote_y,NULL); make_pair(c_732770,quote_x,&c_732771); make_pair(c_732769,quote_greatest_91factor,&c_732770); make_pair(c_732768,&c_732769,NULL); make_pair(c_732767,quote_numberp,&c_732768); make_pair(c_732780,quote_y,NULL); make_pair(c_732779,quote_zerop,&c_732780); make_pair(c_732784,obj_int2obj(1),NULL); make_pair(c_732783,quote_y,&c_732784); make_pair(c_732782,quote_equal,&c_732783); make_pair(c_732781,&c_732782,NULL); make_pair(c_732778,&c_732779,&c_732781); make_pair(c_732777,quote_or,&c_732778); make_pair(c_732789,quote_x,NULL); make_pair(c_732788,quote_numberp,&c_732789); make_pair(c_732787,&c_732788,NULL); make_pair(c_732786,quote_not,&c_732787); make_pair(c_732785,&c_732786,NULL); make_pair(c_732776,&c_732777,&c_732785); make_pair(c_732775,quote_and,&c_732776); make_pair(c_732774,&c_732775,NULL); make_pair(c_732773,quote_not,&c_732774); make_pair(c_732772,&c_732773,NULL); make_pair(c_732766,&c_732767,&c_732772); make_pair(c_732765,quote_equal,&c_732766); make_pair(c_732797,quote_y,NULL); make_pair(c_732796,quote_x,&c_732797); make_pair(c_732795,quote_append,&c_732796); make_pair(c_732794,&c_732795,NULL); make_pair(c_732793,quote_times_91list,&c_732794); make_pair(c_732802,quote_x,NULL); make_pair(c_732801,quote_times_91list,&c_732802); make_pair(c_732805,quote_y,NULL); make_pair(c_732804,quote_times_91list,&c_732805); make_pair(c_732803,&c_732804,NULL); make_pair(c_732800,&c_732801,&c_732803); make_pair(c_732799,quote_times,&c_732800); make_pair(c_732798,&c_732799,NULL); make_pair(c_732792,&c_732793,&c_732798); make_pair(c_732791,quote_equal,&c_732792); make_pair(c_732813,quote_y,NULL); make_pair(c_732812,quote_x,&c_732813); make_pair(c_732811,quote_append,&c_732812); make_pair(c_732810,&c_732811,NULL); make_pair(c_732809,quote_prime_91list,&c_732810); make_pair(c_732818,quote_x,NULL); make_pair(c_732817,quote_prime_91list,&c_732818); make_pair(c_732821,quote_y,NULL); make_pair(c_732820,quote_prime_91list,&c_732821); make_pair(c_732819,&c_732820,NULL); make_pair(c_732816,&c_732817,&c_732819); make_pair(c_732815,quote_and,&c_732816); make_pair(c_732814,&c_732815,NULL); make_pair(c_732808,&c_732809,&c_732814); make_pair(c_732807,quote_equal,&c_732808); make_pair(c_732830,quote_z,NULL); make_pair(c_732829,quote_w,&c_732830); make_pair(c_732828,quote_times,&c_732829); make_pair(c_732827,&c_732828,NULL); make_pair(c_732826,quote_z,&c_732827); make_pair(c_732825,quote_equal,&c_732826); make_pair(c_732835,quote_z,NULL); make_pair(c_732834,quote_numberp,&c_732835); make_pair(c_732842,quote_zero,NULL); make_pair(c_732841,&c_732842,NULL); make_pair(c_732840,quote_z,&c_732841); make_pair(c_732839,quote_equal,&c_732840); make_pair(c_732846,obj_int2obj(1),NULL); make_pair(c_732845,quote_w,&c_732846); make_pair(c_732844,quote_equal,&c_732845); make_pair(c_732843,&c_732844,NULL); make_pair(c_732838,&c_732839,&c_732843); make_pair(c_732837,quote_or,&c_732838); make_pair(c_732836,&c_732837,NULL); make_pair(c_732833,&c_732834,&c_732836); make_pair(c_732832,quote_and,&c_732833); make_pair(c_732831,&c_732832,NULL); make_pair(c_732824,&c_732825,&c_732831); make_pair(c_732823,quote_equal,&c_732824); make_pair(c_732852,quote_y,NULL); make_pair(c_732851,quote_x,&c_732852); make_pair(c_732850,quote_greatereqp,&c_732851); make_pair(c_732858,quote_y,NULL); make_pair(c_732857,quote_x,&c_732858); make_pair(c_732856,quote_lessp,&c_732857); make_pair(c_732855,&c_732856,NULL); make_pair(c_732854,quote_not,&c_732855); make_pair(c_732853,&c_732854,NULL); make_pair(c_732849,&c_732850,&c_732853); make_pair(c_732848,quote_equal,&c_732849); make_pair(c_732867,quote_y,NULL); make_pair(c_732866,quote_x,&c_732867); make_pair(c_732865,quote_times,&c_732866); make_pair(c_732864,&c_732865,NULL); make_pair(c_732863,quote_x,&c_732864); make_pair(c_732862,quote_equal,&c_732863); make_pair(c_732874,quote_zero,NULL); make_pair(c_732873,&c_732874,NULL); make_pair(c_732872,quote_x,&c_732873); make_pair(c_732871,quote_equal,&c_732872); make_pair(c_732879,quote_x,NULL); make_pair(c_732878,quote_numberp,&c_732879); make_pair(c_732883,obj_int2obj(1),NULL); make_pair(c_732882,quote_y,&c_732883); make_pair(c_732881,quote_equal,&c_732882); make_pair(c_732880,&c_732881,NULL); make_pair(c_732877,&c_732878,&c_732880); make_pair(c_732876,quote_and,&c_732877); make_pair(c_732875,&c_732876,NULL); make_pair(c_732870,&c_732871,&c_732875); make_pair(c_732869,quote_or,&c_732870); make_pair(c_732868,&c_732869,NULL); make_pair(c_732861,&c_732862,&c_732868); make_pair(c_732860,quote_equal,&c_732861); make_pair(c_732891,quote_x,NULL); make_pair(c_732890,quote_y,&c_732891); make_pair(c_732889,quote_times,&c_732890); make_pair(c_732892,quote_y,NULL); make_pair(c_732888,&c_732889,&c_732892); make_pair(c_732887,quote_remainder,&c_732888); make_pair(c_732894,quote_zero,NULL); make_pair(c_732893,&c_732894,NULL); make_pair(c_732886,&c_732887,&c_732893); make_pair(c_732885,quote_equal,&c_732886); make_pair(c_732902,quote_b,NULL); make_pair(c_732901,quote_a,&c_732902); make_pair(c_732900,quote_times,&c_732901); make_pair(c_732903,obj_int2obj(1),NULL); make_pair(c_732899,&c_732900,&c_732903); make_pair(c_732898,quote_equal,&c_732899); make_pair(c_732912,quote_zero,NULL); make_pair(c_732911,&c_732912,NULL); make_pair(c_732910,quote_a,&c_732911); make_pair(c_732909,quote_equal,&c_732910); make_pair(c_732908,&c_732909,NULL); make_pair(c_732907,quote_not,&c_732908); make_pair(c_732919,quote_zero,NULL); make_pair(c_732918,&c_732919,NULL); make_pair(c_732917,quote_b,&c_732918); make_pair(c_732916,quote_equal,&c_732917); make_pair(c_732915,&c_732916,NULL); make_pair(c_732914,quote_not,&c_732915); make_pair(c_732922,quote_a,NULL); make_pair(c_732921,quote_numberp,&c_732922); make_pair(c_732925,quote_b,NULL); make_pair(c_732924,quote_numberp,&c_732925); make_pair(c_732930,quote_a,NULL); make_pair(c_732929,quote__1911_91,&c_732930); make_pair(c_732932,quote_zero,NULL); make_pair(c_732931,&c_732932,NULL); make_pair(c_732928,&c_732929,&c_732931); make_pair(c_732927,quote_equal,&c_732928); make_pair(c_732937,quote_b,NULL); make_pair(c_732936,quote__1911_91,&c_732937); make_pair(c_732939,quote_zero,NULL); make_pair(c_732938,&c_732939,NULL); make_pair(c_732935,&c_732936,&c_732938); make_pair(c_732934,quote_equal,&c_732935); make_pair(c_732933,&c_732934,NULL); make_pair(c_732926,&c_732927,&c_732933); make_pair(c_732923,&c_732924,&c_732926); make_pair(c_732920,&c_732921,&c_732923); make_pair(c_732913,&c_732914,&c_732920); make_pair(c_732906,&c_732907,&c_732913); make_pair(c_732905,quote_and,&c_732906); make_pair(c_732904,&c_732905,NULL); make_pair(c_732897,&c_732898,&c_732904); make_pair(c_732896,quote_equal,&c_732897); make_pair(c_732949,quote_l,NULL); make_pair(c_732948,quote_x,&c_732949); make_pair(c_732947,quote_delete,&c_732948); make_pair(c_732946,&c_732947,NULL); make_pair(c_732945,quote_length,&c_732946); make_pair(c_732952,quote_l,NULL); make_pair(c_732951,quote_length,&c_732952); make_pair(c_732950,&c_732951,NULL); make_pair(c_732944,&c_732945,&c_732950); make_pair(c_732943,quote_lessp,&c_732944); make_pair(c_732956,quote_l,NULL); make_pair(c_732955,quote_x,&c_732956); make_pair(c_732954,quote_member,&c_732955); make_pair(c_732953,&c_732954,NULL); make_pair(c_732942,&c_732943,&c_732953); make_pair(c_732941,quote_equal,&c_732942); make_pair(c_732964,quote_l,NULL); make_pair(c_732963,quote_x,&c_732964); make_pair(c_732962,quote_delete,&c_732963); make_pair(c_732961,&c_732962,NULL); make_pair(c_732960,quote_sort2,&c_732961); make_pair(c_732970,quote_l,NULL); make_pair(c_732969,quote_sort2,&c_732970); make_pair(c_732968,&c_732969,NULL); make_pair(c_732967,quote_x,&c_732968); make_pair(c_732966,quote_delete,&c_732967); make_pair(c_732965,&c_732966,NULL); make_pair(c_732959,&c_732960,&c_732965); make_pair(c_732958,quote_equal,&c_732959); make_pair(c_732975,quote_x,NULL); make_pair(c_732974,quote_dsort,&c_732975); make_pair(c_732978,quote_x,NULL); make_pair(c_732977,quote_sort2,&c_732978); make_pair(c_732976,&c_732977,NULL); make_pair(c_732973,&c_732974,&c_732976); make_pair(c_732972,quote_equal,&c_732973); make_pair(c_733001,quote_x7,NULL); make_pair(c_733000,quote_x6,&c_733001); make_pair(c_732999,quote_cons,&c_733000); make_pair(c_732998,&c_732999,NULL); make_pair(c_732997,quote_x5,&c_732998); make_pair(c_732996,quote_cons,&c_732997); make_pair(c_732995,&c_732996,NULL); make_pair(c_732994,quote_x4,&c_732995); make_pair(c_732993,quote_cons,&c_732994); make_pair(c_732992,&c_732993,NULL); make_pair(c_732991,quote_x3,&c_732992); make_pair(c_732990,quote_cons,&c_732991); make_pair(c_732989,&c_732990,NULL); make_pair(c_732988,quote_x2,&c_732989); make_pair(c_732987,quote_cons,&c_732988); make_pair(c_732986,&c_732987,NULL); make_pair(c_732985,quote_x1,&c_732986); make_pair(c_732984,quote_cons,&c_732985); make_pair(c_732983,&c_732984,NULL); make_pair(c_732982,quote_length,&c_732983); make_pair(c_733007,quote_x7,NULL); make_pair(c_733006,quote_length,&c_733007); make_pair(c_733005,&c_733006,NULL); make_pair(c_733004,obj_int2obj(6),&c_733005); make_pair(c_733003,quote_plus,&c_733004); make_pair(c_733002,&c_733003,NULL); make_pair(c_732981,&c_732982,&c_733002); make_pair(c_732980,quote_equal,&c_732981); make_pair(c_733016,quote_x,NULL); make_pair(c_733015,quote_add1,&c_733016); make_pair(c_733014,&c_733015,NULL); make_pair(c_733013,quote_add1,&c_733014); make_pair(c_733017,obj_int2obj(2),NULL); make_pair(c_733012,&c_733013,&c_733017); make_pair(c_733011,quote_difference,&c_733012); make_pair(c_733020,quote_x,NULL); make_pair(c_733019,quote_fix,&c_733020); make_pair(c_733018,&c_733019,NULL); make_pair(c_733010,&c_733011,&c_733018); make_pair(c_733009,quote_equal,&c_733010); make_pair(c_733031,quote_y,NULL); make_pair(c_733030,quote_x,&c_733031); make_pair(c_733029,quote_plus,&c_733030); make_pair(c_733028,&c_733029,NULL); make_pair(c_733027,quote_x,&c_733028); make_pair(c_733026,quote_plus,&c_733027); make_pair(c_733032,obj_int2obj(2),NULL); make_pair(c_733025,&c_733026,&c_733032); make_pair(c_733024,quote_quotient,&c_733025); make_pair(c_733039,obj_int2obj(2),NULL); make_pair(c_733038,quote_y,&c_733039); make_pair(c_733037,quote_quotient,&c_733038); make_pair(c_733036,&c_733037,NULL); make_pair(c_733035,quote_x,&c_733036); make_pair(c_733034,quote_plus,&c_733035); make_pair(c_733033,&c_733034,NULL); make_pair(c_733023,&c_733024,&c_733033); make_pair(c_733022,quote_equal,&c_733023); make_pair(c_733045,quote_zero,NULL); make_pair(c_733046,quote_i,NULL); make_pair(c_733044,&c_733045,&c_733046); make_pair(c_733043,quote_sigma,&c_733044); make_pair(c_733054,quote_i,NULL); make_pair(c_733053,quote_add1,&c_733054); make_pair(c_733052,&c_733053,NULL); make_pair(c_733051,quote_i,&c_733052); make_pair(c_733050,quote_times,&c_733051); make_pair(c_733055,obj_int2obj(2),NULL); make_pair(c_733049,&c_733050,&c_733055); make_pair(c_733048,quote_quotient,&c_733049); make_pair(c_733047,&c_733048,NULL); make_pair(c_733042,&c_733043,&c_733047); make_pair(c_733041,quote_equal,&c_733042); make_pair(c_733063,quote_y,NULL); make_pair(c_733062,quote_add1,&c_733063); make_pair(c_733061,&c_733062,NULL); make_pair(c_733060,quote_x,&c_733061); make_pair(c_733059,quote_plus,&c_733060); make_pair(c_733068,quote_y,NULL); make_pair(c_733067,quote_numberp,&c_733068); make_pair(c_733074,quote_y,NULL); make_pair(c_733073,quote_x,&c_733074); make_pair(c_733072,quote_plus,&c_733073); make_pair(c_733071,&c_733072,NULL); make_pair(c_733070,quote_add1,&c_733071); make_pair(c_733077,quote_x,NULL); make_pair(c_733076,quote_add1,&c_733077); make_pair(c_733075,&c_733076,NULL); make_pair(c_733069,&c_733070,&c_733075); make_pair(c_733066,&c_733067,&c_733069); make_pair(c_733065,quote__if,&c_733066); make_pair(c_733064,&c_733065,NULL); make_pair(c_733058,&c_733059,&c_733064); make_pair(c_733057,quote_equal,&c_733058); make_pair(c_733085,quote_y,NULL); make_pair(c_733084,quote_x,&c_733085); make_pair(c_733083,quote_difference,&c_733084); make_pair(c_733089,quote_y,NULL); make_pair(c_733088,quote_z,&c_733089); make_pair(c_733087,quote_difference,&c_733088); make_pair(c_733086,&c_733087,NULL); make_pair(c_733082,&c_733083,&c_733086); make_pair(c_733081,quote_equal,&c_733082); make_pair(c_733095,quote_y,NULL); make_pair(c_733094,quote_x,&c_733095); make_pair(c_733093,quote_lessp,&c_733094); make_pair(c_733101,quote_z,NULL); make_pair(c_733100,quote_y,&c_733101); make_pair(c_733099,quote_lessp,&c_733100); make_pair(c_733098,&c_733099,NULL); make_pair(c_733097,quote_not,&c_733098); make_pair(c_733107,quote_y,NULL); make_pair(c_733106,quote_z,&c_733107); make_pair(c_733105,quote_lessp,&c_733106); make_pair(c_733113,quote_x,NULL); make_pair(c_733112,quote_y,&c_733113); make_pair(c_733111,quote_lessp,&c_733112); make_pair(c_733110,&c_733111,NULL); make_pair(c_733109,quote_not,&c_733110); make_pair(c_733118,quote_x,NULL); make_pair(c_733117,quote_fix,&c_733118); make_pair(c_733121,quote_z,NULL); make_pair(c_733120,quote_fix,&c_733121); make_pair(c_733119,&c_733120,NULL); make_pair(c_733116,&c_733117,&c_733119); make_pair(c_733115,quote_equal,&c_733116); make_pair(c_733114,&c_733115,NULL); make_pair(c_733108,&c_733109,&c_733114); make_pair(c_733104,&c_733105,&c_733108); make_pair(c_733103,quote__if,&c_733104); make_pair(c_733102,&c_733103,NULL); make_pair(c_733096,&c_733097,&c_733102); make_pair(c_733092,&c_733093,&c_733096); make_pair(c_733091,quote__if,&c_733092); make_pair(c_733090,&c_733091,NULL); make_pair(c_733080,&c_733081,&c_733090); make_pair(c_733079,quote_equal,&c_733080); make_pair(c_733131,quote_y,NULL); make_pair(c_733130,quote_x,&c_733131); make_pair(c_733129,quote_delete,&c_733130); make_pair(c_733128,&c_733129,NULL); make_pair(c_733127,quote_plus_91tree,&c_733128); make_pair(c_733132,quote_a,NULL); make_pair(c_733126,&c_733127,&c_733132); make_pair(c_733125,quote_meaning,&c_733126); make_pair(c_733138,quote_y,NULL); make_pair(c_733137,quote_x,&c_733138); make_pair(c_733136,quote_member,&c_733137); make_pair(c_733145,quote_y,NULL); make_pair(c_733144,quote_plus_91tree,&c_733145); make_pair(c_733146,quote_a,NULL); make_pair(c_733143,&c_733144,&c_733146); make_pair(c_733142,quote_meaning,&c_733143); make_pair(c_733150,quote_a,NULL); make_pair(c_733149,quote_x,&c_733150); make_pair(c_733148,quote_meaning,&c_733149); make_pair(c_733147,&c_733148,NULL); make_pair(c_733141,&c_733142,&c_733147); make_pair(c_733140,quote_difference,&c_733141); make_pair(c_733155,quote_y,NULL); make_pair(c_733154,quote_plus_91tree,&c_733155); make_pair(c_733156,quote_a,NULL); make_pair(c_733153,&c_733154,&c_733156); make_pair(c_733152,quote_meaning,&c_733153); make_pair(c_733151,&c_733152,NULL); make_pair(c_733139,&c_733140,&c_733151); make_pair(c_733135,&c_733136,&c_733139); make_pair(c_733134,quote__if,&c_733135); make_pair(c_733133,&c_733134,NULL); make_pair(c_733124,&c_733125,&c_733133); make_pair(c_733123,quote_equal,&c_733124); make_pair(c_733164,quote_y,NULL); make_pair(c_733163,quote_add1,&c_733164); make_pair(c_733162,&c_733163,NULL); make_pair(c_733161,quote_x,&c_733162); make_pair(c_733160,quote_times,&c_733161); make_pair(c_733169,quote_y,NULL); make_pair(c_733168,quote_numberp,&c_733169); make_pair(c_733176,quote_y,NULL); make_pair(c_733175,quote_x,&c_733176); make_pair(c_733174,quote_times,&c_733175); make_pair(c_733173,&c_733174,NULL); make_pair(c_733172,quote_x,&c_733173); make_pair(c_733171,quote_plus,&c_733172); make_pair(c_733179,quote_x,NULL); make_pair(c_733178,quote_fix,&c_733179); make_pair(c_733177,&c_733178,NULL); make_pair(c_733170,&c_733171,&c_733177); make_pair(c_733167,&c_733168,&c_733170); make_pair(c_733166,quote__if,&c_733167); make_pair(c_733165,&c_733166,NULL); make_pair(c_733159,&c_733160,&c_733165); make_pair(c_733158,quote_equal,&c_733159); make_pair(c_733185,quote_nil,NULL); make_pair(c_733186,quote_i,NULL); make_pair(c_733184,&c_733185,&c_733186); make_pair(c_733183,quote_nth,&c_733184); make_pair(c_733191,quote_i,NULL); make_pair(c_733190,quote_zerop,&c_733191); make_pair(c_733193,quote_nil,NULL); make_pair(c_733195,quote_zero,NULL); make_pair(c_733194,&c_733195,NULL); make_pair(c_733192,&c_733193,&c_733194); make_pair(c_733189,&c_733190,&c_733192); make_pair(c_733188,quote__if,&c_733189); make_pair(c_733187,&c_733188,NULL); make_pair(c_733182,&c_733183,&c_733187); make_pair(c_733181,quote_equal,&c_733182); make_pair(c_733203,quote_b,NULL); make_pair(c_733202,quote_a,&c_733203); make_pair(c_733201,quote_append,&c_733202); make_pair(c_733200,&c_733201,NULL); make_pair(c_733199,quote_last,&c_733200); make_pair(c_733208,quote_b,NULL); make_pair(c_733207,quote_listp,&c_733208); make_pair(c_733211,quote_b,NULL); make_pair(c_733210,quote_last,&c_733211); make_pair(c_733216,quote_a,NULL); make_pair(c_733215,quote_listp,&c_733216); make_pair(c_733223,quote_a,NULL); make_pair(c_733222,quote_last,&c_733223); make_pair(c_733221,&c_733222,NULL); make_pair(c_733220,quote_car,&c_733221); make_pair(c_733224,quote_b,NULL); make_pair(c_733219,&c_733220,&c_733224); make_pair(c_733218,quote_cons,&c_733219); make_pair(c_733225,quote_b,NULL); make_pair(c_733217,&c_733218,&c_733225); make_pair(c_733214,&c_733215,&c_733217); make_pair(c_733213,quote__if,&c_733214); make_pair(c_733212,&c_733213,NULL); make_pair(c_733209,&c_733210,&c_733212); make_pair(c_733206,&c_733207,&c_733209); make_pair(c_733205,quote__if,&c_733206); make_pair(c_733204,&c_733205,NULL); make_pair(c_733198,&c_733199,&c_733204); make_pair(c_733197,quote_equal,&c_733198); make_pair(c_733233,quote_y,NULL); make_pair(c_733232,quote_x,&c_733233); make_pair(c_733231,quote_lessp,&c_733232); make_pair(c_733234,quote_z,NULL); make_pair(c_733230,&c_733231,&c_733234); make_pair(c_733229,quote_equal,&c_733230); make_pair(c_733240,quote_y,NULL); make_pair(c_733239,quote_x,&c_733240); make_pair(c_733238,quote_lessp,&c_733239); make_pair(c_733244,quote_t,NULL); make_pair(c_733245,quote_z,NULL); make_pair(c_733243,&c_733244,&c_733245); make_pair(c_733242,quote_equal,&c_733243); make_pair(c_733249,quote_f,NULL); make_pair(c_733250,quote_z,NULL); make_pair(c_733248,&c_733249,&c_733250); make_pair(c_733247,quote_equal,&c_733248); make_pair(c_733246,&c_733247,NULL); make_pair(c_733241,&c_733242,&c_733246); make_pair(c_733237,&c_733238,&c_733241); make_pair(c_733236,quote__if,&c_733237); make_pair(c_733235,&c_733236,NULL); make_pair(c_733228,&c_733229,&c_733235); make_pair(c_733227,quote_equal,&c_733228); make_pair(c_733259,quote_b,NULL); make_pair(c_733258,quote_a,&c_733259); make_pair(c_733257,quote_append,&c_733258); make_pair(c_733256,&c_733257,NULL); make_pair(c_733255,quote_x,&c_733256); make_pair(c_733254,quote_assignment,&c_733255); make_pair(c_733265,quote_a,NULL); make_pair(c_733264,quote_x,&c_733265); make_pair(c_733263,quote_assignedp,&c_733264); make_pair(c_733269,quote_a,NULL); make_pair(c_733268,quote_x,&c_733269); make_pair(c_733267,quote_assignment,&c_733268); make_pair(c_733273,quote_b,NULL); make_pair(c_733272,quote_x,&c_733273); make_pair(c_733271,quote_assignment,&c_733272); make_pair(c_733270,&c_733271,NULL); make_pair(c_733266,&c_733267,&c_733270); make_pair(c_733262,&c_733263,&c_733266); make_pair(c_733261,quote__if,&c_733262); make_pair(c_733260,&c_733261,NULL); make_pair(c_733253,&c_733254,&c_733260); make_pair(c_733252,quote_equal,&c_733253); make_pair(c_733280,quote_x,NULL); make_pair(c_733279,quote_gopher,&c_733280); make_pair(c_733278,&c_733279,NULL); make_pair(c_733277,quote_car,&c_733278); make_pair(c_733285,quote_x,NULL); make_pair(c_733284,quote_listp,&c_733285); make_pair(c_733290,quote_x,NULL); make_pair(c_733289,quote_flatten,&c_733290); make_pair(c_733288,&c_733289,NULL); make_pair(c_733287,quote_car,&c_733288); make_pair(c_733292,quote_zero,NULL); make_pair(c_733291,&c_733292,NULL); make_pair(c_733286,&c_733287,&c_733291); make_pair(c_733283,&c_733284,&c_733286); make_pair(c_733282,quote__if,&c_733283); make_pair(c_733281,&c_733282,NULL); make_pair(c_733276,&c_733277,&c_733281); make_pair(c_733275,quote_equal,&c_733276); make_pair(c_733301,quote_x,NULL); make_pair(c_733300,quote_gopher,&c_733301); make_pair(c_733299,&c_733300,NULL); make_pair(c_733298,quote_cdr,&c_733299); make_pair(c_733297,&c_733298,NULL); make_pair(c_733296,quote_flatten,&c_733297); make_pair(c_733306,quote_x,NULL); make_pair(c_733305,quote_listp,&c_733306); make_pair(c_733311,quote_x,NULL); make_pair(c_733310,quote_flatten,&c_733311); make_pair(c_733309,&c_733310,NULL); make_pair(c_733308,quote_cdr,&c_733309); make_pair(c_733315,quote_zero,NULL); make_pair(c_733317,quote_nil,NULL); make_pair(c_733316,&c_733317,NULL); make_pair(c_733314,&c_733315,&c_733316); make_pair(c_733313,quote_cons,&c_733314); make_pair(c_733312,&c_733313,NULL); make_pair(c_733307,&c_733308,&c_733312); make_pair(c_733304,&c_733305,&c_733307); make_pair(c_733303,quote__if,&c_733304); make_pair(c_733302,&c_733303,NULL); make_pair(c_733295,&c_733296,&c_733302); make_pair(c_733294,quote_equal,&c_733295); make_pair(c_733325,quote_x,NULL); make_pair(c_733324,quote_y,&c_733325); make_pair(c_733323,quote_times,&c_733324); make_pair(c_733326,quote_y,NULL); make_pair(c_733322,&c_733323,&c_733326); make_pair(c_733321,quote_quotient,&c_733322); make_pair(c_733331,quote_y,NULL); make_pair(c_733330,quote_zerop,&c_733331); make_pair(c_733333,quote_zero,NULL); make_pair(c_733336,quote_x,NULL); make_pair(c_733335,quote_fix,&c_733336); make_pair(c_733334,&c_733335,NULL); make_pair(c_733332,&c_733333,&c_733334); make_pair(c_733329,&c_733330,&c_733332); make_pair(c_733328,quote__if,&c_733329); make_pair(c_733327,&c_733328,NULL); make_pair(c_733320,&c_733321,&c_733327); make_pair(c_733319,quote_equal,&c_733320); make_pair(c_733346,quote_mem,NULL); make_pair(c_733345,quote_val,&c_733346); make_pair(c_733344,quote_i,&c_733345); make_pair(c_733343,quote_set,&c_733344); make_pair(c_733342,&c_733343,NULL); make_pair(c_733341,quote_j,&c_733342); make_pair(c_733340,quote_get,&c_733341); make_pair(c_733352,quote_i,NULL); make_pair(c_733351,quote_j,&c_733352); make_pair(c_733350,quote_eqp,&c_733351); make_pair(c_733357,quote_mem,NULL); make_pair(c_733356,quote_j,&c_733357); make_pair(c_733355,quote_get,&c_733356); make_pair(c_733354,&c_733355,NULL); make_pair(c_733353,quote_val,&c_733354); make_pair(c_733349,&c_733350,&c_733353); make_pair(c_733348,quote__if,&c_733349); make_pair(c_733347,&c_733348,NULL); make_pair(c_733339,&c_733340,&c_733347); make_pair(c_733338,quote_equal,&c_733339); make_pair(c_733337,&c_733338,NULL); make_pair(c_733318,&c_733319,&c_733337); make_pair(c_733293,&c_733294,&c_733318); make_pair(c_733274,&c_733275,&c_733293); make_pair(c_733251,&c_733252,&c_733274); make_pair(c_733226,&c_733227,&c_733251); make_pair(c_733196,&c_733197,&c_733226); make_pair(c_733180,&c_733181,&c_733196); make_pair(c_733157,&c_733158,&c_733180); make_pair(c_733122,&c_733123,&c_733157); make_pair(c_733078,&c_733079,&c_733122); make_pair(c_733056,&c_733057,&c_733078); make_pair(c_733040,&c_733041,&c_733056); make_pair(c_733021,&c_733022,&c_733040); make_pair(c_733008,&c_733009,&c_733021); make_pair(c_732979,&c_732980,&c_733008); make_pair(c_732971,&c_732972,&c_732979); make_pair(c_732957,&c_732958,&c_732971); make_pair(c_732940,&c_732941,&c_732957); make_pair(c_732895,&c_732896,&c_732940); make_pair(c_732884,&c_732885,&c_732895); make_pair(c_732859,&c_732860,&c_732884); make_pair(c_732847,&c_732848,&c_732859); make_pair(c_732822,&c_732823,&c_732847); make_pair(c_732806,&c_732807,&c_732822); make_pair(c_732790,&c_732791,&c_732806); make_pair(c_732764,&c_732765,&c_732790); make_pair(c_732751,&c_732752,&c_732764); make_pair(c_732725,&c_732726,&c_732751); make_pair(c_732711,&c_732712,&c_732725); make_pair(c_732701,&c_732702,&c_732711); make_pair(c_732680,&c_732681,&c_732701); make_pair(c_732668,&c_732669,&c_732680); make_pair(c_732649,&c_732650,&c_732668); make_pair(c_732635,&c_732636,&c_732649); make_pair(c_732612,&c_732613,&c_732635); make_pair(c_732596,&c_732597,&c_732612); make_pair(c_732582,&c_732583,&c_732596); make_pair(c_732566,&c_732567,&c_732582); make_pair(c_732555,&c_732556,&c_732566); make_pair(c_732536,&c_732537,&c_732555); make_pair(c_732520,&c_732521,&c_732536); make_pair(c_732508,&c_732509,&c_732520); make_pair(c_732496,&c_732497,&c_732508); make_pair(c_732472,&c_732473,&c_732496); make_pair(c_732462,&c_732463,&c_732472); make_pair(c_732440,&c_732441,&c_732462); make_pair(c_732428,&c_732429,&c_732440); make_pair(c_732401,&c_732402,&c_732428); make_pair(c_732374,&c_732375,&c_732401); make_pair(c_732366,&c_732367,&c_732374); make_pair(c_732352,&c_732353,&c_732366); make_pair(c_732344,&c_732345,&c_732352); make_pair(c_732320,&c_732321,&c_732344); make_pair(c_732303,&c_732304,&c_732320); make_pair(c_732285,&c_732286,&c_732303); make_pair(c_732269,&c_732270,&c_732285); make_pair(c_732250,&c_732251,&c_732269); make_pair(c_732240,&c_732241,&c_732250); make_pair(c_732228,&c_732229,&c_732240); make_pair(c_732212,&c_732213,&c_732228); make_pair(c_732193,&c_732194,&c_732212); make_pair(c_732184,&c_732185,&c_732193); make_pair(c_732165,&c_732166,&c_732184); make_pair(c_732155,&c_732156,&c_732165); make_pair(c_732143,&c_732144,&c_732155); make_pair(c_732124,&c_732125,&c_732143); make_pair(c_732112,&c_732113,&c_732124); make_pair(c_732093,&c_732094,&c_732112); make_pair(c_732075,&c_732076,&c_732093); make_pair(c_732059,&c_732060,&c_732075); make_pair(c_732040,&c_732041,&c_732059); make_pair(c_732024,&c_732025,&c_732040); make_pair(c_732008,&c_732009,&c_732024); make_pair(c_731992,&c_731993,&c_732008); make_pair(c_731967,&c_731968,&c_731992); make_pair(c_731943,&c_731944,&c_731967); make_pair(c_731927,&c_731928,&c_731943); make_pair(c_731907,&c_731908,&c_731927); make_pair(c_731899,&c_731900,&c_731907); make_pair(c_731881,&c_731882,&c_731899); make_pair(c_731865,&c_731866,&c_731881); make_pair(c_731848,&c_731849,&c_731865); make_pair(c_731824,&c_731825,&c_731848); make_pair(c_731811,&c_731812,&c_731824); make_pair(c_731793,&c_731794,&c_731811); make_pair(c_731781,&c_731782,&c_731793); make_pair(c_731763,&c_731764,&c_731781); make_pair(c_731745,&c_731746,&c_731763); make_pair(c_731718,&c_731719,&c_731745); make_pair(c_731706,&c_731707,&c_731718); make_pair(c_731694,&c_731695,&c_731706); make_pair(c_731680,&c_731681,&c_731694); make_pair(c_731666,&c_731667,&c_731680); make_pair(c_731654,&c_731655,&c_731666); make_pair(c_731644,&c_731645,&c_731654); make_pair(c_731635,&c_731636,&c_731644); make_pair(c_731623,&c_731624,&c_731635); make_pair(c_731606,&c_731607,&c_731623); make_pair(c_731590,&c_731591,&c_731606); make_pair(c_731573,&c_731574,&c_731590); make_pair(c_731561,&c_731562,&c_731573); make_pair(c_731549,&c_731550,&c_731561); make_pair(c_731539,&c_731540,&c_731549); make_pair(c_731525,&c_731526,&c_731539); make_pair(c_731511,&c_731512,&c_731525); return_closcall2(data, car(((closureN)self_73953)->elements[0]), ((closureN)self_73953)->elements[1], &c_731511);; } static void __lambda_70(void *data, int argc, object self_73954, object r_73403) { closureN_type c_731459; c_731459.hdr.mark = gc_color_red; c_731459.hdr.grayed = 0; c_731459.tag = closureN_tag; c_731459.fn = (function_type)__lambda_69; c_731459.num_args = 3; c_731459.num_elements = 2; c_731459.elements = (object *)alloca(sizeof(object) * 2); c_731459.elements[0] = ((closureN)self_73954)->elements[0]; c_731459.elements[1] = ((closureN)self_73954)->elements[1]; return_direct1(data,__lambda_66,global_set(__glo_test_91boyer, &c_731459));; } static void __lambda_69(void *data, int argc, object self_73955, object k_73405, object alist_73257, object term_73256, object n_73255) { closureN_type c_731461; c_731461.hdr.mark = gc_color_red; c_731461.hdr.grayed = 0; c_731461.tag = closureN_tag; c_731461.fn = (function_type)__lambda_68; c_731461.num_args = 1; c_731461.num_elements = 6; c_731461.elements = (object *)alloca(sizeof(object) * 6); c_731461.elements[0] = alist_73257; c_731461.elements[1] = k_73405; c_731461.elements[2] = n_73255; c_731461.elements[3] = ((closureN)self_73955)->elements[0]; c_731461.elements[4] = term_73256; c_731461.elements[5] = ((closureN)self_73955)->elements[1]; return_closcall1(data,(closure)&c_731461, Cyc_set_cell(data, ((closureN)self_73955)->elements[0], obj_int2obj(0)));; } static void __lambda_68(void *data, int argc, object self_73956, object r_73406) { closureN_type c_731466; c_731466.hdr.mark = gc_color_red; c_731466.hdr.grayed = 0; c_731466.tag = closureN_tag; c_731466.fn = (function_type)__lambda_67; c_731466.num_args = 1; c_731466.num_elements = 2; c_731466.elements = (object *)alloca(sizeof(object) * 2); c_731466.elements[0] = ((closureN)self_73956)->elements[1]; c_731466.elements[1] = ((closureN)self_73956)->elements[3]; return_closcall4(data, car(((closureN)self_73956)->elements[5]), &c_731466, ((closureN)self_73956)->elements[0], ((closureN)self_73956)->elements[4], ((closureN)self_73956)->elements[2]);; } static void __lambda_67(void *data, int argc, object self_73957, object answer_73258) { if( (boolean_f != answer_73258) ){ return_closcall1(data, ((closureN)self_73957)->elements[0], car(((closureN)self_73957)->elements[1])); } else { return_closcall1(data, ((closureN)self_73957)->elements[0], boolean_f);} ; } static void __lambda_66(void *data, int argc, closure _,object r_73362) { return_closcall1(data, __glo_main, primitive__75halt);; } static void __lambda_65(void *data, int argc, closure _,object k_73674) { Cyc_st_add(data, "sboyer.scm:this-scheme-implementation-name"); closureN_type c_731283; c_731283.hdr.mark = gc_color_red; c_731283.hdr.grayed = 0; c_731283.tag = closureN_tag; c_731283.fn = (function_type)__lambda_64; c_731283.num_args = 1; c_731283.num_elements = 1; c_731283.elements = (object *)alloca(sizeof(object) * 1); c_731283.elements[0] = k_73674; return_closcall1(data, __glo_Cyc_91version_scheme_base, &c_731283);; } static void __lambda_64(void *data, int argc, object self_73958, object r_73675) { make_string(c_731289, "cyclone-"); object c_731288 = Cyc_string_append(data, ((closureN)self_73958)->elements[0],2,&c_731289, r_73675); return_closcall1(data, ((closureN)self_73958)->elements[0], c_731288);; } static void __lambda_63(void *data, int argc, closure _,object k_73678, object name_73329, object count_73328, object thunk_73327, object ok_127_73326) { Cyc_st_add(data, "sboyer.scm:run-r7rs-benchmark"); closureN_type c_731097; c_731097.hdr.mark = gc_color_red; c_731097.hdr.grayed = 0; c_731097.tag = closureN_tag; c_731097.fn = (function_type)__lambda_62; c_731097.num_args = 1; c_731097.num_elements = 5; c_731097.elements = (object *)alloca(sizeof(object) * 5); c_731097.elements[0] = count_73328; c_731097.elements[1] = k_73678; c_731097.elements[2] = name_73329; c_731097.elements[3] = ok_127_73326; c_731097.elements[4] = thunk_73327; return_closcall1(data,(closure)&c_731097, boolean_f);; } static void __lambda_62(void *data, int argc, object self_73959, object rounded_73331) { closureN_type c_731099; c_731099.hdr.mark = gc_color_red; c_731099.hdr.grayed = 0; c_731099.tag = closureN_tag; c_731099.fn = (function_type)__lambda_61; c_731099.num_args = 1; c_731099.num_elements = 5; c_731099.elements = (object *)alloca(sizeof(object) * 5); c_731099.elements[0] = ((closureN)self_73959)->elements[0]; c_731099.elements[1] = ((closureN)self_73959)->elements[1]; c_731099.elements[2] = ((closureN)self_73959)->elements[2]; c_731099.elements[3] = ((closureN)self_73959)->elements[3]; c_731099.elements[4] = ((closureN)self_73959)->elements[4]; make_cell(c_731280,rounded_73331); return_closcall1(data,(closure)&c_731099, &c_731280);; } static void __lambda_61(void *data, int argc, object self_73960, object rounded_73331) { closureN_type c_731101; c_731101.hdr.mark = gc_color_red; c_731101.hdr.grayed = 0; c_731101.tag = closureN_tag; c_731101.fn = (function_type)__lambda_59; c_731101.num_args = 1; c_731101.num_elements = 6; c_731101.elements = (object *)alloca(sizeof(object) * 6); c_731101.elements[0] = ((closureN)self_73960)->elements[0]; c_731101.elements[1] = ((closureN)self_73960)->elements[1]; c_731101.elements[2] = ((closureN)self_73960)->elements[2]; c_731101.elements[3] = ((closureN)self_73960)->elements[3]; c_731101.elements[4] = rounded_73331; c_731101.elements[5] = ((closureN)self_73960)->elements[4]; mclosure0(c_731264, (function_type)__lambda_60);c_731264.num_args = 1; return_closcall1(data,(closure)&c_731101, Cyc_set_cell(data, rounded_73331, &c_731264));; } static void __lambda_60(void *data, int argc, object self_73961, object k_73725, object x_73346) { double_type local_731276; object c_731277 = Cyc_fast_mul(data,&local_731276,obj_int2obj(1000), x_73346); double_type local_731272; object c_731273 = ((inline_function_type) ((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_731272,c_731277); double_type local_731268; object c_731269 = Cyc_fast_div(data,&local_731268,c_731273, obj_int2obj(1000)); return_closcall1(data, k_73725, c_731269);; } static void __lambda_59(void *data, int argc, object self_73962, object r_73679) { closureN_type c_731103; c_731103.hdr.mark = gc_color_red; c_731103.hdr.grayed = 0; c_731103.tag = closureN_tag; c_731103.fn = (function_type)__lambda_58; c_731103.num_args = 1; c_731103.num_elements = 6; c_731103.elements = (object *)alloca(sizeof(object) * 6); c_731103.elements[0] = ((closureN)self_73962)->elements[0]; c_731103.elements[1] = ((closureN)self_73962)->elements[1]; c_731103.elements[2] = ((closureN)self_73962)->elements[2]; c_731103.elements[3] = ((closureN)self_73962)->elements[3]; c_731103.elements[4] = ((closureN)self_73962)->elements[4]; c_731103.elements[5] = ((closureN)self_73962)->elements[5]; make_string(c_731261, "Running "); return_closcall2(data, __glo_display_scheme_write, &c_731103, &c_731261);; } static void __lambda_58(void *data, int argc, object self_73963, object r_73680) { closureN_type c_731105; c_731105.hdr.mark = gc_color_red; c_731105.hdr.grayed = 0; c_731105.tag = closureN_tag; c_731105.fn = (function_type)__lambda_57; c_731105.num_args = 1; c_731105.num_elements = 6; c_731105.elements = (object *)alloca(sizeof(object) * 6); c_731105.elements[0] = ((closureN)self_73963)->elements[0]; c_731105.elements[1] = ((closureN)self_73963)->elements[1]; c_731105.elements[2] = ((closureN)self_73963)->elements[2]; c_731105.elements[3] = ((closureN)self_73963)->elements[3]; c_731105.elements[4] = ((closureN)self_73963)->elements[4]; c_731105.elements[5] = ((closureN)self_73963)->elements[5]; return_closcall2(data, __glo_display_scheme_write, &c_731105, ((closureN)self_73963)->elements[2]);; } static void __lambda_57(void *data, int argc, object self_73964, object r_73681) { closureN_type c_731107; c_731107.hdr.mark = gc_color_red; c_731107.hdr.grayed = 0; c_731107.tag = closureN_tag; c_731107.fn = (function_type)__lambda_56; c_731107.num_args = 1; c_731107.num_elements = 6; c_731107.elements = (object *)alloca(sizeof(object) * 6); c_731107.elements[0] = ((closureN)self_73964)->elements[0]; c_731107.elements[1] = ((closureN)self_73964)->elements[1]; c_731107.elements[2] = ((closureN)self_73964)->elements[2]; c_731107.elements[3] = ((closureN)self_73964)->elements[3]; c_731107.elements[4] = ((closureN)self_73964)->elements[4]; c_731107.elements[5] = ((closureN)self_73964)->elements[5]; return_closcall1(data, __glo_newline_scheme_base, &c_731107);; } static void __lambda_56(void *data, int argc, object self_73965, object r_73682) { closureN_type c_731109; c_731109.hdr.mark = gc_color_red; c_731109.hdr.grayed = 0; c_731109.tag = closureN_tag; c_731109.fn = (function_type)__lambda_55; c_731109.num_args = 1; c_731109.num_elements = 6; c_731109.elements = (object *)alloca(sizeof(object) * 6); c_731109.elements[0] = ((closureN)self_73965)->elements[0]; c_731109.elements[1] = ((closureN)self_73965)->elements[1]; c_731109.elements[2] = ((closureN)self_73965)->elements[2]; c_731109.elements[3] = ((closureN)self_73965)->elements[3]; c_731109.elements[4] = ((closureN)self_73965)->elements[4]; c_731109.elements[5] = ((closureN)self_73965)->elements[5]; return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_731109);; } static void __lambda_55(void *data, int argc, object self_73966, object r_73723) { closureN_type c_731111; c_731111.hdr.mark = gc_color_red; c_731111.hdr.grayed = 0; c_731111.tag = closureN_tag; c_731111.fn = (function_type)__lambda_54; c_731111.num_args = 1; c_731111.num_elements = 6; c_731111.elements = (object *)alloca(sizeof(object) * 6); c_731111.elements[0] = ((closureN)self_73966)->elements[0]; c_731111.elements[1] = ((closureN)self_73966)->elements[1]; c_731111.elements[2] = ((closureN)self_73966)->elements[2]; c_731111.elements[3] = ((closureN)self_73966)->elements[3]; c_731111.elements[4] = ((closureN)self_73966)->elements[4]; c_731111.elements[5] = ((closureN)self_73966)->elements[5]; return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_731111, r_73723);; } static void __lambda_54(void *data, int argc, object self_73967, object r_73683) { closureN_type c_731113; c_731113.hdr.mark = gc_color_red; c_731113.hdr.grayed = 0; c_731113.tag = closureN_tag; c_731113.fn = (function_type)__lambda_53; c_731113.num_args = 1; c_731113.num_elements = 6; c_731113.elements = (object *)alloca(sizeof(object) * 6); c_731113.elements[0] = ((closureN)self_73967)->elements[0]; c_731113.elements[1] = ((closureN)self_73967)->elements[1]; c_731113.elements[2] = ((closureN)self_73967)->elements[2]; c_731113.elements[3] = ((closureN)self_73967)->elements[3]; c_731113.elements[4] = ((closureN)self_73967)->elements[4]; c_731113.elements[5] = ((closureN)self_73967)->elements[5]; return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_731113);; } static void __lambda_53(void *data, int argc, object self_73968, object j_95s_73333) { closureN_type c_731115; c_731115.hdr.mark = gc_color_red; c_731115.hdr.grayed = 0; c_731115.tag = closureN_tag; c_731115.fn = (function_type)__lambda_52; c_731115.num_args = 1; c_731115.num_elements = 7; c_731115.elements = (object *)alloca(sizeof(object) * 7); c_731115.elements[0] = ((closureN)self_73968)->elements[0]; c_731115.elements[1] = j_95s_73333; c_731115.elements[2] = ((closureN)self_73968)->elements[1]; c_731115.elements[3] = ((closureN)self_73968)->elements[2]; c_731115.elements[4] = ((closureN)self_73968)->elements[3]; c_731115.elements[5] = ((closureN)self_73968)->elements[4]; c_731115.elements[6] = ((closureN)self_73968)->elements[5]; return_closcall1(data, __glo_current_91second_scheme_time, &c_731115);; } static void __lambda_52(void *data, int argc, object self_73969, object t0_73334) { closureN_type c_731117; c_731117.hdr.mark = gc_color_red; c_731117.hdr.grayed = 0; c_731117.tag = closureN_tag; c_731117.fn = (function_type)__lambda_51; c_731117.num_args = 1; c_731117.num_elements = 8; c_731117.elements = (object *)alloca(sizeof(object) * 8); c_731117.elements[0] = ((closureN)self_73969)->elements[0]; c_731117.elements[1] = ((closureN)self_73969)->elements[1]; c_731117.elements[2] = ((closureN)self_73969)->elements[2]; c_731117.elements[3] = ((closureN)self_73969)->elements[3]; c_731117.elements[4] = ((closureN)self_73969)->elements[4]; c_731117.elements[5] = ((closureN)self_73969)->elements[5]; c_731117.elements[6] = t0_73334; c_731117.elements[7] = ((closureN)self_73969)->elements[6]; return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731117);; } static void __lambda_51(void *data, int argc, object self_73970, object j0_73335) { closureN_type c_731119; c_731119.hdr.mark = gc_color_red; c_731119.hdr.grayed = 0; c_731119.tag = closureN_tag; c_731119.fn = (function_type)__lambda_50; c_731119.num_args = 1; c_731119.num_elements = 9; c_731119.elements = (object *)alloca(sizeof(object) * 9); c_731119.elements[0] = ((closureN)self_73970)->elements[0]; c_731119.elements[1] = ((closureN)self_73970)->elements[1]; c_731119.elements[2] = j0_73335; c_731119.elements[3] = ((closureN)self_73970)->elements[2]; c_731119.elements[4] = ((closureN)self_73970)->elements[3]; c_731119.elements[5] = ((closureN)self_73970)->elements[4]; c_731119.elements[6] = ((closureN)self_73970)->elements[5]; c_731119.elements[7] = ((closureN)self_73970)->elements[6]; c_731119.elements[8] = ((closureN)self_73970)->elements[7]; return_closcall1(data,(closure)&c_731119, boolean_f);; } static void __lambda_50(void *data, int argc, object self_73971, object loop_73338) { closureN_type c_731121; c_731121.hdr.mark = gc_color_red; c_731121.hdr.grayed = 0; c_731121.tag = closureN_tag; c_731121.fn = (function_type)__lambda_49; c_731121.num_args = 1; c_731121.num_elements = 9; c_731121.elements = (object *)alloca(sizeof(object) * 9); c_731121.elements[0] = ((closureN)self_73971)->elements[0]; c_731121.elements[1] = ((closureN)self_73971)->elements[1]; c_731121.elements[2] = ((closureN)self_73971)->elements[2]; c_731121.elements[3] = ((closureN)self_73971)->elements[3]; c_731121.elements[4] = ((closureN)self_73971)->elements[4]; c_731121.elements[5] = ((closureN)self_73971)->elements[5]; c_731121.elements[6] = ((closureN)self_73971)->elements[6]; c_731121.elements[7] = ((closureN)self_73971)->elements[7]; c_731121.elements[8] = ((closureN)self_73971)->elements[8]; make_cell(c_731259,loop_73338); return_closcall1(data,(closure)&c_731121, &c_731259);; } static void __lambda_49(void *data, int argc, object self_73972, object loop_73338) { closureN_type c_731123; c_731123.hdr.mark = gc_color_red; c_731123.hdr.grayed = 0; c_731123.tag = closureN_tag; c_731123.fn = (function_type)__lambda_20; c_731123.num_args = 1; c_731123.num_elements = 2; c_731123.elements = (object *)alloca(sizeof(object) * 2); c_731123.elements[0] = ((closureN)self_73972)->elements[3]; c_731123.elements[1] = loop_73338; closureN_type c_731131; c_731131.hdr.mark = gc_color_red; c_731131.hdr.grayed = 0; c_731131.tag = closureN_tag; c_731131.fn = (function_type)__lambda_48; c_731131.num_args = 2; c_731131.num_elements = 9; c_731131.elements = (object *)alloca(sizeof(object) * 9); c_731131.elements[0] = ((closureN)self_73972)->elements[0]; c_731131.elements[1] = ((closureN)self_73972)->elements[1]; c_731131.elements[2] = ((closureN)self_73972)->elements[2]; c_731131.elements[3] = loop_73338; c_731131.elements[4] = ((closureN)self_73972)->elements[4]; c_731131.elements[5] = ((closureN)self_73972)->elements[5]; c_731131.elements[6] = ((closureN)self_73972)->elements[6]; c_731131.elements[7] = ((closureN)self_73972)->elements[7]; c_731131.elements[8] = ((closureN)self_73972)->elements[8]; return_closcall1(data,(closure)&c_731123, Cyc_set_cell(data, loop_73338, &c_731131));; } static void __lambda_48(void *data, int argc, object self_73973, object k_73689, object i_73340, object result_73339) { object c_731134 = Cyc_num_fast_lt_op(data,i_73340, ((closureN)self_73973)->elements[0]); if( (boolean_f != c_731134) ){ closureN_type c_731138; c_731138.hdr.mark = gc_color_red; c_731138.hdr.grayed = 0; c_731138.tag = closureN_tag; c_731138.fn = (function_type)__lambda_21; c_731138.num_args = 1; c_731138.num_elements = 3; c_731138.elements = (object *)alloca(sizeof(object) * 3); c_731138.elements[0] = i_73340; c_731138.elements[1] = k_73689; c_731138.elements[2] = ((closureN)self_73973)->elements[3]; return_closcall1(data, ((closureN)self_73973)->elements[8], &c_731138); } else { closureN_type c_731151; c_731151.hdr.mark = gc_color_red; c_731151.hdr.grayed = 0; c_731151.tag = closureN_tag; c_731151.fn = (function_type)__lambda_47; c_731151.num_args = 1; c_731151.num_elements = 7; c_731151.elements = (object *)alloca(sizeof(object) * 7); c_731151.elements[0] = ((closureN)self_73973)->elements[1]; c_731151.elements[1] = ((closureN)self_73973)->elements[2]; c_731151.elements[2] = k_73689; c_731151.elements[3] = ((closureN)self_73973)->elements[4]; c_731151.elements[4] = result_73339; c_731151.elements[5] = ((closureN)self_73973)->elements[6]; c_731151.elements[6] = ((closureN)self_73973)->elements[7]; return_closcall2(data, ((closureN)self_73973)->elements[5], &c_731151, result_73339);} ; } static void __lambda_47(void *data, int argc, object self_73974, object r_73693) { if( (boolean_f != r_73693) ){ closureN_type c_731153; c_731153.hdr.mark = gc_color_red; c_731153.hdr.grayed = 0; c_731153.tag = closureN_tag; c_731153.fn = (function_type)__lambda_41; c_731153.num_args = 1; c_731153.num_elements = 7; c_731153.elements = (object *)alloca(sizeof(object) * 7); c_731153.elements[0] = ((closureN)self_73974)->elements[0]; c_731153.elements[1] = ((closureN)self_73974)->elements[1]; c_731153.elements[2] = ((closureN)self_73974)->elements[2]; c_731153.elements[3] = ((closureN)self_73974)->elements[3]; c_731153.elements[4] = ((closureN)self_73974)->elements[4]; c_731153.elements[5] = ((closureN)self_73974)->elements[5]; c_731153.elements[6] = ((closureN)self_73974)->elements[6]; return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731153); } else { closureN_type c_731243; c_731243.hdr.mark = gc_color_red; c_731243.hdr.grayed = 0; c_731243.tag = closureN_tag; c_731243.fn = (function_type)__lambda_46; c_731243.num_args = 1; c_731243.num_elements = 2; c_731243.elements = (object *)alloca(sizeof(object) * 2); c_731243.elements[0] = ((closureN)self_73974)->elements[2]; c_731243.elements[1] = ((closureN)self_73974)->elements[4]; make_string(c_731256, "ERROR: returned incorrect result: "); return_closcall2(data, __glo_display_scheme_write, &c_731243, &c_731256);} ; } static void __lambda_46(void *data, int argc, object self_73975, object r_73718) { closureN_type c_731245; c_731245.hdr.mark = gc_color_red; c_731245.hdr.grayed = 0; c_731245.tag = closureN_tag; c_731245.fn = (function_type)__lambda_45; c_731245.num_args = 1; c_731245.num_elements = 2; c_731245.elements = (object *)alloca(sizeof(object) * 2); c_731245.elements[0] = ((closureN)self_73975)->elements[0]; c_731245.elements[1] = ((closureN)self_73975)->elements[1]; return_closcall2(data, __glo_write_scheme_write, &c_731245, ((closureN)self_73975)->elements[1]);; } static void __lambda_45(void *data, int argc, object self_73976, object r_73719) { closureN_type c_731247; c_731247.hdr.mark = gc_color_red; c_731247.hdr.grayed = 0; c_731247.tag = closureN_tag; c_731247.fn = (function_type)__lambda_44; c_731247.num_args = 1; c_731247.num_elements = 2; c_731247.elements = (object *)alloca(sizeof(object) * 2); c_731247.elements[0] = ((closureN)self_73976)->elements[0]; c_731247.elements[1] = ((closureN)self_73976)->elements[1]; return_closcall1(data, __glo_newline_scheme_base, &c_731247);; } static void __lambda_44(void *data, int argc, object self_73977, object r_73720) { closureN_type c_731249; c_731249.hdr.mark = gc_color_red; c_731249.hdr.grayed = 0; c_731249.tag = closureN_tag; c_731249.fn = (function_type)__lambda_43; c_731249.num_args = 1; c_731249.num_elements = 2; c_731249.elements = (object *)alloca(sizeof(object) * 2); c_731249.elements[0] = ((closureN)self_73977)->elements[0]; c_731249.elements[1] = ((closureN)self_73977)->elements[1]; return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_731249);; } static void __lambda_43(void *data, int argc, object self_73978, object r_73722) { closureN_type c_731251; c_731251.hdr.mark = gc_color_red; c_731251.hdr.grayed = 0; c_731251.tag = closureN_tag; c_731251.fn = (function_type)__lambda_42; c_731251.num_args = 1; c_731251.num_elements = 2; c_731251.elements = (object *)alloca(sizeof(object) * 2); c_731251.elements[0] = ((closureN)self_73978)->elements[0]; c_731251.elements[1] = ((closureN)self_73978)->elements[1]; return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_731251, r_73722);; } static void __lambda_42(void *data, int argc, object self_73979, object r_73721) { return_closcall1(data, ((closureN)self_73979)->elements[0], ((closureN)self_73979)->elements[1]);; } static void __lambda_41(void *data, int argc, object self_73980, object j1_73341) { closureN_type c_731155; c_731155.hdr.mark = gc_color_red; c_731155.hdr.grayed = 0; c_731155.tag = closureN_tag; c_731155.fn = (function_type)__lambda_40; c_731155.num_args = 1; c_731155.num_elements = 8; c_731155.elements = (object *)alloca(sizeof(object) * 8); c_731155.elements[0] = ((closureN)self_73980)->elements[0]; c_731155.elements[1] = ((closureN)self_73980)->elements[1]; c_731155.elements[2] = j1_73341; c_731155.elements[3] = ((closureN)self_73980)->elements[2]; c_731155.elements[4] = ((closureN)self_73980)->elements[3]; c_731155.elements[5] = ((closureN)self_73980)->elements[4]; c_731155.elements[6] = ((closureN)self_73980)->elements[5]; c_731155.elements[7] = ((closureN)self_73980)->elements[6]; return_closcall1(data, __glo_current_91second_scheme_time, &c_731155);; } static void __lambda_40(void *data, int argc, object self_73981, object t1_73342) { closureN_type c_731160; c_731160.hdr.mark = gc_color_red; c_731160.hdr.grayed = 0; c_731160.tag = closureN_tag; c_731160.fn = (function_type)__lambda_39; c_731160.num_args = 1; c_731160.num_elements = 6; c_731160.elements = (object *)alloca(sizeof(object) * 6); c_731160.elements[0] = ((closureN)self_73981)->elements[0]; c_731160.elements[1] = ((closureN)self_73981)->elements[1]; c_731160.elements[2] = ((closureN)self_73981)->elements[2]; c_731160.elements[3] = ((closureN)self_73981)->elements[3]; c_731160.elements[4] = ((closureN)self_73981)->elements[4]; c_731160.elements[5] = ((closureN)self_73981)->elements[5]; double_type local_731239; object c_731240 = Cyc_fast_sub(data,&local_731239,t1_73342, ((closureN)self_73981)->elements[7]); return_closcall2(data, car(((closureN)self_73981)->elements[6]), &c_731160, c_731240);; } static void __lambda_39(void *data, int argc, object self_73982, object secs2_73345) { closureN_type c_731162; c_731162.hdr.mark = gc_color_red; c_731162.hdr.grayed = 0; c_731162.tag = closureN_tag; c_731162.fn = (function_type)__lambda_38; c_731162.num_args = 1; c_731162.num_elements = 7; c_731162.elements = (object *)alloca(sizeof(object) * 7); c_731162.elements[0] = ((closureN)self_73982)->elements[0]; c_731162.elements[1] = ((closureN)self_73982)->elements[1]; c_731162.elements[2] = ((closureN)self_73982)->elements[2]; c_731162.elements[3] = ((closureN)self_73982)->elements[3]; c_731162.elements[4] = ((closureN)self_73982)->elements[4]; c_731162.elements[5] = ((closureN)self_73982)->elements[5]; c_731162.elements[6] = secs2_73345; make_string(c_731236, "Elapsed time: "); return_closcall2(data, __glo_display_scheme_write, &c_731162, &c_731236);; } static void __lambda_38(void *data, int argc, object self_73983, object r_73700) { closureN_type c_731164; c_731164.hdr.mark = gc_color_red; c_731164.hdr.grayed = 0; c_731164.tag = closureN_tag; c_731164.fn = (function_type)__lambda_37; c_731164.num_args = 1; c_731164.num_elements = 7; c_731164.elements = (object *)alloca(sizeof(object) * 7); c_731164.elements[0] = ((closureN)self_73983)->elements[0]; c_731164.elements[1] = ((closureN)self_73983)->elements[1]; c_731164.elements[2] = ((closureN)self_73983)->elements[2]; c_731164.elements[3] = ((closureN)self_73983)->elements[3]; c_731164.elements[4] = ((closureN)self_73983)->elements[4]; c_731164.elements[5] = ((closureN)self_73983)->elements[5]; c_731164.elements[6] = ((closureN)self_73983)->elements[6]; double_type local_731231; object c_731232 = Cyc_fast_sub(data,&local_731231,((closureN)self_73983)->elements[2], ((closureN)self_73983)->elements[1]); double_type local_731227; object c_731228 = Cyc_fast_div(data,&local_731227,c_731232, ((closureN)self_73983)->elements[0]); double_type local_731223; object c_731224 = ((inline_function_type) ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_731223,c_731228); return_closcall2(data, __glo_write_scheme_write, &c_731164, c_731224);; } static void __lambda_37(void *data, int argc, object self_73984, object r_73701) { closureN_type c_731166; c_731166.hdr.mark = gc_color_red; c_731166.hdr.grayed = 0; c_731166.tag = closureN_tag; c_731166.fn = (function_type)__lambda_36; c_731166.num_args = 1; c_731166.num_elements = 7; c_731166.elements = (object *)alloca(sizeof(object) * 7); c_731166.elements[0] = ((closureN)self_73984)->elements[0]; c_731166.elements[1] = ((closureN)self_73984)->elements[1]; c_731166.elements[2] = ((closureN)self_73984)->elements[2]; c_731166.elements[3] = ((closureN)self_73984)->elements[3]; c_731166.elements[4] = ((closureN)self_73984)->elements[4]; c_731166.elements[5] = ((closureN)self_73984)->elements[5]; c_731166.elements[6] = ((closureN)self_73984)->elements[6]; make_string(c_731220, " seconds ("); return_closcall2(data, __glo_display_scheme_write, &c_731166, &c_731220);; } static void __lambda_36(void *data, int argc, object self_73985, object r_73702) { closureN_type c_731168; c_731168.hdr.mark = gc_color_red; c_731168.hdr.grayed = 0; c_731168.tag = closureN_tag; c_731168.fn = (function_type)__lambda_35; c_731168.num_args = 1; c_731168.num_elements = 6; c_731168.elements = (object *)alloca(sizeof(object) * 6); c_731168.elements[0] = ((closureN)self_73985)->elements[0]; c_731168.elements[1] = ((closureN)self_73985)->elements[1]; c_731168.elements[2] = ((closureN)self_73985)->elements[2]; c_731168.elements[3] = ((closureN)self_73985)->elements[3]; c_731168.elements[4] = ((closureN)self_73985)->elements[4]; c_731168.elements[5] = ((closureN)self_73985)->elements[5]; return_closcall2(data, __glo_write_scheme_write, &c_731168, ((closureN)self_73985)->elements[6]);; } static void __lambda_35(void *data, int argc, object self_73986, object r_73703) { closureN_type c_731170; c_731170.hdr.mark = gc_color_red; c_731170.hdr.grayed = 0; c_731170.tag = closureN_tag; c_731170.fn = (function_type)__lambda_34; c_731170.num_args = 1; c_731170.num_elements = 6; c_731170.elements = (object *)alloca(sizeof(object) * 6); c_731170.elements[0] = ((closureN)self_73986)->elements[0]; c_731170.elements[1] = ((closureN)self_73986)->elements[1]; c_731170.elements[2] = ((closureN)self_73986)->elements[2]; c_731170.elements[3] = ((closureN)self_73986)->elements[3]; c_731170.elements[4] = ((closureN)self_73986)->elements[4]; c_731170.elements[5] = ((closureN)self_73986)->elements[5]; make_string(c_731218, ") for "); return_closcall2(data, __glo_display_scheme_write, &c_731170, &c_731218);; } static void __lambda_34(void *data, int argc, object self_73987, object r_73704) { closureN_type c_731172; c_731172.hdr.mark = gc_color_red; c_731172.hdr.grayed = 0; c_731172.tag = closureN_tag; c_731172.fn = (function_type)__lambda_33; c_731172.num_args = 1; c_731172.num_elements = 6; c_731172.elements = (object *)alloca(sizeof(object) * 6); c_731172.elements[0] = ((closureN)self_73987)->elements[0]; c_731172.elements[1] = ((closureN)self_73987)->elements[1]; c_731172.elements[2] = ((closureN)self_73987)->elements[2]; c_731172.elements[3] = ((closureN)self_73987)->elements[3]; c_731172.elements[4] = ((closureN)self_73987)->elements[4]; c_731172.elements[5] = ((closureN)self_73987)->elements[5]; return_closcall2(data, __glo_display_scheme_write, &c_731172, ((closureN)self_73987)->elements[4]);; } static void __lambda_33(void *data, int argc, object self_73988, object r_73705) { closureN_type c_731174; c_731174.hdr.mark = gc_color_red; c_731174.hdr.grayed = 0; c_731174.tag = closureN_tag; c_731174.fn = (function_type)__lambda_32; c_731174.num_args = 1; c_731174.num_elements = 6; c_731174.elements = (object *)alloca(sizeof(object) * 6); c_731174.elements[0] = ((closureN)self_73988)->elements[0]; c_731174.elements[1] = ((closureN)self_73988)->elements[1]; c_731174.elements[2] = ((closureN)self_73988)->elements[2]; c_731174.elements[3] = ((closureN)self_73988)->elements[3]; c_731174.elements[4] = ((closureN)self_73988)->elements[4]; c_731174.elements[5] = ((closureN)self_73988)->elements[5]; return_closcall1(data, __glo_newline_scheme_base, &c_731174);; } static void __lambda_32(void *data, int argc, object self_73989, object r_73706) { closureN_type c_731176; c_731176.hdr.mark = gc_color_red; c_731176.hdr.grayed = 0; c_731176.tag = closureN_tag; c_731176.fn = (function_type)__lambda_31; c_731176.num_args = 1; c_731176.num_elements = 6; c_731176.elements = (object *)alloca(sizeof(object) * 6); c_731176.elements[0] = ((closureN)self_73989)->elements[0]; c_731176.elements[1] = ((closureN)self_73989)->elements[1]; c_731176.elements[2] = ((closureN)self_73989)->elements[2]; c_731176.elements[3] = ((closureN)self_73989)->elements[3]; c_731176.elements[4] = ((closureN)self_73989)->elements[4]; c_731176.elements[5] = ((closureN)self_73989)->elements[5]; make_string(c_731216, "+!CSVLINE!+"); return_closcall2(data, __glo_display_scheme_write, &c_731176, &c_731216);; } static void __lambda_31(void *data, int argc, object self_73990, object r_73707) { closureN_type c_731178; c_731178.hdr.mark = gc_color_red; c_731178.hdr.grayed = 0; c_731178.tag = closureN_tag; c_731178.fn = (function_type)__lambda_30; c_731178.num_args = 1; c_731178.num_elements = 6; c_731178.elements = (object *)alloca(sizeof(object) * 6); c_731178.elements[0] = ((closureN)self_73990)->elements[0]; c_731178.elements[1] = ((closureN)self_73990)->elements[1]; c_731178.elements[2] = ((closureN)self_73990)->elements[2]; c_731178.elements[3] = ((closureN)self_73990)->elements[3]; c_731178.elements[4] = ((closureN)self_73990)->elements[4]; c_731178.elements[5] = ((closureN)self_73990)->elements[5]; return_closcall1(data, __glo_this_91scheme_91implementation_91name, &c_731178);; } static void __lambda_30(void *data, int argc, object self_73991, object r_73715) { closureN_type c_731180; c_731180.hdr.mark = gc_color_red; c_731180.hdr.grayed = 0; c_731180.tag = closureN_tag; c_731180.fn = (function_type)__lambda_29; c_731180.num_args = 1; c_731180.num_elements = 6; c_731180.elements = (object *)alloca(sizeof(object) * 6); c_731180.elements[0] = ((closureN)self_73991)->elements[0]; c_731180.elements[1] = ((closureN)self_73991)->elements[1]; c_731180.elements[2] = ((closureN)self_73991)->elements[2]; c_731180.elements[3] = ((closureN)self_73991)->elements[3]; c_731180.elements[4] = ((closureN)self_73991)->elements[4]; c_731180.elements[5] = ((closureN)self_73991)->elements[5]; return_closcall2(data, __glo_display_scheme_write, &c_731180, r_73715);; } static void __lambda_29(void *data, int argc, object self_73992, object r_73708) { closureN_type c_731182; c_731182.hdr.mark = gc_color_red; c_731182.hdr.grayed = 0; c_731182.tag = closureN_tag; c_731182.fn = (function_type)__lambda_28; c_731182.num_args = 1; c_731182.num_elements = 6; c_731182.elements = (object *)alloca(sizeof(object) * 6); c_731182.elements[0] = ((closureN)self_73992)->elements[0]; c_731182.elements[1] = ((closureN)self_73992)->elements[1]; c_731182.elements[2] = ((closureN)self_73992)->elements[2]; c_731182.elements[3] = ((closureN)self_73992)->elements[3]; c_731182.elements[4] = ((closureN)self_73992)->elements[4]; c_731182.elements[5] = ((closureN)self_73992)->elements[5]; make_string(c_731215, ","); return_closcall2(data, __glo_display_scheme_write, &c_731182, &c_731215);; } static void __lambda_28(void *data, int argc, object self_73993, object r_73709) { closureN_type c_731184; c_731184.hdr.mark = gc_color_red; c_731184.hdr.grayed = 0; c_731184.tag = closureN_tag; c_731184.fn = (function_type)__lambda_27; c_731184.num_args = 1; c_731184.num_elements = 5; c_731184.elements = (object *)alloca(sizeof(object) * 5); c_731184.elements[0] = ((closureN)self_73993)->elements[0]; c_731184.elements[1] = ((closureN)self_73993)->elements[1]; c_731184.elements[2] = ((closureN)self_73993)->elements[2]; c_731184.elements[3] = ((closureN)self_73993)->elements[3]; c_731184.elements[4] = ((closureN)self_73993)->elements[5]; return_closcall2(data, __glo_display_scheme_write, &c_731184, ((closureN)self_73993)->elements[4]);; } static void __lambda_27(void *data, int argc, object self_73994, object r_73710) { closureN_type c_731186; c_731186.hdr.mark = gc_color_red; c_731186.hdr.grayed = 0; c_731186.tag = closureN_tag; c_731186.fn = (function_type)__lambda_26; c_731186.num_args = 1; c_731186.num_elements = 5; c_731186.elements = (object *)alloca(sizeof(object) * 5); c_731186.elements[0] = ((closureN)self_73994)->elements[0]; c_731186.elements[1] = ((closureN)self_73994)->elements[1]; c_731186.elements[2] = ((closureN)self_73994)->elements[2]; c_731186.elements[3] = ((closureN)self_73994)->elements[3]; c_731186.elements[4] = ((closureN)self_73994)->elements[4]; make_string(c_731213, ","); return_closcall2(data, __glo_display_scheme_write, &c_731186, &c_731213);; } static void __lambda_26(void *data, int argc, object self_73995, object r_73711) { closureN_type c_731188; c_731188.hdr.mark = gc_color_red; c_731188.hdr.grayed = 0; c_731188.tag = closureN_tag; c_731188.fn = (function_type)__lambda_25; c_731188.num_args = 1; c_731188.num_elements = 2; c_731188.elements = (object *)alloca(sizeof(object) * 2); c_731188.elements[0] = ((closureN)self_73995)->elements[3]; c_731188.elements[1] = ((closureN)self_73995)->elements[4]; double_type local_731208; object c_731209 = Cyc_fast_sub(data,&local_731208,((closureN)self_73995)->elements[2], ((closureN)self_73995)->elements[1]); double_type local_731204; object c_731205 = Cyc_fast_div(data,&local_731204,c_731209, ((closureN)self_73995)->elements[0]); double_type local_731200; object c_731201 = ((inline_function_type) ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_731200,c_731205); return_closcall2(data, __glo_display_scheme_write, &c_731188, c_731201);; } static void __lambda_25(void *data, int argc, object self_73996, object r_73712) { closureN_type c_731190; c_731190.hdr.mark = gc_color_red; c_731190.hdr.grayed = 0; c_731190.tag = closureN_tag; c_731190.fn = (function_type)__lambda_24; c_731190.num_args = 1; c_731190.num_elements = 2; c_731190.elements = (object *)alloca(sizeof(object) * 2); c_731190.elements[0] = ((closureN)self_73996)->elements[0]; c_731190.elements[1] = ((closureN)self_73996)->elements[1]; return_closcall1(data, __glo_newline_scheme_base, &c_731190);; } static void __lambda_24(void *data, int argc, object self_73997, object r_73713) { closureN_type c_731192; c_731192.hdr.mark = gc_color_red; c_731192.hdr.grayed = 0; c_731192.tag = closureN_tag; c_731192.fn = (function_type)__lambda_23; c_731192.num_args = 1; c_731192.num_elements = 2; c_731192.elements = (object *)alloca(sizeof(object) * 2); c_731192.elements[0] = ((closureN)self_73997)->elements[0]; c_731192.elements[1] = ((closureN)self_73997)->elements[1]; return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_731192);; } static void __lambda_23(void *data, int argc, object self_73998, object r_73714) { closureN_type c_731194; c_731194.hdr.mark = gc_color_red; c_731194.hdr.grayed = 0; c_731194.tag = closureN_tag; c_731194.fn = (function_type)__lambda_22; c_731194.num_args = 1; c_731194.num_elements = 2; c_731194.elements = (object *)alloca(sizeof(object) * 2); c_731194.elements[0] = ((closureN)self_73998)->elements[0]; c_731194.elements[1] = ((closureN)self_73998)->elements[1]; return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_731194, r_73714);; } static void __lambda_22(void *data, int argc, object self_73999, object r_73694) { return_closcall1(data, ((closureN)self_73999)->elements[0], ((closureN)self_73999)->elements[1]);; } static void __lambda_21(void *data, int argc, object self_731000, object r_73692) { double_type local_731146; object c_731147 = Cyc_fast_sum(data,&local_731146,((closureN)self_731000)->elements[0], obj_int2obj(1)); return_closcall3(data, car(((closureN)self_731000)->elements[2]), ((closureN)self_731000)->elements[1], c_731147, r_73692);; } static void __lambda_20(void *data, int argc, object self_731001, object r_73687) { return_closcall3(data, car(((closureN)self_731001)->elements[1]), ((closureN)self_731001)->elements[0], obj_int2obj(0), boolean_f);; } static void __lambda_19(void *data, int argc, closure _,object k_73730, object r_73348, object x_73347) { Cyc_st_add(data, "sboyer.scm:hide"); closureN_type c_731073; c_731073.hdr.mark = gc_color_red; c_731073.hdr.grayed = 0; c_731073.tag = closureN_tag; c_731073.fn = (function_type)__lambda_17; c_731073.num_args = 0; c_731073.num_elements = 1; c_731073.elements = (object *)alloca(sizeof(object) * 1); c_731073.elements[0] = r_73348; closureN_type c_731090; c_731090.hdr.mark = gc_color_red; c_731090.hdr.grayed = 0; c_731090.tag = closureN_tag; c_731090.fn = (function_type)__lambda_18; c_731090.num_args = 2; c_731090.num_elements = 1; c_731090.elements = (object *)alloca(sizeof(object) * 1); c_731090.elements[0] = x_73347; return_closcall3(data, __glo_call_91with_91values_scheme_base, k_73730, &c_731073, &c_731090);; } static void __lambda_18(void *data, int argc, object self_731002, object k_73733, object v_73350, object i_73349) { return_closcall2(data, Cyc_vector_ref(data, v_73350, i_73349), k_73733, ((closureN)self_731002)->elements[0]);; } static void __lambda_17(void *data, int argc, object self_731003, object k_73735) { closureN_type c_731075; c_731075.hdr.mark = gc_color_red; c_731075.hdr.grayed = 0; c_731075.tag = closureN_tag; c_731075.fn = (function_type)__lambda_15; c_731075.num_args = 1; c_731075.num_elements = 2; c_731075.elements = (object *)alloca(sizeof(object) * 2); c_731075.elements[0] = k_73735; c_731075.elements[1] = ((closureN)self_731003)->elements[0]; mclosure0(c_731088, (function_type)__lambda_16);c_731088.num_args = 1; return_closcall3(data, __glo_vector_scheme_base, &c_731075, __glo_values_scheme_base, &c_731088);; } static void __lambda_16(void *data, int argc, object self_731004, object k_73741, object x_73351) { return_closcall1(data, k_73741, x_73351);; } static void __lambda_15(void *data, int argc, object self_731005, object r_73736) { closureN_type c_731077; c_731077.hdr.mark = gc_color_red; c_731077.hdr.grayed = 0; c_731077.tag = closureN_tag; c_731077.fn = (function_type)__lambda_13; c_731077.num_args = 0; c_731077.num_elements = 1; c_731077.elements = (object *)alloca(sizeof(object) * 1); c_731077.elements[0] = ((closureN)self_731005)->elements[1]; closureN_type c_731084; c_731084.hdr.mark = gc_color_red; c_731084.hdr.grayed = 0; c_731084.tag = closureN_tag; c_731084.fn = (function_type)__lambda_14; c_731084.num_args = 1; c_731084.num_elements = 2; c_731084.elements = (object *)alloca(sizeof(object) * 2); c_731084.elements[0] = ((closureN)self_731005)->elements[0]; c_731084.elements[1] = r_73736; return_closcall1(data,(closure)&c_731077, &c_731084);; } static void __lambda_14(void *data, int argc, object self_731006, object r_73737) { return_closcall3(data, __glo_values_scheme_base, ((closureN)self_731006)->elements[0], ((closureN)self_731006)->elements[1], r_73737);; } static void __lambda_13(void *data, int argc, object self_731007, object k_73738) { object c_731080 = Cyc_num_fast_lt_op(data,((closureN)self_731007)->elements[0], obj_int2obj(100)); if( (boolean_f != c_731080) ){ return_closcall1(data, k_73738, obj_int2obj(0)); } else { return_closcall1(data, k_73738, obj_int2obj(1));} ; } static void __lambda_12(void *data, int argc, closure _,object k_73744) { Cyc_st_add(data, "sboyer.scm:test-boyer"); return_closcall1(data, k_73744, boolean_t);; } static void __lambda_11(void *data, int argc, closure _,object k_73747) { Cyc_st_add(data, "sboyer.scm:setup-boyer"); return_closcall1(data, k_73747, boolean_t);; } static void __lambda_10(void *data, int argc, closure _,object k_73754) { Cyc_st_add(data, "sboyer.scm:main"); closureN_type c_731020; c_731020.hdr.mark = gc_color_red; c_731020.hdr.grayed = 0; c_731020.tag = closureN_tag; c_731020.fn = (function_type)__lambda_9; c_731020.num_args = 1; c_731020.num_elements = 1; c_731020.elements = (object *)alloca(sizeof(object) * 1); c_731020.elements[0] = k_73754; return_closcall1(data, __glo_read_scheme_read, &c_731020);; } static void __lambda_9(void *data, int argc, object self_731008, object count_73352) { closureN_type c_731022; c_731022.hdr.mark = gc_color_red; c_731022.hdr.grayed = 0; c_731022.tag = closureN_tag; c_731022.fn = (function_type)__lambda_8; c_731022.num_args = 1; c_731022.num_elements = 2; c_731022.elements = (object *)alloca(sizeof(object) * 2); c_731022.elements[0] = count_73352; c_731022.elements[1] = ((closureN)self_731008)->elements[0]; return_closcall1(data, __glo_read_scheme_read, &c_731022);; } static void __lambda_8(void *data, int argc, object self_731009, object input_73353) { closureN_type c_731024; c_731024.hdr.mark = gc_color_red; c_731024.hdr.grayed = 0; c_731024.tag = closureN_tag; c_731024.fn = (function_type)__lambda_7; c_731024.num_args = 1; c_731024.num_elements = 3; c_731024.elements = (object *)alloca(sizeof(object) * 3); c_731024.elements[0] = ((closureN)self_731009)->elements[0]; c_731024.elements[1] = input_73353; c_731024.elements[2] = ((closureN)self_731009)->elements[1]; return_closcall1(data, __glo_read_scheme_read, &c_731024);; } static void __lambda_7(void *data, int argc, object self_731010, object output_73354) { closureN_type c_731026; c_731026.hdr.mark = gc_color_red; c_731026.hdr.grayed = 0; c_731026.tag = closureN_tag; c_731026.fn = (function_type)__lambda_6; c_731026.num_args = 1; c_731026.num_elements = 4; c_731026.elements = (object *)alloca(sizeof(object) * 4); c_731026.elements[0] = ((closureN)self_731010)->elements[0]; c_731026.elements[1] = ((closureN)self_731010)->elements[1]; c_731026.elements[2] = ((closureN)self_731010)->elements[2]; c_731026.elements[3] = output_73354; object c_731065 = Cyc_number2string2(data,(closure)&c_731026,1,((closureN)self_731010)->elements[0]); return_closcall1(data,(closure)&c_731026, c_731065);; } static void __lambda_6(void *data, int argc, object self_731011, object s2_73355) { closureN_type c_731028; c_731028.hdr.mark = gc_color_red; c_731028.hdr.grayed = 0; c_731028.tag = closureN_tag; c_731028.fn = (function_type)__lambda_5; c_731028.num_args = 1; c_731028.num_elements = 5; c_731028.elements = (object *)alloca(sizeof(object) * 5); c_731028.elements[0] = ((closureN)self_731011)->elements[0]; c_731028.elements[1] = ((closureN)self_731011)->elements[1]; c_731028.elements[2] = ((closureN)self_731011)->elements[2]; c_731028.elements[3] = ((closureN)self_731011)->elements[3]; c_731028.elements[4] = s2_73355; object c_731061 = Cyc_number2string2(data,(closure)&c_731028,1,((closureN)self_731011)->elements[1]); return_closcall1(data,(closure)&c_731028, c_731061);; } static void __lambda_5(void *data, int argc, object self_731012, object s1_73356) { closureN_type c_731030; c_731030.hdr.mark = gc_color_red; c_731030.hdr.grayed = 0; c_731030.tag = closureN_tag; c_731030.fn = (function_type)__lambda_4; c_731030.num_args = 1; c_731030.num_elements = 4; c_731030.elements = (object *)alloca(sizeof(object) * 4); c_731030.elements[0] = ((closureN)self_731012)->elements[0]; c_731030.elements[1] = ((closureN)self_731012)->elements[1]; c_731030.elements[2] = ((closureN)self_731012)->elements[2]; c_731030.elements[3] = ((closureN)self_731012)->elements[3]; make_string(c_731055, "sboyer"); make_string(c_731056, ":"); make_string(c_731057, ":"); object c_731054 = Cyc_string_append(data,(closure)&c_731030,5,&c_731055, &c_731056, s1_73356, &c_731057, ((closureN)self_731012)->elements[4]); return_closcall1(data,(closure)&c_731030, c_731054);; } static void __lambda_4(void *data, int argc, object self_731013, object r_73760) { closureN_type c_731034; c_731034.hdr.mark = gc_color_red; c_731034.hdr.grayed = 0; c_731034.tag = closureN_tag; c_731034.fn = (function_type)__lambda_2; c_731034.num_args = 0; c_731034.num_elements = 2; c_731034.elements = (object *)alloca(sizeof(object) * 2); c_731034.elements[0] = ((closureN)self_731013)->elements[0]; c_731034.elements[1] = ((closureN)self_731013)->elements[1]; closureN_type c_731043; c_731043.hdr.mark = gc_color_red; c_731043.hdr.grayed = 0; c_731043.tag = closureN_tag; c_731043.fn = (function_type)__lambda_3; c_731043.num_args = 1; c_731043.num_elements = 1; c_731043.elements = (object *)alloca(sizeof(object) * 1); c_731043.elements[0] = ((closureN)self_731013)->elements[3]; return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_731013)->elements[2], r_73760, ((closureN)self_731013)->elements[0], &c_731034, &c_731043);; } static void __lambda_3(void *data, int argc, object self_731014, object k_73763, object rewrites_73358) { if( (boolean_f != Cyc_is_number(rewrites_73358)) ){ object c_731049 = Cyc_num_fast_eq_op(data,rewrites_73358, ((closureN)self_731014)->elements[0]); return_closcall1(data, k_73763, c_731049); } else { return_closcall1(data, k_73763, boolean_f);} ; } static void __lambda_2(void *data, int argc, object self_731015, object k_73765) { closureN_type c_731036; c_731036.hdr.mark = gc_color_red; c_731036.hdr.grayed = 0; c_731036.tag = closureN_tag; c_731036.fn = (function_type)__lambda_1; c_731036.num_args = 1; c_731036.num_elements = 3; c_731036.elements = (object *)alloca(sizeof(object) * 3); c_731036.elements[0] = ((closureN)self_731015)->elements[0]; c_731036.elements[1] = ((closureN)self_731015)->elements[1]; c_731036.elements[2] = k_73765; return_closcall1(data, __glo_setup_91boyer, &c_731036);; } static void __lambda_1(void *data, int argc, object self_731016, object r_73766) { closureN_type c_731038; c_731038.hdr.mark = gc_color_red; c_731038.hdr.grayed = 0; c_731038.tag = closureN_tag; c_731038.fn = (function_type)__lambda_0; c_731038.num_args = 1; c_731038.num_elements = 1; c_731038.elements = (object *)alloca(sizeof(object) * 1); c_731038.elements[0] = ((closureN)self_731016)->elements[2]; return_closcall3(data, __glo_hide, &c_731038, ((closureN)self_731016)->elements[0], ((closureN)self_731016)->elements[1]);; } static void __lambda_0(void *data, int argc, object self_731017, object r_73767) { return_closcall4(data, __glo_test_91boyer, ((closureN)self_731017)->elements[0], __glo_alist, __glo_term, r_73767);; } static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value); extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value); extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value); extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value); extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value); extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value); extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value); extern void c_schemecxr_entry_pt(void *data, int argc, closure cont, object value); static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { Cyc_set_globals_changed((gc_thread_data *)data); quote_u = find_or_add_symbol("u"); quote_lemmas = find_or_add_symbol("lemmas"); quote__85 = find_or_add_symbol("*"); quote_mem = find_or_add_symbol("mem"); quote_val = find_or_add_symbol("val"); quote_set = find_or_add_symbol("set"); quote_get = find_or_add_symbol("get"); quote_cdr = find_or_add_symbol("cdr"); quote_assignedp = find_or_add_symbol("assignedp"); quote_assignment = find_or_add_symbol("assignment"); quote_car = find_or_add_symbol("car"); quote_last = find_or_add_symbol("last"); quote_sigma = find_or_add_symbol("sigma"); quote_x7 = find_or_add_symbol("x7"); quote_x6 = find_or_add_symbol("x6"); quote_x5 = find_or_add_symbol("x5"); quote_x4 = find_or_add_symbol("x4"); quote_x3 = find_or_add_symbol("x3"); quote_x2 = find_or_add_symbol("x2"); quote_x1 = find_or_add_symbol("x1"); quote_dsort = find_or_add_symbol("dsort"); quote_sort2 = find_or_add_symbol("sort2"); quote_delete = find_or_add_symbol("delete"); quote_prime_91list = find_or_add_symbol("prime-list"); quote_times_91list = find_or_add_symbol("times-list"); quote_greatest_91factor = find_or_add_symbol("greatest-factor"); quote_samefringe = find_or_add_symbol("samefringe"); quote_gopher = find_or_add_symbol("gopher"); quote_listp = find_or_add_symbol("listp"); quote_nlistp = find_or_add_symbol("nlistp"); quote_value = find_or_add_symbol("value"); quote_w = find_or_add_symbol("w"); quote_gcd = find_or_add_symbol("gcd"); quote_power_91rep = find_or_add_symbol("power-rep"); quote_big_91plus = find_or_add_symbol("big-plus"); quote_base = find_or_add_symbol("base"); quote_big_91plus1 = find_or_add_symbol("big-plus1"); quote_power_91eval = find_or_add_symbol("power-eval"); quote_quotient = find_or_add_symbol("quotient"); quote_sort_91lp = find_or_add_symbol("sort-lp"); quote_count_91list = find_or_add_symbol("count-list"); quote_k = find_or_add_symbol("k"); quote_j = find_or_add_symbol("j"); quote_exp = find_or_add_symbol("exp"); quote_nth = find_or_add_symbol("nth"); quote_intersect = find_or_add_symbol("intersect"); quote_length = find_or_add_symbol("length"); quote_member = find_or_add_symbol("member"); quote_flatten = find_or_add_symbol("flatten"); quote_mc_91flatten = find_or_add_symbol("mc-flatten"); quote_envrn = find_or_add_symbol("envrn"); quote_pds = find_or_add_symbol("pds"); quote_exec = find_or_add_symbol("exec"); quote_times = find_or_add_symbol("times"); quote_plus_91fringe = find_or_add_symbol("plus-fringe"); quote_append = find_or_add_symbol("append"); quote_plus_91tree = find_or_add_symbol("plus-tree"); quote_meaning = find_or_add_symbol("meaning"); quote_difference = find_or_add_symbol("difference"); quote_z = find_or_add_symbol("z"); quote_plus = find_or_add_symbol("plus"); quote_e = find_or_add_symbol("e"); quote_d = find_or_add_symbol("d"); quote_c = find_or_add_symbol("c"); quote_b = find_or_add_symbol("b"); quote_a = find_or_add_symbol("a"); quote_numberp = find_or_add_symbol("numberp"); quote_q = find_or_add_symbol("q"); quote_p = find_or_add_symbol("p"); quote_prime1 = find_or_add_symbol("prime1"); quote_add1 = find_or_add_symbol("add1"); quote_prime = find_or_add_symbol("prime"); quote_falsify1 = find_or_add_symbol("falsify1"); quote_falsify = find_or_add_symbol("falsify"); quote_normalize = find_or_add_symbol("normalize"); quote_tautologyp = find_or_add_symbol("tautologyp"); quote_tautology_91checker = find_or_add_symbol("tautology-checker"); quote_assume_91false = find_or_add_symbol("assume-false"); quote_cons = find_or_add_symbol("cons"); quote_alist = find_or_add_symbol("alist"); quote_var = find_or_add_symbol("var"); quote_assume_91true = find_or_add_symbol("assume-true"); quote_remainder = find_or_add_symbol("remainder"); quote_divides = find_or_add_symbol("divides"); quote_reverse_91loop = find_or_add_symbol("reverse-loop"); quote_reverse_91 = find_or_add_symbol("reverse-"); quote_fact_91loop = find_or_add_symbol("fact-loop"); quote_i = find_or_add_symbol("i"); quote_fact_91 = find_or_add_symbol("fact-"); quote_zero = find_or_add_symbol("zero"); quote_countps_91loop = find_or_add_symbol("countps-loop"); quote_pred = find_or_add_symbol("pred"); quote_l = find_or_add_symbol("l"); quote_countps_91 = find_or_add_symbol("countps-"); quote__1911_91 = find_or_add_symbol("_1-"); quote_odd = find_or_add_symbol("odd"); quote_zerop = find_or_add_symbol("zerop"); quote__if = find_or_add_symbol("if"); quote_even1 = find_or_add_symbol("even1"); quote_implies = find_or_add_symbol("implies"); quote_and = find_or_add_symbol("and"); quote_iff = find_or_add_symbol("iff"); quote_f = find_or_add_symbol("f"); quote_t = find_or_add_symbol("t"); quote_or = find_or_add_symbol("or"); quote_boolean = find_or_add_symbol("boolean"); quote_greatereqp = find_or_add_symbol("greatereqp"); quote_not = find_or_add_symbol("not"); quote_lesseqp = find_or_add_symbol("lesseqp"); quote_lessp = find_or_add_symbol("lessp"); quote_greaterp = find_or_add_symbol("greaterp"); quote_fix = find_or_add_symbol("fix"); quote_y = find_or_add_symbol("y"); quote_x = find_or_add_symbol("x"); quote_eqp = find_or_add_symbol("eqp"); quote_nil = find_or_add_symbol("nil"); quote_optimize = find_or_add_symbol("optimize"); quote_codegen = find_or_add_symbol("codegen"); quote_reverse = find_or_add_symbol("reverse"); quote_form = find_or_add_symbol("form"); quote_compile = find_or_add_symbol("compile"); quote_equal = find_or_add_symbol("equal"); add_global((object *) &__glo_this_91scheme_91implementation_91name); add_global((object *) &__glo_run_91r7rs_91benchmark); add_global((object *) &__glo_hide); add_global((object *) &__glo_test_91boyer); add_global((object *) &__glo_setup_91boyer); add_global((object *) &__glo_term); add_global((object *) &__glo_alist); add_global((object *) &__glo_main); add_symbol(quote_u); add_symbol(quote_lemmas); add_symbol(quote__85); add_symbol(quote_mem); add_symbol(quote_val); add_symbol(quote_set); add_symbol(quote_get); add_symbol(quote_cdr); add_symbol(quote_assignedp); add_symbol(quote_assignment); add_symbol(quote_car); add_symbol(quote_last); add_symbol(quote_sigma); add_symbol(quote_x7); add_symbol(quote_x6); add_symbol(quote_x5); add_symbol(quote_x4); add_symbol(quote_x3); add_symbol(quote_x2); add_symbol(quote_x1); add_symbol(quote_dsort); add_symbol(quote_sort2); add_symbol(quote_delete); add_symbol(quote_prime_91list); add_symbol(quote_times_91list); add_symbol(quote_greatest_91factor); add_symbol(quote_samefringe); add_symbol(quote_gopher); add_symbol(quote_listp); add_symbol(quote_nlistp); add_symbol(quote_value); add_symbol(quote_w); add_symbol(quote_gcd); add_symbol(quote_power_91rep); add_symbol(quote_big_91plus); add_symbol(quote_base); add_symbol(quote_big_91plus1); add_symbol(quote_power_91eval); add_symbol(quote_quotient); add_symbol(quote_sort_91lp); add_symbol(quote_count_91list); add_symbol(quote_k); add_symbol(quote_j); add_symbol(quote_exp); add_symbol(quote_nth); add_symbol(quote_intersect); add_symbol(quote_length); add_symbol(quote_member); add_symbol(quote_flatten); add_symbol(quote_mc_91flatten); add_symbol(quote_envrn); add_symbol(quote_pds); add_symbol(quote_exec); add_symbol(quote_times); add_symbol(quote_plus_91fringe); add_symbol(quote_append); add_symbol(quote_plus_91tree); add_symbol(quote_meaning); add_symbol(quote_difference); add_symbol(quote_z); add_symbol(quote_plus); add_symbol(quote_e); add_symbol(quote_d); add_symbol(quote_c); add_symbol(quote_b); add_symbol(quote_a); add_symbol(quote_numberp); add_symbol(quote_q); add_symbol(quote_p); add_symbol(quote_prime1); add_symbol(quote_add1); add_symbol(quote_prime); add_symbol(quote_falsify1); add_symbol(quote_falsify); add_symbol(quote_normalize); add_symbol(quote_tautologyp); add_symbol(quote_tautology_91checker); add_symbol(quote_assume_91false); add_symbol(quote_cons); add_symbol(quote_alist); add_symbol(quote_var); add_symbol(quote_assume_91true); add_symbol(quote_remainder); add_symbol(quote_divides); add_symbol(quote_reverse_91loop); add_symbol(quote_reverse_91); add_symbol(quote_fact_91loop); add_symbol(quote_i); add_symbol(quote_fact_91); add_symbol(quote_zero); add_symbol(quote_countps_91loop); add_symbol(quote_pred); add_symbol(quote_l); add_symbol(quote_countps_91); add_symbol(quote__1911_91); add_symbol(quote_odd); add_symbol(quote_zerop); add_symbol(quote__if); add_symbol(quote_even1); add_symbol(quote_implies); add_symbol(quote_and); add_symbol(quote_iff); add_symbol(quote_f); add_symbol(quote_t); add_symbol(quote_or); add_symbol(quote_boolean); add_symbol(quote_greatereqp); add_symbol(quote_not); add_symbol(quote_lesseqp); add_symbol(quote_lessp); add_symbol(quote_greaterp); add_symbol(quote_fix); add_symbol(quote_y); add_symbol(quote_x); add_symbol(quote_eqp); add_symbol(quote_nil); add_symbol(quote_optimize); add_symbol(quote_codegen); add_symbol(quote_reverse); add_symbol(quote_form); add_symbol(quote_compile); add_symbol(quote_equal); mclosure0(c_731281, (function_type)__lambda_65);c_731281.num_args = 0; __glo_this_91scheme_91implementation_91name = &c_731281; mclosure0(c_731095, (function_type)__lambda_63);c_731095.num_args = 4; __glo_run_91r7rs_91benchmark = &c_731095; mclosure0(c_731071, (function_type)__lambda_19);c_731071.num_args = 2; __glo_hide = &c_731071; mclosure0(c_731069, (function_type)__lambda_12);c_731069.num_args = 0; __glo_test_91boyer = &c_731069; mclosure0(c_731067, (function_type)__lambda_11);c_731067.num_args = 0; __glo_setup_91boyer = &c_731067; mclosure0(c_731018, (function_type)__lambda_10);c_731018.num_args = 0; __glo_main = &c_731018; __glo_term = boolean_f; __glo_alist = boolean_f; make_cvar(cvar_736491, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_736492, find_or_add_symbol("this-scheme-implementation-name"), &cvar_736491); make_cvar(cvar_736493, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_736494, find_or_add_symbol("run-r7rs-benchmark"), &cvar_736493); make_cvar(cvar_736495, (object *)&__glo_hide);make_pair(pair_736496, find_or_add_symbol("hide"), &cvar_736495); make_cvar(cvar_736497, (object *)&__glo_test_91boyer);make_pair(pair_736498, find_or_add_symbol("test-boyer"), &cvar_736497); make_cvar(cvar_736499, (object *)&__glo_setup_91boyer);make_pair(pair_736500, find_or_add_symbol("setup-boyer"), &cvar_736499); make_cvar(cvar_736501, (object *)&__glo_term);make_pair(pair_736502, find_or_add_symbol("term"), &cvar_736501); make_cvar(cvar_736503, (object *)&__glo_alist);make_pair(pair_736504, find_or_add_symbol("alist"), &cvar_736503); make_cvar(cvar_736505, (object *)&__glo_main);make_pair(pair_736506, find_or_add_symbol("main"), &cvar_736505); make_pair(c_736507, &pair_736492,Cyc_global_variables); make_pair(c_736508, &pair_736494, &c_736507); make_pair(c_736509, &pair_736496, &c_736508); make_pair(c_736510, &pair_736498, &c_736509); make_pair(c_736511, &pair_736500, &c_736510); make_pair(c_736512, &pair_736502, &c_736511); make_pair(c_736513, &pair_736504, &c_736512); make_pair(c_736514, &pair_736506, &c_736513); Cyc_global_variables = &c_736514; mclosure1(c_done, c_entry_pt_first_lambda, &c_done); mclosure1(c_736515, c_schemecxr_entry_pt, &c_done); mclosure1(c_736516, c_schemeread_entry_pt, &c_736515); mclosure1(c_736517, c_scheme_char_entry_pt, &c_736516); mclosure1(c_736518, c_schemewrite_entry_pt, &c_736517); mclosure1(c_736519, c_schemetime_entry_pt, &c_736518); mclosure1(c_736520, c_schemebase_entry_pt, &c_736519); mclosure1(c_736521, c_schemecyclonecommon_entry_pt, &c_736520); (c_736521.fn)(data, 0, &c_736521, &c_736521); } static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) { make_pair(c_736435,quote_b,NULL); make_pair(c_736434,quote_a,&c_736435); make_pair(c_736433,quote_plus,&c_736434); make_pair(c_736440,quote_zero,NULL); make_pair(c_736439,&c_736440,NULL); make_pair(c_736438,quote_c,&c_736439); make_pair(c_736437,quote_plus,&c_736438); make_pair(c_736436,&c_736437,NULL); make_pair(c_736432,&c_736433,&c_736436); make_pair(c_736431,quote_plus,&c_736432); make_pair(c_736430,&c_736431,NULL); make_pair(c_736429,quote_f,&c_736430); make_pair(c_736428,quote_x,&c_736429); make_pair(c_736449,quote_b,NULL); make_pair(c_736448,quote_a,&c_736449); make_pair(c_736447,quote_times,&c_736448); make_pair(c_736453,quote_d,NULL); make_pair(c_736452,quote_c,&c_736453); make_pair(c_736451,quote_plus,&c_736452); make_pair(c_736450,&c_736451,NULL); make_pair(c_736446,&c_736447,&c_736450); make_pair(c_736445,quote_times,&c_736446); make_pair(c_736444,&c_736445,NULL); make_pair(c_736443,quote_f,&c_736444); make_pair(c_736442,quote_y,&c_736443); make_pair(c_736464,quote_b,NULL); make_pair(c_736463,quote_a,&c_736464); make_pair(c_736462,quote_append,&c_736463); make_pair(c_736466,quote_nil,NULL); make_pair(c_736465,&c_736466,NULL); make_pair(c_736461,&c_736462,&c_736465); make_pair(c_736460,quote_append,&c_736461); make_pair(c_736459,&c_736460,NULL); make_pair(c_736458,quote_reverse,&c_736459); make_pair(c_736457,&c_736458,NULL); make_pair(c_736456,quote_f,&c_736457); make_pair(c_736455,quote_z,&c_736456); make_pair(c_736473,quote_b,NULL); make_pair(c_736472,quote_a,&c_736473); make_pair(c_736471,quote_plus,&c_736472); make_pair(c_736477,quote_y,NULL); make_pair(c_736476,quote_x,&c_736477); make_pair(c_736475,quote_difference,&c_736476); make_pair(c_736474,&c_736475,NULL); make_pair(c_736470,&c_736471,&c_736474); make_pair(c_736469,quote_equal,&c_736470); make_pair(c_736468,quote_u,&c_736469); make_pair(c_736484,quote_b,NULL); make_pair(c_736483,quote_a,&c_736484); make_pair(c_736482,quote_remainder,&c_736483); make_pair(c_736490,quote_b,NULL); make_pair(c_736489,quote_length,&c_736490); make_pair(c_736488,&c_736489,NULL); make_pair(c_736487,quote_a,&c_736488); make_pair(c_736486,quote_member,&c_736487); make_pair(c_736485,&c_736486,NULL); make_pair(c_736481,&c_736482,&c_736485); make_pair(c_736480,quote_lessp,&c_736481); make_pair(c_736479,quote_w,&c_736480); make_pair(c_736478,&c_736479,NULL); make_pair(c_736467,&c_736468,&c_736478); make_pair(c_736454,&c_736455,&c_736467); make_pair(c_736441,&c_736442,&c_736454); make_pair(c_736427,&c_736428,&c_736441); return_direct1(data,__lambda_259,global_set(__glo_alist, &c_736427)); ; } int main(int argc, char **argv, char **envp) {gc_thread_data *thd; long stack_size = global_stack_size = STACK_SIZE; long heap_size = global_heap_size = HEAP_SIZE; mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached mclosure0(entry_pt,&c_entry_pt); // First function to execute _cyc_argc = argc; _cyc_argv = argv; set_env_variables(envp); gc_initialize(); thd = malloc(sizeof(gc_thread_data)); gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size); thd->gc_cont = &entry_pt; thd->gc_args[0] = &clos_halt; thd->gc_num_args = 1; thd->thread_id = pthread_self(); gc_add_mutator(thd); Cyc_heap_init(heap_size); thd->thread_state = CYC_THREAD_STATE_RUNNABLE; Cyc_start_trampoline(thd); return 0;}