((/centaur/4v-sexpr/sexpr-equivs.lisp::prove-4v-equiv-congs (nil nil nil nil (if) nil nil) ((nil) nil (zp) (cons) nil nil nil) ((n) nil (`) nil (recursive-call) nil nil) ((f ins) nil (1-) nil nil (defcong) nil) ((4v-equiv equal n) nil (,) ((, f)) nil nil nil) ((, ins n) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/centaur/4v-sexpr/sexpr-equivs.lisp::4v-alist-extract (nil nil nil nil (if) nil nil) ((nil) nil (atom) (cons) nil nil nil) ((keys) nil nil (cons recursive-call) nil nil nil) ((al) nil (car cdr) (4v-lookup) nil nil nil) ((keys al keys) nil (car) nil nil nil nil) ((keys) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/centaur/4v-sexpr/sexpr-equivs.lisp::4v-alists-agree (nil nil nil (or) nil nil nil) (nil nil (atom) (and) nil nil nil) ((keys) nil nil (equal) (recursive-call) nil nil) ((al1 al2) nil (cdr) (4v-lookup 4v-lookup) nil nil nil) ((al1 al2 keys) nil (car car) nil nil nil nil) ((keys keys) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/centaur/4v-sexpr/sexpr-equivs.lisp::4v-alists-disagree-witness (nil nil nil nil (if) nil nil) ((nil) nil (atom) nil (if) nil nil) ((keys) nil (car) (equal) (recursive-call) nil nil) ((al1 al2 keys) nil (cdr) (4v-lookup 4v-lookup) nil nil nil) ((al1 al2 keys) nil (car car) nil nil nil nil) ((keys keys) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))